Changeset 116 for trunk/SRC/ForOldVersion/keep_compatibility.pro
- Timestamp:
- 06/22/06 10:17:23 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ForOldVersion/keep_compatibility.pro
r114 r116 41 41 return 42 42 ENDIF 43 ; are we using the virtual machine?? 44 IF n_elements(key_vm) EQ 0 THEN $ 45 key_vm = total(file_test(expand_path(!path, /array)+'/keep_compatibility.pro')) EQ 0 43 46 ; 44 47 IF n_elements(myuniquetmpdir) NE 0 THEN BEGIN … … 57 60 ; 3) define and create myuniquetmpdir and add it to !path 58 61 def_myuniquetmpdir 62 ; if we are using the virtual machine, there is no need to do this 63 IF NOT keyword_set(key_vm) THEN BEGIN 59 64 ; 60 65 ; 4) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro' 61 66 ; select which file should be copied to oldcm_used.pro 62 IF key_forgetold THEN BEGIN63 oldcm = find('oldcm_empty')64 print, 'We forget the compatibility with the old version'65 ENDIF ELSE BEGIN66 oldcm = find('oldcm_full')67 print, 'We keep the compatibility with the old version'68 ENDELSE67 IF key_forgetold THEN BEGIN 68 oldcm = find('oldcm_empty') 69 print, 'We forget the compatibility with the old version' 70 ENDIF ELSE BEGIN 71 oldcm = find('oldcm_full') 72 print, 'We keep the compatibility with the old version' 73 ENDELSE 69 74 ; 70 oldcm = oldcm[0] 71 IF oldcm EQ 'NOT FOUND' THEN BEGIN 72 print, 'Error: oldcm_full or oldcm_empty must be found in the !path' 73 stop 75 oldcm = oldcm[0] 76 IF oldcm EQ 'NOT FOUND' THEN BEGIN 77 print, 'Error: oldcm_full or oldcm_empty must be found in the !path' 78 stop 79 ENDIF 80 ; copy 81 file_copy, oldcm, myuniquetmpdir + 'oldcm_used.pro', /overwrite 82 ; 83 ; make sure we can make the plots even if we are using the demo mode 84 ; 85 demomode_compatibility 74 86 ENDIF 75 ; copy76 file_copy, oldcm, myuniquetmpdir + 'oldcm_used.pro', /overwrite77 ;78 ; make sure we can make the plots enev if we are using the demo mode79 ;80 demomode_compatibility81 87 ; 82 88 ; make sure that the common variables are correctly initialized.
Note: See TracChangeset
for help on using the changeset viewer.