|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Remote_Links, seg_021227
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Calendar;
with Directory;
with Generic_File_Table;
package Remote_Links is
-- Contains functions that maintain the "Remote_Links" file that will be
-- created in the "Tool_State" directory of every "I386_Unix_Als_Xt" view.
-- The "Remote_Links" file contains information about units (links) which
-- have been acquired (imported) into a view's remote program library on
-- the remote machine.
type Remote_Link is
record
Unit : Directory.Object;
View : Directory.Object;
Time : Calendar.Time;
end record;
-- Each entry in the link table contains fields for a unit, its enclosing
-- view, and the time when it was last Acquired on the remote machine.
function File_Name (In_View : Directory.Object) return String;
-- Name of the "Remote_Links" file.
function Match_Unit (The_Entry1 : Remote_Link;
The_Entry2 : Remote_Link) return Boolean;
-- Looks in the "Remote_Links" file for an entry containing a given Unit.
function Match_View (The_Entry1 : Remote_Link;
The_Entry2 : Remote_Link) return Boolean;
-- Looks in the "Remote_Links" file for an entry containing a given View.
function Is_Empty (Element : Remote_Link) return Boolean;
-- Returns true if a given entry is empty. Used to determine whether a
-- match has been found.
procedure Print_Element (Element : Remote_Link);
-- Prints an entry of the table.
package Link_Table is
new Generic_File_Table (Element_Type => Remote_Link,
Match => Match_Unit,
Is_Empty => Is_Empty,
Print_Element => Print_Element);
-- Instantiate a package that is to be used for finding link table entries
-- using the simple name of the Unit as a key.
package View_Table is
new Generic_File_Table (Element_Type => Remote_Link,
Match => Match_View,
Is_Empty => Is_Empty,
Print_Element => Print_Element);
-- Instantiate a package that is to be used for finding link table entries
-- using the View as a key.
end Remote_Links;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1e rec1=00 rec2=01 rec3=064
[0x01] rec0=1b rec1=00 rec2=02 rec3=008
[0x02] rec0=09 rec1=00 rec2=03 rec3=000
tail 0x2151cb1f6838d6bb23668 0x42a00088462065003