|
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: 682 (0x2aa)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
with Tiny_File;
package Scanner is
Max_String : constant Integer := 256;
subtype Lexeme is String (1 .. Max_String);
type Tab_Reserved is array (1 .. 4) of String (1 .. 20);
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);
Empty_Lexeme : constant Lexeme := "";
Reserved : Tab_Reserved := ("avec", "pour", "prendre", "renvoyer");
Symbol : Token;
Current_Lexeme : Lexeme;
function Get_Token return Token;
function Get_Value return Lexeme;
procedure Next_Token;
procedure Start;
end Scanner;