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

⟦8d718a39c⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Rpc_Server, pragma Module_Name 4 2519, pragma Subsystem Network, seg_001ca5

Derivation

└─⟦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;
with Transport_Stream;

package Rpc_Server is

    pragma Subsystem (Network, Private_Part => Closed);
    pragma Module_Name (4, 2519);

    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.


    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;
                                     Username : String;
                                     Password : String) is <>;

        -- Process one procedure call: assume the identity
        -- of the given Username, 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_With_Username (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.

end Rpc_Server;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1b rec1=00 rec2=01 rec3=026
        [0x01] rec0=00 rec1=00 rec2=05 rec3=004
        [0x02] rec0=16 rec1=00 rec2=02 rec3=040
        [0x03] rec0=14 rec1=00 rec2=03 rec3=058
        [0x04] rec0=12 rec1=00 rec2=04 rec3=001
    tail 0x20100f8787da18de125ae 0x42a00088462065003