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 - metrics - download
Index: B T

⟦12b322895⟧ TextFile

    Length: 3710 (0xe7e)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Log;
with Profile;
package body Batch_Extensions is
    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) is
        Local_Status : Simple_Status.Condition;
    begin
        Log.Put_Line (Message => "Executing Build_script_Preprocess",
                      Kind => Profile.Note_Msg);
        Status := Local_Status;
    end Build_Script_Preprocess;


    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) is
        Local_Status : Simple_Status.Condition;
    begin
        Log.Put_Line (Message => "Executing Build_script_Postprocess",
                      Kind => Profile.Note_Msg);

        Status := Local_Status;
    end Build_Script_Postprocess;


    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) is
        Local_Status : Simple_Status.Condition;
    begin
        Log.Put_Line (Message => "Executing execute_script_Preprocess",
                      Kind => Profile.Note_Msg);

        Status := Local_Status;
    end Execute_Script_Preprocess;


    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) is
        Local_Status : Simple_Status.Condition;
    begin
        Log.Put_Line (Message => "Executing execute_script_Postprocess",
                      Kind => Profile.Note_Msg);
        Status := Local_Status;
    end Execute_Script_Postprocess;


    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) is
        Local_Status : Simple_Status.Condition;
    begin
        Log.Put_Line (Message => "Executing upload_associated_files_Preprocess",
                      Kind => Profile.Note_Msg);
        Status := Local_Status;
    end Upload_Associated_Files_Preprocess;


    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) is
        Local_Status : Simple_Status.Condition;
    begin  
        Log.Put_Line (Message =>
                         "Executing upload_associated_files_Postprocess",
                      Kind => Profile.Note_Msg);
        Status := Local_Status;
    end Upload_Associated_Files_Postprocess;
end Batch_Extensions;