DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦f3545fc37⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Player_Error, seg_0465f6

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Text_Io;

package body Player_Error is

    Player_Error_Id : Code := None;

    procedure Set_Type_Error (Error_Id : Code) is
    begin
        Player_Error_Id := Error_Id;
    end Set_Type_Error;


    function Was_Error_Raised return Boolean is
    begin
        return Player_Error_Id = None;
    end Was_Error_Raised;


    procedure Treat is
    begin
        Text_Io.Put_Line ("votre ligne de commande ne peut etre acceptee ");
        case Player_Error_Id is
            when Bad_Word_Kind =>  
                Text_Io.Put_Line ("Mot inconnu detecte");
            when Too_Many_Words_In_Commande =>
                Text_Io.Put_Line ("Trop de mot dans la commande");
            when Bad_Complement1 =>
                Text_Io.Put_Line
                   ("Votre premier complement n'est pas dans le vocabulaire");
            when Bad_Complement2 =>
                Text_Io.Put_Line
                   ("Votre second complement n'est pas dans le vocabulaire");
            when Verbe_Expected =>
                Text_Io.Put_Line ("Votre verbe n'est pas dans le vocabulaire");
            when None =>
                Text_Io.Put_Line ("Erreur inconnue");
        end case;
        Text_Io.Put_Line
           ("Une syntaxe de commande correct est de la forme suivante :");
        Text_Io.Put_Line
           ("un verbe suivi de zero, un ou deux complements  du vocabulaire");
        Text_Io.New_Line;
    end Treat;


end Player_Error;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=06e
        [0x01] rec0=0f rec1=00 rec2=02 rec3=001
    tail 0x21543133886507724f6f1 0x42a00088462060003