Input &nbsp;( Source code for C language )<BR>
<TEXTAREA   Name=TextArea1   Cols=79   Rows=10   >
#include <stdio.h>

void  main  ( )
{
   /* Simple program */

   printf (   "Hello World..."   );   
}
</TEXTAREA><BR>


<INPUT   Type=BUTTON   Value="Run parsing process"
   OnClick='VBSCRIPT:DIM  GI_ParseMode

                     DIM  G_Time1
                     DIM  G_Time2

                     G_StrParseMe = TextArea1.Value
                     GI_ParseMode = OutputOpt.Value

                     REM ----- OPTIONAL : Parameter 2
                     G_ParseMode = pmVerbose
                     IF GI_ParseMode = "/Same"      THEN G_ParseMode = pmSame
                     IF GI_ParseMode = "/Verbose"   THEN G_ParseMode = pmVerbose
                     IF GI_ParseMode = "/Parse"     THEN G_ParseMode = pmParse
                     IF GI_ParseMode = "/NoComment" THEN G_ParseMode = pmNoComment
                     IF GI_ParseMode = "/Compact"   THEN G_ParseMode = pmCompact
                     IF GI_ParseMode = "/PackLine"  THEN G_ParseMode = pmPackLine

                     Document.WriteLn (   "<XMP>"  &  "***** OUTPUT"   )
                     G_Time1 = Now
                     ProcessBuffer   1 , Null
                     ProcessBuffer   1 , Len(G_StrParseMe)
                     ProcessBuffer   Null , Null
                     G_Time2 = Now
                     Document.WriteLn (   "*****  "  &  ((G_Time2-G_Time1)*(24*60*60*1000))  &  "  milliseconds"   )
                     Document.WriteLn (   "</XMP>"   )
           '
   > &nbsp;


Output option
<SELECT   Name=OutputOpt   Size=1   >
   <OPTION   Value="/Same"        >/Same</OPTION>
   <OPTION   Value="/Verbose"     SELECTED   >/Verbose</OPTION>
   <OPTION   Value="/Parse"       >/Parse</OPTION>
   <OPTION   Value="/NoComment"   >/NoComment</OPTION>
   <OPTION   Value="/Compact"     >/Compact</OPTION>
   <OPTION   Value="/PackLine"    >/PackLine</OPTION>
</SELECT>





<SCRIPT   Language=VBScript   >
'
'------------------------------------------------------------------------------
' This file toolbox
'------------------------------------------------------------------------------
'
'
'---------------
' Const: Parser Result prXXXXX
'
' NEXTxxx: Mini parser for C language
'---------------
'
   CONST  prToken             = 1
   CONST  prSymbol            = 2
   CONST  prSymbol2Ch         = 3
   CONST  prQuotedText        = 4
   CONST  prIllegalToken      = 5

   CONST  prLineComment       = 6
   CONST  prComment           = 7
   CONST  prFilling           = 8

   CONST  prEndQuoteMissing   = 9
   CONST  prEndCommentMissing = 10
   CONST  prEndOfBuffer       = 11

   CONST  prCompilerDirective = 12      '--- 2006/03/15
   CONST  prSymbol3Ch         = 13      '--- 2006/03/25
   CONST  prSymbol4Ch         = 14      '--- 2006/03/25


   DIM  C_ParserResultStr(13)      '--- 14 - 1
      C_ParserResultStr(0) = "Token"
      C_ParserResultStr(1) = "Symbol"
      C_ParserResultStr(2) = "Symbol2Ch"
      C_ParserResultStr(3) = "QuotedText"
      C_ParserResultStr(4) = "IllegalToken"
      C_ParserResultStr(5) = "LineComment"
      C_ParserResultStr(6) = "Comment"
      C_ParserResultStr(7) = "Filling"
      C_ParserResultStr(8) = "EndQuoteMissing"
      C_ParserResultStr(9) = "EndCommentMissing"
      C_ParserResultStr(10) = "EndOfBuffer"
      C_ParserResultStr(11) = "CompilerDirective"
      C_ParserResultStr(12) = "prSymbol3Ch"
      C_ParserResultStr(13) = "prSymbol4Ch"


