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

⟦312ce1df2⟧ Ada Source

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

Derivation

└─⟦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┆