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

⟦a6c3f8a16⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Batch_Extensions_Support, seg_01c33e

Derivation

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

E3 Source Code



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;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1d rec1=00 rec2=01 rec3=072
        [0x01] rec0=14 rec1=00 rec2=02 rec3=054
        [0x02] rec0=06 rec1=00 rec2=03 rec3=000
    tail 0x21518aa9a8365719d0f80 0x42a00088462060003