Changeset 69 for trunk/Utilities/isafile.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/Utilities/isafile.pro (modified) (5 diffs)

trunk/Utilities/isafile.pro

@@ -26 +26 @@
 ;     /NEW:to specify that filename is a new file and that
 ;        we should check only its path
+;
+;     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.
@@ -64 +68 @@
 ;------------------------------------------------------------
 FUNCTION isafile, filein, FILENAME = filename, IODIRECTORY = iodirectory $
-                  , NEW = new, RECURSIVE = RECURSIVE, _extra = ex
+                  , NEW = new, RECURSIVE = RECURSIVE, ONLYPRO = onlypro $
+                  , ONLYNC = onlync, _extra = ex
 ;------------------------------------------------------------
   CASE 1 OF
@@ -72 +77 @@
   ENDCASE
   if size(fileout, /type) NE 7 THEN return, -1
+;
+  CASE 1 OF
+    keyword_set(onlypro): filter = '*.pro'
+    keyword_set(onlync): filter = '*.nc'
+    else: filter = '*'
+  ENDCASE
 ;
   basename = file_basename(fileout)
@@ -81 +92 @@
 ;
   fileout = find(basename, iodirectory = dirname $
-                 , recursive = recursive, /unique, /firstfound, _extra = ex)
+                 , recursive = recursive, /unique, /firstfound, ONLYPRO = onlypro $
+                 , ONLYNC = onlync, _extra = ex)
   WHILE fileout[0] EQ 'NOT FOUND' DO BEGIN
-    fileout = dialog_pickfile(path = dirname[0], _extra = ex)
+    fileout = dialog_pickfile(path = dirname[0], filter = filter, _extra = ex)
     if fileout EQ '' THEN RETURN, report('check/find file canceled')
 ; check again everything...
@@ -94 +106 @@
     IF size(dirname, /type) NE 7 THEN return, report('check/find file canceled')
     fileout = find(basename, iodirectory = dirname $
-                   , recursive = recursive, /unique, /firstfound, _extra = ex)
+                   , recursive = recursive, /unique, /firstfound, ONLYPRO = onlypro $
+                   , ONLYNC = onlync, _extra = ex)
   ENDWHILE
 ;