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

⟦87d413ad0⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Player_Commande_Syntaxe, seg_048613

Derivation

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

with Player_Interface, Player_Command_Analyzer,
     Player_Error, Table_Of_Player_Commands;

package body Player_Commande_Syntaxe is

    Position_Verb : constant Positive := Player_Interface.Word_Positions'First;
    Position_Complement1 : constant Positive :=
       Player_Interface.Word_Positions'First + 1;
    Position_Complement2 : constant Positive :=
       Player_Interface.Word_Positions'First + 2;


    function What_Kind_In_Position (Position : Player_Interface.Word_Positions)
                                   return Player_Command_Analyzer.Word_Kinds is
    begin
        return Player_Command_Analyzer.Get_Word_Kind (Position);
    end What_Kind_In_Position;


    procedure Parse is
        use Player_Command_Analyzer, Player_Error;
    begin  
        Table_Of_Player_Commands.Initialize;  
        Player_Command_Analyzer.Get_Command;
        Player_Command_Analyzer.Set_Kind_Of_Words;

        case What_Kind_In_Position (Position_Verb) is

            when Verb =>
                Table_Of_Player_Commands.Set_Verb
                   (Player_Command_Analyzer.Get_Word (Position_Verb));  
                case What_Kind_In_Position (Position_Complement1) is
                    when Complement | Empty =>
                        Table_Of_Player_Commands.Set_First_Complement
                           (Player_Command_Analyzer.Get_Word
                               (Position_Complement1));
                        case What_Kind_In_Position (Position_Complement2) is
                            when Complement | Empty =>
                                Table_Of_Player_Commands.Set_Second_Complement
                                   (Player_Command_Analyzer.Get_Word
                                       (Position_Complement2));
                            when Verb =>
                                Player_Error.Set_Type_Error
                                   (Complement_Expected, Position_Complement2);
                                raise Player_Error.Excep_Raise;
                        end case;

                    when Verb =>  
                        Player_Error.Set_Type_Error
                           (Complement_Expected, Position_Complement1);
                        raise Player_Error.Excep_Raise;
                end case;

            when Complement | Empty =>
                Player_Error.Set_Type_Error (Verb_Expected, Position_Verb);
                raise Player_Error.Excep_Raise;
        end case;

    exception
        when Player_Error.Excep_Raise =>
            Player_Error.Treat;
            Parse;
    end Parse;
end Player_Commande_Syntaxe;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1c rec1=00 rec2=01 rec3=066
        [0x01] rec0=04 rec1=00 rec2=04 rec3=038
        [0x02] rec0=11 rec1=00 rec2=02 rec3=016
        [0x03] rec0=11 rec1=00 rec2=03 rec3=000
    tail 0x2154599b8865974de7cea 0x42a00088462060003