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

⟦ca66ae778⟧ Ada Source

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

Derivation

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

with Items, Text_Io;

procedure Test_Item is

    Ok : Boolean;

begin
    Items.Create ("Lampe");
    Items.Create ("sac");
    Items.Create ("table");
    Items.Create ("clef");
    Items.Create ("porte manteaux       en bois");
    Items.Create ("livre");

    Items.Set_Comment ("Lampe", "jolie lampe a petrol");
    Items.Set_Comment ("sac", "sac a dos de scout");
    Items.Set_Comment ("table", "grande table en bois massif");
    Items.Set_Comment ("clef", "clef qui ouvre toute les portes");
    Items.Set_Comment ("porte manteaux       en bois", "fragile");
    Items.Set_Comment
       ("livre",
        "livre de magie noire. Contient tous les secrets de David Copperfield (et des photos de Claudia)");

    Items.Set_Position ("Lampe", "Cuisine");
    Items.Set_Position ("sac", "Cave");
    Items.Set_Position ("table", "Salle_d_info");
    Items.Set_Position ("clef", "espace");
    Items.Set_Position ("porte manteaux       en bois", "Bureau");
    Items.Set_Position ("livre", "Donjon");

    Items.Add_State ("Lampe", "Allumee");
    Items.Add_State ("Lampe", "accrochee");
    Items.Add_State ("sac", "en_cuir");
    Items.Add_State ("sac", "vide");
    Items.Add_State ("table", "lourde");
    Items.Add_State ("table", "propre");
    Items.Add_State ("table", "noire");
    Items.Add_State ("clef", "ancienne");
    Items.Add_State ("livre", "ancien");
    Items.Add_State ("livre", "ouvert");
    Items.Add_State ("livre", "lourd");
    Items.Add_State ("livre", "en_cuir");
    Items.Add_State ("livre", "poussiereux");
    Items.Add_State ("livre", "cache");
    Items.Add_State ("livre", "latin");

    Text_Io.Put_Line ("commentaire de la Lampe       : " &
                      Items.Get_Comment ("Lampe"));
    Text_Io.Put_Line ("commentaire de la clef        : " &
                      Items.Get_Comment ("clef"));
    Text_Io.Put_Line ("commentaire du porte_manteaux : " &
                      Items.Get_Comment ("porte manteaux       en bois"));
    Text_Io.Put_Line ("commentaire du livre          : " &
                      Items.Get_Comment ("livre"));
    Text_Io.New_Line;

    Text_Io.Put_Line ("position de Lampe : " & Items.Get_Position ("Lampe"));
    Text_Io.Put_Line ("position du sac   : " & Items.Get_Position ("sac"));
    Text_Io.Put_Line ("position du livre : " & Items.Get_Position ("livre"));
    Text_Io.New_Line;

    if Items.Exists ("Lampe") then
        Text_Io.Put_Line ("Lampe exist");
    end if;
    if Items.Exists ("sac") then
        Text_Io.Put_Line ("sac exist");
    end if;
    if Items.Exists ("livre") then
        Text_Io.Put_Line ("livre exist");
    end if;
    if not Items.Exists ("pas dans la liste") then
        Text_Io.Put_Line ("un item qui n'est pas dans la liste n'existe pas");
    end if;
    Text_Io.New_Line;

    if Items.In_State ("Lampe", "Allumee") then
        Text_Io.Put_Line ("la Lampe est allumee");
    end if;
    if not Items.In_State ("sac", "en plastic") then
        Text_Io.Put_Line ("le sac n'est pas en plastic");
    end if;
    if Items.In_State ("sac", "en_cuir") then
        Text_Io.Put_Line ("le sac est en cuir");
    end if;
    if Items.In_State ("livre", "lourd") then
        Text_Io.Put_Line ("le livre est lourd");
    end if;
    Text_Io.New_Line;

    Items.Remove_State ("livre", "cache");
    if not Items.In_State ("livre", "cache") then
        Text_Io.Put_Line ("livre n'est plus cache");
    end if;

    Items.Set_Current_Item ("livre");
    Items.Go_First_State;
    while not Items.At_End_State loop
        Text_Io.Put_Line (Items.Get_Current_State);
        Items.Go_Next_State;
    end loop;

end Test_Item;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1d rec1=00 rec2=01 rec3=084
        [0x01] rec0=18 rec1=00 rec2=02 rec3=038
        [0x02] rec0=1a rec1=00 rec2=03 rec3=004
        [0x03] rec0=19 rec1=00 rec2=04 rec3=000
    tail 0x21545d3b6865a3de9e2fc 0x42a00088462060003