'===== NEXTxxx

   DIM  G_StrParseMe
   DIM  G_PBegin
   DIM  G_PAfterEnd

FUNCTION   NEXTxxx   ( I_BuffPLast  _
                     , IO_PBegin    _
                     , O_PAfterEnd )   'Parser Result const, prXXXXX

                                                               '   >>>=
                                                               '   ===   !==
                                                               '   >>>
                                                               '   >>=   <<=
                                                               '   !=   <=   >=   ==
                                                               '   &&   ||
                                                               '   ++   --
                                                               '   +=   -=   *=   /=
                                                               '   &=   |=   ^=   %=
                                                               '   >>   <<
                                                               '   //...
                                                               '   /*...*/

   CONST  C_OneCharSymbols   = "+-*/>=<(),:.;[]!&|~^?%{}"
   CONST  C_CharsEndingToken = "+-*/>=<(),:.;[]!&|~^?%{}"

   DIM  L_Ch

   DIM  L_Quote

   '----- Controls : nil, non sense values
   IF IsNull(I_BuffPLast) or IsNull(IO_PBegin) or (I_BuffPLast < IO_PBegin) THEN
      NEXTxxx = prEndOfBuffer
      EXIT FUNCTION
   END IF

   G_PBegin = IO_PBegin
'DEBUG:Document.WriteLn (   "DEBUG.NEXTxxx.1:"  &  ""   )
'NEXTxxx = prSymbol2Ch
'EXIT FUNCTION

   '===== 0. Search first char of the token
   '----- Buffer   :  Other...  CRLF  Other...   TokenBeeingSearched
   '----- Pointers :                     G_PBegin^                  ^G_PAfterEnd
   L_Ch = Mid ( G_StrParseMe , G_PBegin , 1 )
   WHILE (L_Ch = " ") or (L_Ch = Chr(9)) or (L_Ch = Chr(10)) or (L_Ch = Chr(13))
      G_PBegin = G_PBegin + 1
      IF I_BuffPLast < G_PBegin THEN  NEXTxxx = prEndOfBuffer  :  EXIT FUNCTION  :  END IF
      L_Ch = Mid ( G_StrParseMe , G_PBegin , 1 )
   WEND
   G_PAfterEnd = G_PBegin

   DO      '--- PATCH  ( 1 / 2 ) , "Not aloud: goto LABEL_Bloc3"

   '===== 1. Special three non alpha chars tokens, like   >>>

   '----- 1.1. case:   >>>=
   IF L_Ch = ">" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 3  :  EXIT DO  :  END IF
            IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
               G_PAfterEnd = G_PAfterEnd - 3
            ELSE
               G_PAfterEnd = G_PAfterEnd + 1
               NEXTxxx     = prSymbol4Ch
               EXIT FUNCTION
            END IF
         END IF
      END IF
   END IF

   '----- 1.2. case:   ===
   IF L_Ch = "=" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            NEXTxxx     = prSymbol3Ch
            EXIT FUNCTION
         END IF
      END IF
   END IF

   '----- 1.3. case:   !==
   IF L_Ch = "!" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            NEXTxxx     = prSymbol3Ch
            EXIT FUNCTION
         END IF
      END IF
   END IF

   '----- 1.4. case:   >>>
   IF L_Ch = ">" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            NEXTxxx     = prSymbol3Ch
            EXIT FUNCTION
         END IF
      END IF
   END IF

   '----- 1.5. case:   >>=
   IF L_Ch = ">" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            NEXTxxx     = prSymbol3Ch
            EXIT FUNCTION
         END IF
      END IF
   END IF

   '----- 1.6. case:   <<=
   IF L_Ch = "<" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "<" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 2  :  EXIT DO  :  END IF
         IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
            G_PAfterEnd = G_PAfterEnd - 2
         ELSE
            G_PAfterEnd = G_PAfterEnd + 1
            NEXTxxx     = prSymbol3Ch
            EXIT FUNCTION
         END IF
      END IF
   END IF

   '===== 2. Special two non alpha chars tokens, like   !=   <=   >=   //

   '----- 2.1. case:   !=
   IF L_Ch = "!" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.2. case:   <=
   IF L_Ch = "<" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.3. case:   >=
   IF L_Ch = ">" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.4. case:   ==
   IF L_Ch = "=" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.5. case:   &&
   IF L_Ch = "&" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "&" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.6. case:   ||
   IF L_Ch = "|" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "|" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.7. case:   ++
   IF L_Ch = "+" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "+" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.8. case:   --
   IF L_Ch = "-" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "-" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.9. case:   +=
   IF L_Ch = "+" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.A. case:   -=
   IF L_Ch = "-" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.B. case:   *=
   IF L_Ch = "*" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.C. case:   /=
   IF L_Ch = "/" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.D. case:   &=
   IF L_Ch = "&" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.E. case:   |=
   IF L_Ch = "|" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.F. case:   ^=
   IF L_Ch = "^" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.G. case:   %=
   IF L_Ch = "%" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "=" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.H. case:   >>
   IF L_Ch = ">" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> ">" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.I. case:   <<
   IF L_Ch = "<" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "<" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         G_PAfterEnd = G_PAfterEnd + 1
         NEXTxxx     = prSymbol2Ch
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.J. case:   //... Line comment, just search end of line
   IF L_Ch = "/" THEN
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "/" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         DO 'search end of line
            G_PAfterEnd = G_PAfterEnd + 1
            IF I_BuffPLast < G_PAfterEnd THEN EXIT DO
            L_Ch = Mid ( G_StrParseMe , G_PAfterEnd , 1 )
         LOOP UNTIL (L_Ch = Chr(10)) or (L_Ch = Chr(13))
         NEXTxxx = prLineComment
         EXIT FUNCTION
      END IF
   END IF

   '----- 2.K. case:   /*...*/ Multi line comment
   IF L_Ch = "/" THEN
      '----- Buffer   :  Other...  CRLF  Other...   /* comment beeing searched */
      '----- Pointers :                     G_PBegin^                            ^G_PAfterEnd
      G_PAfterEnd = G_PAfterEnd + 1
      IF I_BuffPLast < G_PAfterEnd              THEN  G_PAfterEnd = G_PAfterEnd - 1  :  EXIT DO  :  END IF
      IF Mid(G_StrParseMe,G_PAfterEnd,1) <> "*" THEN
         G_PAfterEnd = G_PAfterEnd - 1
      ELSE
         DO   ' search end comment tag: */
            G_PAfterEnd = G_PAfterEnd + 1
            IF I_BuffPLast < G_PAfterEnd THEN  NEXTxxx = prEndCommentMissing  :  EXIT FUNCTION  :  END IF
            IF Mid(G_StrParseMe,G_PAfterEnd,1) = "*" THEN
               G_PAfterEnd = G_PAfterEnd + 1
               IF I_BuffPLast < G_PAfterEnd THEN  NEXTxxx = prEndCommentMissing  :  EXIT FUNCTION  :  END IF
               IF Mid(G_StrParseMe,G_PAfterEnd,1) = "/" THEN  G_PAfterEnd = G_PAfterEnd + 1  :  NEXTxxx=prComment  :  EXIT FUNCTION  :  END IF
               G_PAfterEnd = G_PAfterEnd - 1
            END IF
         LOOP UNTIL False
      END IF
   END IF

   LOOP UNTIL TRUE      '--- PATCH  ( 2 / 2 ) , "Not aloud: goto LABEL_Bloc3"

   '===== 3. Other cases
 '--LABEL_Bloc3:--
   '----- 3.1. case:   #... compiler directive
   IF L_Ch = "#" THEN
      DO
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd THEN EXIT DO
         L_Ch = Mid ( G_StrParseMe , G_PAfterEnd , 1 )
      LOOP UNTIL (L_Ch = Chr(10)) or (L_Ch = Chr(13))
      NEXTxxx = prCompilerDirective
      EXIT FUNCTION
   ELSE

   '----- 3.2. case:   one char symbol,  like + - * < ; etc
   IF InStr ( C_OneCharSymbols , L_Ch ) >= 1 THEN
      G_PAfterEnd = G_PAfterEnd + 1
      NEXTxxx     = prSymbol
      EXIT FUNCTION
   ELSE

   '----- 3.3. case:   quote ' or "
   IF (L_Ch = """") or (L_Ch = "'") THEN
      '----- Buffer  :  Other...  CRLF  Other...   " Quotes beeing processed "
      '----- Pointers:                     G_PBegin^                          ^G_PAfterEnd
      L_Quote = L_Ch
      DO   ' search end quote, skipping double quotes
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd            THEN  NEXTxxx = prEndQuoteMissing  :  EXIT FUNCTION  :  END IF
         L_Ch = Mid ( G_StrParseMe , G_PAfterEnd , 1 )
         IF (L_Ch = Chr(10)) or (L_Ch = Chr(13)) THEN  NEXTxxx = prEndQuoteMissing  :  EXIT FUNCTION  :  END IF
         IF L_Ch = L_Quote THEN
            IF Mid(G_StrParseMe,G_PAfterEnd-1,1) <> "\\" THEN
               G_PAfterEnd = G_PAfterEnd + 1
               IF I_BuffPLast < G_PAfterEnd THEN  NEXTxxx = prQuotedText  :  EXIT FUNCTION  :  END IF
               NEXTxxx = prQuotedText
               EXIT FUNCTION
            END IF
         END IF
      LOOP UNTIL False
   ELSE

   '----- 3.5. case:   normal token
   '--BEGIN--
      '----- Buffer   :  Other...  CRLF  Other...   TokenBeeingSearched
      '----- Pointers :                     G_PBegin^                  ^G_PAfterEnd
      DO
         G_PAfterEnd = G_PAfterEnd + 1
         IF I_BuffPLast < G_PAfterEnd THEN EXIT DO
         L_Ch = Mid ( G_StrParseMe , G_PAfterEnd , 1 )
         IF InStr ( C_CharsEndingToken , L_Ch ) >= 1 THEN EXIT DO
      LOOP UNTIL (L_Ch = " ") or (L_Ch = Chr(9)) or (L_Ch = Chr(10)) or (L_Ch = Chr(13))
      NEXTxxx = prToken
      EXIT FUNCTION
   '--END--
   END IF
   END IF
   END IF
END FUNCTION

'
'------------------------------------------------------------------------------
' This file toolbox  ( bis )
'------------------------------------------------------------------------------
'
'
'---------------
' ProcessBuffer_Same
' ProcessBuffer_Verbose
' ProcessBuffer_Parse
' ProcessBuffer_NoComment
' ProcessBuffer_Compact
' ProcessBuffer_PackLine
'---------------
'
'===== ProcessBuffer_Same

SUB   ProcessBuffer_Same   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )

      '----- LOOP 2.1 , OUTPUT : Filling
      WHILE (L_Ch = " ") or (L_Ch = Chr(9)) or (L_Ch = Chr(10)) or (L_Ch = Chr(13))
         Document.Write (   L_Ch   )
         L_Ptr = L_Ptr + 1
         IF I_BufLast < L_Ptr THEN EXIT SUB
         L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
      WEND
'DEBUG:Document.WriteLn (   "DEBUG.1:"  &  L_prResult  &  ":"  &  L_Ptr  &  "-->"  &  L_PAfterEnd   )
'EXIT SUB

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF    (L_prResult = prToken) or (L_prResult = prSymbol) or (L_prResult = prSymbol2Ch) or (L_prResult = prQuotedText) or (L_prResult = prIllegalToken)  _
         or (L_prResult = prLineComment) or (L_prResult = prComment)  _
         or (L_prResult = prCompilerDirective)  _
         or (L_prResult = prSymbol3Ch) or (L_prResult = prSymbol4Ch)  _
      THEN
         '----- LOOP 2. , OUTPUT : Token, Symbol,... as found
         WHILE L_Ptr < L_PAfterEnd
            L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
            Document.Write (   L_Ch   )
            L_Ptr = L_Ptr + 1
         WEND
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'===== ProcessBuffer_Verbose

SUB   ProcessBuffer_Verbose   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   DIM  L_TmpStr

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF TRUE THEN
         '----- OUTPUT : Token type
         L_TmpStr = C_ParserResultStr(L_prResult-1)
         WHILE Len(L_TmpStr) < 11  :  L_TmpStr = L_TmpStr  &  " "  :  WEND
         IF Len(L_TmpStr) > 11 THEN L_TmpStr = Mid ( L_TmpStr , 1 , 11 )
         Document.Write (   "/* "  &  L_TmpStr  &  " */ "   )

         '----- LOOP 2. , OUTPUT : Token, Symbol,... as found
         WHILE L_Ptr < L_PAfterEnd
            L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
            Document.Write (   L_Ch   )
            L_Ptr = L_Ptr + 1
         WEND

         Document.WriteLn()
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'===== ProcessBuffer_Parse

SUB   ProcessBuffer_Parse   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF    (L_prResult = prToken) or (L_prResult = prSymbol) or (L_prResult = prSymbol2Ch) or (L_prResult = prQuotedText) or (L_prResult = prIllegalToken)  _
         or (L_prResult = prLineComment) or (L_prResult = prComment)  _
         or (L_prResult = prCompilerDirective)  _
         or (L_prResult = prSymbol3Ch) or (L_prResult = prSymbol4Ch)  _
      THEN
         '----- LOOP 2. , OUTPUT : Token, Symbol,... as found
         WHILE L_Ptr < L_PAfterEnd
            L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
            Document.Write (   L_Ch   )
            L_Ptr = L_Ptr + 1
         WEND

         Document.WriteLn()
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'===== ProcessBuffer_NoComment

SUB   ProcessBuffer_NoComment   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF    (L_prResult = prToken) or (L_prResult = prSymbol) or (L_prResult = prSymbol2Ch) or (L_prResult = prQuotedText) or (L_prResult = prIllegalToken)  _
         or (L_prResult = prCompilerDirective)  _
         or (L_prResult = prSymbol3Ch) or (L_prResult = prSymbol4Ch)  _
      THEN
         '----- LOOP 2. , OUTPUT : Token, Symbol,... as found
         WHILE L_Ptr < L_PAfterEnd
            L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
            Document.Write (   L_Ch   )
            L_Ptr = L_Ptr + 1
         WEND

         Document.WriteLn()
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'===== ProcessBuffer_Compact

   DIM  G_TmpBuf_LineCompacted
   DIM  G_PREV_prResult

SUB   ProcessBuffer_Compact   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   DIM  L_String0
   DIM  L_TokenLen
   DIM  L_String1

   DIM  L_PATCH_SameLineQ

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      IF IsNull(I_BufFirst) = False THEN   ' Before Process
         G_TmpBuf_LineCompacted = ""
         G_PREV_prResult        = prFilling
      ELSE   ' After Process
         IF G_TmpBuf_LineCompacted <> "" THEN
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
         END IF
      END IF
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF    (L_prResult = prToken) or (L_prResult = prSymbol) or (L_prResult = prSymbol2Ch) or (L_prResult = prQuotedText) or (L_prResult = prIllegalToken)  _
         or (L_prResult = prCompilerDirective)  _
         or (L_prResult = prSymbol3Ch) or (L_prResult = prSymbol4Ch)  _
      THEN
         '----- Put a space between 2 tokens ?
         IF (G_PREV_prResult = prToken) and (L_prResult = prToken) THEN
            L_String0 = " "
         ELSE
            L_String0 = ""
         END IF

         '----- CONTROL : Current token too long ?
         L_TokenLen = L_PAfterEnd - L_Ptr
         IF L_TokenLen > 126 THEN
            '----- OUTPUT : Previous temp buffer
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
            G_TmpBuf_LineCompacted = ""

            '----- OUTPUT : Current token
            L_String1 = Mid ( G_StrParseMe , L_Ptr , 126 )
            Document.WriteLn (   L_String1   )

            '----- OUTPUT : Error message
            Document.WriteLn (   "ERROR: "  &  "Token too long."   )
            EXIT SUB '--throw ( 1 );--
         END IF

         '----- Copy current token ==> TmpString
         L_String1 = Mid ( G_StrParseMe , L_Ptr , L_TokenLen )


         '--------------- PATCH : ++   --  ---------------

         L_PATCH_SameLineQ = False

         DO

         '----- Patch : ++   --
         IF L_PATCH_SameLineQ = False THEN
            IF Len(L_String1) = 2 THEN
               IF (L_String1 = "++") or (L_String1 = "--") THEN
                  '----- Temp line buffer : add "token"
                  G_TmpBuf_LineCompacted = G_TmpBuf_LineCompacted  &  L_String1
                     '--Note:So line length can be more than usal length  ( 79 chars )--

                  L_PATCH_SameLineQ = TRUE
                  EXIT DO
               END IF
            END IF
         END IF

         LOOP UNTIL TRUE

         '--LABEL_Patch_END:--

         '----- PATCH (bis) :   #... Compiler directive
         IF L_prResult = prCompilerDirective THEN
            '----- OUTPUT : Previous temp buffer
            IF G_TmpBuf_LineCompacted <> "" THEN
               Document.WriteLn (   G_TmpBuf_LineCompacted   )
               G_TmpBuf_LineCompacted = ""
            END IF

            '----- OUTPUT : Current token
            Document.WriteLn (   L_String1   )

            L_PATCH_SameLineQ = TRUE
         END IF

         '--------------- PATCH END ---------------


         IF L_PATCH_SameLineQ = False THEN
            '----- "Temp line buffer" would be full ?
            IF ( Len(G_TmpBuf_LineCompacted) + Len(L_String0) + Len(L_String1) ) > 79 THEN
               '----- OUTPUT : Previous temp buffer
               Document.WriteLn (   G_TmpBuf_LineCompacted   )
               G_TmpBuf_LineCompacted = ""
               L_String0              = ""   ' Token sent to next line
            END IF

            '----- Temp line buffer : add "token"
            G_TmpBuf_LineCompacted = G_TmpBuf_LineCompacted  &  L_String0  &  L_String1
         END IF

         G_PREV_prResult = L_prResult
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'===== ProcessBuffer_PackLine

SUB   ProcessBuffer_PackLine   ( I_BufFirst , I_BufLast )
   DIM  L_Ptr
   DIM  L_PAfterEnd
   DIM  L_prResult

   DIM  L_Ch

   DIM  L_NewLineQ

   DIM  L_String0
   DIM  L_TokenLen
   DIM  L_String1

   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
      IF IsNull(I_BufFirst) = False THEN   ' Before Process
         G_TmpBuf_LineCompacted = ""
         G_PREV_prResult        = prFilling
      ELSE   ' After Process
         IF G_TmpBuf_LineCompacted <> "" THEN
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
         END IF
      END IF
      EXIT SUB
   END IF

   L_PAfterEnd = I_BufFirst

   '----- LOOP 1 , Call parser
   DO

      L_Ptr = L_PAfterEnd

      L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )

      '----- LOOP 2.1 , Skip filling
      DO WHILE (L_Ch = " ") or (L_Ch = Chr(9))
         L_Ptr = L_Ptr + 1
         IF I_BufLast < L_Ptr THEN EXIT DO
         L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
      LOOP

      '----- Check NewLine
      IF L_Ch = Chr(10) THEN
         L_Ptr = L_Ptr + 1
         L_NewLineQ = TRUE
      ELSE
         IF L_Ch = Chr(13) THEN
            L_Ptr = L_Ptr + 1
            IF L_Ptr <= I_BufLast THEN
               L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
               IF L_Ch = Chr(10) THEN
                  L_Ptr = L_Ptr + 1
               END IF
            END IF
            L_NewLineQ = TRUE
         ELSE
            L_NewLineQ = False
         END IF
      END IF
      IF L_NewLineQ = TRUE THEN
         '----- OUTPUT : temp line buffer
         IF G_TmpBuf_LineCompacted <> "" THEN
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
            G_TmpBuf_LineCompacted = ""
            G_PREV_prResult        = prFilling
         END IF
      END IF
      IF I_BufLast < L_Ptr THEN EXIT DO

      '----- PARSER , Get "next token"
      L_prResult = NEXTxxx ( I_BufLast , L_Ptr , L_PAfterEnd )  :  L_Ptr=G_PBegin  :  L_PAfterEnd=G_PAfterEnd

      IF    (L_prResult = prToken) or (L_prResult = prSymbol) or (L_prResult = prSymbol2Ch) or (L_prResult = prQuotedText) or (L_prResult = prIllegalToken)  _
         or (L_prResult = prCompilerDirective)  _
         or (L_prResult = prSymbol3Ch) or (L_prResult = prSymbol4Ch)  _
      THEN
         '----- Put a space between 2 tokens ?
         IF (G_PREV_prResult = prToken) and (L_prResult = prToken) THEN
            L_String0 = " "
         ELSE
            L_String0 = ""
         END IF

         '----- CONTROL : Current token too long ?
         L_TokenLen = L_PAfterEnd - L_Ptr
         IF L_TokenLen > 126 THEN
            '----- OUTPUT : Previous temp buffer
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
            G_TmpBuf_LineCompacted = ""

            '----- OUTPUT : Current token
            L_String1 = Mid ( G_StrParseMe , L_Ptr , 126 )
            Document.WriteLn (   L_String1   )

            '----- OUTPUT : Error message
            Document.WriteLn (   "ERROR: "  &  "Token too long."   )
            EXIT SUB '--throw ( 1 );--
         END IF

         '----- Copy current token ==> TmpString
         L_String1 = Mid ( G_StrParseMe , L_Ptr , L_TokenLen )

         '----- "Temp line buffer" would be full ?
         IF ( Len(G_TmpBuf_LineCompacted) + Len(L_String0) + Len(L_String1) ) > 126 THEN
            '----- OUTPUT : Previous temp buffer
            Document.WriteLn (   G_TmpBuf_LineCompacted   )
            G_TmpBuf_LineCompacted = ""

            '----- OUTPUT : Current token
            Document.WriteLn (   L_String1   )

            '----- OUTPUT : Error message
            Document.WriteLn (   "ERROR: "  &  "Line too long."   )
            EXIT SUB '--throw ( 1 );--
         END IF

         '----- Temp line buffer : add "token"
         G_TmpBuf_LineCompacted = G_TmpBuf_LineCompacted  &  L_String0  &  L_String1

         G_PREV_prResult = L_prResult
      END IF

   LOOP UNTIL L_Ptr > I_BufLast
END SUB

'
'------------------------------------------------------------------------------
' This file routines
'------------------------------------------------------------------------------
'
'
'---------------
' ProcessBuffer
'---------------
'
   CONST  pmSame      = 0
   CONST  pmVerbose   = 1
   CONST  pmParse     = 2
   CONST  pmNoComment = 3
   CONST  pmCompact   = 4
   CONST  pmPackLine  = 5

   DIM  G_ParseMode

'===== ProcessBuffer

SUB   ProcessBuffer   ( I_BufFirst , I_BufLast )
   SELECT CASE G_ParseMode
      CASE pmSame       :  ProcessBuffer_Same        I_BufFirst , I_BufLast
      CASE pmVerbose    :  ProcessBuffer_Verbose     I_BufFirst , I_BufLast
      CASE pmParse      :  ProcessBuffer_Parse       I_BufFirst , I_BufLast
      CASE pmNoComment  :  ProcessBuffer_NoComment   I_BufFirst , I_BufLast
      CASE pmCompact    :  ProcessBuffer_Compact     I_BufFirst , I_BufLast
      CASE pmPackLine   :  ProcessBuffer_PackLine    I_BufFirst , I_BufLast
   END SELECT

'--
'--   IF IsNull(I_BufLast) or IsNull(I_BufFirst) THEN
'--      IF IsNull(I_BufFirst) = False THEN
'--         Document.WriteLn (   "***** Begin"   )      '--- Before Process
'--      ELSE
'--         Document.WriteLn (   "***** End"     )      '--- After Process
'--      END IF
'--      EXIT SUB
'--   END IF
'--
'--   '----- Input ==> Output, char by char
'--   L_Ptr = I_BufFirst
'--   WHILE L_Ptr <= I_BufLast
'--      L_Ch = Mid ( G_StrParseMe , L_Ptr , 1 )
'--      Document.Write (   L_Ch   )
'--      L_Ptr = L_Ptr + 1
'--   WEND
'--
END SUB
</SCRIPT>