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 ┃

⟦1eaee738a⟧ TextFile

    Length: 10275 (0x2823)
    Types: TextFile
    Names: »V«

Derivation

└─⟦5829e5ed5⟧ Bits:30000534 8mm tape, Rational 1000, RCI 2_0_5
    └─ ⟦c9a165082⟧ »DATA« 
        └─⟦c3895f76e⟧ 
            └─⟦this⟧

TextFile

with Directory;
with Directory_Tools;
with Io;
with Remote_Command_Interface;
with Simple_Status;
with Target_Dependent_Interface;
with Utilities;
generic
    --
    -- LIBRARY extensions
    --

    with procedure Make_Path_Preprocess
                      (Host_Path_Name : String;
                       For_Release : Boolean;
                       Remote_Machine : String;
                       Remote_Directory : String;
                       Remote_Program_Library : String;
                       Status : in out Simple_Status.Condition);

    with procedure Make_Path_Postprocess
                      (Host_Path_Name : String;
                       For_Release : Boolean;
                       Remote_Machine : String;
                       Remote_Directory : String;
                       Remote_Program_Library : String;
                       Status : in out Simple_Status.Condition);


    with procedure Destroy_View_Preprocess
                      (Host_Path_Name : String;  
                       Status : in out Simple_Status.Condition);

    with procedure Destroy_View_Postprocess
                      (Host_Path_Name : String;  
                       Remote_Machine : String;
                       Remote_Directory : String;
                       Status : in out Simple_Status.Condition);

    with procedure Import_Preprocess
                      (Views_To_Import : Directory.Naming.Iterator;
                       Into_View : String;
                       Status : in out Simple_Status.Condition);

    with procedure Import_Postprocess
                      (Views_To_Import : Directory.Naming.Iterator;
                       Into_View : String;
                       Status : in out Simple_Status.Condition);

    with procedure Remove_Import_Preprocess
                      (View_To_Remove : Directory.Object;
                       From_View : String;
                       Status : in out Simple_Status.Condition);

    with procedure Remove_Import_Postprocess
                      (View_To_Remove : Directory.Object;
                       From_View : String;
                       Status : in out Simple_Status.Condition);

    with 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);

    with 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);

    with procedure Link_Preprocess (Main_Unit : String;
                                    Executable_Name : String;
                                    Status : in out Simple_Status.Condition);

    with procedure Link_Postprocess (Main_Unit : String;
                                     Executable_Name : String;
                                     Status : in out Simple_Status.Condition);
    --
    -- COMPILATION extensions
    --

    with 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);

    with 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);

    with 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);

    with 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);

    with 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);

    with 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);

    with function Build_Default_Target_Name
                     (Host_Unit : Directory.Object;
                      Suffix_Type : Target_Dependent_Interface.Suffix_Type;
                      Serial_Number : Positive) return String;

    with procedure Change_Remote_Context_Preprocess
                      (Remote_Directory : String;
                       Remote_Library : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Change_Remote_Context_Postprocess
                      (Remote_Directory : String;
                       Remote_Library : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Build_Script_Preprocess
                      (Compilation_Script_File : Io.File_Type;
                       Move_Script_File : Io.File_Type;
                       Build_Via_Tape : Boolean;
                       Host_Units : Directory_Tools.Object.Iterator;
                       Link_Main_Units : Boolean;
                       Remote_Machine : String;  
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Build_Script_Postprocess
                      (Compilation_Script_File : Io.File_Type;
                       Move_Script_File : Io.File_Type;
                       Build_Via_Tape : Boolean;
                       Host_Units : Directory_Tools.Object.Iterator;
                       Link_Main_Units : Boolean;
                       Remote_Machine : String;  
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Execute_Script_Preprocess
                      (Host_Script_Unit : Directory.Object;
                       Remote_Script_File : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Execute_Script_Postprocess
                      (Host_Script_Unit : Directory.Object;
                       Remote_Script_File : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Upload_Associated_Files_Preprocess
                      (Units : Directory_Tools.Object.Iterator;
                       Remote_Machine : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Upload_Associated_Files_Postprocess
                      (Units : Directory_Tools.Object.Iterator;
                       Remote_Machine : String;
                       Remote_Connection : Remote_Command_Interface.Context;
                       Status : in out Simple_Status.Condition);

    with procedure Analyze_Pattern (Pattern : String;
                                    Command : String;
                                    Is_Status_Command : Boolean;
                                    Status : in out Simple_Status.Condition) is
       Utilities.Miscellaneous.Analyze_Pattern;
package Extensions_Generic is
    procedure Register (Target_Key_Name : String);

    pragma Module_Name (4, 4134);
    pragma Bias_Key (32);

end Extensions_Generic;