DataMuseum.dk

top - download

    Length: 1513 (0x5e9)
    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 Miss_A_Point is
    begin
        Text_Io.Put_Line ("Il manque un point a la ligne " &
                          Integer'Image (Scanner.Get_Line_Number));
    end Miss_A_Point;

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

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

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

    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;