|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Answers_Array, seg_055416
└─⟦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