gcc/ada/csinfo.adb

45 procedure CSinfo is  subprogram
47    package TB renames GNAT.Spitbol.Table_Boolean;
48    package TV renames GNAT.Spitbol.Table_VString;
51    Infil  : File_Type;
52    Lineno : Natural := 0;
54    Err : exception;
57    Done : exception;
60    WSP : constant Pattern := Span (' ' & ASCII.HT);
62    Fields   : TV.Table (300);
63    Fields1  : TV.Table (300);
64    Refs     : TV.Table (300);
65    Refscopy : TV.Table (300);
66    Special  : TB.Table (50);
67    Inlines  : TV.Table (100);
89    Flags : TV.Table (20);
92    N_Fields : constant Pattern := BreakX ("JL");
93    E_Fields : constant Pattern := BreakX ("5EFGHIJLOP");
94    U_Fields : constant Pattern := BreakX ("1345EFGHIJKLOPQ");
95    B_Fields : constant Pattern := BreakX ("12345EFGHIJKLOPQ");
97    Line : VString;
98    Bad  : Boolean;
100    Field       : constant VString := Nul;
101    Fields_Used : VString := Nul;
102    Name        : constant VString := Nul;
103    Next        : constant VString := Nul;
104    Node        : VString := Nul;
105    Ref         : VString := Nul;
106    Synonym     : constant VString := Nul;
107    Nxtref      : constant VString := Nul;
109    Which_Field : aliased VString := Nul;
111    Node_Search : constant Pattern := WSP & "--  N_" & Rest * Node;
112    Break_Punc  : constant Pattern := Break (" .,");
113    Plus_Binary : constant Pattern := WSP
115    Plus_Unary  : constant Pattern := WSP
117    Plus_Expr   : constant Pattern := WSP
119    Break_Syn   : constant Pattern := WSP &  "--  "
122    Break_Field : constant Pattern := BreakX ('-') * Field;
123    Get_Field   : constant Pattern := BreakX (Decimal_Digit_Set)
125    Break_WFld  : constant Pattern := Break (Which_Field'Access);
126    Get_Funcsyn : constant Pattern := WSP & "function " & Rest * Synonym;
127    Extr_Field  : constant Pattern := BreakX ('-') & "-- " & Rest * Field;
128    Get_Procsyn : constant Pattern := WSP & "procedure Set_" & Rest * Synonym;
129    Get_Inline  : constant Pattern := WSP & "pragma Inline ("
131    Set_Name    : constant Pattern := "Set_" & Rest * Name;
132    Func_Rest   : constant Pattern := "   function " & Rest * Synonym;
133    Get_Nxtref  : constant Pattern := Break (',') * Nxtref & ',';
134    Test_Syn    : constant Pattern := Break ('=') & "= N_"
136    Chop_Comma  : constant Pattern := BreakX (',') * Next;
137    Return_Fld  : constant Pattern := WSP & "return " & Break (' ') * Field;
138    Set_Syn     : constant Pattern := "   procedure Set_" & Rest * Synonym;
139    Set_Fld     : constant Pattern := WSP & "Set_" & Break (' ') * Field
141    Break_With  : constant Pattern := Break ('_') ** Field & "_With_Parent";
143    type VStringA is array (Natural range <>) of VString;
145    procedure Next_Line;
148    procedure Sort (A : in out VStringA);
172 --  Start of processing for CSinfo  argument