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

⟦719b9a1c7⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Order_Array, seg_047306

Derivation

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

E3 Source Code



with Text_Io, Order_Array, Complement,
     Complement_Array, Identifier, Group_Array, Order;
use Text_Io, Order_Array;
procedure Test_Order_Array is

    Ok : Boolean;  
    Id : Identifier.Object;

begin
    Complement_Array.Put (Complement.Entity_Object,
                          Identifier.From_String ("xavier"), Ok);
    Complement_Array.Put (Complement.Entity_Object,
                          Identifier.From_String ("fred"), Ok);
    Complement_Array.Put (Complement.Animate_Object,
                          Identifier.From_String ("gedeon"), Ok);
    Complement_Array.Put (Complement.Entity_Object,
                          Identifier.From_String ("gaston"), Ok);
    Complement_Array.Put (Complement.Entity_Object,
                          Identifier.From_String ("gaston"), Ok);
    Complement_Array.Put (Complement.Entity_Object,
                          Identifier.From_String ("table"), Ok);
    Complement_Array.Put_Verb (Identifier.From_String ("courir"),
                               Identifier.From_String ("aller"), Ok);
    Complement_Array.Put_Verb (Identifier.From_String ("aller"),
                               Identifier.From_String ("aller"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("de"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("nord"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("est"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("sud"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("ouest"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("vie"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("age"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("nom"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("couleur"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("description"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("porte"), Ok);
    Complement_Array.Put_Word (Identifier.From_String ("trou"), Ok);
    Complement_Array.Put (Complement.Place_Object,
                          Identifier.From_String ("cuisine"), Ok);
    Complement_Array.Put (Complement.Place_Object,
                          Identifier.From_String ("chambre"), Ok);
    Complement_Array.Put (Complement.Place_Object,
                          Identifier.From_String ("salon"), Ok);

    Identifier.Put (Id, "salle");
    Group_Array.Put (Id, Complement_Array.Index ("chambre"), Ok);
    Group_Array.Put (Id, Complement_Array.Index ("salon"), Ok);
    Group_Array.Put (Id, Complement_Array.Index ("cuisine"), Ok);
    Group_Array.Show;

    Identifier.Put (Id, "direction");
    Group_Array.Put (Id, Complement_Array.Index ("ouest"), Ok);
    Group_Array.Put (Id, Complement_Array.Index ("est"), Ok);
    Group_Array.Put (Id, Complement_Array.Index ("nord"), Ok);
    Group_Array.Put (Id, Complement_Array.Index ("sud"), Ok);

    Group_Array.Show;

    Put_Line ("cuisine aller nord de cuisine");
    Put_Place ("cuisine");
    Put_First_Complement ("aller");
    Put_Second_Complement ("nord");
    Put_Third_Complement ("de");
    Put_Fourth_Complement ("cuisine");
    Show;

    Init;
    while not Done loop
        Put_Line (Order.Image (Value));
        Next;
    end loop;

    Put_Line ("cuisine aller direction de cuisine");
    Put_Place ("cuisine");
    Put_First_Complement ("aller");
    Put_Second_Complement ("direction");
    Put_Third_Complement ("de");
    Put_Fourth_Complement ("salle");
    Show;

    Init;
    while not Done loop
        Put_Line (Order.Image (Value));
        Next;
    end loop;

    Put_Line ("salon salle direction salle direction");
    Put_Place ("salon");
    Put_First_Complement ("salle");
    Put_Second_Complement ("direction");
    Put_Third_Complement ("salle");
    Put_Fourth_Complement ("direction");
    Show;

    Init;
    while not Done loop
        Put_Line (Order.Image (Value));
        Next;
    end loop;

end Test_Order_Array;

E3 Meta Data

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=17 rec1=00 rec2=01 rec3=078
        [0x01] rec0=02 rec1=00 rec2=06 rec3=01c
        [0x02] rec0=0e rec1=00 rec2=04 rec3=046
        [0x03] rec0=17 rec1=00 rec2=03 rec3=014
        [0x04] rec0=27 rec1=00 rec2=02 rec3=000
        [0x05] rec0=02 rec1=00 rec2=05 rec3=001
    tail 0x2174a69fc8653681fce8e 0x42a00088462060003