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: T V

⟦737ba57aa⟧ TextFile

    Length: 2091 (0x82b)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Directory;
with Directory_Tools;
with Io;
with Profile;  
with Simple_Status;
package Batch_Extensions_Support is

    package Dt renames Directory_Tools;

    This_Target : constant String := "rs6000_aix_ibm";

    procedure Generate_Context_Change_Command
                 (Host_File_Id : Io.File_Type;
                  Current_Object : Directory.Object;
                  Target_Key : String;
                  Status : in out Simple_Status.Condition);
    -- Generate a command to set context on the target

    function Is_Main_Program (Unit : Directory.Object) return Boolean;
    -- 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;

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


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

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

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

    procedure Unhandled_Exception
                 (Status : in out Simple_Status.Condition; Routine : String);

end Batch_Extensions_Support;