DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦12a317729⟧ TextFile

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

Derivation

└─⟦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;