Changeset 238 for trunk/SRC/ForOldVersion
- Timestamp:
- 03/27/07 15:43:18 (17 years ago)
- Location:
- trunk/SRC/ForOldVersion
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ForOldVersion/keep_compatibility.pro
r232 r238 7 7 ; 4) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro' 8 8 ; 9 ; @categories 9 ; @categories 10 10 ; Compatibility 11 11 ; 12 ; @param flag {in}{optional} 1 or 0 to keep or forget the compatibility 12 ; @param flag {in}{optional} 13 ; 1 or 0 to keep or forget the compatibility 13 14 ; 14 ; @uses cm_general 15 ; @uses 16 ; cm_general 15 17 ; 16 18 ; @restrictions … … 21 23 ; IDL> keep_compatibility,0 22 24 ; 23 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 25 ; @history 26 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 24 27 ; June 2005 25 28 ; 26 ; @version $Id$ 29 ; @version 30 ; $Id$ 27 31 ; 28 32 ;- 29 33 ; 30 34 PRO keep_compatibility, flag 31 ;32 35 ; 33 36 compile_opt idl2, strictarrsubs … … 105 108 ENDIF 106 109 ; 107 ; merge the online_help if possible.. 110 ; merge the online_help if possible... 108 111 ; 109 112 mergeonline_help -
trunk/SRC/ForOldVersion/oldcm_empty.pro
r122 r238 1 1 ;+ 2 2 ; 3 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 3 ; @history 4 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 4 5 ; June 2005 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 8 ; 6 9 ;- 7 10 ; -
trunk/SRC/ForOldVersion/oldcm_full.pro
r122 r238 1 1 ;+ 2 2 ; 3 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 3 ; @history 4 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 4 5 ; 14/8/98 5 ; @version $Id$ 6 ; @version 7 ; $Id$ 6 8 ;- 7 9 ; -
trunk/SRC/ForOldVersion/updatekwd.pro
r231 r238 7 7 ; @categories compatibility with previous version 8 8 ; 9 ; @examples 9 ; @examples 10 10 ; IDL> \@updatekwd 11 ; (must be insert as an include in a procedure or function) 11 ; (must be insert as an include in a procedure or function) 12 12 ; 13 13 ; @restrictions the compatibility can be made only if the keyword 14 14 ; given through _extra are given with their complete name 15 15 ; 16 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 16 ; @history 17 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 17 18 ; July 2005 18 ; @version $Id$ 19 ; @version 20 ; $Id$ 19 21 ; 20 22 ;- … … 41 43 old = strtrim(strlowcase(old[1:*]), 2) 42 44 new = strtrim(strlowcase(new[1:*]), 2) 43 ; 45 ; 44 46 ; what are the keywords of the present routine? 45 47 ; … … 64 66 FOR i = 0, n_elements(alltags)-1 DO BEGIN 65 67 isold = (where(old EQ alltags[i], count))[0] 66 IF count EQ 1 THEN BEGIN 68 IF count EQ 1 THEN BEGIN 67 69 dummy = where(kwds EQ new[isold], count) 68 IF count EQ 1 THEN BEGIN 70 IF count EQ 1 THEN BEGIN 69 71 dummy = execute(new[isold] + ' = ex.' + alltags[i]) 70 72 ; dummy = execute('ex = get_extra(' + new[isold] + ' = ex.' $ -
trunk/SRC/ForOldVersion/updatenew.pro
r232 r238 6 6 ; check that key_forgetold and keep_compatibility are well defined... 7 7 ; 8 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 8 ; @history 9 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 9 10 ; June 2005 10 ; @version $Id$ 11 ; @version 12 ; $Id$ 11 13 ;- 12 14 ; -
trunk/SRC/ForOldVersion/updateold.pro
r232 r238 4 4 ; check that key_forgetold and keep_compatibility are well defined... 5 5 ; 6 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 6 ; @history 7 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 7 8 ; 14/8/98 8 ; @version $Id$ 9 ; @version 10 ; $Id$ 9 11 ; 10 12 ;-
Note: See TracChangeset
for help on using the changeset viewer.