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

⟦3ad986399⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_00c52e

Derivation

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

WITH Rpc;
WITH Transport;
WITH Transport_Stream;

PACKAGE Rpc_Server IS

   PROCEDURE Begin_Response (Stream : Transport_Stream.Stream_Id;
                             Id     : Rpc.Transaction_Id);

   GENERIC
      Program   : Rpc.Program_Number;
      Supported : Rpc.Version_Range := (0, Rpc.Version_Number'Last);

      WITH PROCEDURE Process_Call (Stream  : Transport_Stream.Stream_Id;
                                   Id      : Rpc.Transaction_Id;
                                   Version : Rpc.Version_Number;
                                   Proc    : Rpc.Procedure_Number) IS <>;

      -- Process one procedure call: get the arguments from
      -- the STREAM, make the call, call BEGIN_RESPONSE
      -- (STREAM, ID), and put the results into the stream.
      -- If an exception is raised, call RETURN_EXCEPTION.
      -- If an unexpected exception is raised, simply let it
      -- propagate.  The caller will catch it.  The caller
      -- will also take care of flushing the stream transmit
      -- buffer on return.

   PROCEDURE Serve (Connection : Transport.Connection_Id);

   -- Serve an incoming RPC connection: Allocate a transport
   -- stream.  Check the incoming package and version.  If
   -- they don't match, transmit an exception.  If they
   -- match, process calls until the connection is
   -- disconnected.  On each call, catch any propagated
   -- exceptions and transmit them, and flush the transmit
   -- buffer.  When the connection is disconnected, or a
   -- protocol error occurs, deallocate the transport stream
   -- and return.


   PROCEDURE Return_Exception (Stream : Transport_Stream.Stream_Id;
                               Id     : Rpc.Transaction_Id;
                               Excep  : Rpc.Exception_Number);

   -- Like Begin_Response (above) except that it returns an exception.
   -- The server must NOT return any data following the exception.



   -- Serve an incoming RPC connection: Allocate a transport
   -- stream.  Check the incoming package and version.  If
   -- they don't match, transmit an exception.  If they
   -- match, process calls until the connection is
   -- disconnected.  On each call, catch any propagated
   -- exceptions and transmit them, and flush the transmit
   -- buffer.  When the connection is disconnected, or a
   -- protocol error occurs, deallocate the transport stream
   -- and return.

END Rpc_Server;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1a rec1=00 rec2=01 rec3=01e
        [0x01] rec0=00 rec1=00 rec2=04 rec3=004
        [0x02] rec0=19 rec1=00 rec2=02 rec3=02c
        [0x03] rec0=0b rec1=00 rec2=03 rec3=001
    tail 0x2170970cc82057a81788e 0x489e0066482863c01