DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦f970afc10⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Syntax_Error, seg_04895d

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Text_Io;
with File;  
with Lexical;

package body Syntax_Error is  
    Erreurs_Syntaxiques : Integer := 0;
    Erreurs_Semantiques : Integer := 0;

    procedure Ecrire_Erreur (Une_Chaine : String) is
    begin
        Text_Io.Put_Line (Une_Chaine);
        File.Save_Error_Report (Une_Chaine);
        File.New_Line_Error_Report;
    end Ecrire_Erreur;

    procedure Syntaxique (La_Regle : Compiler_Token.Rule;
                          La_Chaine_Token : String) is
    begin  
        Erreurs_Syntaxiques := Erreurs_Syntaxiques + 1;
        Ecrire_Erreur ("******** ERREUR.  Token attendu: " &
                       La_Chaine_Token & " ***************");
        while not Compiler_Token.Is_Follow (Lexical.Get_Token, La_Regle) loop
            Lexical.Next;
        end loop;  
        Text_Io.Put_Line ("on est resynchronise");
    end Syntaxique;

    procedure Semantique (Description : String) is
    begin
        Erreurs_Semantiques := Erreurs_Semantiques + 1;
        Ecrire_Erreur ("******** ERREUR semantique.  " &
                       Description & " ***************");
    end Semantique;

    function Nb_Erreurs_Syntaxiques return Integer is
    begin
        return Erreurs_Syntaxiques;
    end Nb_Erreurs_Syntaxiques;

    function Nb_Erreurs_Semantiques return Integer is
    begin
        return Erreurs_Semantiques;
    end Nb_Erreurs_Semantiques;

end Syntax_Error;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=11 rec1=00 rec2=01 rec3=072
        [0x01] rec0=1c rec1=00 rec2=02 rec3=000
        [0x02] rec0=02 rec1=00 rec2=03 rec3=000
        [0x03] rec0=04 rec1=53 rec2=b4 rec3=642
    tail 0x2174cceac865a40afcf80 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 11 80 0b 6e 74 61 78 5f 45 72 72 6f 72  ┆      ntax_Error┆