|
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 - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Messages, seg_0557a3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Byte_Defs;
with Bounded_String;
with Std_Types;
use Std_Types;
package Messages is
package Bs renames Bounded_String;
type Obj_Msg is private;
function Create (Typ : Type_Message;
Msg : V_Content;
Source : Natural;
Target : Natural;
Order : Natural) return Obj_Msg;
function Image (Obj : Obj_Msg) return V_Packet;
procedure Packaging (Typ : Type_Message;
Content : V_Content := V_Null;
Source : Natural := 0;
Target : Natural := 0;
Order : Natural := 0;
Pack : in out V_Packet);
procedure Unpackaging (Msg : Byte_Defs.Byte_String;
Nb : Positive;
Record_Msg : in out Obj_Msg);
function Get_Type_Msg (From : String) return Type_Message;
function Get_Type_Str_Msg (From : String) return String;
function Get_Source_Id (From : String) return Natural;
function Get_Target_Id (From : String) return Natural;
function Get_Order_Msg (From : String) return Natural;
function Get_Client_Socket (From : Byte_Defs.Byte_String) return T_Socket;
function Get_Client_Host (From : Byte_Defs.Byte_String) return T_Host_Id;
function Get_Content_Msg (From : String) return String;
procedure Watch_Pack (V_Str : V_Packet);
function Get_Type_Msg (From : Obj_Msg) return Type_Message;
function Get_Source_Id (From : Obj_Msg) return Natural;
function Get_Target_Id (From : Obj_Msg) return Natural;
function Get_Order_Msg (From : Obj_Msg) return Natural;
function Get_Client_Socket (From : Obj_Msg) return T_Socket;
function Get_Client_Host (From : Obj_Msg) return T_Host_Id;
function Get_Content (From : Obj_Msg) return V_Content;
procedure Put_Type_Msg (To : in out Obj_Msg; Item : Type_Message);
procedure Put_Source_Id (To : in out Obj_Msg; Item : Natural);
procedure Put_Target_Id (To : in out Obj_Msg; Item : Natural);
procedure Put_Order_Msg (To : in out Obj_Msg; Item : Natural);
procedure Put_Client_Socket (To : in out Obj_Msg; Item : T_Socket);
procedure Put_Client_Host (To : in out Obj_Msg; Item : T_Host_Id);
procedure Put_Content (To : in out Obj_Msg; Item : String);
private
type Obj_Msg is
record
Type_Msg : String (1 .. Dmax) := " 1";
Source_Id : String (1 .. Tmax) := " 0";
Target_Id : String (1 .. Tmax) := "999";
Msg_Order : String (1 .. Tmax) := "111";
Socket : T_Socket := Orb_Socket;
Name : T_Host_Id := Ficus;
Content : V_Content :=
V_Content (Bs.Value (S => String'(1 .. Mmax => '-'),
Max_Length => Mmax));
Packet : V_Packet := V_Packet
(Bs.Value (S => String'(1 .. Pmax => '+'),
Max_Length => Pmax));
end record;
end Messages;
nblk1=6
nid=3
hdr6=8
[0x00] rec0=22 rec1=00 rec2=01 rec3=014
[0x01] rec0=12 rec1=00 rec2=06 rec3=06a
[0x02] rec0=15 rec1=00 rec2=05 rec3=004
[0x03] rec0=05 rec1=00 rec2=04 rec3=000
[0x04] rec0=04 rec1=00 rec2=03 rec3=000
[0x05] rec0=04 rec1=00 rec2=03 rec3=000
tail 0x2175fe83687bd726c7071 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 02 00 53 80 24 20 20 20 20 20 20 20 20 20 20 ┆ S $ ┆
0x2: 0000 00 00 00 0c 80 09 74 5f 53 6f 75 72 63 65 5f 09 ┆ t_Source_ ┆