DataMuseum.dk

top - download

    Length: 1043 (0x413)
    Types: TextFile
    Names: »V«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;
    function Get_Line return Integer;

end Lexical;