|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Extensions_Support, seg_0211d1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Calendar;
with Compilation_Interface;
with Directory;
with Io;
with Remote_Command_Interface;
with Simple_Status;
package Extensions_Support is
-- Contains reusable functions and variables that are used
-- by the Compilation and Library Extensions.
procedure Build_Libraries (View_Obj : Directory.Object;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Destroy_Library
(Host_View : Directory.Object;
Remote_Directory : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Import_Units
(Imported_Units : Compilation_Interface.Unit_List;
Into_View : Directory.Object;
Remote_Directory : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Perform_Remote_Import
(Host_View : String;
Views_To_Import : Directory.Naming.Iterator;
Remote_Machine : String;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Remove_Remote_Import
(View_To_Remove : Directory.Object;
From_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Connection : Remote_Command_Interface.Context;
Destroying_Library : Boolean;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Retrieve_Files (Main_Unit : String;
Executable_Name : String;
Enclosing_View_Name : String;
Remote_Machine : String;
Remote_Directory : String;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Set_Status (Message : String;
Status : in out Simple_Status.Condition;
Severity : Simple_Status.Condition_Class :=
Simple_Status.Problem;
Error_Type : String := "Library_Extensions Error");
procedure Unhandled_Exception (Status : in out Simple_Status.Condition;
Routine : String);
function Get_Download_Time
(Unit_Obj : Directory.Object) return Calendar.Time;
-- Get the the last download time of the given unit.
procedure Set_Download_Time (Unit_Obj : Directory.Object;
Time : Calendar.Time);
-- Set the last download time of the given unit.
function Discard_Units_From_Same_View
(Units : Compilation_Interface.Unit_List;
Host_Unit : Directory.Object)
return Compilation_Interface.Unit_List;
procedure Batch_Import_Units
(Host_File_Id : Io.File_Type;
Imported_Units : Compilation_Interface.Unit_List;
Into_View : Directory.Object;
Remote_Directory : String;
Status : in out Simple_Status.Condition;
Trace_Command : Boolean);
procedure Check_Family (View_Obj : Directory.Object;
Remote_Machine : String;
Remote_Directory : String;
Status : in out Simple_Status.Condition);
end Extensions_Support;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=1b rec1=00 rec2=01 rec3=042
[0x01] rec0=17 rec1=00 rec2=02 rec3=048
[0x02] rec0=14 rec1=00 rec2=03 rec3=058
[0x03] rec0=1b rec1=00 rec2=04 rec3=022
[0x04] rec0=0d rec1=00 rec2=05 rec3=000
tail 0x2171d57a2838d6aeea058 0x42a00088462065003