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

⟦e679bb304⟧ Ada Source

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

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_Commande_Analyzer,
     Player_Error, Table_Of_Player_Commands;

package body Player_Commande_Syntaxe is



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


    procedure Parse is
        use Player_Commande_Analyzer, Player_Error;
    begin  
        Table_Of_Player_Commands.Initialize;
        Player_Commande_Analyzer.Get_Command;
        Player_Commande_Analyzer.Set_Kind_Of_Words;  
        case What_Kind_In_Position (1) is

            when Verbe =>
                Table_Of_Player_Commands.Set_Verb
                   (Player_Commande_Analyzer.Get_Word (1));  
                case What_Kind_In_Position (2) is
                    when Complement | Empty =>
                        Table_Of_Player_Commands.Set_First_Complement
                           (Player_Commande_Analyzer.Get_Word (2));
                        case What_Kind_In_Position (3) is
                            when Complement | Empty =>
                                Table_Of_Player_Commands.Set_Second_Complement
                                   (Player_Commande_Analyzer.Get_Word (3));
                            when others =>
                                Player_Error.Set_Type_Error (Bad_Complement2);
                                raise Player_Error.Excep_Raise;
                        end case;

                    when others =>  
                        Player_Error.Set_Type_Error (Bad_Complement1);
                        raise Player_Error.Excep_Raise;
                end case;

            when others =>
                Player_Error.Set_Type_Error (Verbe_Expected);
                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=2
    hdr6=6
        [0x00] rec0=1d rec1=00 rec2=01 rec3=054
        [0x01] rec0=16 rec1=00 rec2=03 rec3=036
        [0x02] rec0=05 rec1=00 rec2=04 rec3=000
        [0x03] rec0=07 rec1=00 rec2=04 rec3=000
    tail 0x21543123c865075d023e8 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 29 80 04 72 73 65 3b 04 00 1c 65 6e 64  ┆   )  rse;   end┆