|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Library_Interface, pragma Module_Name 4 4140, seg_01b20d
└─⟦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.
function Default_Remote_Machine
(Potential_View : String;
Target_Key : String;
Response : Profile.Response_Profile := Profile.Get)
return String_Result;
-- Return remote machine name of a view that would be created with
-- the specified target key.
function Default_Remote_Directory
(Potential_View : String;
Target_Key : String;
Response : Profile.Response_Profile := Profile.Get)
return String_Result;
-- Return remote directory name of a view that would be created with
-- the specified target key.
procedure Set_Default_Machine
(Machine_Name : String;
Target_Key : String;
Location : String := "<CURSOR>";
Use_Enclosing_Source : Boolean := False;
Condition : in out Simple_Status.Condition;
Response : Profile.Response_Profile := Profile.Get);
-- Set Rci.<target_key>_default_machine in the switch file associated
-- with Location. If Use_Enclosing_Source is true,
-- then actually set the switch in the nearest enclosing library of
-- Location that contains a non-empty switch value.
--
procedure Set_Default_Roof
(Remote_Roof : String;
Target_Key : String;
Location : String := "<CURSOR>";
Use_Enclosing_Source : Boolean := False;
Condition : in out Simple_Status.Condition;
Response : Profile.Response_Profile := Profile.Get);
-- Set Rci.<target_key>_Default_Roof in the switch file associated
-- with Location. If Use_Enclosing_Source is true,
-- then actually set the switch in the nearest enclosing library of
-- Location that contains a non-empty switch value.
--
pragma Module_Name (4, 4140);
pragma Bias_Key (32);
end Library_Interface;
nblk1=7
nid=0
hdr6=e
[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=18 rec1=00 rec2=05 rec3=01e
[0x05] rec0=16 rec1=00 rec2=06 rec3=07c
[0x06] rec0=15 rec1=00 rec2=07 rec3=000
tail 0x217189e6a83637b221045 0x42a00088462060003