|
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_Message, seg_05544a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Message;
with Display_Mess;
with B_Constant;
with Bounded_String;
with Parametre;
with Parametre_Defs;
with Text_Io;
with Liste_Parametre;
with Utils;
with Byte_Defs;
with Task_Io;
procedure Test_Message is
Mess : Message.Object;
Mess1 : Message.Object;
Liste_Bidon : Liste_Parametre.List;
Liste_Bidonret : Liste_Parametre.List;
Obj : Parametre.Variable_String;
Empty : Liste_Parametre.List;
Iterat : Liste_Parametre.Iterator;
E : Parametre_Defs.Identificator;
R : Parametre_Defs.Identificator;
begin
Text_Io.Put_Line ("coucou");
Obj := Bounded_String.Value ("coucou", B_Constant.Parametre_Max_Size);
Text_Io.Put_Line ("cooccouc2");
Text_Io.Put_Line (Bounded_String.Image (Obj));
Liste_Bidon :=
Liste_Parametre.Make
(Bounded_String.Value
("ghgjlkkjkjkjjkjl", B_Constant.Parametre_Max_Size), Liste_Bidon);
Liste_Bidon :=
Liste_Parametre.Make
(Bounded_String.Value ("cucupopo", B_Constant.Parametre_Max_Size),
Liste_Bidon);
Liste_Bidon :=
Liste_Parametre.Make
(Bounded_String.Value ("barbapapa", B_Constant.Parametre_Max_Size),
Liste_Bidon);
Text_Io.Put_Line ("liste_ok");
E := Parametre_Defs.Identificator
((Utils.String_To_Byte_String ("destin")));
Text_Io.Put_Line ("e ok");
R := Parametre_Defs.Identificator (Utils.String_To_Byte_String ("destou"));
Message.Create (Mess, E, R, Parametre_Defs.Message_Type'Value ("Regis"),
"999", Liste_Parametre.Nil);
Text_Io.Put_Line ("create_ok");
Display_Mess.Get_Trame (Mess);
Message.Create (Mess, E, R, Message.Get_Type (Mess),
Message.Get_Number (Mess), Message.Get_Containt (Mess));
Text_Io.Put_Line ("create_ok");
Display_Mess.Get_Trame (Mess);
Message.Set_Type (Mess, Parametre_Defs.Message_Type'Value ("reque"));
Display_Mess.Get_Trame (Mess);
-- Text_Io.Put_Line ("emetteur 123456 : " &
-- Utils.Byte_String_To_String
-- (Byte_Defs.Byte_String (Message.Get_Emet (Mess))));
-- Text_Io.Put_Line ("destinataire 567890 : " &
-- Utils.Byte_String_To_String
-- (Byte_Defs.Byte_String (Message.Get_Dest (Mess))));
-- Text_Io.Put_Line ("nombre 9999 : " & String (Message.Get_Number (Mess)));
-- Text_Io.Put_Line ("type regis : " & Parametre_Defs.Message_Type'Image
-- (Message.Get_Type (Mess)));
-- Liste_Bidonret := Message.Get_Containt (Mess);
-- Liste_Parametre.Init (Iterat, Liste_Bidonret);
-- while (Liste_Parametre.Done (Iterat) /= True) loop
-- Text_Io.Put_Line (Bounded_String.Image
-- (Liste_Parametre.Value (Iterat)));
-- Liste_Parametre.Next (Iterat);
-- Text_Io.Put_Line ("curcubitacee");
-- end loop;
Text_Io.Put_Line ("fini le test...");
Task_Io.Dispose;
end Test_Message;
nblk1=5
nid=5
hdr6=8
[0x00] rec0=24 rec1=00 rec2=01 rec3=032
[0x01] rec0=15 rec1=00 rec2=02 rec3=008
[0x02] rec0=10 rec1=00 rec2=04 rec3=03c
[0x03] rec0=05 rec1=00 rec2=03 rec3=000
[0x04] rec0=00 rec1=00 rec2=00 rec3=008
tail 0x2175f3aba87bc8f3bc38f 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 00 00 6f 80 19 6c 61 79 5f 6d 65 73 73 2e 67 ┆ o lay_mess.g┆