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: ┃ T V ┃

⟦6ae483679⟧ TextFile

    Length: 2135 (0x857)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧

TextFile

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;