Changeset 223 for trunk/SRC/Utilities/xfile.pro

Timestamp:

03/14/07 18:13:39 (17 years ago)

Author:

pinsard

Message:

improvements of some *.pro

File:

• trunk/SRC/Utilities/xfile.pro (modified) (3 diffs)

trunk/SRC/Utilities/xfile.pro

@@ -4 +4 @@
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; display in a widget an ASCII file.
-; It is the same thing that xdisplayfile but here, we use it 
-; to display the content of a procedure or of a function, 
+; It is the same thing that xdisplayfile but here, we use it
+; to display the content of a procedure or of a function,
 ; even if it is not in the current directory (thanks to the path).
 ;
-; @categories 
+; @categories
 ; Utilities
 ;
-; @param FILENAME {in}{required} 
-; It is the name of the procedure or of the function 
+; @param FILENAME {in}{required}
+; It is the name of the procedure or of the function
 ; we want to display (with or without .pro at the end).
 ;
-; @keyword _EXTRA 
+; @keyword _EXTRA
 ; used to pass your keywords
 ;
-; @examples xfile,'plt'
+; @examples
+; IDL> xfile,'plt'
 ;
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
-;                       7/1/99
-;                       6/7/1999: compatibility mac and windows
+; @history
+; Sebastien Masson (smasson\@lodyc.jussieu.fr)
+; 7/1/99
+; 6/7/1999: compatibility mac and windows
 ;
-; @version $Id$
+; @version
+; $Id$
 ;
 ;-
@@ -38 +41 @@
 pfile = strlowcase(filename)
 ;
-; we have to find the full name. 
+; we have to find the full name.
 ;
-   if strpos(pfile,".pro") lt 0 then pfile=pfile+".pro" 
+   if strpos(pfile,".pro") lt 0 then pfile=pfile+".pro"
    thisOS = strupcase(strmid(!version.os_family, 0, 3))
    CASE thisOS of
@@ -56 +59 @@
    i = 0
    repeat begin
-      res = findfile(pfile[i]) 
+      res = findfile(pfile[i])
       i = i+1
-   endrep until res[0] NE '' OR i EQ n_elements(pfile) 
+   endrep until res[0] NE '' OR i EQ n_elements(pfile)
    if res[0] NE  '' then BEGIN
 ; we open the file in a widget
    xdisplayfile, pfile[i-1], _extra = ex
-   ENDIF ELSE ras = report('le fichier demande n''existe pas...')
+   ENDIF ELSE ras = report('file does not exist ...')
 ;
 ;