DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦36fa288b1⟧ TextFile

    Length: 1293 (0x50d)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

SEPARATE (Transport)
PROCEDURE Open_Client (Connection : OUT Transport.Connection_Id;
                       Status     : OUT Transport_Defs.Status_Code;
                       Network    : IN  Transport_Defs.Network_Name) IS

   New_Connect    : Connection_Id := Null_Connection_Id;
   Errno          : Unix_Base_Types.Int;
   Network_Socket : Unix_Base_Types.Int;

BEGIN


   Connection := Null_Connection_Id;
   Status     := Transport_Defs.Ok;

   Start_System_Call;

   Network_Socket :=
      Socket_System_Interface.Socket
         (Af          => Unix_Base_Types.Int (Socket_System_Interface.Af_Inet),
          Socket_Type => Socket_System_Interface.Sock_Stream,
          Protocol    => 0);

   Errno := Finish_System_Call;

   IF (Network_Socket < 0) THEN
      Status := Convert_Errno (Errno => Errno);
      RETURN;
   END IF;

   -- To reach this point, the Client has been successfully Opened
   -- We need to establish a connection_id with the correct
   -- information.

   New_Connect                         := Get;
   New_Connect.Kind                    := Client;
   New_Connect.Socket_Status           := Open;
   New_Connect.Local_Socket_Descriptor := Network_Socket;
   New_Connect.Tcp_Socket_Descriptor   := Unix_Error;

   Connection := New_Connect;

END Open_Client;