|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Batch_Interface, pragma Module_Name 4 4150, seg_01b205
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Calendar;
with Directory;
with Directory_Tools;
with Io;
with Profile;
with Simple_Status;
package Batch_Interface is
-- Programmatic interfaces to support batch file manipulation
-- through the customization extensions
type Unit_Data is
record
Unit : Directory.Object;
Coding_Time : Calendar.Time;
Build_Time : Calendar.Time;
end record;
-- Every coded ADA unit is associated with a directory object
-- and coding & build times
type Data_Array is array (Natural range <>) of Unit_Data;
type Unit_List (Size : Natural) is
record
Condition : Simple_Status.Condition;
Data : Data_Array (1 .. Size);
end record;
-- List of directory objects.
package Dt renames Directory_Tools;
function Get_Build_List
(Units_Iter : Dt.Object.Iterator;
Minimal_Recompilation : Boolean := True;
Sort_Units : Boolean := True;
Response : Profile.Response_Profile) return Unit_List;
-- Computes execution closure of "units_iter" and then selects
-- the list of units to be built.
procedure Generate_Compile_Commands
(Host_File_Id : Io.File_Type;
Unit_Obj : Directory.Object;
Remote_Directory : String := "";
Remote_Library : String := "";
Target_Key : String;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Generate compilation and secondary commands for the given
-- unit into the specified script file
procedure Generate_Link_Commands (Host_File_Id : Io.File_Type;
Unit_Obj : Directory.Object;
Target_Key : String;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Generate link commands for the given unit into the specified
-- script file
procedure Generate_Secondary_Commands
(Host_File_Id : Io.File_Type;
Unit_Obj : Directory.Object;
Target_Key : String;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Generate secondary commands for the given unit into the
-- batch script file
procedure Generate_All_Compile_Commands
(Host_File_Id : Io.File_Type;
Build_List : Unit_List;
Effort_Only : Boolean;
Target_Key : String;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Generates compile commands depending
-- on the command_to_generate parameter. This
-- command also generates the necessary context change
-- commands (cd remote dir) and pre commands (like PATH=$PATH:/usr/bin/ada)
-- The customizer could build the functionality of this call
-- with all the information available to them . But this call
-- has been provided to reduce the customization code.
procedure Generate_All_Link_Commands
(Host_File_Id : Io.File_Type;
Build_List : Unit_List;
Effort_Only : Boolean;
Target_Key : String;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Generates either batch link commands depending
-- on the command_to_generate parameter. This
-- command also generates the necessary context change
-- commands (cd remote dir) and pre commands (like PATH=$PATH:/usr/bin/ada)
-- The customizer could build the functionality of this call
-- with all the information available to them . But this call
-- has been provided to reduce the customization code.
procedure Check_Units (The_Unit_List : Unit_List;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Check all the specified units to make sure that they belong
-- to the same target key and have the same remote
-- remote machine names associated with them. Returns
-- an error condition otherwise.
procedure Get_Batch_Times (Unit_Obj : Directory.Object;
Coding_Time : out Calendar.Time;
Build_Time : out Calendar.Time;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Get the coding time and build times of a given ADA unit.
procedure Set_Coding_Time (Unit_Obj : Directory.Object;
The_Time : Calendar.Time;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Set the time when the unit was last coded under the batch mode
procedure Set_Build_Time (Unit_Obj : Directory.Object;
The_Time : Calendar.Time;
Status : in out Simple_Status.Condition;
Response : Profile.Response_Profile);
-- Set the time when the unit was last entered into a batch
-- script . Must be called only
-- for units that were coded in the batch mode of RCI
pragma Module_Name (4, 4150);
pragma Bias_Key (32);
end Batch_Interface;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=23 rec1=00 rec2=01 rec3=070
[0x01] rec0=14 rec1=00 rec2=02 rec3=078
[0x02] rec0=17 rec1=00 rec2=03 rec3=044
[0x03] rec0=12 rec1=00 rec2=04 rec3=080
[0x04] rec0=14 rec1=00 rec2=05 rec3=06c
[0x05] rec0=13 rec1=00 rec2=06 rec3=000
tail 0x217189e3883637af8f5a8 0x42a00088462060003