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

⟦7e821930d⟧ Ada Source

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

Derivation

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

E3 Source Code



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;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1c rec1=00 rec2=01 rec3=06c
        [0x01] rec0=18 rec1=00 rec2=02 rec3=012
        [0x02] rec0=17 rec1=00 rec2=03 rec3=022
        [0x03] rec0=01 rec1=00 rec2=04 rec3=000
    tail 0x2171974b0836571a68761 0x42a00088462060003