Changeset 122 for trunk/SRC/ForOldVersion

Timestamp:

07/05/06 16:37:26 (18 years ago)

Author:

pinsard

Message:

Add svn:keyword Id ForOldVersion/?*.pro

Location:

trunk/SRC/ForOldVersion

Files:

• keep_compatibility.pro (modified) (7 diffs, 2 props)
• oldcm_empty.pro (modified) (1 diff, 2 props)
• oldcm_full.pro (modified) (1 diff, 2 props)
• updatekwd.pro (modified) (3 diffs, 2 props)
• updatenew.pro (modified) (3 diffs, 2 props)
• updateold.pro (modified) (2 diffs, 2 props)

trunk/SRC/ForOldVersion/keep_compatibility.pro

@@ -1 +1 @@
 ;+
-; @file_comments 
+; @file_comments
 ;   1) define key_forgetold = 1b - keyword_set(flag)
 ;   2) remove all oldcm_used.pro found in !path
@@ -8 +8 @@
 ; @categories compatibility with old version
 ;
-; @examples
-; IDL> keep_compatibility [, flag]
-;
 ; @param flag {in}{optional} 1 or 0 to keep or forget the compatibility
 ;
-; uses cm_general
+; @uses cm_general
 ;
-; @restrictions copy oldcm_full or oldcm_empty must be found in the
-; !path. dir must also be in the !path
+; @restrictions
+; copy oldcm_full or oldcm_empty must be found in the !path.
+; dir must also be in the !path
+;
+; @examples
+; IDL> keep_compatibility,0
 ;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      June 2005
+;
+; @version $Id$
 ;
 ;-
@@ -31 +34 @@
 ; version should be at least 6.0
 ;
-  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN 
+  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN
     print, '                   *** ***** ***'
     print, '                   *** ERROR ***'
@@ -48 +51 @@
     !path = !path+ ':' + expand_path(myuniquetmpdir)
     return
-  ENDIF 
+  ENDIF
 ;
-  if n_elements(flag) eq 0 then flag = 1b - keyword_set(key_forgetold) 
+  if n_elements(flag) eq 0 then flag = 1b - keyword_set(key_forgetold)
 ; 1) automatic definition of key_forgetold
-  key_forgetold = 1b - keyword_set(flag) 
+  key_forgetold = 1b - keyword_set(flag)
 ;
 ; 2) remove all oldcm_used.pro found in !path
@@ -65 +68 @@
 ; 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 
+    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') 
+    ENDIF ELSE BEGIN
+      oldcm = find('oldcm_full')
       print, 'We keep the compatibility with the old version'
-    ENDELSE 
+    ENDELSE
 ;
     oldcm = oldcm[0]
@@ -88 +91 @@
 ;  make sure that the common variables are correctly initialized.
 ;
-  IF size(ccmeshparameters, /type) NE 8 THEN BEGIN 
+  IF size(ccmeshparameters, /type) NE 8 THEN BEGIN
     computegrid, 1, 1, 1, 1, 1, 1, /fullcgrid
-@cm_4data    
+@cm_4data
     varname = ''
     vargrid = 'T'
@@ -98 +101 @@
     valmask = 1.e20
   ENDIF
-;  
+;
   return
 END

trunk/SRC/ForOldVersion/oldcm_empty.pro

@@ -3 +3 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       June 2005
+; @version $Id$
 ;-
 ;

trunk/SRC/ForOldVersion/oldcm_full.pro

@@ -3 +3 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       14/8/98
+; @version $Id$
 ;-
 ;

trunk/SRC/ForOldVersion/updatekwd.pro

@@ -1 +1 @@
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; compatibility with old keywords
-; if needed, force the definition of new keywords
-;               with the old ones.
+; if needed, force the definition of new keywords with the old ones.
 ;
 ; @categories compatibility with previous version
@@ -12 +11 @@
 ;   (must be insert as an include in a procedure or function) 
 ;
-;
 ; @restrictions the compatibility can be made only if the keyword
 ;               given through _extra are given with their complete name
@@ -18 +16 @@
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      July 2005
+; @version $Id$
+;
 ;-
 ; if ex is a structure...

trunk/SRC/ForOldVersion/updatenew.pro

@@ -1 +1 @@
 ;+
-; file_comments 
+; @file_comments
 ; common declaration
 ;
 ; check that key_forgetold and keep_compatibility are well defined...
+;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       June 2005
+; @version $Id$
 ;-
-;
 ;
 IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility
@@ -15 +16 @@
 @oldcm_used
 ;
-key_forgetold = keyword_set(key_forgetold) 
+key_forgetold = keyword_set(key_forgetold)
 ;
 IF NOT key_forgetold AND n_elements(sauveps) NE 0 THEN archive_ps = sauveps
@@ -55 +56 @@
 ;
 IF NOT key_forgetold AND n_elements(coefpalit) NE 0 AND n_elements(Lightness) EQ 0 $
-THEN Lightness = coefpalit 
+THEN Lightness = coefpalit
 ;

trunk/SRC/ForOldVersion/updateold.pro

@@ -2 +2 @@
 ; @file_comments
 ; check that key_forgetold and keep_compatibility are well defined...
+;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                       14/8/98
+; @version $Id$
+;
 ;-
-;
 ;
 IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility
@@ -13 +15 @@
 @oldcm_used
 ;
-  key_forgetold = keyword_set(key_forgetold) 
+  key_forgetold = keyword_set(key_forgetold)
 
   IF NOT key_forgetold AND n_elements(jpt) NE 0 THEN jptmax = jpt