|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Rpc_Client, seg_0009d1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Rpc;
with Transport_Defs;
with Transport_Stream;
package Rpc_Client is
generic
Default_Network : Transport_Defs.Network_Name;
Default_Host : Transport_Defs.Host_Id;
Default_Socket : Transport_Defs.Socket_Id;
Default_Program : Rpc.Program_Number;
Default_Version : Rpc.Version_Number;
procedure Start_Request_Generic
(Stream : out Transport_Stream.Stream_Id;
Proc : Rpc.Procedure_Number;
Network : Transport_Defs.Network_Name := Default_Network;
Host : Transport_Defs.Host_Id := Default_Host;
Socket : Transport_Defs.Socket_Id := Default_Socket;
Program : Rpc.Program_Number := Default_Program;
Version : Rpc.Version_Number := Default_Version);
-- Allocate a stream from the pool. Transmit a call message
-- header with the given program, version, and proc values.
-- The following procedure is defunct: it is here for
-- backward-compatibility. Use the previous procedure.
generic
Pool : in out Transport_Stream.Pool_Id;
Program : Rpc.Program_Number;
Version : Rpc.Version_Number;
procedure Begin_Request_Generic (Stream : out Transport_Stream.Stream_Id;
Proc : Rpc.Procedure_Number);
-- Allocate a stream from the pool. Transmit a call message
-- header with the given program, version, and proc values.
procedure End_Request (Stream : Transport_Stream.Stream_Id);
-- Flush the transmit buffer. Get the response header.
-- If it is not OK, deallocate the stream.
procedure End_Response (Stream : Transport_Stream.Stream_Id);
-- Deallocate the stream.
generic
with procedure Raise_Exception (Excep : Rpc.Exception_Number);
procedure End_Request_With_Exception
(Stream : Transport_Stream.Stream_Id);
-- Like End_Request (above), except that it also checks
-- for a server-defined exception, and, if there is one,
-- raises it (using the Raise_Exception procedure).
generic
Default_Network : Transport_Defs.Network_Name;
Default_Host : Transport_Defs.Host_Id;
Default_Socket : Transport_Defs.Socket_Id;
Default_Program : Rpc.Program_Number;
Default_Version : Rpc.Version_Number;
Default_Username : String := "";
Default_Password : String := "";
procedure Start_Request_With_Username
(Stream : out Transport_Stream.Stream_Id;
Proc : Rpc.Procedure_Number;
Network : Transport_Defs.Network_Name := Default_Network;
Host : Transport_Defs.Host_Id := Default_Host;
Socket : Transport_Defs.Socket_Id := Default_Socket; Program : Rpc.Program_Number := Default_Program;
Version : Rpc.Version_Number := Default_Version;
Username : String := Default_Username;
Password : String := Default_Password);
-- Like Start_Request_Generic, above, with the addition of
-- support for passing a username and password to the server.
-- This is useful when the server must assume an identity in
-- the access control system of the serving machine.
-- This feature is supported only in versions 5 and higher
-- of the RPC protocol.
end Rpc_Client;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=19 rec1=00 rec2=01 rec3=062
[0x01] rec0=20 rec1=00 rec2=02 rec3=046
[0x02] rec0=17 rec1=00 rec2=03 rec3=002
[0x03] rec0=0d rec1=00 rec2=04 rec3=000
tail 0x2030018647bac64b430e1 0x42a00088462060003