COMMENT_TEXT: -----------------------------------------------------------------------
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                 Odd - The Other Display Debugger                  --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                         Copyright (C) 2000                        --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                 Emmanuel Briot and Arnaud Charlet                 --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- Odd is free  software;  you can redistribute it and/or modify  it --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- under the terms of the GNU General Public License as published by --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- the Free Software Foundation; either version 2 of the License, or --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- (at your option) any later version.                               --
NORMAL_TEXT: <lf>
COMMENT_TEXT: --                                                                   --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- This program is  distributed in the hope that it will be  useful, --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- but  WITHOUT ANY WARRANTY;  without even the  implied warranty of --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- General Public License for more details. You should have received --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- a copy of the GNU General Public License along with this library; --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- if not,  write to the  Free Software Foundation, Inc.,  59 Temple --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -- Place - Suite 330, Boston, MA 02111-1307, USA.                    --
NORMAL_TEXT: <lf>
COMMENT_TEXT: -----------------------------------------------------------------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Items
NORMAL_TEXT: ;<space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Items
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: .
NORMAL_TEXT: Gdb
NORMAL_TEXT: ;<space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: .
NORMAL_TEXT: Gdb
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: .
NORMAL_TEXT: Gdb
NORMAL_TEXT: .
NORMAL_TEXT: Ada
NORMAL_TEXT: ;<space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: .
NORMAL_TEXT: Gdb
NORMAL_TEXT: .
NORMAL_TEXT: Ada
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Warnings
NORMAL_TEXT: <space>(
NORMAL_TEXT: Off
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: GNAT
NORMAL_TEXT: .
NORMAL_TEXT: Expect
NORMAL_TEXT: ;<space><space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: GNAT
NORMAL_TEXT: .
NORMAL_TEXT: Expect
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: pragma
NORMAL_TEXT: <space>
NORMAL_TEXT: Warnings
NORMAL_TEXT: <space>(
NORMAL_TEXT: On
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Calendar
NORMAL_TEXT: ;<space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Calendar
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Process_Proxies
NORMAL_TEXT: ;<space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Process_Proxies
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: GNAT
NORMAL_TEXT: .
NORMAL_TEXT: OS_Lib
NORMAL_TEXT: ;<space><space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: GNAT
NORMAL_TEXT: .
NORMAL_TEXT: OS_Lib
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: ;<space><space><space><space><space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Debugger
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Text_IO
NORMAL_TEXT: ;<space><space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Ada
NORMAL_TEXT: .
NORMAL_TEXT: Text_IO
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: Language
NORMAL_TEXT: .
NORMAL_TEXT: Debugger
NORMAL_TEXT: ;<space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: Language
NORMAL_TEXT: .
NORMAL_TEXT: Debugger
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: with
NORMAL_TEXT: <space>
NORMAL_TEXT: GVD
NORMAL_TEXT: .
NORMAL_TEXT: Types
NORMAL_TEXT: ;<space><space><space><space><space><space><space><space>
KEYWORD_TEXT: use
NORMAL_TEXT: <space>
NORMAL_TEXT: GVD
NORMAL_TEXT: .
NORMAL_TEXT: Types
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Test_Parse
NORMAL_TEXT: <space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Gdb_Record
NORMAL_TEXT: <space>:<space>
KEYWORD_TEXT: aliased
NORMAL_TEXT: <space>
NORMAL_TEXT: Gdb_Debugger
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Gdb
NORMAL_TEXT: <space><space><space><space><space><space><space><space>:<space>
NORMAL_TEXT: Debugger_Access
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Gdb_Record
NORMAL_TEXT: '
NORMAL_TEXT: Unchecked_Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Lang
NORMAL_TEXT: <space><space><space><space><space><space><space>:<space>
KEYWORD_TEXT: aliased
NORMAL_TEXT: <space>
NORMAL_TEXT: Gdb_Ada_Language
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -----------------------
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -- Print_Special_Var --
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -----------------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Special_Var
NORMAL_TEXT: <space>(
NORMAL_TEXT: Var
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Generic_Type_Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space><space><space><space><space>:<space>
NORMAL_TEXT: Time
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Duration
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: File
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: File_Type
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Type_Str
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: <space>(1 .. 10000);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Index
NORMAL_TEXT: <space><space><space><space>:<space>
NORMAL_TEXT: Natural
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Repeat_Num
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Positive
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Last
NORMAL_TEXT: <space><space><space><space><space><space><space>:<space>
NORMAL_TEXT: Natural
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Put_Line
NORMAL_TEXT: <space>(
STRING_TEXT: "------------------------------"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Put_Line
NORMAL_TEXT: <space>(
STRING_TEXT: "PRINT SPECIAL"
NORMAL_TEXT: <space>&<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Parse_Type
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: <space>
NORMAL_TEXT: -<space>
NORMAL_TEXT: T
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
COMMENT_TEXT: --      Put_Line ("Parsing type, time=" & Durat'Img);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: if
NORMAL_TEXT: <space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>/=<space>
KEYWORD_TEXT: null
NORMAL_TEXT: <space>
KEYWORD_TEXT: then
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Open
NORMAL_TEXT: <space>(
NORMAL_TEXT: File
NORMAL_TEXT: ,<space>
NORMAL_TEXT: In_File
NORMAL_TEXT: ,<space>
STRING_TEXT: "tcb.out"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Get_Line
NORMAL_TEXT: <space>(
NORMAL_TEXT: File
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Type_Str
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Last
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Close
NORMAL_TEXT: <space>(
NORMAL_TEXT: File
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Index
NORMAL_TEXT: <space>:= 1;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Parse_Value
NORMAL_TEXT: <space>(
NORMAL_TEXT: Lang
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Type_Str
NORMAL_TEXT: <space>(1 ..<space>
NORMAL_TEXT: Last
NORMAL_TEXT: ),
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Index
NORMAL_TEXT: ,<space>
NORMAL_TEXT: V
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Repeat_Num
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: <space>
NORMAL_TEXT: -<space>
NORMAL_TEXT: T
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
COMMENT_TEXT: --         Put_Line ("Parsing value, time=" & Durat'Img);
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Print
NORMAL_TEXT: <space>(
NORMAL_TEXT: V
NORMAL_TEXT: .
KEYWORD_TEXT: all
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: if
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: New_Line
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Special_Var
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: ---------------
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -- Print_Var --
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: ---------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
NORMAL_TEXT: Var
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Generic_Type_Access
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space><space><space><space><space>:<space>
NORMAL_TEXT: Time
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Duration
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Found
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Boolean
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Put_Line
NORMAL_TEXT: <space>(
STRING_TEXT: "------------------------------"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Put_Line
NORMAL_TEXT: <space>(
STRING_TEXT: "PRINT "
NORMAL_TEXT: <space>&<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Parse_Type
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: <space>
NORMAL_TEXT: -<space>
NORMAL_TEXT: T
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
COMMENT_TEXT: --      Put_Line ("Parsing type, time=" & Durat'Img);
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: if
NORMAL_TEXT: <space>
NORMAL_TEXT: V
NORMAL_TEXT: <space>/=<space>
KEYWORD_TEXT: null
NORMAL_TEXT: <space>
KEYWORD_TEXT: then
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: T
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Parse_Value
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Var
NORMAL_TEXT: ,<space>
NORMAL_TEXT: V
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Found
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Durat
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Clock
NORMAL_TEXT: <space>
NORMAL_TEXT: -<space>
NORMAL_TEXT: T
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
COMMENT_TEXT: --         Put_Line ("Parsing value, time=" & Durat'Img);
NORMAL_TEXT: <lf><space><space><space><space><space><space><space><space><space>
NORMAL_TEXT: Print
NORMAL_TEXT: <space>(
NORMAL_TEXT: V
NORMAL_TEXT: .
KEYWORD_TEXT: all
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
KEYWORD_TEXT: if
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: New_Line
NORMAL_TEXT: ;
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: ---------------------
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -- Print_Var_Parse --
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: ---------------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
NORMAL_TEXT: Var
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
STRING_TEXT: "Parse::"
NORMAL_TEXT: <space>&<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
COMMENT_TEXT: --  Print_Var (Var);
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -------------------
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -- Print_Var_Bar --
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: -------------------
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: procedure
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var_Bar
NORMAL_TEXT: <space>(
NORMAL_TEXT: Var
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: String
NORMAL_TEXT: )<space>
KEYWORD_TEXT: is
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
STRING_TEXT: "Bar::"
NORMAL_TEXT: <space>&<space>
NORMAL_TEXT: Var
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
COMMENT_TEXT: --  Print_Var (Var);
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Print_Var_Bar
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: List
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Argument_List
NORMAL_TEXT: <space>(1 .. 0);
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:<space>
NORMAL_TEXT: Breakpoint_Identifier
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
KEYWORD_TEXT: begin
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Set_Language
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Lang
NORMAL_TEXT: '
NORMAL_TEXT: Unchecked_Access
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Set_Debugger
NORMAL_TEXT: <space>(
NORMAL_TEXT: Lang
NORMAL_TEXT: '
KEYWORD_TEXT: Access
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Gdb
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Spawn
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
STRING_TEXT: ""
NORMAL_TEXT: ,<space>
NORMAL_TEXT: List
NORMAL_TEXT: ,<space>
STRING_TEXT: ""
NORMAL_TEXT: ,<space>
KEYWORD_TEXT: new
NORMAL_TEXT: <space>
NORMAL_TEXT: Process_Proxy
NORMAL_TEXT: ,<space>
KEYWORD_TEXT: null
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
COMMENT_TEXT: --     Add_Filter
NORMAL_TEXT: <lf>
COMMENT_TEXT: --       (Get_Descriptor (Get_Process (Gdb)).all, Trace_Filter'Access);
NORMAL_TEXT: <lf>
COMMENT_TEXT: --     Add_Filter
NORMAL_TEXT: <lf>
COMMENT_TEXT: --       (Get_Descriptor (Get_Process (Gdb)).all, Trace_Filter'Access, Input);
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Initialize
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Set_Executable
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
STRING_TEXT: "parse"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: B
NORMAL_TEXT: <space>:=<space>
NORMAL_TEXT: Break_Exception
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: ,<space>
NORMAL_TEXT: Unhandled
NORMAL_TEXT: <space>=><space>
NORMAL_TEXT: False
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Run
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Non_Existant_Variable"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Check there is no error in that case.
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "A"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "B"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "C"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Sh"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Ssh"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "S"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "S2"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "S3"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "S4"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Dur"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "R"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "M"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Act"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "My_Enum_Variable"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "T"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Ea"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Aoa"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Fiia"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Iaa"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "U"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Enum_Array_Variable"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Negative_Array_Variable"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Aa"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "A3d"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Aos"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Nr"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "V"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Mra"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "W"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Rr"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Roa"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "X"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Ar"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Z"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Y"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Y2"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Tt"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Ctt"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "Ctt2"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "T_Ptr.all"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "T_Ptr2.all"
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Print_Var_Parse ("Ut");
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Bug in gdb: it displays union with C fields 'integer a', instead of
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Ada fields 'a : integer'.
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Print_Var ("Parse::Tcb");
NORMAL_TEXT: <lf><space><space><space>
COMMENT_TEXT: --  Print_Special_Var ("Parse::Tcb");
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Bar
NORMAL_TEXT: <space>(
STRING_TEXT: "A"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Bar
NORMAL_TEXT: <space>(
STRING_TEXT: "T"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Bar
NORMAL_TEXT: <space>(
STRING_TEXT: "R"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var_Parse
NORMAL_TEXT: <space>(
STRING_TEXT: "X1"
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
COMMENT_TEXT: --   Stack_Up (Gdb);
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
STRING_TEXT: "Ustring"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
STRING_TEXT: "Asu_Test"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Print_Var
NORMAL_TEXT: <space>(
STRING_TEXT: "Asu_Test2"
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space>
NORMAL_TEXT: Close
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: );
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: exception
NORMAL_TEXT: <lf><space><space><space>
KEYWORD_TEXT: when
NORMAL_TEXT: <space>
KEYWORD_TEXT: others
NORMAL_TEXT: <space>=>
NORMAL_TEXT: <lf><space><space><space><space><space><space>
NORMAL_TEXT: Close
NORMAL_TEXT: <space>(
NORMAL_TEXT: Gdb
NORMAL_TEXT: );
NORMAL_TEXT: <lf><space><space><space><space><space><space>
KEYWORD_TEXT: raise
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
NORMAL_TEXT: <lf>
KEYWORD_TEXT: end
NORMAL_TEXT: <space>
NORMAL_TEXT: Test_Parse
NORMAL_TEXT: ;
NORMAL_TEXT: <lf>
