Changeset 47 for trunk/ToBeReviewed/TEXtoIDL/nexttok.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/nexttok.pro (copied) (copied from trunk/TEXT2IDL/nexttok.pro) (3 diffs)

trunk/ToBeReviewed/TEXtoIDL/nexttok.pro

@@ -29 +29 @@
 ;       $Id$
 ;       $Log: nexttok.pro,v $
+;       Revision 1.4  2004/06/15 17:25:54  mcraig
+;       Fixed bug in regular expression, changed array notation to square brackets
+;
 ;       Revision 1.3  1996/06/14 20:00:27  mcraig
 ;       Updated Copyright info.
@@ -40 +43 @@
 ;
 ; RELEASE:
-;       $Name: Rel_1_2 $
+;       $Name: Rel_2_1_2 $
 ;
 ; COPYRIGHT:
@@ -101 +104 @@
     ENDIF 
 
-    MatchIdx = MatchIdx(1:*)
-    Matches = Matches(1:*)
+    MatchIdx = MatchIdx[1:*]
+    Matches = Matches[1:*]
 
     SortInd = sort(Matches)
 
-    Position = Matches(SortInd(0))
+    Position = Matches[SortInd[0]]
 
-    Tok = string(TmpTok(MatchIdx(SortInd(0))))
+    Tok = string(TmpTok[MatchIdx[SortInd[0]]])
     
     return, Tok