DataMuseum.dk

top - download

    Length: 1517 (0x5ed)
    Types: TextFile
    Names: »B«

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Text_Io, Scanner;
package body Tiny_Error is

    procedure String_Class_Full is
    begin
        Text_Io.Put_Line ("La table des chaines de caracteres est pleine !!!");
    end String_Class_Full;

    procedure String_Large_Overflow is
    begin
        Text_Io.Put_Line ("La chaine de caractere est trop grande!!!");
    end String_Large_Overflow;

    procedure Point_Lacks is
    begin
        Text_Io.Put_Line ("Il manque un point a la ligne " &
                          Integer'Image (Scanner.Get_Line_Number));
    end Point_Lacks;

    procedure Prendre_Lacks is
    begin
        Text_Io.Put_Line ("Il manque le mot reserve 'prendre' a la ligne " &
                          Integer'Image (Scanner.Get_Line_Number));
    end Prendre_Lacks;

    procedure Ending_Parenthese_Lacks is
    begin
        Text_Io.Put_Line ("Il manque une parenthese fermante a la ligne " &
                          Integer'Image (Scanner.Get_Line_Number));
    end Ending_Parenthese_Lacks;

    procedure Ending_Accolade_Lacks is
    begin
        Text_Io.Put_Line ("Il manque une accolade fermante a la ligne " &
                          Integer'Image (Scanner.Get_Line_Number));
    end Ending_Accolade_Lacks;

    procedure Mismatch_Argument_List is
    begin
        Text_Io.Put_Line
           ("La liste des arguments du bloc ne peut pas etre compose d'identificateur et de mot cle + identificateur. Ligne: " &
            Integer'Image (Scanner.Get_Line_Number));
    end Mismatch_Argument_List;



end Tiny_Error;