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

⟦07d4b8482⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure T_Link, seg_04197a

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 Set_Of_Links, Set_Of_Connections, Text_Io;

procedure T_Link is
    All_Links : Set_Of_Links.Object;
    All_Con : Set_Of_Connections.Object;
begin
    Set_Of_Links.Create (All_Links);
    Set_Of_Connections.Create (All_Con);

    Text_Io.Put_Line ("Test des liens");

    Set_Of_Links.Add_New ("Porte1", "Chambre_noire",
                          Set_Of_Links.Linked, All_Links);

    Set_Of_Links.Add_New ("Sac", "Montre", Set_Of_Links.Unlinked, All_Links);

    Set_Of_Links.Add_New ("Sac", "Pizzas_toutes_grosses",
                          Set_Of_Links.Linked, All_Links);

    Set_Of_Links.Add_New ("Sac", "Couteau_tout_rouille",
                          Set_Of_Links.Linked, All_Links);

    Set_Of_Links.Add_New ("Sac", "Xenomorphe", Set_Of_Links.Linked, All_Links);

    Set_Of_Links.List ("Sac", Set_Of_Links.Linked, All_Links);

    Set_Of_Links.Exchange ("Sac", "Couteau_tout_rouille", "Montre", All_Links);

    Set_Of_Links.List ("Sac", Set_Of_Links.Linked, All_Links);

    Set_Of_Links.Dump (All_Links);

    Text_Io.Put_Line (Set_Of_Links.Lock'Image
                         (Set_Of_Links.What_State
                             ("Sac", "Couteau_tout_rouille", All_Links)));

    Text_Io.Put_Line (Set_Of_Links.Lock'Image
                         (Set_Of_Links.What_State
                             ("Couteau_tout_rouille", "Sac", All_Links)));

    Text_Io.Put_Line (Boolean'Image
                         (Set_Of_Links.Exist
                             ("Sac", "Couteau_tout_rouille", All_Links)));
    Text_Io.Put_Line (Boolean'Image (Set_Of_Links.Exist ("Couteau_tout_rouille",
                                                         "Sac", All_Links)));

    Text_Io.Put_Line ("Test des connexion");

    Set_Of_Connections.Add_New ("Cuisine", "Salon", "Est",
                                Set_Of_Connections.Linked, All_Con);
    Set_Of_Connections.Add_New ("Cuisine", "Chambre", "Sud",
                                Set_Of_Connections.Linked, All_Con);
    Set_Of_Connections.Add_New ("Salon", "Cuisine", "Ouest",
                                Set_Of_Connections.Linked, All_Con);

    Set_Of_Connections.Dump (All_Con);

    Set_Of_Connections.List ("Cuisine", All_Con);

    Text_Io.Put_Line (Boolean'Image (Set_Of_Connections.Exist
                                        ("Cuisine", "Sud", All_Con)));
    Text_Io.Put_Line (Boolean'Image (Set_Of_Connections.Exist
                                        ("Cuisine", "Nord", All_Con)));

    Text_Io.Put_Line (Set_Of_Connections.What_Destination
                         ("Cuisine", "Sud", All_Con));

    Text_Io.Put_Line (Set_Of_Connections.Lock'Image
                         (Set_Of_Connections.What_State
                             ("Cuisine", "Sud", All_Con)));

    Set_Of_Connections.Modify_State ("Cuisine", "Sud",
                                     Set_Of_Connections.Unlinked, All_Con);

    Set_Of_Connections.Dump (All_Con);

    Set_Of_Links.Destroy (All_Links);
    Set_Of_Connections.Destroy (All_Con);
end T_Link;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1e rec1=00 rec2=01 rec3=03e
        [0x01] rec0=17 rec1=00 rec2=02 rec3=00e
        [0x02] rec0=17 rec1=00 rec2=03 rec3=008
        [0x03] rec0=05 rec1=00 rec2=04 rec3=000
    tail 0x2174239208626574f4228 0x42a00088462060003