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

⟦38ed626a4⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Rpc_Access_Utilities, pragma Module_Name 4 3512, pragma Subsystem Os_Commands, seg_0128e8

Derivation

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

E3 Source Code



with Profile;
with Rpc;
with Transport_Defs;
with Transport_Stream;

package Rpc_Access_Utilities is

    pragma Consume_Offset (3);

    function Remote_Username
                (Host_Name : String;
                 Response  : Profile.Response_Profile := Profile.Get)
                return String;

    function Remote_Password
                (Host_Name : String;
                 Response  : Profile.Response_Profile := Profile.Get)
                return String;

    function Remote_Session (Host_Name : String;
                             Response : Profile.Response_Profile := Profile.Get)
                            return String;

    generic
        Default_Host_Name : String;
        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_Generic
                 (Stream    : out Transport_Stream.Stream_Id;
                  Proc      :     Rpc.Procedure_Number;
                  Host_Name :     String                   := Default_Host_Name;
                  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;
                  Response  :     Profile.Response_Profile := Profile.Get);

    -- Like Rpc_Client.Start_Request_with_Username, with the addition
    -- of host name resolution and Remote_Password file processing.
    -- The given Host_Name is resolved to a Network and Host_Id by
    -- Transport_Name.  If Username = "", then it is replaced by
    -- Remote_Username (Host_Name, Reponse).  If Password = "",
    -- then it is replaced by Remote_Password (Host_Name, Response).

    pragma Subsystem (Os_Commands);
    pragma Module_Name (4, 3512);

end Rpc_Access_Utilities;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=21 rec1=00 rec2=01 rec3=032
        [0x01] rec0=00 rec1=00 rec2=04 rec3=012
        [0x02] rec0=0f rec1=00 rec2=02 rec3=056
        [0x03] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x2170e58c882b08307b8fa 0x42a00088462065003