DataMuseum.dk

top - download

    Length: 3355 (0xd1b)
    Types: TextFile
    Names: »V«

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;