|
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: 4096 (0x1000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Communication, seg_055e01
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Bounded_String; with Byte_Defs; --with Messages; with Std_Types; with Transport; with Transport_Defs; use Std_Types; package Communication is type Object is private; package Td renames Transport_Defs; procedure Open_Connection (C : in out Object); procedure Orb_Open_Connection (C : in out Object; Local_Socket : Transport_Defs.Socket_Id); procedure Close_Connection (C : Object); procedure Send (C : in out Object; V_Msg : V_Packet := P_Null; R_Host : T_Host_Id; R_Socket : T_Socket; Try_Nb : Positive := 2; Delaymax : Duration := Duration'Last; L_Host : T_Host_Id := Ficus; L_Socket : T_Socket := Orb_Socket; Success : in out Boolean); procedure Show_Msg (Message : Byte_Defs.Byte_String; Nb : Positive); procedure Reception (Delaymax : Duration := Duration'Last; Msg : in out Byte_Defs.Byte_String; Count : out Natural; C : in out Object); function Get_Local_Host (Connection : Object) return T_Host_Id; function Get_Local_Socket (Connection : Object) return T_Socket; private type Object is record Link : Transport.Connection_Id; Local_Socket : Transport_Defs.Socket_Id (1 .. 2); Local_Host : Transport_Defs.Host_Id (1 .. 4); Remote_Socket : Transport_Defs.Socket_Id (1 .. 2); Remote_Host : Transport_Defs.Host_Id (1 .. 4); Status : Transport_Defs.Status_Code; end record; end Communication;
nblk1=3 nid=2 hdr6=4 [0x00] rec0=1d rec1=00 rec2=01 rec3=024 [0x01] rec0=15 rec1=00 rec2=03 rec3=000 [0x02] rec0=04 rec1=00 rec2=03 rec3=000 tail 0x217613acc87c07ec659f1 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 03 fc 80 05 74 5f 49 64 3b 05 00 2b 20 20 ┆ t_Id; + ┆