DataMuseum.dk

top - download

    Length: 3557 (0xde5)
    Types: TextFile
    Names: »B«

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

TextFile

with Lex2;
with Follow;
with Token;
with Text_Io;
use Token;  
use Follow;

package body Parse1 is

    -- date de creation : 24/11/93
    -- MAJ : 1/12/93 par Olivier Martin Parse simple
    -- date de derniere MAJ : 13/12/93 par Emmanuel PRATZ Parse + recuperation
    -- en mode panic

    procedure Parse_Les_Ordres (Ok : out Boolean);
    procedure Parse_Facteur (Ok : out Boolean);
    procedure Parse_Expression (Ok : out Boolean);

    procedure Parse_Error (Ensemble : Token_Set.Set) is
    begin
        Text_Io.Put_Line ("erreur de syntaxe");
        -- Lex2.Next;
        while not Token_Set.Is_Member (Ensemble, Lex2.Get_Token) loop
            Text_Io.Put_Line ("tentative de synchronisation");
            Lex2.Next;
        end loop;

    end Parse_Error;

    procedure Parse_Variable (Ok : out Boolean) is separate;
    procedure Parse_Dans_Suite (Ok : out Boolean) is separate;
    procedure Parse_Attendre (Ok : out Boolean) is separate;
    procedure Parse_Pour (Ok : out Boolean) is separate;
    procedure Parse_Relation (Ok : out Boolean) is separate;
    procedure Parse_Condition (Ok : out Boolean) is separate;
    procedure Parse_Tant_Que (Ok : out Boolean) is separate;
    procedure Parse_Repeter (Ok : out Boolean) is separate;
    procedure Parse_Debut (Ok : out Boolean) is separate;
    procedure Parse_Activer (Ok : out Boolean) is separate;
    procedure Parse_Desactiver (Ok : out Boolean) is separate;
    procedure Parse_Changer (Ok : out Boolean) is separate;
    procedure Parse_Evoluer (Ok : out Boolean) is separate;
    procedure Parse_Affectation (Ok : out Boolean) is separate;
    procedure Parse_Groupe (Ok : out Boolean) is separate;
    procedure Parse_Facteur (Ok : out Boolean) is separate;
    procedure Parse_Terme (Ok : out Boolean) is separate;
    procedure Parse_Expression (Ok : out Boolean) is separate;
    procedure Parse_Dans (Ok : out Boolean) is separate;
    procedure Parse_Un_Parametre_Reel (Ok : out Boolean) is separate;
    procedure Parse_Autre_Parametre_Reel (Ok : out Boolean) is separate;
    procedure Parse_Parametres_Reels (Ok : out Boolean) is separate;
    procedure Parse_Appel_Effet (Ok : out Boolean) is separate;
    procedure Parse_Appel_Scene (Ok : out Boolean) is separate;
    procedure Parse_Les_Ordres (Ok : out Boolean) is separate;
    procedure Parse_Scenes (Ok : out Boolean) is separate;
    procedure Parse_Spectacle (Ok : out Boolean) is separate;
    procedure Parse_Autre_Parametre (Ok : out Boolean) is separate;
    procedure Parse_Parametres (Ok : out Boolean) is separate;
    procedure Parse_Les_Experiences (Ok : out Boolean) is separate;
    procedure Parse_Experience (Ok : out Boolean) is separate;
    procedure Parse_Stations (Ok : out Boolean) is separate;
    procedure Parse_Theatre (Ok : out Boolean) is separate;
    procedure Parse_Type_Actor (Ok : out Boolean) is separate;
    procedure Parse_Acteurs (Ok : out Boolean) is separate;
    procedure Parse_Corps_Materiel (Ok : out Boolean) is separate;
    procedure Parse_Materiel (Ok : out Boolean) is separate;
    procedure Parse_Start (Ok : out Boolean) is separate;


    procedure Parse is
        Fichier : constant String := ("bidon");
        Ok : Boolean := True;
    begin
        Lex2.Open (Fichier);  
        Init_Set;
        loop
            Lex2.Next;
            Parse_Start (Ok);
            if not Ok then
                Parse_Error (Start_Follow);
            end if;
            exit when Lex2.At_End;
        end loop;
        Lex2.Close;
    end Parse;


end Parse1;