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

⟦51865f686⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Objet, seg_0453ec

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, Objet, Order, The_Order, The_Hero, The_Place, Identifier,
     Group_Array, Moving_String, Complement_Identifier_Array;
use Text_Io, Objet;
procedure Test_Objet is

    O : Object;
    Id : Identifier.Object;
    Ia : Order.Index_Array;
    Ok : Boolean;

begin
    Complement_Identifier_Array.Put (Identifier.From_String ("courir"));
    Complement_Identifier_Array.Put (Identifier.From_String ("chambre"));
    Complement_Identifier_Array.Put (Identifier.From_String ("salon"));
    Complement_Identifier_Array.Put (Identifier.From_String ("aller"));
    Complement_Identifier_Array.Put (Identifier.From_String ("de"));
    Complement_Identifier_Array.Put (Identifier.From_String ("cuisine"));
    Complement_Identifier_Array.Put (Identifier.From_String ("nord"));
    Complement_Identifier_Array.Put (Identifier.From_String ("gaston"));
    Complement_Identifier_Array.Put (Identifier.From_String ("alfred"));
    Complement_Identifier_Array.Show;

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

    Put_Line ("the order put complement avec 5 pour 5");
    The_Order.Put_Complement (Moving_String.From_String ("cuisine"),
                              Moving_String.From_String ("aller"),
                              Moving_String.From_String ("nord"),
                              Moving_String.From_String ("de"),
                              Moving_String.From_String ("cuisine"));
    The_Order.Show;
    Ia := (1, 2, 3, 4, 5);
    The_Order.Put_Redirection (Ia);

    The_Hero.Put (Complement_Identifier_Array.Index ("gaston"));
    Put_Line ("index the hero : " & Natural'Image (The_Hero.Index));
    The_Hero.Show;

    The_Place.Put (Complement_Identifier_Array.Index ("salon"));
    Put_Line ("index the place : " & Natural'Image (The_Place.Index));
    The_Place.Show;

    Put_Line ("create real");
    Create_Real (O, Complement_Identifier_Array.Index ("alfred"));
    Show (O);
    Put_Line ("is a real : " & Boolean'Image (Is_A_Real (O)));
    Put_Line ("is a group : " & Boolean'Image (Is_A_Group (O)));
    Put_Line ("is the place : " & Boolean'Image (Is_The_Place (O)));
    Put_Line ("is the hero : " & Boolean'Image (Is_The_Hero (O)));
    Put_Line ("complement " & Natural'Image (Complement (O)) & Image (O));

    Put_Line ("create group");
    Create_Group (O, 5);
    Show (O);
    Put_Line ("is a real : " & Boolean'Image (Is_A_Real (O)));
    Put_Line ("is a group : " & Boolean'Image (Is_A_Group (O)));
    Put_Line ("is the place : " & Boolean'Image (Is_The_Place (O)));
    Put_Line ("is the hero : " & Boolean'Image (Is_The_Hero (O)));
    Put_Line ("complement " & Natural'Image (Complement (O)) & Image (O));

    Put_Line ("create place");
    Create_Place (O);
    Show (O);
    Put_Line ("is a real : " & Boolean'Image (Is_A_Real (O)));
    Put_Line ("is a group : " & Boolean'Image (Is_A_Group (O)));
    Put_Line ("is the place : " & Boolean'Image (Is_The_Place (O)));
    Put_Line ("is the hero : " & Boolean'Image (Is_The_Hero (O)));
    Put_Line ("complement " & Natural'Image (Complement (O)) & Image (O));

    Put_Line ("create hero");
    Create_Hero (O);
    Show (O);
    Put_Line ("is a real : " & Boolean'Image (Is_A_Real (O)));
    Put_Line ("is a group : " & Boolean'Image (Is_A_Group (O)));
    Put_Line ("is the place : " & Boolean'Image (Is_The_Place (O)));
    Put_Line ("is the hero : " & Boolean'Image (Is_The_Hero (O)));
    Put_Line ("complement " & Natural'Image (Complement (O)) & Image (O));

    Put_Line ("the order put complement avec 4 pour 5");
    The_Order.Put_Complement (Moving_String.From_String ("cuisine"),
                              Moving_String.From_String ("aller"),
                              Moving_String.From_String ("nord"),
                              Moving_String.From_String ("cuisine"),
                              Moving_String.From_String (""));
    Ia := (1, 2, 3, 4, 4);
    The_Order.Put_Redirection (Ia);
    The_Order.Show;

    Put_Line ("create group");
    Create_Group (O, 5);
    Show (O);
    Put_Line ("is a real : " & Boolean'Image (Is_A_Real (O)));
    Put_Line ("is a group : " & Boolean'Image (Is_A_Group (O)));
    Put_Line ("is the place : " & Boolean'Image (Is_The_Place (O)));
    Put_Line ("is the hero : " & Boolean'Image (Is_The_Hero (O)));
    Put_Line ("complement " & Natural'Image (Complement (O)) & Image (O));

end Test_Objet;

E3 Meta Data

    nblk1=7
    nid=4
    hdr6=c
        [0x00] rec0=18 rec1=00 rec2=01 rec3=008
        [0x01] rec0=14 rec1=00 rec2=07 rec3=080
        [0x02] rec0=02 rec1=00 rec2=06 rec3=010
        [0x03] rec0=17 rec1=00 rec2=03 rec3=03c
        [0x04] rec0=13 rec1=00 rec2=02 rec3=00a
        [0x05] rec0=10 rec1=00 rec2=05 rec3=000
        [0x06] rec0=10 rec1=00 rec2=05 rec3=000
    tail 0x21746ca7486497c6c1ed1 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 00 48 80 3a 20 28 22 69 6e 64 65 78 20 74  ┆   H : ("index t┆