Changeset 47 for trunk/ToBeReviewed/TEXtoIDL/translate_sub_super.pro

Timestamp:

05/09/06 11:13:01 (18 years ago)

Author:

pinsard

Message:

upgrade of TEXT2IDL/TEXtoIDL according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/TEXtoIDL/translate_sub_super.pro (copied) (copied from trunk/TEXT2IDL/translate_sub_super.pro) (6 diffs)

trunk/ToBeReviewed/TEXtoIDL/translate_sub_super.pro

@@ -47 +47 @@
 ;       $Id$
 ;       $Log: translate_sub_super.pro,v $
+;       Revision 1.5  2000/06/14 19:09:22  mcraig
+;       Changed name of strtok str_token to avoid conflict in IDL 5.3.
+;
 ;       Revision 1.4  1996/06/14 20:00:27  mcraig
 ;       Updated Copyright info.
@@ -59 +62 @@
 ;
 ; RELEASE:
-;       $Name: Rel_1_2 $
+;       $Name: Rel_2_1_2 $
 ; COPYRIGHT:
 ;  Copyright (C) 1996 The Regents of the University of California, All
@@ -131 +134 @@
 ;       display. 
 ; LIBRARY FUNCTIONS CALLED:
-;       strtok      -- Text/string (mcraig)
+;       str_token      -- Text/string (mcraig)
 ;       sub_sup_idl -- contained in this file
 ; MODIFICATION HISTORY:
 ;       $Id$
 ;       $Log: translate_sub_super.pro,v $
+;       Revision 1.5  2000/06/14 19:09:22  mcraig
+;       Changed name of strtok str_token to avoid conflict in IDL 5.3.
+;
 ;       Revision 1.4  1996/06/14 20:00:27  mcraig
 ;       Updated Copyright info.
@@ -152 +158 @@
 ;
 ; RELEASE:
-;       $Name: Rel_1_2 $
+;       $Name: Rel_2_1_2 $
 ;
 ; COPYRIGHT:
@@ -219 +225 @@
 ; Our approach will be to grab the input string up to the next '^' or
 ; '_', then process the script we've found.
-    NewString=strtok(strn,Token)
+    NewString=str_token(strn,Token)
 
     WHILE  strlen(strn) GT  0 DO  BEGIN
@@ -284 +290 @@
         IF ( pos NE -1 ) THEN BEGIN     ; more left to process     
             NewString = NewString $
-              + strtok(strn, Token)   
+              + str_token(strn, Token)   
         ENDIF ELSE BEGIN                ; we are done
             NewString = NewString + strn