|
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 Library_Extensions, seg_03bee7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=18 rec1=00 rec2=01 rec3=00a
[0x01] rec0=16 rec1=00 rec2=02 rec3=01e
[0x02] rec0=17 rec1=00 rec2=03 rec3=034
[0x03] rec0=14 rec1=00 rec2=04 rec3=06e
[0x04] rec0=17 rec1=00 rec2=05 rec3=022
[0x05] rec0=10 rec1=00 rec2=06 rec3=000
tail 0x21739c27e85657602eb99 0x42a00088462062803