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 - metrics - download

⟦6b1b33e55⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Extensions_Support, seg_04cf73

Derivation

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

with Compilation_Interface;
with Directory;
with Remote_Command_Interface;
with Simple_Status;


package Extensions_Support is
    -- Contains reusable functions and variables that are used
    -- by the compilation and library extensions

    package Naming renames Directory.Naming;
    package Ci renames Compilation_Interface;

    function Get_View (Object : Directory.Object) return Directory.Object;
    -- Returns the view to which a given object belongs. Returns a
    -- null object if enclosing context is not a view

    function Get_View (Object_Name : String) return Directory.Object;
    -- Returns the view to which a given object belongs. Returns a
    -- null object if enclosing context is not a view

    function Get_Object (Object_Name : String) return Directory.Object;
    -- Gets the directory object corresponding to a given name

    function Trace_Flag return Boolean;


    procedure Add_Remote_Imports
                 (Imported_Views : in out Directory.Naming.Iterator;
                  To_View : Directory.Object;
                  Remote_Connection : Remote_Command_Interface.Context;
                  Status : in out Simple_Status.Condition;
                  Trace_Command : Boolean);
    -- Adds each view in Imported_Views as an import for To_View on the remote
    -- machine specified by Remote_Connection.  Also adds as imports of To_View
    -- the views that are imported by each of the Imported_Views.


    procedure Remove_Remote_Imports
                 (View_To_Remove : Directory.Object;
                  From_View : Directory.Object;
                  Remote_Connection : Remote_Command_Interface.Context;
                  Status : in out Simple_Status.Condition;
                  Trace_Command : Boolean);
    -- Removes View_To_Remove as a remote import of From_View on the remote
    -- machine specified by Remote_Connection.  Also removes as imports of
    -- From_View the views that are imported by View_To_Remove which are not
    -- otherwise needed by From_View.  Removes the same views, if they are not
    -- still needed, from each referencer of From_View.


    procedure Create_Remote_Directory (Remote_Directory : String;
                                       Remote_Machine : String;
                                       Status : in out Simple_Status.Condition;
                                       Trace_Command : Boolean := False);


    procedure Destroy_Remote_Library (For_View : Directory.Object;
                                      Remote_Directory : String;
                                      Remote_Machine : String;
                                      Status : in out Simple_Status.Condition;
                                      Trace_Command : Boolean := False);


    procedure Set_Status (Message : String;
                          Status : in out Simple_Status.Condition;
                          Severity : Simple_Status.Condition_Class :=
                             Simple_Status.Problem;
                          Error_Type : String := "Library_Extensions Error");


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


end Extensions_Support;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1e rec1=00 rec2=01 rec3=034
        [0x01] rec0=12 rec1=00 rec2=02 rec3=036
        [0x02] rec0=14 rec1=00 rec2=03 rec3=058
        [0x03] rec0=0a rec1=00 rec2=04 rec3=000
    tail 0x215497d5687503ef7ebf1 0x42a00088462060003