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

⟦7912cb409⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Error_Broadcaster, seg_037824, seg_037bb2, seg_038f44

Derivation

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

with Text_Io;
with Bounded_String;
package body Error_Broadcaster is

    procedure Identifier_Missing (I : Natural) is
    begin
        Text_Io.Put_Line (" Identifier_Missing line:" & Natural'Image (I));
    end Identifier_Missing;

    procedure Pour_Missing (I : Natural) is
    begin
        Text_Io.Put_Line ("pour_Missing line:" & Natural'Image (I));
    end Pour_Missing;

    procedure Prendre_Missing (I : Natural) is
    begin
        Text_Io.Put_Line (" prendre_Missing line:" & Natural'Image (I));
    end Prendre_Missing;

    procedure Expression_Missing (I : Natural) is
    begin
        Text_Io.Put_Line ("expression_Missing line:" & Natural'Image (I));
    end Expression_Missing;
    procedure Unexpectedtoken (I : Natural) is
    begin
        Text_Io.Put_Line ("unexpected token line:" & Natural'Image (I));
    end Unexpectedtoken;
    procedure Parenthesis_Missing (I : Natural) is
    begin
        Text_Io.Put_Line ("parenthesis_Missing line:" & Natural'Image (I));
    end Parenthesis_Missing;

    procedure Brackect_Missing (I : Natural) is
    begin
        Text_Io.Put_Line ("bracket_Missing line:" & Natural'Image (I));
    end Brackect_Missing;
    procedure Dot_Missing (I : Natural) is
    begin
        Text_Io.Put_Line ("dot missing line:" & Natural'Image (I));
    end Dot_Missing;


    procedure Unknownvariable (The_Variable : Object.Message) is
    begin
        Text_Io.Put_Line
           ("variable:" & Bounded_String.Image (The_Variable) & " inconnue");
    end Unknownvariable;
    procedure Unknown_Unarymessage (To_Object : Object.Reference;
                                    The_Message : Object.Message) is
    begin
        Text_Io.Put_Line ("message unaire" &
                          Bounded_String.Image (The_Message) &
                          "inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Unarymessage;


    procedure Unknown_Binarymessage (To_Object : Object.Reference;
                                     The_Message : Object.Message) is
    begin
        Text_Io.Put_Line ("message binaire" &
                          Bounded_String.Image (The_Message) &
                          " inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Binarymessage;

    procedure Unknown_Keywordmessage
                 (To_Object : Object.Reference; The_Message : Object.Message) is
    begin
        Text_Io.Put_Line ("message a mot cle" &
                          Bounded_String.Image (The_Message) &
                          " inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Keywordmessage;


    procedure Unknown_Unarymessage (To_Object : Object.Reference) is
    begin
        Text_Io.Put_Line ("message unaire inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Unarymessage;

    procedure Unknown_Binarymessage (To_Object : Object.Reference) is
    begin
        Text_Io.Put_Line ("message binaire inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Binarymessage;
    procedure Unknown_Keywordmessage (To_Object : Object.Reference) is
    begin
        Text_Io.Put_Line ("message a mot cle inconnu pour l'objet:" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Unknown_Keywordmessage;

    procedure Tiny_Stringoverflow (To_Object : Object.Reference;
                                   The_Message : Object.Message) is

    begin
        Text_Io.Put_Line ("depassement de longueur pour :" &
                          Object.Class_Id'Image (To_Object.Class) &
                          Integer'Image (To_Object.Identity));
    end Tiny_Stringoverflow;
    procedure Dividebyzero is
    begin
        Text_Io.Put_Line ("Division par Zero ");
    end Dividebyzero;
end Error_Broadcaster;

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=1f rec1=00 rec2=01 rec3=050
        [0x01] rec0=19 rec1=00 rec2=02 rec3=032
        [0x02] rec0=05 rec1=00 rec2=06 rec3=084
        [0x03] rec0=17 rec1=00 rec2=04 rec3=03a
        [0x04] rec0=16 rec1=00 rec2=03 rec3=014
        [0x05] rec0=08 rec1=00 rec2=05 rec3=000
    tail 0x21530c64884e49c3bc01b 0x42a00088462060003