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

⟦2035c6c96⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Complements, seg_0488dd

Derivation

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

with Complements, Text_Io;

procedure Test_Complements is
    Ok : Boolean;
    Kind_Of : Complements.Kind_Of_Complement;

    function Affiche_Kind
                (Kind_Of : Complements.Kind_Of_Complement) return String is  
    begin
        case Kind_Of is
            when Complements.Personnage =>
                return " is a  personnage";
            when Complements.Item =>
                return " is an item";
            when Complements.Room =>
                return " is a room";
            when Complements.Way =>
                return " is a way";
            when Complements.No_One =>
                return " has no type";
        end case;
    end Affiche_Kind;

begin
    Complements.Create ("Toto", Complements.Personnage);
    Complements.Create ("Lampe", Complements.Item);
    Complements.Create ("Cuisine", Complements.Room);
    Complements.Create ("manger", Complements.No_One);
    Complements.Create ("Porte", Complements.Way);
    Complements.Create ("Fred", Complements.Personnage);

    if Complements.Exists ("Toto") then
        Kind_Of := Complements.Kind_Of ("Toto");
        Text_Io.Put_Line ("Toto" & Affiche_Kind (Kind_Of));
    end if;
    if Complements.Exists ("Lampe") then
        Kind_Of := Complements.Kind_Of ("Lampe");
        Text_Io.Put_Line ("Lampe" & Affiche_Kind (Kind_Of));
    end if;
    if Complements.Exists ("Cuisine") then
        Kind_Of := Complements.Kind_Of ("Cuisine");
        Text_Io.Put_Line ("Cuisine" & Affiche_Kind (Kind_Of));
    end if;
    if Complements.Exists ("manger") then
        Kind_Of := Complements.Kind_Of ("manger");
        Text_Io.Put_Line ("manger" & Affiche_Kind (Kind_Of));
    end if;
    if Complements.Exists ("Porte") then
        Kind_Of := Complements.Kind_Of ("Porte");
        Text_Io.Put_Line ("Arthur" & Affiche_Kind (Kind_Of));
    end if;
    if Complements.Exists ("Fred") then
        Kind_Of := Complements.Kind_Of ("Fred");
        Text_Io.Put_Line ("Fred" & Affiche_Kind (Kind_Of));
    end if;
    if not Complements.Exists ("ne doit pas exister") then
        Text_Io.Put_Line ("ne doit pas exister n'est pas dans la liste");
    end if;

    Complements.Go_First;
    while not Complements.At_End loop
        Text_Io.Put_Line (Complements.Get_Current &
                          Affiche_Kind (Complements.Get_Current_Kind));
        Complements.Go_Next;
    end loop;

end Test_Complements;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1e rec1=00 rec2=01 rec3=05c
        [0x01] rec0=18 rec1=00 rec2=02 rec3=04e
        [0x02] rec0=0f rec1=00 rec2=03 rec3=000
    tail 0x21545d386865a3de78946 0x42a00088462060003