Changeset 74 for trunk/SRC/Utilities/createpro.pro
- Timestamp:
- 05/23/06 15:45:47 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Utilities/createpro.pro
r69 r74 30 30 ; COMMON BLOCKS: none 31 31 ; 32 ; SIDE EFFECTS: ends t ehprocedure name with '.pro' if needed32 ; SIDE EFFECTS: ends the procedure name with '.pro' if needed 33 33 ; 34 ; RESTRICTIONS:de marche pas pour les fonctions 34 ; RESTRICTIONS:is not working with functions, use createfunc instead. 35 ; arguments can be given only through keywords 35 36 ; 36 37 ; EXAMPLE: … … 74 75 if NOT keyword_set(kwdlist) then kwdlist = '' 75 76 kwdlist = kwdlist + ', _extra = ex' 77 kwdlist = strtrim(kwdlist, 2) 78 IF strmid(kwdlist, 0, 1) NE ',' THEN kwdlist = ', ' + kwdlist 76 79 ; for i = 0, n_elements(command)-1 do print, command[i] 77 80 putfile, filename, ['pro ' + shortfilename + kwdlist $
Note: See TracChangeset
for help on using the changeset viewer.