|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 9929 (0x26c9)
Types: TextFile
Names: »V«
└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
└─⟦9a14c9417⟧ »DATA«
└─⟦this⟧
with Directory;
with Remote_Command_Interface;
with Target_Dependent_Interface;
with Simple_Status;
package Compilation_Extensions is
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);
-- Called during PROMOTE before executing the remote compilation
-- command . The sequence is described below :-
-- Promote
-- Execute_compile
-- Acquire remote connection, set remote context, download files..
-- promote_preprocess
-- Execute Remote Command ...
-- promote_postprocess
--
-- The "is_secondary_flag: indicates if the given host unit is
-- a secondary referencer. If a ADA primary has several secondar y referencers
-- then this procedure is called once for each of the secondary referencers.
-- This hook provides a way for users implement remote compilation
-- themselves.
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);
-- Called during PROMOTE after execution of remote compilation
-- command . The sequence is described below :-
-- Promote
-- Execute_compile
-- Acquire remote connection, set remote context, download files..
-- promote_preprocess
-- Execute Remote Command ...
-- promote_postprocess
-- The "is_secondary_flag: indicates if the given host unit is
-- a secondary referencer. If a ADA primary has several
-- secondary referencers then this procedure is called once for
-- each of the secondary referencers.
-- This hook provides a way for users implement remote compilation
-- themselves.
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);
-- Called during DEMOTE before call to destroy associated files
-- The sequence is :-
-- demote
-- set context ...
-- demote_preprocess
-- destroy associated files..
-- demote_postprocess
-- restore context...
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);
-- Called during DEMOTE before call to destroy associated files
-- The sequence is :-
-- demote
-- set context ...
-- demote_preprocess
-- destroy associated files..
-- demote_postprocess
-- restore context...
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);
-- Called before RCF begins retrieving (after deleting any old
-- ones) the standard associated files (ie: associated files described
-- thru customization).
-- The sequence is :-
-- phase command (eg: compile,link etc.
-- destroy_and_retrieve (associated files)
-- retrieve_associated_files_preprocess
-- destroy , retrieve associated files..
-- retrieve_associated_files_postprocess
--
-- "The_retrieve_condition" indicates the status
-- of the current phase (eg: compile,link etc..). "Phases" indicates
-- the phase. This hook provides users with a means of retrieving
-- any additional associated files from the remote machine.
-- NOTE :- if "phases" denotes DEMOTION then "remote_connection"
-- has a null value.
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);
-- Called after RCF has retrieved the standard associated files
-- (ie: associated files described thru customization)
-- The sequence is :-
-- phase command (eg: compile,link etc.
-- destroy_and_retrieve (associated files)
-- retrieve_associated_files_preprocess
-- destroy , retrieve associated files..
-- retrieve_associated_files_postprocess
--
-- "The_retrieve_condition" indicates the status of the
-- current phase (eg: compile,link etc..). "Phases" indicates
-- the current phase. This hook provides users with a means of
-- retrieving any additional associated files from the remote machine.
function Build_Default_Target_Name
(Host_Unit : Directory.Object;
Suffix_Type : Target_Dependent_Interface.Suffix_Type;
Serial_Number : Positive) return String;
-- Called by RCF when it wants to set the default target name for
-- a given ADA unit.If this function returns a "" value
-- for "default_target_name" then RCF will use its own
-- procedure (driven by the customization) to build a target name.
-- The sequence is :-
-- Default_target_name
-- declare
-- default_name : constant string := build_default_target_name
-- begin
-- if default_name /= "" then
-- return default_name
-- endif
-- end
-- Proceed to build name from customization information
--
-- "Suffix_type" indicates if the given host unit is a spec,body
-- or simply a file. "Serial_number" is a unique number assigned
-- to the "host_unit" when it was added to the library. It could
-- be used in target name generation .
-- This hook provides users with a way changing the target names
-- associated with host ada names.
procedure Change_Remote_Context_Preprocess
(Remote_Directory : String;
Remote_Library : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
-- Called by RCF compilation commands before they change the remote
-- directory .
-- The sequence is :-
-- Compilation or linker command
-- execute_context_change
-- change_remote_context_preprocess
-- execute remote command to change context
-- change_remote_context_postprocess
-- with an opputunity to do something in the remote directory
-- before the context is changed.
procedure Change_Remote_Context_Postprocess
(Remote_Directory : String;
Remote_Library : String;
Remote_Connection : Remote_Command_Interface.Context;
Status : in out Simple_Status.Condition);
-- Called by RCF after it has switched to a new remote directory
-- (and library).
-- The sequence is :-
-- Compilation or linker command
-- execute_context_change
-- change_remote_context_preprocess
-- execute remote command to change context
-- change_remote_context_postprocess
-- with an opputunity to do something in the remote directory
-- before the context is changed.
-- This hook provides the user with an opputunity
-- to do something within the new context.
end Compilation_Extensions;