|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 585 (0x249)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Bounded_String;
with Custom;
package Scanner is
subtype Lexeme is Bounded_String.Variable_String (Custom.String_Max_Length);
type Token is (L_Int, L_Str, L_Id, L_Keyw, L_Obra, L_Cbra,
L_Dot, L_Opar, L_Cpar, L_Binm, L_Avec,
L_Pour, L_Pren, L_Renv, L_Unk, L_Eof);
procedure Start (File_Name : String);
procedure Next_Token;
function Get_Token return Token;
function Get_Value return Lexeme;
function Get_Line_Number return Natural;
function Get_Error_Number return Natural;
procedure Stop;
end Scanner;