Changeset 69 for trunk/Utilities/createpro.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/Utilities/createpro.pro (modified) (5 diffs)

trunk/Utilities/createpro.pro

@@ -24 +24 @@
 ;      must start with a ',' for example: KWDLIST = ', TOTO = toto'
 ;
-;      KWDUSED: a vector string. to specify a list of keywords that
-;      must be used when executing the created procedure. Warning: the string
-;      must start with a ',' for example: KWDLIST = ', TOTO = toto'
+;      _EXTRA: used to pass your keywords to the created procedure.
 ;
 ; OUTPUTS: none 
@@ -41 +39 @@
 ;      IDL>   , filename = 'test', kwdlist =', ok = ok' 
 ;      IDL> createpro, ['if keyword_set(ok) then print,''OK'' else print, ''No'''] $
-;      IDL>   , filename = 'test', kwdlist = ', ok = ok', kwdused = ', /ok' 
+;      IDL>   , filename = 'test', kwdlist = ', ok = ok', /ok 
 ;
 ;
 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
 ; cleaning + new keywords: October 2005
+; Feb. 2006: supress keyword "kwdused" and use call_procedure instead of execute
 ;-
 ;------------------------------------------------------------
@@ -51 +50 @@
 ;------------------------------------------------------------
 PRO createpro, command, FILENAMEIN = filenamein $
-               , KWDLIST = kwdlist, KWDUSED = kwdused
-
+               , KWDLIST = kwdlist, KWDUSED = kwdused, _extra = ex
+;
+  compile_opt idl2, hidden, strictarrsubs
+;
+  IF keyword_set(kwdused) THEN BEGIN
+    dummy = report(['keyword KWDUSED has been suppressed,' $
+                    , 'please pass directly your keywords through _extra,' $
+                    , 'see exaemples in createpro header'])
+    return
+  ENDIF
 ; define filename if needed
   if NOT keyword_set(filenamein) then filename = 'for_createpro.pro' $
@@ -66 +73 @@
 ; create the file
    if NOT keyword_set(kwdlist) then kwdlist = ''
+   kwdlist = kwdlist + ', _extra = ex'
+;  for i = 0, n_elements(command)-1 do print, command[i]
    putfile, filename, ['pro ' + shortfilename + kwdlist $
-                       , command, 'return', 'end']
+                       , 'compile_opt idl2, hidden, strictarrsubs', command, 'return', 'end']
 ; go in dirname directory
    cd, dirname, current = old_dir
@@ -74 +83 @@
    cd, old_dir
 ; execute it
-   if NOT keyword_set(kwdused) then kwdused = ''
-   dummy = execute(shortfilename + kwdused)
+   call_procedure, shortfilename, _extra = ex
 ;
    return