|
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 - metrics - downloadIndex: T V
Length: 979 (0x3d3)
Types: TextFile
Names: »V«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
with Standard_String;
package Lexical is
type Token is (L_Materiel, L_Begin, L_End, L_Fait, L_Binaire, L_Fugitif,
L_Temporel, L_Acteurs, L_Est, L_Sur, L_Station,
L_Scenario, L_Scene, L_Dans, L_Repeter_Ad_Eternam,
L_Faire, L_Repeter, L_Fois, L_Toutes, L_Les,
L_Pendant, L_De, L_Vers, L_En, L_Experience, L_Effet,
L_Enchainement, L_Groupe, L_Hasard, L_Avec, L_Sans, L_Sub,
L_Plus, L_Equal, L_Star, L_Eof, L_D_Point, L_Point,
L_Open, L_Close, L_Number, L_Temps, L_Unk, L_Id);
procedure Open (Name_File : String);
procedure Close_The_File;
function At_End return Boolean;
procedure Next;
function Get_Token return Token;
function Get_Value return Standard_String.Object;
function Get_Value return Natural;
function Keyword_To_Token (A_String : Standard_String.Object) return Token;
end Lexical;