⟦c24d9d694⟧

E3 Source Code



with Text_Io, Source;

-- Module fonctionnel comprenant les fonctions necessaires pour
-- l analyse lexical d un fichier source scenario

package Lexical is

    type Token is (Comment, Nbr, Str, Id, Affect, Equ, Mul, Div, Crocho,
                   Crochf, Parnto, Parntf, Virgul, Inf, Infequ, Diffr,
                   Sup, Supequ, Plus, Moins, Point, Unk, Lexend, Jeu,
                   Action, Synonyme, Definition, Structure, Chaine, Booleen,
                   Entier, Enumere, Presentation, Objet, Avec, Init,
                   Creer_Lien, Echanger_Lien, Etat_Lien, Liste_Lien,
                   Existe_Lien, Detruire_Lien, Lie_Lien, Delie_Lien, Liaison,
                   Lie, Delie, Vrai, Faux, Connexion, Creer_Connexion,
                   Existe_Connexion, Etat_Connexion, Detruire_Connexion,
                   Destination_Connexion, Lie_Connexion, Delie_Connexion,
                   Afficher, Pour, Entree, Faire, Finpour, Si, Alors, Sinon,
                   Finsi, Comp, Non, Ou, Et, Introduction, Animation_Generale,
                   Animation_Globale, Animation_Locale, Fin);

    subtype T_File is Text_Io.File_Type;
    Maxstring : constant Integer := 255;

--INIT
-- initalisation de l analyseur , le nom du fichier est passe en parametre.
    procedure Init (Nomf : String);

--GET_TOKEN
-- renvoie le token courant analyse
    function Get_Token return Token;

--GET_VALUE
-- renvoie la valeur courante analysee
    function Get_Value return String;

--AT_END
-- indique si l analyse lexicale est terminee
    function At_End return Boolean;

--NEXT
-- Avance d une unite lexicale
    procedure Next;

--GET_LINE
-- renvoie la ligne courante analysee
    function Get_Line return Natural;

--GET_COLUMN
-- renvoie la position colonne de l unite lexicale analysee
    function Get_Column return Natural;

--CLOSE
-- Finir l analyse lexicale
    procedure Close;
end Lexical;
DataMuseum.dk

Rational R1000/400

⟦c24d9d694⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
