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

⟦1f601fb7a⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Answers_Array, seg_055416

Derivation

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

with Answers_Array;
with Byte_Defs;
with B_Constant;
with Liste_Parametre;
with Parametre;
with Parametre_Defs;
with Bounded_String;
with Text_Io;
with Utils;

procedure Test_Answers_Array is

    Liste_1, Liste_2, Liste_3 : Liste_Parametre.List;
    Id1, Id2, Id3 : Parametre_Defs.Identificator;
    Iterat : Liste_Parametre.Iterator;
begin

    Liste_1 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("coucou1", B_Constant.Parametre_Max_Size),
           Liste_1);
    Liste_1 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("cucupopo", B_Constant.Parametre_Max_Size),
           Liste_1);
    Liste_1 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("barbapapa", B_Constant.Parametre_Max_Size),
           Liste_1);
    Id1 := Parametre_Defs.Identificator
              ((Utils.String_To_Byte_String ("desti1")));

    Liste_2 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("coucou2", B_Constant.Parametre_Max_Size),
           Liste_2);
    Liste_2 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("cucupopo2", B_Constant.Parametre_Max_Size),
           Liste_2);
    Liste_2 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("barbapapa2", B_Constant.Parametre_Max_Size),
           Liste_2);
    Id2 := Parametre_Defs.Identificator
              ((Utils.String_To_Byte_String ("desti2")));
    Liste_3 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("coucou3", B_Constant.Parametre_Max_Size),
           Liste_3);
    Liste_3 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("cucupopo3", B_Constant.Parametre_Max_Size),
           Liste_3);
    Liste_3 :=
       Liste_Parametre.Make
          (Bounded_String.Value ("barbapapa3", B_Constant.Parametre_Max_Size),
           Liste_3);
    Id3 := Parametre_Defs.Identificator
              ((Utils.String_To_Byte_String ("desti3")));

    Answers_Array.Put (1, Id1);
    Answers_Array.Put (2, Liste_2);
    Answers_Array.Put (3, Id2, Liste_3);
    if Answers_Array.Is_Arrived (1) then
        Text_Io.Put_Line ("objet 1 ok");
    end if;
    if Answers_Array.Is_Arrived (2) then
        Text_Io.Put_Line ("objet 2 ok");
    end if;
    if Answers_Array.Is_Arrived (3) then
        Text_Io.Put_Line ("objet 3 ok");
    end if;
    Answers_Array.Get (1, Id2);
    Text_Io.Put_Line (Utils.Byte_String_To_String
                         (Byte_Defs.Byte_String (Id2)));
    Answers_Array.Get (2, Liste_1);
    Liste_Parametre.Init (Iterat, Liste_1);
    Text_Io.Put_Line ("affichage liste");
    while (Liste_Parametre.Done (Iterat) /= True) loop
        Text_Io.Put_Line (Bounded_String.Image
                             (Liste_Parametre.Value (Iterat)));
        Liste_Parametre.Next (Iterat);
    end loop;

    Answers_Array.Get (3, Id1, Liste_1);
    Liste_Parametre.Init (Iterat, Liste_1);
    Text_Io.Put_Line (Utils.Byte_String_To_String
                         (Byte_Defs.Byte_String (Id1)));
    Text_Io.Put_Line ("affichage liste");
    while (Liste_Parametre.Done (Iterat) /= True) loop
        Text_Io.Put_Line (Bounded_String.Image
                             (Liste_Parametre.Value (Iterat)));
        Liste_Parametre.Next (Iterat);
    end loop;
    Answers_Array.Dispose;
end Test_Answers_Array;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=24 rec1=00 rec2=01 rec3=04c
        [0x01] rec0=00 rec1=00 rec2=02 rec3=02c
        [0x02] rec0=1b rec1=00 rec2=04 rec3=026
        [0x03] rec0=1a rec1=00 rec2=03 rec3=036
        [0x04] rec0=0a rec1=00 rec2=05 rec3=000
    tail 0x2175f340687bc8a83877a 0x42a00088462060003