|
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: 1007 (0x3ef)
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_Debut, L_Fin, L_Fait, L_Discret, 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_Duree,
L_Premier, 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_Virgule,
L_Open, L_Close, L_Number, L_Temps, L_Unk, L_Id, L_Ok);
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 Integer;
function Keyword_To_Token (A_String : Standard_String.Object) return Token;
end Lexical;