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

⟦6ea96e307⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_00b543

Derivation

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

WITH Transport_Defs;
PACKAGE Net_Info IS

   FUNCTION Test_String RETURN String;
   -- Returns a string that will be used as a test message for transmisison
   -- between the server and client.


   FUNCTION Net_Name RETURN Transport_Defs.Network_Name;
   -- Returns the network name to be used in Transport.Open calls.
   -- The will be changed by the user in the body as necessary and the body
   -- recompiled.


   FUNCTION R1000_Address RETURN Transport_Defs.Host_Id;
   -- Returns the internet address of the R1000 used for testing
   -- This address is set by the user in the package body and recompiled for
   -- each specific host.


   FUNCTION Sparc_Address RETURN Transport_Defs.Host_Id;
   -- Returns the internet address of the Sun Sparc station used for testing
   -- This address is set by the user in the package body and recompiled for
   -- each specific host.


   FUNCTION R1000_Socket RETURN Transport_Defs.Socket_Id;
   -- Returns the socket_id to be used by the R1000 Server to Open a local
   -- socket and perform a passive connect.  The passive connect binds a
   -- name to the local socket and listens for an incoming connection from a
   -- remote client.  The local socket must be a valid socket_id for the
   -- Server system.
   --
   -- This socket_id is also used by the Sparc Client as the Remote Socket
   -- for its active connection.


   FUNCTION Sparc_Socket RETURN Transport_Defs.Socket_Id;
   -- Returns the socket_id to be used by the Sparc Server to Open a local
   -- socket and perform a passive connect.  The passive connect binds a
   -- name to the local socket and listens for an incoming connection from a
   -- remote client.  The local socket must be a valid socket_id for the
   -- Server system.
   --
   -- This socket_id is also used by the R1000 Client as the Remote Socket
   -- for its active connection.



END Net_Info;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=028
        [0x01] rec0=17 rec1=00 rec2=02 rec3=000
    tail 0x215077b9481fa70e2a33c 0x489e0066482863001