|
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: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Extensions_Generic, pragma Module_Name 4 4134, seg_01b208
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Directory;
with Directory_Tools;
with Io;
with Remote_Command_Interface;
with Simple_Status;
with Target_Dependent_Interface;
with Utilities;
generic
--
-- LIBRARY extensions
--
with procedure Make_Path_Preprocess
(Host_Path_Name : String;
For_Release : Boolean;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition);
with procedure Make_Path_Postprocess
(Host_Path_Name : String;
For_Release : Boolean;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition);
with procedure Destroy_View_Preprocess
(Host_Path_Name : String;
Status : in out Simple_Status.Condition);
with procedure Destroy_View_Postprocess
(Host_Path_Name : String;
Remote_Machine : String;
Remote_Directory : String;
Status : in out Simple_Status.Condition);
with procedure Import_Preprocess
(Views_To_Import : Directory.Naming.Iterator;
Into_View : String;
Status : in out Simple_Status.Condition);
with procedure Import_Postprocess
(Views_To_Import : Directory.Naming.Iterator;
Into_View : String;
Status : in out Simple_Status.Condition);
with procedure Remove_Import_Preprocess
(View_To_Remove : Directory.Object;
From_View : String;
Status : in out Simple_Status.Condition);
with procedure Remove_Import_Postprocess
(View_To_Remove : Directory.Object;
From_View : String;
Status : in out Simple_Status.Condition);
with procedure Release_Preprocess (From_Working_View : String;
Released_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition);
with procedure Release_Postprocess
(View_To_Remove : String;
Released_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition);
with procedure Link_Preprocess (Main_Unit : String;
Executable_Name : String;
Status : in out Simple_Status.Condition);
with procedure Link_Postprocess (Main_Unit : String;
Executable_Name : String;
Status : in out Simple_Status.Condition);
--
-- COMPILATION extensions
--
with procedure Promote_Preprocess
(Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Pre_Options : String;
Post_Options : String;
Options_Separator : String;
Remote_Connection : Remote_Command_Interface.Context;
Is_Secondary : Boolean;
Status : in out Simple_Status.Condition);
with procedure Promote_Postprocess
(Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Pre_Options : String;
Post_Options : String;
Options_Separator : String;
Remote_Connection : Remote_Command_Interface.Context;
Is_Secondary : Boolean;
Status : in out Simple_Status.Condition);
with procedure Demote_Preprocess (Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Status : in out Simple_Status.Condition);
with procedure Demote_Postprocess (Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Status : in out Simple_Status.Condition);
with procedure Retrieve_Associated_Files_Preprocess
(Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Connection : Remote_Command_Interface.Context;
The_Retrieve_Condition :
Target_Dependent_Interface.Retrieve_Condition;
Phases : Target_Dependent_Interface.Phase_Map;
Status : in out Simple_Status.Condition);
with procedure Retrieve_Associated_Files_Postprocess
(Host_Unit : Directory.Object;
Remote_Unit_Name : String;
Remote_Library : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Connection : Remote_Command_Interface.Context;
The_Retrieve_Condition :
Target_Dependent_Interface.Retrieve_Condition;
Phases : Target_Dependent_Interface.Phase_Map;
Status : in out Simple_Status.Condition);
with function Build_Default_Target_Name
(Host_Unit : Directory.Object;
Suffix_Type : Target_Dependent_Interface.Suffix_Type;
Serial_Number : Positive) return String;
with procedure Change_Remote_Context_Preprocess
(Remote_Directory : String;
Remote_Library : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Change_Remote_Context_Postprocess
(Remote_Directory : String;
Remote_Library : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Build_Script_Preprocess
(Compilation_Script_File : Io.File_Type;
Move_Script_File : Io.File_Type;
Build_Via_Tape : Boolean;
Host_Units : Directory_Tools.Object.Iterator;
Link_Main_Units : Boolean;
Remote_Machine : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Build_Script_Postprocess
(Compilation_Script_File : Io.File_Type;
Move_Script_File : Io.File_Type;
Build_Via_Tape : Boolean;
Host_Units : Directory_Tools.Object.Iterator;
Link_Main_Units : Boolean;
Remote_Machine : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Execute_Script_Preprocess
(Host_Script_Unit : Directory.Object;
Remote_Script_File : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Execute_Script_Postprocess
(Host_Script_Unit : Directory.Object;
Remote_Script_File : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Upload_Associated_Files_Preprocess
(Units : Directory_Tools.Object.Iterator;
Remote_Machine : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Upload_Associated_Files_Postprocess
(Units : Directory_Tools.Object.Iterator;
Remote_Machine : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
with procedure Analyze_Pattern (Pattern : String;
Command : String;
Is_Status_Command : Boolean;
Status : in out Simple_Status.Condition) is
Utilities.Miscellaneous.Analyze_Pattern;
package Extensions_Generic is
procedure Register (Target_Key_Name : String);
pragma Module_Name (4, 4134);
pragma Bias_Key (32);
end Extensions_Generic;
nblk1=b
nid=0
hdr6=16
[0x00] rec0=20 rec1=00 rec2=01 rec3=00a
[0x01] rec0=16 rec1=00 rec2=02 rec3=03c
[0x02] rec0=14 rec1=00 rec2=03 rec3=036
[0x03] rec0=16 rec1=00 rec2=04 rec3=080
[0x04] rec0=14 rec1=00 rec2=05 rec3=046
[0x05] rec0=12 rec1=00 rec2=06 rec3=01c
[0x06] rec0=12 rec1=00 rec2=07 rec3=066
[0x07] rec0=14 rec1=00 rec2=08 rec3=052
[0x08] rec0=13 rec1=00 rec2=09 rec3=036
[0x09] rec0=13 rec1=00 rec2=0a rec3=012
[0x0a] rec0=0e rec1=00 rec2=0b rec3=000
tail 0x217189e4e83637b10d50d 0x42a00088462060003