DataMuseum.dk

top - download

    Length: 5617 (0x15f1)
    Types: TextFile
    Names: »V«

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

TextFile

with Directory;
with Simple_Status;

package Library_Extensions is
    -- Contains procedures that are to be invoked as library extensions
    -- by the RCI.

    procedure Make_Path_Preprocess (Host_Path_Name : String;
                                    Remote_Machine : String;
                                    Remote_Directory : String;
                                    Remote_Program_Library : String;
                                    Status : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.MAKE_PATH before it has invoked
    -- CMVC.MAKE_PATH. This is not used by the current
    -- customization.


    procedure Make_Path_Postprocess (Host_Path_Name : String;
                                     Remote_Machine : String;
                                     Remote_Directory : String;
                                     Remote_Program_Library : String;
                                     Status : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.MAKE_PATH after it has invoked
    -- CMVC.MAKE_PATH. This customization uses this extension to build
    -- the remote directory and remote program library.


    procedure Destroy_View_Preprocess (Host_Path_Name : String;  
                                       Status : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.DESTROY_VIEW before invoking
    -- CMVC.DESTROY_VIEW.  Used by this customization to delete the
    -- remote program library and directory.


    procedure Destroy_View_Postprocess
                 (Host_Path_Name :        String;  
                  Status         : in out Simple_Status.Condition);
    -- Not invoked by the RCI.


    procedure Import_Preprocess (Views_To_Import : Directory.Naming.Iterator;
                                 Into_View : String;
                                 Status : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.IMPORT before invoking CMVC.IMPORT.
    -- Not used by this customization.


    procedure Import_Postprocess (Views_To_Import : Directory.Naming.Iterator;
                                  Into_View : String;
                                  Status : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.IMPORT after invoking CMVC.IMPORT.
    -- Not used by this customization.


    procedure Remove_Import_Preprocess
                 (View_To_Remove :        Directory.Object;
                  From_View      :        String;
                  Status         : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.REMOVE_IMPORT before it calls
    -- CMVC.REMOVE_IMPORT.  Not used by this customization.


    procedure Remove_Import_Postprocess
                 (View_To_Remove :        Directory.Object;
                  From_View      :        String;
                  Status         : in out Simple_Status.Condition);
    -- Called by RCF_CMVC.REMOVE_IMPORT after it calls
    -- CMVC.REMOVE_IMPORT.  Used by this customization to
    -- remove links to the previously imported views from its
    -- "Links_Table".


    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);
    -- Called by RCF_CMVC.RELEASE before it calls CMVC.RELEASE.
    -- Not used by the current customization.


    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);
    -- Called by RCF_CMVC.RELEASE after it calls CMVC.RELEASE.
    -- Not used by the current customization.


    procedure Link_Preprocess (Main_Unit : String;
                               Executable_Name : String;
                               Status : in out Simple_Status.Condition);
    -- Called by RCF.LINK before it calls RCF_COMPILATION.LINK.
    -- Used by the current customization to perform
    -- linking on the remote machine.


    procedure Link_Postprocess (Main_Unit : String;
                                Executable_Name : String;
                                Status : in out Simple_Status.Condition);
    -- Called by RCF.LINK after it calls RCF_COMPILATION.LINK.
    -- Not used by the current customization.


    procedure Download_File (Host_File_Name   :        String;
                             Target_File_Name :        String;
                             Remote_Directory :        String;
                             Remote_Machine   :        String;
                             Status           : in out Simple_Status.Condition);
    -- Downloads the specified host file to the target.  Has been provided
    -- for convenience.  Not used by the current customization.


    procedure Upload_File (Host_File_Name   :        String;
                           Target_File_Name :        String;
                           Remote_Directory :        String;
                           Remote_Machine   :        String;
                           Status           : in out Simple_Status.Condition);
    -- Uploads the specified host file from the target.  Has been provided
    -- for convenience.  Not used by the current customization.


end Library_Extensions;