DataMuseum.dk

top - download

    Length: 801 (0x321)
    Types: TextFile
    Names: »B«

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

TextFile

with Erreurs;

separate (Parse)
package body Error is

    Compteur : Natural;


    procedure Reset is
    begin
        Compteur := 0;
    end Reset;


    procedure Inc is
    begin
        Compteur := Compteur + 1;
    end Inc;


    function Valeur return Natural is
    begin
        return Compteur;
    end Valeur;


    procedure Affiche (Type_Error : String) is
    begin
        Erreurs.Ajouter (Type_Error);
    end Affiche;


    procedure Affiche (Nature : in Token;
                       Regle : in out Token;
                       Type_Error : String) is
    begin
        Erreurs.Ajouter (Type_Error);
        Regle := Nature;
    end Affiche;


    function Erreurs_Generees return Boolean is
    begin
        return Erreurs.Erreurs_Generees;
    end Erreurs_Generees;

end Error;