Changeset 77 for trunk/SRC/Utilities/find.pro

Timestamp:

05/24/06 10:22:32 (18 years ago)

Author:

smasson

Message:

tests tst_* work again (brokken since DATA/SRC split)

File:

• trunk/SRC/Utilities/find.pro (modified) (4 diffs)

trunk/SRC/Utilities/find.pro

@@ -23 +23 @@
 ; KEYWORD PARAMETERS:
 ;
+;     FIRSTFOUND: activate this keyword to stop looking for the file as
+;        soon as we found one.
+;
 ;     IODIRECTORY: A scalar or array variable of string type, containing
 ;        directories names where we are looking for the file. by defaut
@@ -31 +34 @@
 ;        keyword is not taken into account.
 ;
-;     FIRSTFOUND: activate this keyword to stop looking for the file as
-;        soon as we found one.
+;     LOOKALLDIR:activate to look for the file with a recursive search
+;        in iodir, homedir, !path + the DATA:TestsData directory if it exists.
+;
+;     NOPRO: activate to avoid the automatic search of filename
+;        completed with '.pro'
+;
+;     ONLYPRO:force to look only at file ending with .pro
+;
+;     ONLYNC:force to look only at file ending with .nc
 ;
 ;     RECURSIVE: performs recursive searching of directory hierarchies.
@@ -40 +50 @@
 ;
 ;     REPERTOIRE: obsolete. keep for compatibility, use directory keyword
-;
-;     NOPRO: activate to avoid the automatic search of filename
-;        completed with '.pro'
-;
-;     ONLYPRO:force to look only at file ending with .pro
-;
-;     ONLYNC:force to look only at file ending with .nc
 ;
 ;     UNIQUE: activate to make sure that each element of the output
@@ -102 +105 @@
                , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $
                , ONLYNC = onlync, UNIQUE = unique, FIRSTFOUND = firstfound $
-               , _extra = ex
-;
+               , LOOKALLDIR = LOOKALLDIR, _extra = ex
 ; define where we look for the file
   CASE 1 OF
+    keyword_set(lookalldir):BEGIN 
+@cm_general
+      dirnames = [iodir, homedir, !path]
+      tstdtadir= file_dirname(find('find', /onlypro), /mark_directory)
+      tstdtadir = (file_search(tstdtadir+'../../DATA/TestsData'))[0]
+      IF tstdtadir NE '' THEN dirnames = [tstdtadir, dirnames]
+    END
     keyword_set(iodirectory): dirnames = iodirectory
     keyword_set(repertoire): dirnames = repertoire