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

trunk/ToBeReviewed/TEXtoIDL/textoidl.pro

@@ -41 +41 @@
 ;       $Id$
 ;       $Log: textoidl.pro,v $
+;       Revision 1.7  2004/06/15 17:25:54  mcraig
+;       Fixed bug in regular expression, changed array notation to square brackets
+;
+;       Revision 1.6  2004/01/11 01:49:00  mcraig
+;       Changed format of one array to newer [] style to avoidf conflict with function name in astro library.
+;
+;       Revision 1.5  2001/11/23 21:10:55  mcraig
+;       Added backslash '\' to tex sequences in translation table to protect them during regexp search in strsplit.
+;
 ;       Revision 1.4  1996/06/14 20:00:27  mcraig
 ;       Updated Copyright info.
@@ -54 +63 @@
 ;
 ; RELEASE:
-;       $Name: Rel_1_2 $
+;       $Name: Rel_2_1_2 $
 ;
 ; COPYRIGHT:
@@ -91 +100 @@
     IF keyword_set (tex_seq) THEN BEGIN
         table=textable()
-        return,table(0,*)
+        return,table[0,*]
     ENDIF 
 
@@ -123 +132 @@
 ;   around them if they are unbraced.  This will have the result the
 ;   it will be difficult to use \ as a sub/superscript.  Get over it.
-    strn =  strtrans(strn, '^'+table(0, *), '^{'+table(0, *)+'}')
-    strn =  strtrans(strn, '_'+table(0, *), '_{'+table(0, *)+'}')
+
+;   V2.11 Must include the '\' in from of translation table TeX
+;   sequences to ensure that strsplit properly treats the '\' in the
+;   TeX sequence. Since strsplit is doing a regexp replace, and '\' is
+;   special in regexps, need to escape it.
+    strn =  strtrans(strn, '\^'+'\'+table[0, *], '^{'+table[0, *]+'}')
+    strn =  strtrans(strn, '\_'+'\'+table[0, *], '_{'+table[0, *]+'}')
 
 ;  First we translate Greek letters and the like.  This makes guessing
 ;  alignment of sub/superscripts easier, as all special characters will then
 ;  be one character long.
-    strn = strtrans(strn, table(0, *), table(1, *))
 
-    FOR i = 0L, n_elements(strn)-1 DO $
-      strn(i) = translate_sub_super(strn(i)) ; Take care of sub/superscripts
+;   V2.11 Must include the '\' in from of translation table TeX
+;   sequences to ensure that strsplit properly treats the '\' in the
+;   TeX sequence. Since strsplit is doing a regexp replace, and '\' is
+;   special in regexps, need to escape it.
+    strn = strtrans(strn, '\'+table[0, *], table[1, *])
+
+
+    FOR i = 0L, n_elements(strn)-1 DO BEGIN 
+        strn[i] = translate_sub_super(strn[i]) ; Take care of sub/superscripts
+    ENDFOR 
 
     return,strn