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

⟦61f664e4a⟧ Ada Source

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

Derivation

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

E3 Source Code



with Bounded_String;

package body Message is

    procedure Fill (Data : in out Data_String; Mess : in Tmessage) is
    begin
        Bounded_String.Copy (Source => To_String (Mess.Command) & " : " &
                                          Bounded_String.Image (Mess.Content),
                             Target => Data);
    end Fill;

    procedure Unfill (Data : in Data_String; Mess : in out Tmessage) is
        Intermediaire : Command_String;
    begin  
        Intermediaire :=
           Bounded_String.Extract (Source => Data,
                                   Start_Pos => 1,
                                   End_Pos => Length_Command_String);
        for Index in Command_Type'First .. Command_Type'Last loop
            if Intermediaire = To_String (Index) then
                Mess.Command := Index;
            end if;
        end loop;
        Bounded_String.Copy
           (Target => Mess.Content,
            Source => Bounded_String.Extract
                         (Source => Data,
                          Start_Pos => Length_Command_String + 4,
                          End_Pos => Bounded_String.Length (Data)));
    end Unfill;

    procedure Fill_Command (Mess : out Tmessage; Comm : in Command_Type) is
    begin
        Mess.Command := Comm;
    end Fill_Command;

    procedure Unfill_Command (Mess : in Tmessage; Comm : out Command_Type) is
    begin
        Comm := Mess.Command;
    end Unfill_Command;

    procedure Fill_Origin (Mess : out Tmessage; Orig : in Tclient_Id) is
    begin
        Mess.Origin := Orig;
    end Fill_Origin;

    procedure Unfill_Origin (Mess : in Tmessage; Orig : out Tclient_Id) is
    begin
        Orig := Mess.Origin;
    end Unfill_Origin;

    procedure Fill_Content (Mess : out Tmessage; Cont : in Content_String) is
    begin
        Mess.Content := Cont;
    end Fill_Content;

    procedure Unfill_Content (Mess : in Tmessage; Cont : out Content_String) is
    begin
        Cont := Mess.Content;
    end Unfill_Content;
end Message;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1b rec1=00 rec2=01 rec3=052
        [0x01] rec0=1f rec1=00 rec2=03 rec3=07c
        [0x02] rec0=05 rec1=00 rec2=02 rec3=000
    tail 0x2175b582287ab73bf93cc 0x42a00088462060003