Changeset 317

Timestamp:

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

Author:

smasson

Message:

check possible errors related to wrong path definition

Location:

trunk/SRC

Files:

• ForOldVersion/keep_compatibility.pro (modified) (6 diffs)
• Utilities/def_myuniquetmpdir.pro (modified) (1 diff)

trunk/SRC/ForOldVersion/keep_compatibility.pro

@@ -2 +2 @@
 ;
 ; @file_comments
+; For internal use of SAXO
 ;   1) define key_forgetold = 1b - keyword_set(flag)
 ;   2) remove all oldcm_used.pro found in !path
 ;   3) define and create myuniquetmpdir and add it to !path
 ;   4) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro'
+;   5) make sure that the common variables are correctly initialized.
+;   6) merge the online_help if possible...
 ;
 ; @categories
@@ -16 +19 @@
 ; cm_general
 ;
-; @restrictions
-; copy oldcm_full or oldcm_empty must be found in the !path.
-; dir must also be in the !path
-;
 ; @examples
-; IDL> keep_compatibility,0
+; keep_compatibility, 0
 ;
 ; @history
@@ -37 +36 @@
 ;
 @cm_general
+;
+  IF n_elements(myuniquetmpdir) NE 0 THEN return
 ;
 ; version should be at least 6.0
@@ -54 +55 @@
 ; are we using gdl or idl??
   defsysv, '!gdl', exist = key_gdl
-;
-  IF n_elements(myuniquetmpdir) NE 0 THEN BEGIN
-    !path = myuniquetmpdir + path_sep(/search_path) + !path
-    return
-  ENDIF
 ;
   if n_elements(flag) eq 0 then flag = 1b - keyword_set(key_forgetold)
@@ -96 +92 @@
   ENDIF
 ;
-; make sure that the common variables are correctly initialized.
+; 5) make sure that the common variables are correctly initialized.
 ;
   IF size(ccmeshparameters, /type) NE 8 THEN BEGIN
@@ -109 +105 @@
   ENDIF
 ;
-; merge the online_help if possible...
+; 6) merge the online_help if possible...
 ;
   mergeonline_help

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
 ;