DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦9040e644c⟧ TextFile

    Length: 9929 (0x26c9)
    Types: TextFile
    Names: »V«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;