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

⟦ed25ba364⟧ Ada Source

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

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

    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 := 23;

end Transport_Defs;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=03c
        [0x01] rec0=19 rec1=00 rec2=02 rec3=03a
        [0x02] rec0=0d rec1=00 rec2=03 rec3=000
    tail 0x21759950487a05cba1f91 0x42a00088462060003