Changeset 226 for trunk/SRC/Textoidl/translate_sub_super.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Textoidl/translate_sub_super.pro (modified) (12 diffs)

trunk/SRC/Textoidl/translate_sub_super.pro

@@ -2 +2 @@
 ; @file_comments
 ; Return the proper IDL font positioning command for TeX
-; sub/superscripts. 
+; sub/superscripts.
 ;
 ; @categories
@@ -25 +25 @@
 ; function.  So even if sub_sup_idl was declared with
 ; FORWARD_FUNCTION in translate_sub_super, it would not properly
-; compile. 
+; compile.
 ;
 ; The file translate_sub_super.pro contains two functions,
@@ -36 +36 @@
 ; Used only by translate_sub_super.  Should be kept in same
 ; file.
-; 
+;
 ; @examples
 ;
@@ -86 +86 @@
         print, offset+offset+"             or '!D' or '!I' for subscripts."
         return, -1
-    ENDIF 
-
-    IF keyword_set(force_ud) THEN BEGIN 
-        IF (token EQ '^') THEN return, '!U' 
+    ENDIF
+
+    IF keyword_set(force_ud) THEN BEGIN
+        IF (token EQ '^') THEN return, '!U'
         IF (token EQ '_') THEN return, '!D'
         return, ''
     ENDIF ELSE BEGIN
-        IF (token EQ '^') THEN return, '!E' 
+        IF (token EQ '^') THEN return, '!E'
         IF (token EQ '_') THEN return, '!I'
         return, ''
     ENDELSE
-    
+
 END
 
@@ -113 +113 @@
 ;       old       -- string to be translated from TeX to IDL.   in
 ; KEYWORD PARAMETERS:
-;       /RECURSED -- set if this function is being called 
-;                    recursively.                  
+;       /RECURSED -- set if this function is being called
+;                    recursively.
 ;       /HELP     -- Set to print useful message and exit.
 ; OUTPUTS:
@@ -130 +130 @@
 ;       out = translate_sub_super( 'N^2_{big}' )
 ;       Then out='N!U2!N!Dbig!N' which looks like it should on the
-;       display. 
+;       display.
 ; LIBRARY FUNCTIONS CALLED:
 ;       str_token      -- Text/string (mcraig)
@@ -195 +195 @@
         print, offset+offset+"- Sub/superscripts may be nested (e.g. 'N^{N_1^N}')."
         return, -1
-    ENDIF 
+    ENDIF
 
 ;  To allow for nested scripts, use !E/!I instead of !U/!D for scripts
@@ -233 +233 @@
         EndOfScript = 0         ;Position of end of this script.
         IF (Script EQ '{') THEN BEGIN   ; Scripts of more than 1 char.
-            EndOfScript = matchdelim(strn)      
+            EndOfScript = matchdelim(strn)
             Script = translate_sub_super(strmid(strn, 1, EndOfScript-1), $
                                          /recursed )
-        ENDIF 
-;     Grab rest of string _after_ the end of the script.        
+        ENDIF
+;     Grab rest of string _after_ the end of the script.
         strn = strmid(strn, EndOfScript+1, $
                       strlen(strn)-EndOfScript-1)
@@ -265 +265 @@
             StorePos = ''
             RecallPos = ''
-;     calculate the difference in length between this script and the 
+;     calculate the difference in length between this script and the
 ;     previous stacked one, removing font change commands (crudely by
 ;     guessing that the number of characters this takes is twice the
@@ -276 +276 @@
         ENDIF ELSE BEGIN
             IF (Token NE OldToken) AND (pos EQ 0) THEN BEGIN
-;             The next script immediately folows this one.  Arrange to
+;             The next script immediately follows this one.  Arrange to
 ;             save the position of the current script so that both begin
 ;             with the same horizontal position.
@@ -283 +283 @@
                 LenLastScript = strlen(Script) - 2*strcnt(Script,'!')
             ENDIF
-        ENDELSE  
+        ENDELSE
 
 ;  Continue building the IDL string, adding on our just processed script.
@@ -289 +289 @@
           + FontRestore
 
-        IF ( pos NE -1 ) THEN BEGIN     ; more left to process     
+        IF ( pos NE -1 ) THEN BEGIN     ; more left to process
             NewString = NewString $
-              + str_token(strn, Token)   
+              + str_token(strn, Token)
         ENDIF ELSE BEGIN                ; we are done
             NewString = NewString + strn
             strn = ''
         ENDELSE
-    ENDWHILE 
-    
+    ENDWHILE
+
     return, NewString
 END