⟦5d74899c5⟧

E3 Source Code



with Condition;
with Expression_Fonction;
with Nos_Chaines;
----------------------------------------------------------------------------------
--  paquetage permetant la traduction d'une suite de regle et d'instruction il gere
--  la coherence des types la visibilite des generiques >La procedure do_the permet
--  d'effectuer cette suite de regle ou d'instruction.Les procedures de creation
--  s'insere dans l'analyseur syntaxique a l'interieur des regles grammaticales
package Traduction_Scenario is
    type Selecteur_Regle_Instruction is (Type_Regle, Type_Instruction);
    type Cellule_Regle_Instruction
            (Typ : Selecteur_Regle_Instruction := Type_Instruction) is private;

    type P_Cellule_Regle_Instruction is access Cellule_Regle_Instruction;

    -- cree une nouvelle cellule de type regle
    procedure Make_Regle;

    -- cree une nouvelle cellule de type instruction
    procedure Make_Instruction;

    -- remarque le break_alors n'existe pas il est realise par la fonction add_the_new_condition

    -- debut d'un sinon
    procedure Break_Sinon;

    -- fin d'une regle
    procedure Break_Finsi;

    -- debut d'un bloc le bloc passe en parametre devient le bloc courant
    procedure Start_Bloc;

    -- fin du bloc courant
    procedure Break_End_Of_Bloc (L : in out P_Cellule_Regle_Instruction);


    -- nouvelle affectation numerique le nom du compteur affecte est passe en parametre
    procedure New_Numeric_Function (Nom : Nos_Chaines.String_Text);

    -- associe l'arbre cree avec les fonctions du paquetage expression_fonction
    procedure Add_The_New_Numeric_Function
                 (P : Expression_Fonction.T_Numeric_Function);

    -- nouvelle fonction predefinie dont le nom est passe en parametre
    procedure Name_Of_Function (Nom : Nos_Chaines.String_Text);

    -- ajoute un parametre a la fonction courante
    procedure Add_Function_Parameter
                 (P : Nos_Chaines.String_Text; Is_Text : Boolean := False);

    -- fin de la fonction
    procedure End_Of_Function;

    -- ajoute les parametre a la condition courante
    procedure Add_Condition_Parameter
                 (P : Nos_Chaines.String_Text; Is_Number : Boolean := False);

    -- fin de la condition courante lui associe un type d'evaluation et la formate
    procedure End_Condition_Parameter;

    -- associe l'arbre de condition cree avec les fonctions du paquetage condition
    procedure Add_The_New_Condition (P : Condition.T_Condition);

    -- renvoie la condition courante(permet l'ajout dans l'arbre)
    function Get_Condition return Condition.T_Expression;

    -- execute une suite de regle et instruction
    procedure Do_The (L : P_Cellule_Regle_Instruction);

private

    type Cellule_Regle_Instruction
            (Typ : Selecteur_Regle_Instruction := Type_Instruction) is
        record
            Suivant : P_Cellule_Regle_Instruction;
            case Typ is
                when Type_Regle =>
                    Si_Condition : P_Cellule_Regle_Instruction;
                    Sinon : P_Cellule_Regle_Instruction;
                    Condition_A_Realiser : Condition.T_Condition;
                when Type_Instruction =>
                    Instruction : Expression_Fonction.T_Instruction;

            end case;
        end record;



end Traduction_Scenario;
DataMuseum.dk

Rational R1000/400

⟦5d74899c5⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
