DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦4faba7017⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Batch_Extensions, seg_01b2a0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

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;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=19 rec1=00 rec2=01 rec3=050
        [0x01] rec0=17 rec1=00 rec2=02 rec3=034
        [0x02] rec0=1a rec1=00 rec2=03 rec3=004
        [0x03] rec0=13 rec1=00 rec2=04 rec3=001
    tail 0x21517d93883637df4cd65 0x42a00088462060003