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

⟦614ba4682⟧ Ada Source

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

Derivation

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

with Complements;
with Items;
with Personnages;
with Rooms;

with Syntax_Error;
with Lexical;
with Compiler_Token;
use Compiler_Token;

package body Autre_Etat is
    procedure Parse (Nom : Lexical.Our_String.Variable_String) is  
        Un_Autre_Etat : Lexical.Our_String.Variable_String;
    begin
        while (Compiler_Token.Is_First (Lexical.Get_Token,
                                        Compiler_Token.R_Autre_Etat)) loop
            Lexical.Next;     -- pour avaler la virgule L_Comma
            if Lexical.Get_Token = L_Id then
                Un_Autre_Etat := Lexical.Our_String.Value (Lexical.Get_Value);
                case Complements.Kind_Of (Lexical.Our_String.Image (Nom)) is
                    when Complements.Personnage =>
                        Personnages.Add_State
                           (Lexical.Our_String.Image (Nom),
                            Lexical.Our_String.Image (Un_Autre_Etat));
                    when Complements.Room =>
                        Rooms.Add_State (Lexical.Our_String.Image (Nom),
                                         Lexical.Our_String.Image
                                            (Un_Autre_Etat));
                    when Complements.Item =>
                        Items.Add_State (Lexical.Our_String.Image (Nom),
                                         Lexical.Our_String.Image
                                            (Un_Autre_Etat));
                    when Complements.No_One =>
                        Syntax_Error.Semantique
                           (Lexical.Our_String.Image (Nom) &
                            " n'est ni une personne, ni une piece, ni un objet");
                    when Complements.Way =>
                        Syntax_Error.Semantique
                           ("Un acces ne peut pas avoir d'etat");
                end case;  
                Lexical.Next;  
            else
                Syntax_Error.Syntaxique (R_Autre_Etat, "L_Id");
            end if;

        end loop;
    end Parse;
end Autre_Etat;

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=04c
        [0x01] rec0=12 rec1=00 rec2=04 rec3=06c
        [0x02] rec0=06 rec1=00 rec2=02 rec3=000
        [0x03] rec0=10 rec1=00 rec2=04 rec3=000
    tail 0x2174ccd5a865a405e5287 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 53 80 30 20 20 20 20 20 20 20 20 20 20  ┆   S 0          ┆