DataMuseum.dk

top - download

    Length: 979 (0x3d3)
    Types: TextFile
    Names: »V«

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;