Changeset 317 for trunk/SRC/Utilities

Timestamp:

12/03/07 15:20:41 (17 years ago)

Author:

smasson

Message:

check possible errors related to wrong path definition

File:

• trunk/SRC/Utilities/def_myuniquetmpdir.pro (modified) (1 diff)

trunk/SRC/Utilities/def_myuniquetmpdir.pro

@@ -40 +40 @@
 ; add it to !path
     !path = myuniquetmpdir + path_sep(/search_path) + !path
+; check that each element of !path is unique
+    splpath = strsplit(!path, path_sep(/search_path), /extract, count = ndir)
+    nouniq = different(lindgen(ndir), uniq(splpath, sort(splpath)))
+    IF nouniq[0] NE -1 THEN BEGIN
+      allpro = find('*.pro', iodirectory = !path, /onlypro)
+      nall = n_elements(allpro) 
+      allpro = strmid(allpro, reform(strpos(allpro, '/', /reverse_search), 1, nall)+1)
+      nouniqpro = different(lindgen(nall), uniq(allpro, sort(allpro)))
+      IF nouniqpro[0] NE -1 THEN BEGIN 
+        nouniqcnt = n_elements(nouniq)
+        nouniqprocnt = n_elements(nouniqpro)
+        text = ['', '   --- WARNING ---' $
+                , 'Your !path contains '+strtrim(nouniqcnt, 1)+' duplicate elements' $
+                , 'This can create bugs for files with the same name located in several directories ('+strtrim(nouniqprocnt, 1)+' found)']
+        dummy = report(text)
+        text = ['', 'duplicate directories in the path:', splpath[nouniq[0:9 <(nouniqcnt-1)]]]
+        IF nouniqcnt GT 10 THEN text = [text, '...']
+        dummy = report(text, /simple)
+        text = ['', 'files with the same name:', allpro[nouniqpro[0:9 <(nouniqprocnt-1)]]]
+        IF nouniqprocnt GT 10 THEN text = [text, '...', '']
+        dummy = report(text, /simple)
+      ENDIF
+    ENDIF
   ENDIF
 ;