DataMuseum.dk

top - download

    Length: 5626 (0x15fa)
    Types: TextFile
    Names: »V«

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

TextFile

with Calendar;
with Directory;
with Directory_Tools;
with Io;
with Profile;
with Simple_Status;
package Batch_Interface is
    -- Programmatic interfaces to support batch file manipulation
    -- through the customization extensions

    type Unit_Data is
        record
            Unit : Directory.Object;
            Coding_Time : Calendar.Time;
            Build_Time : Calendar.Time;
        end record;
    -- Every coded ADA unit is associated with a directory object
    -- and coding & build times

    type Data_Array is array (Natural range <>) of Unit_Data;

    type Unit_List (Size : Natural) is
        record
            Condition : Simple_Status.Condition;
            Data : Data_Array (1 .. Size);
        end record;
    -- List of directory objects.


    package Dt renames Directory_Tools;

    function Get_Build_List
                (Units_Iter : Dt.Object.Iterator;
                 Minimal_Recompilation : Boolean := True;
                 Sort_Units : Boolean := True;
                 Response : Profile.Response_Profile) return Unit_List;
    -- Computes execution closure of "units_iter" and then selects
    -- the list of units to be built.

    procedure Generate_Compile_Commands
                 (Host_File_Id : Io.File_Type;
                  Unit_Obj : Directory.Object;
                  Remote_Directory : String := "";
                  Remote_Library : String := "";
                  Target_Key : String;
                  Status : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile);
    -- Generate compilation and secondary commands for the given
    -- unit into the specified script file

    procedure Generate_Link_Commands (Host_File_Id : Io.File_Type;
                                      Unit_Obj : Directory.Object;
                                      Target_Key : String;
                                      Status : in out Simple_Status.Condition;
                                      Response : Profile.Response_Profile);
    -- Generate link commands for the given unit into the specified
    -- script file

    procedure Generate_Secondary_Commands
                 (Host_File_Id : Io.File_Type;
                  Unit_Obj : Directory.Object;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile);
    -- Generate secondary commands for the given unit into the
    -- batch script file


    procedure Generate_All_Compile_Commands
                 (Host_File_Id : Io.File_Type;
                  Build_List : Unit_List;  
                  Effort_Only : Boolean;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile);
    -- Generates compile commands depending
    -- on the command_to_generate parameter. This
    -- command also generates the necessary context change
    -- commands (cd remote dir) and pre commands (like PATH=$PATH:/usr/bin/ada)
    -- The customizer could build the functionality of this call
    -- with all the information available to them . But this call
    -- has been provided to reduce the customization code.

    procedure Generate_All_Link_Commands
                 (Host_File_Id : Io.File_Type;
                  Build_List : Unit_List;  
                  Effort_Only : Boolean;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition;
                  Response : Profile.Response_Profile);
    -- Generates either batch link commands depending
    -- on the command_to_generate parameter. This
    -- command also generates the necessary context change
    -- commands (cd remote dir) and pre commands (like PATH=$PATH:/usr/bin/ada)
    -- The customizer could build the functionality of this call
    -- with all the information available to them . But this call
    -- has been provided to reduce the customization code.

    procedure Check_Units (The_Unit_List : Unit_List;
                           Status : in out Simple_Status.Condition;
                           Response : Profile.Response_Profile);
    -- Check all the specified units to make sure that they belong
    -- to the same target key and have the same remote
    -- remote machine names associated with them. Returns
    -- an error condition otherwise.


    procedure Get_Batch_Times (Unit_Obj : Directory.Object;
                               Coding_Time : out Calendar.Time;
                               Build_Time : out Calendar.Time;
                               Status : in out Simple_Status.Condition;
                               Response : Profile.Response_Profile);
    -- Get the coding time and build times of a given ADA unit.

    procedure Set_Coding_Time (Unit_Obj : Directory.Object;
                               The_Time : Calendar.Time;
                               Status : in out Simple_Status.Condition;
                               Response : Profile.Response_Profile);
    -- Set the time when the unit was last coded under the batch mode

    procedure Set_Build_Time (Unit_Obj : Directory.Object;
                              The_Time : Calendar.Time;
                              Status : in out Simple_Status.Condition;
                              Response : Profile.Response_Profile);
    -- Set the time when the unit was last entered into a batch
    -- script . Must be called only
    -- for units that were coded in the batch mode of RCI


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

end Batch_Interface;