diff options
Diffstat (limited to 'tests/lexers/ada/example.txt')
| -rw-r--r-- | tests/lexers/ada/example.txt | 1920 |
1 files changed, 1920 insertions, 0 deletions
diff --git a/tests/lexers/ada/example.txt b/tests/lexers/ada/example.txt new file mode 100644 index 00000000..af76f592 --- /dev/null +++ b/tests/lexers/ada/example.txt @@ -0,0 +1,1920 @@ +---input--- +-- Model IED Simulator +-- COL Gene Ressler, 1 December 2007 +with Ada.Text_IO; + +with Ada.Characters.Latin_1; +use Ada.Characters.Latin_1; + +with Ada.Strings.Fixed; +use Ada.Strings.Fixed; + +with Ada.Strings; +with Ada.Strings.Bounded; + +with Binary_Search; + +with Ada.Containers.Generic_Array_Sort; + +package body Scanner is + + Constant_123 : constant Character := Character'Val (16#00#); + MAX_KEYWORD_LENGTH_C : constant Natural := 24; + + New_Constant : constant New_Type + := 2; + + KEYWORDS_C : constant Keyword_Array_T := + (To_BS("description"), + To_BS("with")); + + procedure Blah; + + procedure blah is + begin + + Declaration: + declare + Joe : Type_Type := Random; + begin + Do_Something; + end Declaration; + Loop_ID: + loop + Loop_Do; + exit when 1=2; + end loop Loop_ID; + if True or else False then + Do_This(); + elsif not False and then True then + Do_That; + else + Panic; + end if; + end blah; + + function "*" (Left, Right : in Integer) return Integer is + begin + <<Goto_Label>> + goto Goto_Label; + return Left + Right; + end "*"; + + function Function_Specification + (Param_1 : in Blah; + Param2, param3 : in access Blah_Type := 0) + return It_Type; + + package Rename_Check renames Ada.Text_IO; + + type New_Float is delta 0.001 digits 12; + + package Package_Inst is new Ada.Strings.Bounded.Generic_Bounded_Length + (Max => MAX_KEYWORD_LENGTH_C); + + type Array_Decl12 is array (Positive range <>) of SB.Bounded_String; + type Array_Decl3 is array (New_Type range Thing_1 .. Thing_2) of SB.Bounded_String; + + type Boring_Type is + (Start, + End_Error); + + subtype Sub_Type_check is Character range '0' .. '9'; + + Initialized_Array : constant Transistion_Array_T := + (Start => + (Letter_Lower | Letter_Upper => Saw_Alpha, + ' ' | HT | CR | LF => Start, + others => Begin_Error), + + End_Error => (others => Start) + + ); + + type Recorder is record + Advance : Boolean; + Return_Token : Token_T; + end record; + + for Recorder use 8; + + type Null_Record is null record; + + type Discriminated_Record (Size : Natural) is + record + A : String (1 .. Size); + end record; + + pragma Unchecked_Union (Union); + pragma Convention (C, Union); + + type Person is tagged + record + Name : String (1 .. 10); + Gender : Gender_Type; + end record; + + type Programmer is new Person with + record + Skilled_In : Language_List; + Favorite_Langauge : Python_Type; + end record; + + type Programmer is new Person + and Printable + with + record + Skilled_In : Language_List; + Blah : aliased Integer; + end record; + + --------------------- + -- Scan_Next_Token -- + --------------------- + + task Cyclic_Buffer_Task_Type is + entry Insert (An_Item : in Item); + entry Remove (An_Item : out Item); + end Cyclic_Buffer_Task_Type; + + task body Cyclic_Buffer_Task_Type is + Q_Size : constant := 100; + subtype Q_Range is Positive range 1 .. Q_Size; + Length : Natural range 0 .. Q_Size := 0; + Head, Tail : Q_Range := 1; + Data : array (Q_Range) of Item; + begin + loop + select + when Length < Q_Size => + accept Insert (An_Item : in Item) do + Data(Tail) := An_Item; + end Insert; + Tail := Tail mod Q_Size + 1; + Length := Length + 1; + or + when Length > 0 => + accept Remove (An_Item : out Item) do + An_Item := Data(Head); + end Remove; + Head := Head mod Q_Size + 1; + Length := Length - 1; + end select; + end loop; + end Cyclic_Buffer_Task_Type; + + + + procedure Scan_Next_Token + (S : in String; + Start_Index : out Positive; + End_Index : in out Natural; -- Tricky comment + Line_Number : in out Positive; + Token : out Token_T); + + procedure Scan_Next_Token + (S : in String; + Start_Index : out Positive; + End_Index : in out Natural; -- Another comment + Line_Number : in out Positive; + Token : out Token_T) + is + begin + Scanner_Loop: + loop + if New_State = End_Error then + exit Scanner_Loop; + end if; + + if State = Start and New_State /= Start then + Start_Index := Peek_Index; + end if; + end loop Scanner_Loop; + end Scan_Next_Token; + + procedure Advance is + begin + Peek_Index := Peek_Index + 1; + end Advance; + + + -- Eliminate the leading space that Ada puts in front of positive + -- integer images. + function Image(N : in Integer) return String is + S : String := Integer'Image(N); + begin + if S(1) = ' ' then + return S(2 .. S'Last); + end if; + return S; + end Image; + +end Scanner; + +---tokens--- +'-- Model IED Simulator\n' Comment.Single + +'-- COL Gene Ressler, 1 December 2007\n' Comment.Single + +'with' Keyword.Namespace +' ' Text +'Ada.Text_IO' Name.Namespace +';' Punctuation +'\n\n' Text + +'with' Keyword.Namespace +' ' Text +'Ada.Characters.Latin_1' Name.Namespace +';' Punctuation +'\n' Text + +'use' Keyword.Namespace +' ' Text +'Ada.Characters.Latin_1' Name.Namespace +';' Punctuation +'\n\n' Text + +'with' Keyword.Namespace +' ' Text +'Ada.Strings.Fixed' Name.Namespace +';' Punctuation +'\n' Text + +'use' Keyword.Namespace +' ' Text +'Ada.Strings.Fixed' Name.Namespace +';' Punctuation +'\n\n' Text + +'with' Keyword.Namespace +' ' Text +'Ada.Strings' Name.Namespace +';' Punctuation +'\n' Text + +'with' Keyword.Namespace +' ' Text +'Ada.Strings.Bounded' Name.Namespace +';' Punctuation +'\n\n' Text + +'with' Keyword.Namespace +' ' Text +'Binary_Search' Name.Namespace +';' Punctuation +'\n\n' Text + +'with' Keyword.Namespace +' ' Text +'Ada.Containers.Generic_Array_Sort' Name.Namespace +';' Punctuation +'\n\n' Text + +'package' Keyword.Declaration +' ' Text +'body' Keyword.Declaration +' ' Text +'Scanner' Name.Class +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'Constant_123' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +'Character' Keyword.Type +' ' Text +':=' Punctuation +' ' Text +'Character' Keyword.Type +"'" Punctuation +'Val' Name.Attribute +' ' Text +'(' Punctuation +'16#00#' Literal.Number.Hex +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'MAX_KEYWORD_LENGTH_C' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +'Natural' Keyword.Type +' ' Text +':=' Punctuation +' ' Text +'24' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'New_Constant' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +'New_Type' Name +'\n' Text + +' ' Text +':=' Punctuation +' ' Text +'2' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'KEYWORDS_C' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +'Keyword_Array_T' Name +' ' Text +':=' Punctuation +'\n' Text + +' ' Text +'(' Punctuation +'To_BS' Name +'(' Punctuation +'"description"' Literal.String +')' Punctuation +',' Punctuation +'\n' Text + +' ' Text +'To_BS' Name +'(' Punctuation +'"with"' Literal.String +')' Punctuation +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'procedure' Keyword.Declaration +' ' Text +'Blah' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'procedure' Keyword.Declaration +' ' Text +'blah' Name.Function +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'Declaration' Name.Label +':' Punctuation +'\n ' Text +'declare' Keyword.Reserved +'\n' Text + +' ' Text +'Joe' Name +' ' Text +':' Punctuation +' ' Text +'Type_Type' Name +' ' Text +':=' Punctuation +' ' Text +'Random' Name +';' Punctuation +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'Do_Something' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Declaration' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'Loop_ID' Name.Label +':' Punctuation +'\n ' Text +'loop' Keyword.Reserved +'\n' Text + +' ' Text +'Loop_Do' Name +';' Punctuation +'\n' Text + +' ' Text +'exit' Keyword.Reserved +' ' Text +'when' Keyword.Reserved +' ' Text +'1' Literal.Number.Integer +'=' Operator +'2' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'loop' Keyword.Reserved +' ' Text +'Loop' Keyword.Reserved +'_ID' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'if' Keyword.Reserved +' ' Text +'True' Keyword.Constant +' ' Text +'or else' Operator.Word +' ' Text +'False' Keyword.Constant +' ' Text +'then' Keyword.Reserved +'\n' Text + +' ' Text +'Do_This' Name +'(' Punctuation +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'elsif' Keyword.Reserved +' ' Text +'not' Operator.Word +' ' Text +'False' Keyword.Constant +' ' Text +'and then' Operator.Word +' ' Text +'True' Keyword.Constant +' ' Text +'then' Keyword.Reserved +'\n' Text + +' ' Text +'Do_That' Name +';' Punctuation +'\n' Text + +' ' Text +'else' Keyword.Reserved +'\n' Text + +' ' Text +'Panic' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'if' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'blah' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'function' Keyword.Declaration +' ' Text +'"*"' Name.Function +' ' Text +'(' Punctuation +'Left' Name.Variable +',' Punctuation +' ' Text +'Right' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'Integer' Name.Variable +')' Punctuation +' ' Text +'return' Keyword.Reserved +' ' Text +'Integer' Keyword.Type +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'<<Goto_Label>>' Name.Label +'\n' Text + +' ' Text +'goto' Keyword.Reserved +' ' Text +'Goto_Label' Name +';' Punctuation +'\n' Text + +' ' Text +'return' Keyword.Reserved +' ' Text +'Left' Name +' ' Text +'+' Operator +' ' Text +'Right' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'"*"' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'function' Keyword.Declaration +' ' Text +'Function_Specification' Name.Function +'\n' Text + +' ' Text +'(' Punctuation +'Param_1' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'Blah' Name.Variable +';' Punctuation +' ' Text +'\n' Text + +' ' Text +'Param2' Name.Variable +',' Punctuation +' ' Text +'param3' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'access' Name.Variable +' ' Text +'Blah_Type' Name.Variable +' ' Text +':=' Punctuation +' ' Text +'0' Name.Variable +')' Punctuation +'\n' Text + +' ' Text +'return' Keyword.Reserved +' ' Text +'It_Type' Name +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'package' Keyword.Declaration +' ' Text +'Rename_Check' Name.Class +' ' Text +'renames' Keyword.Reserved +' ' Text +'Ada.Text_IO' Name.Class +';' Punctuation +'\n\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'New_Float' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'delta' Keyword.Reserved +' ' Text +'0.001' Literal.Number.Float +' ' Text +'digits' Keyword.Reserved +' ' Text +'12' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'package' Keyword.Declaration +' ' Text +'Package_Inst' Name.Class +' ' Text +'is new' Keyword.Reserved +' ' Text +'Ada.Strings.Bounded.Generic_Bounded_Length' Name.Class +'\n' Text + +' ' Text +'(' Punctuation +'Max' Name.Variable +' ' Text +'=>' Punctuation +' ' Text +'M' Text +'A' Text +'X' Text +'_' Text +'K' Text +'E' Text +'Y' Text +'W' Text +'O' Text +'R' Text +'D' Text +'_' Text +'L' Text +'E' Text +'N' Text +'G' Text +'T' Text +'H' Text +'_' Text +'C' Text +')' Punctuation +';' Punctuation +'\n\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Array_Decl12' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'array' Keyword.Reserved +' ' Text +'(' Punctuation +'Positive' Keyword.Type +' ' Text +'range' Keyword.Reserved +' ' Text +'<>' Punctuation +')' Punctuation +' ' Text +'of' Keyword.Reserved +' ' Text +'SB' Name +'.' Punctuation +'Bounded_String' Name +';' Punctuation +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Array_Decl3' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'array' Keyword.Reserved +' ' Text +'(' Punctuation +'New_Type' Keyword.Type +' ' Text +'range' Keyword.Reserved +' ' Text +'Thing_1' Name +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'Thing_2' Name +')' Punctuation +' ' Text +'of' Keyword.Reserved +' ' Text +'SB' Name +'.' Punctuation +'Bounded_String' Name +';' Punctuation +'\n\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Boring_Type' Keyword.Type +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'(' Punctuation +'Start' Name.Variable +',' Punctuation +'\n' Text + +' ' Text +'End_Error' Name.Variable +')' Punctuation +';' Punctuation +'\n\n' Text + +' ' Text +'subtype' Keyword.Declaration +' ' Text +'Sub_Type_check' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'Character' Keyword.Type +' ' Text +'range' Keyword.Reserved +' ' Text +"'" Punctuation +'0' Name.Attribute +"'" Punctuation +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +"'" Punctuation +'9' Name.Attribute +"'" Punctuation +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'Initialized_Array' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +'Transistion_Array_T' Name +' ' Text +':=' Punctuation +'\n' Text + +' ' Text +'(' Punctuation +'Start' Name +' ' Text +'=>' Punctuation +'\n' Text + +' ' Text +'(' Punctuation +'Letter_Lower' Name +' ' Text +'|' Punctuation +' ' Text +'Letter_Upper' Name +' ' Text +'=>' Punctuation +' ' Text +'Saw_Alpha' Name +',' Punctuation +'\n' Text + +' ' Text +"' '" Literal.String.Character +' ' Text +'|' Punctuation +' ' Text +'HT' Name +' ' Text +'|' Punctuation +' ' Text +'CR' Name +' ' Text +'|' Punctuation +' ' Text +'LF' Name +' ' Text +'=>' Punctuation +' ' Text +'Start' Name +',' Punctuation +'\n' Text + +' ' Text +'others' Keyword.Reserved +' ' Text +'=>' Punctuation +' ' Text +'Begin_Error' Name +')' Punctuation +',' Punctuation +'\n\n' Text + +' ' Text +'End_Error' Name +' ' Text +'=>' Punctuation +' ' Text +'(' Punctuation +'others' Keyword.Reserved +' ' Text +'=>' Punctuation +' ' Text +'Start' Name +')' Punctuation +'\n\n' Text + +' ' Text +')' Punctuation +';' Punctuation +'\n\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Recorder' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'record' Keyword.Reserved +'\n' Text + +' ' Text +'Advance' Name +' ' Text +':' Punctuation +' ' Text +'Boolean' Keyword.Type +';' Punctuation +'\n' Text + +' ' Text +'Return_Token' Name +' ' Text +':' Punctuation +' ' Text +'Token_T' Name +';' Punctuation +'\n' Text + +' ' Text +'end record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'for' Keyword.Reserved +' ' Text +'Recorder' Name +' ' Text +'use' Keyword.Namespace +' ' Text +'8' Name.Namespace +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Null_Record' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'null record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Discriminated_Record' Keyword.Type +' ' Text +'(' Punctuation +'Size' Name.Variable +' ' Text +': ' Punctuation +'Natural' Name.Variable +')' Punctuation +' ' Text +'is' Keyword.Reserved +' ' Text +'\n' Text + +' ' Text +'record' Keyword.Reserved +'\n' Text + +' ' Text +'A' Name +' ' Text +':' Punctuation +' ' Text +'String' Keyword.Type +' ' Text +'(' Punctuation +'1' Literal.Number.Integer +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'Size' Name +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'end record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'pragma' Keyword.Reserved +' ' Text +'Unchecked_Union' Comment.Preproc +' ' Text +'(' Punctuation +'Union' Name +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'pragma' Keyword.Reserved +' ' Text +'Convention' Comment.Preproc +' ' Text +'(' Punctuation +'C' Name +',' Punctuation +' ' Text +'Union' Name +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Person' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'tagged' Keyword.Reserved +' ' Text +'\n' Text + +' ' Text +'record' Keyword.Reserved +'\n' Text + +' ' Text +'Name' Name +' ' Text +':' Punctuation +' ' Text +'String' Keyword.Type +' ' Text +'(' Punctuation +'1' Literal.Number.Integer +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'10' Literal.Number.Integer +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'Gender' Name +' ' Text +':' Punctuation +' ' Text +'Gender_Type' Name +';' Punctuation +'\n' Text + +' ' Text +'end record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Programmer' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'new' Keyword.Reserved +' ' Text +'Person' Name +' ' Text +'with' Keyword.Reserved +'\n' Text + +' ' Text +'record' Keyword.Reserved +'\n' Text + +' ' Text +'Skilled_In' Name +' ' Text +':' Punctuation +' ' Text +'Language_List' Name +';' Punctuation +'\n' Text + +' ' Text +'Favorite_Langauge' Name +' ' Text +':' Punctuation +' ' Text +'Python_Type' Name +';' Punctuation +'\n' Text + +' ' Text +'end record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'type' Keyword.Declaration +' ' Text +'Programmer' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'new' Keyword.Reserved +' ' Text +'Person' Name +' ' Text +'\n' Text + +' ' Text +'and' Keyword.Reserved +' ' Text +'Printable' Name +' ' Text +'\n' Text + +' ' Text +'with' Keyword.Reserved +' ' Text +'\n' Text + +' ' Text +'record' Keyword.Reserved +'\n' Text + +' ' Text +'Skilled_In' Name +' ' Text +':' Punctuation +' ' Text +'Language_List' Name +';' Punctuation +'\n' Text + +' ' Text +'Blah' Name +' ' Text +':' Punctuation +' ' Text +'aliased' Keyword.Reserved +' ' Text +'Integer' Keyword.Type +';' Punctuation +'\n' Text + +' ' Text +'end record' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'---------------------\n' Comment.Single + +' ' Text +'-- Scan_Next_Token --\n' Comment.Single + +' ' Text +'---------------------\n' Comment.Single + +' ' Text +'\n' Text + +' ' Text +'task' Keyword.Declaration +' ' Text +'Cyclic_Buffer_Task_Type' Name +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'entry' Keyword.Declaration +' ' Text +'Insert' Name.Function +' ' Text +'(' Punctuation +'An_Item' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'Item' Name.Variable +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'entry' Keyword.Declaration +' ' Text +'Remove' Name.Function +' ' Text +'(' Punctuation +'An_Item' Name.Variable +' ' Text +': ' Punctuation +'out' Name.Variable +' ' Text +'Item' Name.Variable +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Cyclic_Buffer_Task_Type' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'task' Keyword.Declaration +' ' Text +'body' Keyword.Reserved +' ' Text +'Cyclic_Buffer_Task_Type' Name +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'Q_Size' Name.Constant +' ' Text +':' Punctuation +' ' Text +'constant' Keyword.Reserved +' ' Text +':=' Punctuation +' ' Text +'100' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'subtype' Keyword.Declaration +' ' Text +'Q_Range' Keyword.Type +' ' Text +'is' Keyword.Reserved +' ' Text +'Positive' Keyword.Type +' ' Text +'range' Keyword.Reserved +' ' Text +'1' Literal.Number.Integer +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'Q_Size' Name +';' Punctuation +'\n' Text + +' ' Text +'Length' Name +' ' Text +':' Punctuation +' ' Text +'Natural' Keyword.Type +' ' Text +'range' Keyword.Reserved +' ' Text +'0' Literal.Number.Integer +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'Q_Size' Name +' ' Text +':=' Punctuation +' ' Text +'0' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'Head' Name +',' Punctuation +' ' Text +'Tail' Name +' ' Text +':' Punctuation +' ' Text +'Q_Range' Name +' ' Text +':=' Punctuation +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'Data' Name +' ' Text +':' Punctuation +' ' Text +'array' Keyword.Reserved +' ' Text +'(' Punctuation +'Q_Range' Name +')' Punctuation +' ' Text +'of' Keyword.Reserved +' ' Text +'Item' Name +';' Punctuation +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'loop' Keyword.Reserved +'\n' Text + +' ' Text +'select' Keyword.Reserved +'\n' Text + +' ' Text +'when' Keyword.Reserved +' ' Text +'Length' Name +' ' Text +'<' Operator +' ' Text +'Q_Size' Name +' ' Text +'=>' Punctuation +'\n' Text + +' ' Text +'accept' Keyword.Reserved +' ' Text +'Insert' Name +' ' Text +'(' Punctuation +'An_Item' Name +' ' Text +':' Punctuation +' ' Text +'in' Operator.Word +' ' Text +'Item' Name +')' Punctuation +' ' Text +'do' Keyword.Reserved +'\n' Text + +' ' Text +'Data' Name +'(' Punctuation +'Tail' Name +')' Punctuation +' ' Text +':=' Punctuation +' ' Text +'An_Item' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Insert' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'Tail' Name +' ' Text +':=' Punctuation +' ' Text +'Tail' Name +' ' Text +'mod' Operator.Word +' ' Text +'Q_Size' Name +' ' Text +'+' Operator +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'Length' Name +' ' Text +':=' Punctuation +' ' Text +'Length' Name +' ' Text +'+' Operator +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'or' Keyword.Reserved +'\n' Text + +' ' Text +'when' Keyword.Reserved +' ' Text +'Length' Name +' ' Text +'>' Operator +' ' Text +'0' Literal.Number.Integer +' ' Text +'=>' Punctuation +'\n' Text + +' ' Text +'accept' Keyword.Reserved +' ' Text +'Remove' Name +' ' Text +'(' Punctuation +'An_Item' Name +' ' Text +':' Punctuation +' ' Text +'out' Keyword.Reserved +' ' Text +'Item' Name +')' Punctuation +' ' Text +'do' Keyword.Reserved +'\n' Text + +' ' Text +'An_Item' Name +' ' Text +':=' Punctuation +' ' Text +'Data' Name +'(' Punctuation +'Head' Name +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Remove' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'Head' Name +' ' Text +':=' Punctuation +' ' Text +'Head' Name +' ' Text +'mod' Operator.Word +' ' Text +'Q_Size' Name +' ' Text +'+' Operator +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'Length' Name +' ' Text +':=' Punctuation +' ' Text +'Length' Name +' ' Text +'-' Operator +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'select' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'loop' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Cyclic_Buffer_Task_Type' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'procedure' Keyword.Declaration +' ' Text +'Scan_Next_Token' Name.Function +'\n' Text + +' ' Text +'(' Punctuation +'S' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'String' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'Start_Index' Name.Variable +' ' Text +': ' Punctuation +' ' Text +'out' Name.Variable +' ' Text +'Positive' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'End_Index' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'out' Name.Variable +' ' Text +'Natural' Name.Variable +';' Punctuation +' ' Text +'-- Tricky comment\n' Comment.Single + +' ' Text +'Line_Number' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'out' Name.Variable +' ' Text +'Positive' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'Token' Name.Variable +' ' Text +': ' Punctuation +' ' Text +'out' Name.Variable +' ' Text +'Token_T' Name.Variable +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'procedure' Keyword.Declaration +' ' Text +'Scan_Next_Token' Name.Function +'\n' Text + +' ' Text +'(' Punctuation +'S' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'String' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'Start_Index' Name.Variable +' ' Text +': ' Punctuation +' ' Text +'out' Name.Variable +' ' Text +'Positive' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'End_Index' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'out' Name.Variable +' ' Text +'Natural' Name.Variable +';' Punctuation +' ' Text +'-- Another comment\n' Comment.Single + +' ' Text +'Line_Number' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'out' Name.Variable +' ' Text +'Positive' Name.Variable +';' Punctuation +'\n' Text + +' ' Text +'Token' Name.Variable +' ' Text +': ' Punctuation +' ' Text +'out' Name.Variable +' ' Text +'Token_T' Name.Variable +')' Punctuation +'\n' Text + +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'Scanner_Loop' Name.Label +':' Punctuation +'\n ' Text +'loop' Keyword.Reserved +'\n' Text + +' ' Text +'if' Keyword.Reserved +' ' Text +'New_State' Name +' ' Text +'=' Operator +' ' Text +'End_Error' Name +' ' Text +'then' Keyword.Reserved +'\n' Text + +' ' Text +'exit' Keyword.Reserved +' ' Text +'Scanner_Loop' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'if' Keyword.Reserved +';' Punctuation +'\n\n' Text + +' ' Text +'if' Keyword.Reserved +' ' Text +'State' Name +' ' Text +'=' Operator +' ' Text +'Start' Name +' ' Text +'and' Operator.Word +' ' Text +'New_State' Name +' ' Text +'/' Operator +'=' Operator +' ' Text +'Start' Name +' ' Text +'then' Keyword.Reserved +'\n' Text + +' ' Text +'Start_Index' Name +' ' Text +':=' Punctuation +' ' Text +'Peek_Index' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'if' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'loop' Keyword.Reserved +' ' Text +'Scanner_Loop' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Scan_Next_Token' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n' Text + +' ' Text +'procedure' Keyword.Declaration +' ' Text +'Advance' Name.Function +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'Peek_Index' Name +' ' Text +':=' Punctuation +' ' Text +'Peek_Index' Name +' ' Text +'+' Operator +' ' Text +'1' Literal.Number.Integer +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Advance' Name.Function +';' Punctuation +'\n' Text + +' ' Text +'\n\n' Text + +' ' Text +'-- Eliminate the leading space that Ada puts in front of positive\n' Comment.Single + +' ' Text +'-- integer images.\n' Comment.Single + +' ' Text +'function' Keyword.Declaration +' ' Text +'Image' Name.Function +'(' Punctuation +'N' Name.Variable +' ' Text +': ' Punctuation +'in' Name.Variable +' ' Text +'Integer' Name.Variable +')' Punctuation +' ' Text +'return' Keyword.Reserved +' ' Text +'String' Keyword.Type +' ' Text +'is' Keyword.Reserved +'\n' Text + +' ' Text +'S' Name +' ' Text +':' Punctuation +' ' Text +'String' Keyword.Type +' ' Text +':=' Punctuation +' ' Text +'Integer' Keyword.Type +"'" Punctuation +'Image' Name.Attribute +'(' Punctuation +'N' Name +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'begin' Keyword.Reserved +'\n' Text + +' ' Text +'if' Keyword.Reserved +' ' Text +'S' Name +'(' Punctuation +'1' Literal.Number.Integer +')' Punctuation +' ' Text +'=' Operator +' ' Text +"' '" Literal.String.Character +' ' Text +'then' Keyword.Reserved +'\n' Text + +' ' Text +'return' Keyword.Reserved +' ' Text +'S' Name +'(' Punctuation +'2' Literal.Number.Integer +' ' Text +'.' Punctuation +'.' Punctuation +' ' Text +'S' Name +"'" Punctuation +'Last' Name.Attribute +')' Punctuation +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'if' Keyword.Reserved +';' Punctuation +'\n' Text + +' ' Text +'return' Keyword.Reserved +' ' Text +'S' Name +';' Punctuation +'\n' Text + +' ' Text +'end' Keyword.Reserved +' ' Text +'Image' Name.Function +';' Punctuation +'\n\n' Text + +'end' Keyword.Reserved +' ' Text +'Scanner' Name.Function +';' Punctuation +'\n' Text |