DataMuseum.dk

top - download

    Length: 3264 (0xcc0)
    Types: TextFile
    Names: »B«

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

TextFile

with Text_Io;
with Les_Types;
use Les_Types;

package body Message_Error is
    Message_Commun : constant String := "manque mot c :";  
    Message_Commun2 : constant String := "     : attendu";

    procedure Affiche (Tok : Les_Types.Token) is
    begin
        Text_Io.Put_Line (" ");
        case Tok is

            when L_Acteur =>
                Text_Io.Put_Line (Message_Commun & "acteur");

            when L_Alors =>
                Text_Io.Put_Line (Message_Commun & "alors");

            when L_Collection =>
                Text_Io.Put_Line (Message_Commun & "collection");

            when L_Debut =>
                Text_Io.Put_Line (Message_Commun & "debut");

            when L_Effet =>
                Text_Io.Put_Line (Message_Commun & "effet");

            when L_Est =>
                Text_Io.Put_Line (Message_Commun & "est");

            when L_Experience =>
                Text_Io.Put_Line (Message_Commun & "experience");

            when L_Faire =>
                Text_Io.Put_Line (Message_Commun & "faire");

            when L_Fin =>
                Text_Io.Put_Line (Message_Commun & "fin");

            when L_Materiel =>
                Text_Io.Put_Line (Message_Commun & "materiel");

            when L_Que =>
                Text_Io.Put_Line (Message_Commun & "que");

            when L_Reg =>
                Text_Io.Put_Line ("un nom d'identificateur est attendu");

            when L_Representation =>
                Text_Io.Put_Line (Message_Commun & "representation");

            when L_Sinon =>
                Text_Io.Put_Line (Message_Commun & "sinon");

            when L_Spectacle =>
                Text_Io.Put_Line (Message_Commun & "spectacle");

            when L_Station =>
                Text_Io.Put_Line (Message_Commun & "station");

            when L_Theatre =>
                Text_Io.Put_Line (Message_Commun & "theatre");
            when L_Virg =>
                Text_Io.Put_Line (" , " & Message_Commun2);
            when L_Separ =>
                Text_Io.Put_Line (" ; " & Message_Commun2);
            when L_Open =>
                Text_Io.Put_Line (" ( " & Message_Commun2);
            when L_Close =>
                Text_Io.Put_Line (" ) " & Message_Commun2);
            when L_Dp =>
                Text_Io.Put_Line (" : " & Message_Commun2);



            when others =>
                null;

        end case;
    end Affiche;


    procedure Affiche (Num : Numero_Error) is
    begin
        Text_Io.Put_Line (" ");
        case Num is
            when 1 =>
                Text_Io.Put_Line ("expression arithmetique" & Message_Commun2);

            when 2 =>
                Text_Io.Put_Line ("expression boolean" & Message_Commun2);

            when 3 =>
                Text_Io.Put_Line ("instruction" & Message_Commun2);
            when 4 =>
                Text_Io.Put_Line (" type " & Message_Commun2);



            when 5 =>
                Text_Io.Put_Line (" parametres types non quivalents ");
            when 6 =>
                Text_Io.Put_Line (" non declare ");
            when 7 =>
                Text_Io.Put_Line (" division par zero ");



            when others =>
                null;

        end case;
    end Affiche;
end Message_Error;