|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1003 (0x3eb)
Types: TextFile
Names: »V«
└─⟦25882cbde⟧ Bits:30000536 8mm tape, Rational 1000, RCI_RS6000_AIX_IBM 2_0_2
└─ ⟦b8efda8ac⟧ »DATA«
└─⟦7061b4ee8⟧
└─⟦this⟧
with Compilation_Interface;
with Directory;
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 Compute_Reference_Closure
(For_View : Directory.Object) return Ci.Unit_List;
-- Compute the compilation prerequisites for the given ADA unit
end Extensions_Support;