Changeset 231 for trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro

Timestamp:

03/19/07 18:15:51 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro

@@ -1 +1 @@
 ;+
+;
 ; @file_comments
-;
 ;
 ; @categories
 ;
-; 
 ; @param WIDCMD
-;
 ;
 ; @param TOREAD
 ;
-;
 ; @param NUMBEROFREAD
-;
 ;
 ; @param PREFIX
 ;
-;
 ; @param NAMEEXP
-;
 ;
 ; @param ENDING
 ;
-; 
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
-; 
+;
 ; @todo
 ; seb
 ;
 ;-
+;
 PRO cutcmd, widcmd, toread, numberofread, prefix, nameexp, ending
-;
 ;
   compile_opt idl2, strictarrsubs
 ;
-  dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote) 
+  dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote)
   CASE 1 OF
     nbdblquote MOD 2: stop ; odd numbers are impossibles...
@@ -72 +60 @@
       IF n_elements(separator) NE n_elements(other) THEN stop
       widcmd = ''
-      FOR i = 0, n_elements(other)-1 DO BEGIN 
+      FOR i = 0, n_elements(other)-1 DO BEGIN
         IF isnumber(other[i]) LT 1 THEN other[i] = '"' + other[i] + '"'
         widcmd = widcmd + separator[i] + other[i]
       ENDFOR
 ;      print, widcmd
-    END 
+    END
   ENDCASE
 
@@ -83 +71 @@
   IF strpos(widcmd, '"') EQ 0 THEN start = 0 ELSE start = 1
   nameexp = cutted[start:*:2]
-  numberofread = n_elements(nameexp) 
+  numberofread = n_elements(nameexp)
   IF toread GE numberofread then begin
     dummy = report('toread cannot be larger than numberofread')