1 package Rep_Clause5_Pkg is
3 type ID_Type is mod 65536;
4 type String_ID is new ID_Type;
5 type LNumber_Type is range 0..99999;
6 subtype Long_Type is Integer;
8 type Func_ID is (No_Func, FUN_SGN, FUN_EXP, FUN_LOG, FUN_LOG10);
332 type Aux_Kind is (No_Aux, SID_Aux, FID_Aux, LNO_Aux);
334 type Token_Type(Aux : Aux_Kind := No_Aux) is
336 Token : Token_Kind := No_Token;
352 Token at 0 range 3..12;
353 SID at 0 range 16..31;
354 FID at 0 range 16..31;
355 LNO at 0 range 13..31;
358 type Tokens_Index is range 0..999999;
359 type Token_Array is array(Tokens_Index range <>) of Token_Type;
360 type Token_Line is access all Token_Array;
365 LNO : LNumber_Type := 0;
366 Numbered : Boolean := False;
369 type Nodes_Index is range 0..999999;
370 type LNodes_Array is array(Nodes_Index range <>) of Line_Node;
371 type LNodes_Ptr is access all LNodes_Array;
375 Max_Length : Natural := 0;
376 Fixed : Boolean := False;
379 function To_Long(Object : VString; Radix : Natural) return Long_Type;
381 function Element (V : String_ID) return String;