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

⟦69ad80343⟧ Ada Source

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

Derivation

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

with Personnages, Text_Io;

procedure Test_Personnage is

    Ok : Boolean;

begin
    Personnages.Create ("Georges");
    Personnages.Create ("ToTO");
    Personnages.Create ("David");
    Personnages.Create ("Alain");
    Personnages.Create ("Eric");
    Personnages.Create ("Vincent");
    Text_Io.New_Line;
    Text_Io.New_Line;

    Personnages.Set_Comment ("Georges", "commentaire");
    Personnages.Set_Comment ("ToTO", "  le frere a tutu");
    Personnages.Set_Comment ("David", "trinome No1");
    Personnages.Set_Comment ("Alain", "trinome No2");
    Personnages.Set_Comment ("Eric", "qui c'est?");
    Personnages.Set_Comment
       ("Vincent", "petit                                          vosgien");
    Text_Io.New_Line;
    Text_Io.New_Line;

    Personnages.Set_Position ("Georges", "Cuisine");
    Personnages.Set_Position ("ToTO", "Cave");
    Personnages.Set_Position ("David", "Salle_d_info");
    Personnages.Set_Position ("Alain", "espace");
    Personnages.Set_Position ("Eric", "Dehors");
    Personnages.Set_Position ("Vincent", "gerardmer");
    Text_Io.New_Line;
    Text_Io.New_Line;

    Personnages.Add_State ("Georges", "L_alsacien");
    Personnages.Add_State ("Georges", "gentil");
    Personnages.Add_State ("ToTO", "tata");
    Personnages.Add_State ("David", "chauve");
    Personnages.Add_State ("David", "fatigue");
    Personnages.Add_State ("David", "present");
    Personnages.Add_State ("Alain", "chauve");
    Personnages.Add_State ("Vincent", "petit");
    Personnages.Add_State ("Vincent", "tres petit");
    Personnages.Add_State ("Vincent", "tout petit");
    Personnages.Add_State ("Vincent", "tout petit");
    Personnages.Add_State ("Vincent", "tout tout petit");
    Personnages.Add_State ("Vincent", "encore plus petit");
    Personnages.Add_State ("Vincent", "gnome");
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("comment of georges :" &
                      Personnages.Get_Comment ("Georges"));
    Text_Io.Put_Line ("comment of alain :" & Personnages.Get_Comment ("Alain"));
    Text_Io.Put_Line ("comment of eric :" & Personnages.Get_Comment ("Eric"));
    Text_Io.Put_Line ("comment of vincent :" &
                      Personnages.Get_Comment ("Vincent"));
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("position of georges :" &
                      Personnages.Get_Position ("Georges"));
    Text_Io.Put_Line ("position of toto :" & Personnages.Get_Position ("ToTO"));
    Text_Io.Put_Line ("position of vincent :" &
                      Personnages.Get_Position ("Vincent"));
    Text_Io.New_Line;
    Text_Io.New_Line;

    if Personnages.Exists ("Georges") then
        Text_Io.Put_Line ("georges exist");
    end if;
    if Personnages.Exists ("ToTO") then
        Text_Io.Put_Line ("toto exist");
    end if;
    if Personnages.Exists ("Vincent") then
        Text_Io.Put_Line ("vincent exist");
    end if;
    Text_Io.New_Line;
    Text_Io.New_Line;

    if Personnages.In_State ("Georges", "L_alsacien") then
        Text_Io.Put_Line ("georges est alsacien");
    end if;
    if Personnages.In_State ("ToTO", "pas dans cet etat") then
        Text_Io.Put_Line ("toto ne devrait pas etre dans cet etat");
    end if;
    if Personnages.In_State ("ToTO", "tata") then
        Text_Io.Put_Line ("toto est tata");
    end if;
    if Personnages.In_State ("Vincent", "petit") then
        Text_Io.Put_Line ("vincent est petit");
    end if;
    Text_Io.New_Line;
    Text_Io.New_Line;

    Personnages.Remove_State ("Vincent", "gnome");
    if not Personnages.In_State ("Vincent", "gnome") then
        Text_Io.Put_Line ("vincent n'est plus un gnome");
    end if;


end Test_Personnage;

    nblk1=6
    nid=5
    hdr6=a
        [0x00] rec0=1f rec1=00 rec2=01 rec3=050
        [0x01] rec0=18 rec1=00 rec2=06 rec3=012
        [0x02] rec0=02 rec1=00 rec2=02 rec3=034
        [0x03] rec0=1b rec1=00 rec2=03 rec3=026
        [0x04] rec0=15 rec1=00 rec2=04 rec3=000
        [0x05] rec0=15 rec1=00 rec2=04 rec3=001
    tail 0x215420b96864b7fd43e1e 0x42a00088462060003
Free Block Chain:
  0x5: 0000  00 00 00 70 00 50 20 20 20 20 54 65 78 74 5f 49  ┆   p P    Text_I┆