DataMuseum.dk

top - download

    Length: 4353 (0x1101)
    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;
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;