|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package View_Support, seg_050900
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Directory;
with Simple_Status;
package View_Support is
-- Supports functions that compute a view's import closure,
-- reference closure
type Data_Array is array (Natural range <>) of Directory.Object;
type Unit_List (Size : Natural) is
record
Condition : Simple_Status.Condition;
Data : Data_Array (1 .. Size);
end record;
-- List of directory objects
function Get_Referencers
(For_View : Directory.Object; Closure : Boolean := False)
return Unit_List;
-- Return the referencers for a given view, if closure is set to true
-- return the reference closure. On errors returns a list with
-- an error condition
function Get_Imports
(For_View : Directory.Object; Closure : Boolean := False)
return Unit_List;
-- Return all the imports for a given view. If closure is specified
-- to be true returns the import closure. On errors returns
-- with an error condition.
function Is_Member (View_Obj : Directory.Object; View_List : Unit_List)
return Boolean;
-- Return true if the given view is a member of the list of views
-- specified
end View_Support;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1c rec1=00 rec2=01 rec3=040
[0x01] rec0=08 rec1=00 rec2=02 rec3=000
tail 0x21757f4b2878e747eeaf1 0x42a00088462060003