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 - metrics - download

⟦fb97b0dbf⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Transport_Defs, pragma Module_Name 4 2508, pragma Subsystem Network, seg_00649c

Derivation

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

with Byte_Defs;

package Transport_Defs is

    pragma Subsystem (Network, Private_Part => Closed);
    pragma Module_Name (4, 2508);

    type Network_Name is new String;
    -- Identifies one of the several networks to which the system
    -- may be connected, e.g.  "Milnet", "Telenet", "Bitnet", etc.

    Null_Network_Name : constant Network_Name := "";

    function Normalize (Value : Network_Name) return Network_Name;
    -- Strips leading/trailing blanks, and maps to upper case.

    function Hash (Value : Network_Name) return Natural;


    type Host_Id is new Byte_Defs.Byte_String;
    -- Identifies a machine within a network.

    Null_Host_Id : constant Host_Id (1 .. 0) := (others => 0);

    function Normalize (Value : Host_Id) return Host_Id;
    -- Strips leading 0's.

    function Hash (Value : Host_Id) return Natural;


    type Socket_Id is new Byte_Defs.Byte_String;
    -- Identifies a program within a machine.

    Null_Socket_Id : constant Socket_Id (1 .. 0) := (others => 0);

    function Normalize (Value : Socket_Id) return Socket_Id;
    -- Strips leading 0's.

    function Hash (Value : Socket_Id) return Natural;


    type Status_Code is new Integer;
    -- An encoding of the outcome of a TRANSPORT operation.

    function Image (Status : Status_Code) return String;
    -- Returns a printable string, describing the error.

    Ok                     : constant Status_Code := 0;
    No_Local_Resources     : constant Status_Code := 1;
    No_Free_Sockets        : constant Status_Code := 2;
    No_Free_Memory         : constant Status_Code := 3;
    Not_Open               : constant Status_Code := 4;
    Not_Connected          : constant Status_Code := 5;
    Too_Many_Clients       : constant Status_Code := 6;
    Timed_Out              : constant Status_Code := 7;
    No_Such_Host           : constant Status_Code := 8;
    Connection_Refused     : constant Status_Code := 9;
    Disconnected           : constant Status_Code := 10;
    Connection_Broken      : constant Status_Code := 11;
    No_Hardware            : constant Status_Code := 12;
    No_Such_Network        : constant Status_Code := 13;
    Not_Initialized        : constant Status_Code := 14;
    Not_Downloaded         : constant Status_Code := 15;
    Socket_In_Use          : constant Status_Code := 16;
    Access_Denied          : constant Status_Code := 17;
    No_Free_Connections    : constant Status_Code := 18;
    Not_Registered         : constant Status_Code := 19;
    Network_Unreachable    : constant Status_Code := 20;
    Host_Unreachable       : constant Status_Code := 21;
    Protocol_Not_Supported : constant Status_Code := 22;
    No_Such_Socket         : constant Status_Code := 30;
    No_Response            : constant Status_Code := 31;
    Data_Too_Long          : constant Status_Code := 32;

end Transport_Defs;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=23 rec1=00 rec2=01 rec3=00a
        [0x01] rec0=17 rec1=00 rec2=02 rec3=05c
        [0x02] rec0=13 rec1=00 rec2=03 rec3=000
    tail 0x21701bd2e81bf871580e1 0x42a00088462065003