Changeset 74 for trunk/SRC/Utilities/createpro.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

• trunk/SRC/Utilities/createpro.pro (modified) (2 diffs)

trunk/SRC/Utilities/createpro.pro

@@ -30 +30 @@
 ; COMMON BLOCKS: none
 ;
-; SIDE EFFECTS: ends teh procedure name with '.pro' if needed
+; SIDE EFFECTS: ends the procedure name with '.pro' if needed
 ;
-; RESTRICTIONS:de marche pas pour les fonctions
+; RESTRICTIONS:is not working with functions, use createfunc instead.
+;              arguments can be given only through keywords
 ;
 ; EXAMPLE:
@@ -74 +75 @@
    if NOT keyword_set(kwdlist) then kwdlist = ''
    kwdlist = kwdlist + ', _extra = ex'
+   kwdlist = strtrim(kwdlist, 2)
+   IF strmid(kwdlist, 0, 1) NE ',' THEN kwdlist = ', ' +  kwdlist
 ;  for i = 0, n_elements(command)-1 do print, command[i]
    putfile, filename, ['pro ' + shortfilename + kwdlist $