DataMuseum.dk

top - download

    Length: 5841 (0x16d1)
    Types: TextFile
    Names: »B«

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

TextFile

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;