Changeset 77 for trunk/SRC/Utilities
- Timestamp:
- 05/24/06 10:22:32 (18 years ago)
- Location:
- trunk/SRC/Utilities
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Utilities/.idlwave_catalog
r76 r77 10 10 ("def_myuniquetmpdir" pro nil (lib "def_myuniquetmpdir.pro" nil "saxo") "%s" (nil)) 11 11 ("demomode_compatibility" pro nil (lib "demomode_compatibility.pro" nil "saxo") "%s" (nil)) 12 ("find" fun nil (lib "find.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FIRSTFOUND") ("IODIRECTORY") (" NOPRO") ("ONLYNC") ("ONLYPRO") ("RECURSIVE") ("REPERTOIRE") ("UNIQUE")))12 ("find" fun nil (lib "find.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FIRSTFOUND") ("IODIRECTORY") ("LOOKALLDIR") ("NOPRO") ("ONLYNC") ("ONLYPRO") ("RECURSIVE") ("REPERTOIRE") ("UNIQUE"))) 13 13 ("isadirectory" fun nil (lib "isadirectory.pro" nil "saxo") "Result = %s(directoryin)" (nil ("_extra") ("IODIRECTORY") ("TITLE"))) 14 14 ("isafile" fun nil (lib "isafile.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FILENAME") ("IODIRECTORY") ("NEW") ("ONLYNC") ("ONLYPRO") ("RECURSIVE"))) -
trunk/SRC/Utilities/find.pro
r69 r77 23 23 ; KEYWORD PARAMETERS: 24 24 ; 25 ; FIRSTFOUND: activate this keyword to stop looking for the file as 26 ; soon as we found one. 27 ; 25 28 ; IODIRECTORY: A scalar or array variable of string type, containing 26 29 ; directories names where we are looking for the file. by defaut … … 31 34 ; keyword is not taken into account. 32 35 ; 33 ; FIRSTFOUND: activate this keyword to stop looking for the file as 34 ; soon as we found one. 36 ; LOOKALLDIR:activate to look for the file with a recursive search 37 ; in iodir, homedir, !path + the DATA:TestsData directory if it exists. 38 ; 39 ; NOPRO: activate to avoid the automatic search of filename 40 ; completed with '.pro' 41 ; 42 ; ONLYPRO:force to look only at file ending with .pro 43 ; 44 ; ONLYNC:force to look only at file ending with .nc 35 45 ; 36 46 ; RECURSIVE: performs recursive searching of directory hierarchies. … … 40 50 ; 41 51 ; REPERTOIRE: obsolete. keep for compatibility, use directory keyword 42 ;43 ; NOPRO: activate to avoid the automatic search of filename44 ; completed with '.pro'45 ;46 ; ONLYPRO:force to look only at file ending with .pro47 ;48 ; ONLYNC:force to look only at file ending with .nc49 52 ; 50 53 ; UNIQUE: activate to make sure that each element of the output … … 102 105 , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $ 103 106 , ONLYNC = onlync, UNIQUE = unique, FIRSTFOUND = firstfound $ 104 , _extra = ex 105 ; 107 , LOOKALLDIR = LOOKALLDIR, _extra = ex 106 108 ; define where we look for the file 107 109 CASE 1 OF 110 keyword_set(lookalldir):BEGIN 111 @cm_general 112 dirnames = [iodir, homedir, !path] 113 tstdtadir= file_dirname(find('find', /onlypro), /mark_directory) 114 tstdtadir = (file_search(tstdtadir+'../../DATA/TestsData'))[0] 115 IF tstdtadir NE '' THEN dirnames = [tstdtadir, dirnames] 116 END 108 117 keyword_set(iodirectory): dirnames = iodirectory 109 118 keyword_set(repertoire): dirnames = repertoire
Note: See TracChangeset
for help on using the changeset viewer.