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

⟦a8ad9dc29⟧ Ada Source

    Length: 9216 (0x2400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Old_Bug_Report, seg_037a0b

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 Bounded_String;
with Start;

package body Old_Bug_Report is

    procedure Print (Message : String) is
    begin
        Text_Io.New_Line;
        Text_Io.Put_Line (Message);
    end Print;

    procedure Print (Message : String; Ligne : Object.Index) is
    begin
        Text_Io.New_Line;
        Text_Io.Put (Message);
        Text_Io.Put (" a la ligne");
        Text_Io.Put (Object.Index'Image (Ligne));
        Text_Io.Put_Line (".");
    end Print;

    procedure Print (Message : String;
                     Objet : Object.Tiny_String;
                     Ligne : Object.Index) is
    begin
        Text_Io.New_Line;
        Text_Io.Put (Message);
        Text_Io.Put (" `");
        Text_Io.Put (Bounded_String.Image (Objet));
        Text_Io.Put ("' de la ligne");
        Text_Io.Put (Object.Index'Image (Ligne));
        Text_Io.Put_Line (".");
    end Print;

    procedure Supervisor (The_File : String) is
    begin

        Start (File => The_File);

    exception
        when Constraint_Error =>
            Print ("Erreur imprevue : Constraint_Error a ete levee",
                   Scanner.Get_Line_Number);
        when Numeric_Error =>
            Print ("Erreur imprevue : Numeric_Error a ete levee",
                   Scanner.Get_Line_Number);
        when Program_Error =>
            Print ("Erreur imprevue : Program_Error a ete levee",
                   Scanner.Get_Line_Number);
        when Storage_Error =>
            Print ("Erreur imprevue : Storage_Error a ete levee",
                   Scanner.Get_Line_Number);
        when Tasking_Error =>
            Print ("Erreur imprevue : Tasking_Error a ete levee",
                   Scanner.Get_Line_Number);
        when Identifier_Is_Missing =>
            Print ("Erreur de syntaxe : ceci n'est pas un identifier =>",
                   Scanner.Get_Value, Scanner.Get_Line_Number);
        when Parenthesis_Is_Missing =>
            Print ("Erreur de syntaxe : il manque une parenthese fermante",
                   Scanner.Get_Line_Number);
        when Point_Is_Missing =>
            Print ("Erreur de syntaxe : il manque un point",
                   Scanner.Get_Line_Number);
        when Brace_Is_Missing =>
            Print ("Erreur de syntaxe : il manque une accolade fermante",
                   Scanner.Get_Line_Number);
        when Prendre_Is_Missing =>
            Print ("Erreur de syntaxe : le mot clef PRENDRE est attendu",
                   Scanner.Get_Line_Number);
        when Unexpected_Token =>
            Print
               ("Erreur de syntaxe : je ne comprend pas la chaine suivante =>",
                Scanner.Get_Value, Scanner.Get_Line_Number);
        when Boolean_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet booleen",
                   Scanner.Get_Line_Number);
        when Integer_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet entier",
                   Scanner.Get_Line_Number);
        when String_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet chaine",
                   Scanner.Get_Line_Number);
        when Block_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet bloc",
                   Scanner.Get_Line_Number);
        when Turtle_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet tortue",
                   Scanner.Get_Line_Number);
        when Pen_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet stylo",
                   Scanner.Get_Line_Number);
        when Window_Bad_Type =>
            Print ("Erreur d'execution : conflit de type avec un objet fenetre",
                   Scanner.Get_Line_Number);
        when Undefined_Identifier =>
            Print
               ("Erreur d'execution : une variable utilisee n'a pas ete definie",
                Scanner.Get_Line_Number);
        when Unknown_Unary_Message =>
            Print
               ("Erreur d'execution : un objet ne comprend pas un message unaire",
                Scanner.Get_Line_Number);
        when Unknown_Binary_Message =>
            Print
               ("Erreur d'execution : un objet ne comprend pas un message binaire",
                Scanner.Get_Line_Number);
        when Unknown_Keyword_Message =>
            Print
               ("Erreur d'execution : un objet ne comprend pas un message a selecteurs",
                Scanner.Get_Line_Number);
        when Mismatch_Parameters =>
            Print
               ("Erreur d'execution : les parametres passes a un bloc ne correspondent pas",
                Scanner.Get_Line_Number);
        when Full_Block_Table =>
            Print
               ("Erreur d'execution : je n'ai plus de place pour reserver des blocs",
                Scanner.Get_Line_Number);
        when Full_String_Table =>
            Print
               ("Erreur d'execution : je n'ai plus de place pour reserver des chaines",
                Scanner.Get_Line_Number);
        when Full_Turtle_Table =>
            Print
               ("Erreur d'execution : je n'ai plus de place pour reserver des tortues",
                Scanner.Get_Line_Number);
        when Full_Pen_Table =>
            Print
               ("Erreur d'execution : je n'ai plus de place pour reserver des stylos",
                Scanner.Get_Line_Number);
        when Full_Window_Table =>
            Print
               ("Erreur d'execution : je n'ai plus de place pour reserver des fenetres",
                Scanner.Get_Line_Number);
        when Divide_By_Zero =>
            Print ("Erreur d'execution : tentative de division par zero",
                   Scanner.Get_Line_Number);
        when others =>
            null;
    end Supervisor;

end Old_Bug_Report;

    nblk1=8
    nid=0
    hdr6=10
        [0x00] rec0=24 rec1=00 rec2=01 rec3=05e
        [0x01] rec0=01 rec1=00 rec2=08 rec3=008
        [0x02] rec0=17 rec1=00 rec2=06 rec3=038
        [0x03] rec0=14 rec1=00 rec2=02 rec3=020
        [0x04] rec0=13 rec1=00 rec2=04 rec3=048
        [0x05] rec0=15 rec1=00 rec2=07 rec3=010
        [0x06] rec0=17 rec1=00 rec2=03 rec3=000
        [0x07] rec0=03 rec1=00 rec2=05 rec3=001
    tail 0x217352ac284e5563c2cd2 0x42a00088462060003