Changeset 11 for trunk/Utilities/isadirectory.pro

Timestamp:

04/27/06 11:05:35 (18 years ago)

Author:

pinsard

Message:

upgrade of UTILITAIRE/Utilities according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/Utilities/isadirectory.pro (moved) (moved from trunk/UTILITAIRE/isadirectory.pro) (2 diffs)

trunk/Utilities/isadirectory.pro

@@ -5 +5 @@
 ; NAME:isadirectory
 ;
-; PURPOSE:check if a directory is in the !path variable or is the
-; common. end it by '/' under Unix/Linux, ':' under Mac and '\' under
-; Windows.
+; PURPOSE:check if a directory exists and make sure that it ends 
+;         with the directory separator mark.
 ;
 ; CATEGORY: io
 ;
-; CALLING SEQUENCE: directory=isadirectory()
+; CALLING SEQUENCE: directory=isadirectory([dirname])
 ; 
-; INPUTS:none
+; INPUTS:optional:a proposed directory. If neither dirname 
+;        input parameter of IODIRECTORY keyword are defined,
+;        the ask the user to choose a directory.
 ;
 ; KEYWORD PARAMETERS:
-;       IODIRECTORY:a proposed directory
-;       TITLE: the title of the widget open if we need to choose a
-;       directory.
-;       /NOPATH:do not check if the directory is in the !path
-;       variable.
 ;
-; OUTPUTS: de directory name
+;     IODIRECTORY:a proposed directory
 ;
-; COMMON BLOCKS:
+;     TITLE = the title of the window
 ;
-; SIDE EFFECTS:while statement until we found a good directory...
+;     all dialog_pickfile keywords (like filter)
+;
+; OUTPUTS: the directory name
+;
+; COMMON BLOCKS:none
+;
+; SIDE EFFECTS:
 ;
 ; RESTRICTIONS:
@@ -32 +34 @@
 ; EXAMPLE:
 ;
+;    IDL> print, !dir
+;    /usr/local/rsi/idl_6.0
+;    IDL> print, isadirectory(!dir)
+;    /usr/local/rsi/idl_6.0/
+;    IDL> print, isadirectory(!dir+'notgood')
+;
 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
 ;                      June 28, 2000
+; June 2005: Sebastien Masson: cleaning, use for file_* functions
 ;-
 ;------------------------------------------------------------
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-FUNCTION isadirectory, IODIRECTORY = iodirectory, NOPATH = nopath, TITLE = title
-
-   cd, current = current
-; if directory is undefine, we get the current directory.
-   if  keyword_set(iodirectory) THEN directory = iodirectory ELSE directory = current 
+FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _extra = ex
 ;
-   thisOS = strupcase(strmid(!version.os_family, 0, 3))
-   CASE thisOS of
-   'MAC':BEGIN & sep = ':' & pathsep = ',' & end
-   'WIN':BEGIN & sep = '\' & pathsep = ';' & end
-   ELSE: BEGIN & sep = '/' & pathsep = ':' & end
-   ENDCASE
-; si directory ou current ne finit pas par sep on le rajoute
-   if rstrpos(current,sep) NE strlen(current)-1 then current = current+sep
-   if rstrpos(directory, sep) NE strlen(directory)-1 then directory = directory+sep
-   if keyword_set(nopath) then return, directory
-; does directory is define in the !path variable or is it the current directory?
-   possibledirectory = str_sep(!path, pathsep)
-   if rstrpos(possibledirectory[0],sep) NE strlen(possibledirectory[0])-1 then $
-    possibledirectory = possibledirectory+sep
-   possibledirectory = [current, possibledirectory]
-   while (where(possibledirectory EQ directory))[0] EQ -1 do begin
-      directory = dialog_pickfile(/directory, title = title)
-      if directory EQ '' then return, report('read_data canceled')
-      if rstrpos(directory, sep) NE strlen(directory)-1 then directory = directory+sep
-   endwhile
-
-   return, directory
-end
+  CASE 1 OF
+    (size(directoryin, /type))[0] EQ 7:directory = directoryin
+    keyword_set(iodirectory):directory = iodirectory
+    ELSE:directory = 'directory that is not existing'
+  ENDCASE
+  testfile = file_test(directory, /directory)
+; if directory doesn't exist, we ask the user to provide a directory name
+  IF total(testfile) NE n_elements(directory) THEN BEGIN
+    IF NOT keyword_set(title) THEN title = 'choose a directory'
+    FOR i = 0, n_elements(directory)-1 DO BEGIN
+      IF testfile[i] EQ 0 THEN BEGIN
+        directory[i] = dialog_pickfile(/directory, title = title $
+                                       , /must_exist, _extra = ex)
+        if directory[i] EQ '' THEN RETURN, report('check/find directory canceled')
+      ENDIF
+    ENDFOR
+  ENDIF
+;
+  directory = file_search(directory, /mark_directory)
+  IF n_elements(directory) EQ 1 THEN RETURN, directory[0] $
+  ELSE RETURN, directory
+;
+END