DataMuseum.dk

top - download

    Length: 2914 (0xb62)
    Types: TextFile
    Names: »B«

└─⟦25882cbde⟧ Bits:30000536 8mm tape, Rational 1000, RCI_RS6000_AIX_IBM 2_0_2
    └─ ⟦b8efda8ac⟧ »DATA« 
        └─⟦7061b4ee8⟧ 
            └─⟦this⟧ 

TextFile

with Batch_Interface;
with Library_Interface;
with Log;
with Directory;
with Debug_Tools;
with Target_Dependent_Interface;
with Unit_Interface;  
with Utilities;
package body Batch_Extensions_Support is

    package Bi renames Batch_Interface;
    package Du renames Utilities.Directory_Utilities;
    package Li renames Library_Interface;
    package Naming renames Directory.Naming;
    package Object_Set renames Directory.Object_Set;
    package Tdi renames Target_Dependent_Interface;
    package Ui renames Unit_Interface;


    procedure Set_Status (Status : in out Simple_Status.Condition;
                          Error_Type : String := "RCI extensions error";
                          Message : String;
                          Severity : Simple_Status.Condition_Class :=
                             Simple_Status.Problem) is
    begin
        Simple_Status.Create_Condition (Status => Status,
                                        Error_Type => Error_Type,
                                        Message => Message,
                                        Severity => Severity);
    end Set_Status;

    procedure Unhandled_Exception
                 (Status : in out Simple_Status.Condition; Routine : String) is
    begin
        Set_Status (Status => Status,  
                    Error_Type => "Unhandled Exception",
                    Message => Debug_Tools.Get_Exception_Name &
                                  " caught in " & Routine & ".");
    end Unhandled_Exception;

    procedure Generate_Context_Change_Command
                 (Host_File_Id : Io.File_Type;
                  Current_Object : Directory.Object;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition) is separate;

    function Is_Main_Program (Unit : Directory.Object)
                             return Boolean is separate;
    -- Returns true if given unit is a main program

    function Build_Compile_Command
                (Target_Key : String;
                 Current_Object : Directory.Object;
                 Response : Profile.Response_Profile) return String is separate;

    procedure Generate_Ada_Commands
                 (Host_File_Id : Io.File_Type;
                  Host_Units : Dt.Object.Iterator;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition) is separate;

    procedure Generate_Secondary_Commands
                 (Host_File_Id : Io.File_Type;
                  Host_Units : Dt.Object.Iterator;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition) is separate;

    procedure Generate_Link_Commands
                 (Compilation_Script_File : Io.File_Type;
                  Host_Units : Dt.Object.Iterator;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition) is separate;

end Batch_Extensions_Support;