Changeset 116 for trunk/SRC/ForOldVersion

Timestamp:

06/22/06 10:17:23 (18 years ago)

Author:

smasson

Message:

bugfix in triangule + staring point of virtual machine

File:

• trunk/SRC/ForOldVersion/keep_compatibility.pro (modified) (2 diffs)

trunk/SRC/ForOldVersion/keep_compatibility.pro

@@ -41 +41 @@
     return
   ENDIF
+; are we using the virtual machine??
+  IF n_elements(key_vm) EQ 0 THEN $
+     key_vm = total(file_test(expand_path(!path, /array)+'/keep_compatibility.pro')) EQ 0
 ;
   IF n_elements(myuniquetmpdir) NE 0 THEN BEGIN
@@ -57 +60 @@
 ; 3) define and create myuniquetmpdir and add it to !path
   def_myuniquetmpdir
+; if we are using the virtual machine, there is no need to do this
+  IF NOT keyword_set(key_vm) THEN BEGIN
 ;
 ; 4) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro'
 ; select which file should be copied to oldcm_used.pro
-  IF key_forgetold THEN BEGIN 
-    oldcm = find('oldcm_empty')
-    print, 'We forget the compatibility with the old version'
-  ENDIF ELSE BEGIN 
-    oldcm = find('oldcm_full') 
-    print, 'We keep the compatibility with the old version'
-  ENDELSE 
+    IF key_forgetold THEN BEGIN 
+      oldcm = find('oldcm_empty')
+      print, 'We forget the compatibility with the old version'
+    ENDIF ELSE BEGIN 
+      oldcm = find('oldcm_full') 
+      print, 'We keep the compatibility with the old version'
+    ENDELSE 
 ;
-  oldcm = oldcm[0]
-  IF oldcm EQ 'NOT FOUND' THEN BEGIN
-    print, 'Error: oldcm_full or oldcm_empty must be found in the !path'
-    stop
+    oldcm = oldcm[0]
+    IF oldcm EQ 'NOT FOUND' THEN BEGIN
+      print, 'Error: oldcm_full or oldcm_empty must be found in the !path'
+      stop
+    ENDIF
+; copy
+    file_copy, oldcm, myuniquetmpdir + 'oldcm_used.pro', /overwrite
+;
+; make sure we can make the plots even if we are using the demo mode
+;
+    demomode_compatibility
   ENDIF
-; copy
-  file_copy, oldcm, myuniquetmpdir + 'oldcm_used.pro', /overwrite
-;
-; make sure we can make the plots enev if we are using the demo mode
-;
-  demomode_compatibility
 ;
 ;  make sure that the common variables are correctly initialized.