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

⟦8ec8cf194⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Construction_Messages, seg_041ad1

Derivation

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

E3 Source Code



package body Construction_Messages is

    procedure Ajouter_Element_Dans_Message
                 (Mess : in out Message; Elt : in Octet) is
    begin
        Mess.Nb_Elts := Mess.Nb_Elts + 1;
        Mess.Donnees (Mess.Nb_Elts) := Elt;
    end Ajouter_Element_Dans_Message;


    procedure Ajouter_Element_Dans_Message
                 (Mess : in out Message; Elt : in Tableau_Octets) is
    begin
        for I in Elt'Range loop
            Mess.Nb_Elts := Mess.Nb_Elts + 1;
            Mess.Donnees (Mess.Nb_Elts) := Elt (I);
        end loop;  
    end Ajouter_Element_Dans_Message;


    function Longueur_Code_Message (Code : in Tableau_Octets) return Octet is
    begin
        return Code'Length;
    end Longueur_Code_Message;


    function Longueur_Code_Message (Code : in Octet) return Octet is
    begin
        return 1;
    end Longueur_Code_Message;


    procedure Afficher_Tableau (Tab : in Tableau_Octets) is
        package Es_Octet is new Text_Io.Integer_Io (Octet);
    begin
        Text_Io.Put ("tableau de longueur : ");
        Es_Octet.Put (Tab'Length);
        Text_Io.New_Line (2);
        for I in Tab'Range loop
            Text_Io.Put ("Element numero : ");
            Es_Octet.Put (Item => I, Width => 5);
            Text_Io.Put ("      Donnee : ");
            Es_Octet.Put (Item => Tab (I), Width => 5);
            Es_Octet.Put (Item => Tab (I), Width => 10, Base => 16);
            Text_Io.New_Line;
        end loop;
    end Afficher_Tableau;

    function Convertir_Message_Tableau
                (Mess : in Message) return Tableau_Octets is
        Tab : Tableau_Octets (1 .. Mess.Nb_Elts);
    begin
        for I in 1 .. Mess.Nb_Elts loop
            Tab (I) := Mess.Donnees (I);
        end loop;

        return Tab;
    end Convertir_Message_Tableau;



end Construction_Messages;

E3 Meta Data

    nblk1=3
    nid=2
    hdr6=4
        [0x00] rec0=23 rec1=00 rec2=01 rec3=026
        [0x01] rec0=1d rec1=00 rec2=03 rec3=000
        [0x02] rec0=06 rec1=00 rec2=02 rec3=000
    tail 0x2153c9198862675105ec1 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 0c 80 06 73 61 67 65 73 3b 06 00 00 00  ┆      sages;    ┆