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

⟦349d9d3c7⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Library_Interface, pragma Module_Name 4 4140, seg_014154

Derivation

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

with Directory;
with Ftp_Profile;
with Profile;
with Simple_Status;

package Library_Interface is

    package Naming renames Directory.Naming;

    type String_Result (Size : Natural) is
        record
            Condition : Simple_Status.Condition;
            Result : String (1 .. Size);
        end record;
    Unimplemented : exception;


    --| LIBRARY OPERATIONS |--

    procedure Initialize (View : String := "<CURSOR>";
                          Remote_Machine : String := Ftp_Profile.Remote_Machine;
                          Remote_Directory : String :=
                             Ftp_Profile.Remote_Directory;
                          Remote_Account : String;
                          Remote_Library : String;
                          Condition : in out Simple_Status.Condition;
                          Compiler_Command : String := "<DEFAULT>";
                          Linker_Command : String := "<DEFAULT>";
                          Loader_Command : String := "<DEFAULT>";
                          Compiler_Options : String := "<DEFAULT>";
                          Linker_Options : String := "<DEFAULT>";
                          Echo_Commands : Boolean := True;
                          Response : Profile.Response_Profile := Profile.Get);

    -- Build a State_File in the specified World_Or_View, and in the process,
    -- register all existing units.
    --
    -- If Remote_Machine and Remote_Directory are defaulted, their values will
    -- be taken from the FTP switches.  Subsequent changes to the
    -- Remote_Machine, Remote_Directory or Remote_Library will cause all coded
    -- units in the host view to be demoted to installed.
    --
    -- The Remote_Directory usually refers to the directory to which units are
    -- transferred and the context in which compilation commands are executed.
    -- It is also, normally, the home directory of the remote Program Library
    -- (file or directory), options/configuration files, and compiler and
    -- linker output (errors, listings etc...).
    --
    -- If the @_Commands and @_Options parameters are defaulted, the compiler
    -- defaults will be used.  Command names may be changed in the future by
    -- calls to Set_Command_Names.  Changes to Options, on a library basis, can
    -- be made by updating the options file that is maintained in the state
    -- file directory.  Changes to Options, on a unit basis, can be made by
    -- calls to Change_X_Option.


    procedure Set_Remote_Machine
                 (View : String := "<CURSOR>";
                  Value : String;
                  Condition : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile := Profile.Get);

    -- Change the remote machine associated with the World_Or_View.
    -- This will result in all coded units being installed.


    procedure Set_Remote_Directory
                 (View : String := "<CURSOR>";
                  Value : String;
                  Condition : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile := Profile.Get);

    -- Change the remote directory associated with the World_Or_View.
    -- This will result in all coded units being installed.


    procedure Set_Remote_Library
                 (View : String := "<CURSOR>";
                  Value : String;
                  Condition : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile := Profile.Get);

    -- Change the remote library associated with the World_Or_View.
    -- This will result in all coded units being installed.


    function Remote_Machine (View : String := "<CURSOR>";
                             Response : Profile.Response_Profile := Profile.Get)
                            return String_Result;

    function Remote_Directory
                (View : String := "<CURSOR>";
                 Response : Profile.Response_Profile := Profile.Get)
                return String_Result;

    function Remote_Library (View : String := "<CURSOR>";
                             Response : Profile.Response_Profile := Profile.Get)
                            return String_Result;

    -- Return the Remote_Machine, Remote_Directory or Remote_Library for the
    -- specified World_Or_View.


    procedure Information (View : Directory.Object;
                           Units : Naming.Iterator;  
                           Condition : in out Simple_Status.Condition;
                           Response : Profile.Response_Profile := Profile.Get);

    -- Display remote information about Units in the remote Library.

    pragma Module_Name (4, 4140);
    pragma Bias_Key (32);
end Library_Interface;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1e rec1=00 rec2=01 rec3=030
        [0x01] rec0=11 rec1=00 rec2=02 rec3=02c
        [0x02] rec0=16 rec1=00 rec2=03 rec3=03e
        [0x03] rec0=19 rec1=00 rec2=04 rec3=00e
        [0x04] rec0=15 rec1=00 rec2=05 rec3=000
    tail 0x2170fbba483127dbe9bb1 0x42a00088462060003