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

⟦f99f3e5e7⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Communication, seg_055e01

Derivation

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