|
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 Cmvc_Implementation_Utilities, pragma Module_Name 4 3762, pragma Subsystem Tools, seg_00639b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Action;
with Calendar;
with Directory;
package Cmvc_Implementation_Utilities is
function Appropriate_Modification_Time
(Obj : Directory.Object; Action_Id : Action.Id)
return Calendar.Time;
-- return the time the unit was last modified. For Ada units, the
-- edit time is used. For others, the modified time is used.
procedure Analyze_Space (For_Subsystem : String := "<IMAGE>";
Do_Reservation_Token_Trace : Boolean := False);
-- Produce a report describing how space is used in the
-- cmvc_database indicated. If Do_Reservation_Token_Trace is
-- true, a (potentiall long) report is written showing by
-- Element which reservation_tokens (version sets) are defined
-- and which configurations reference them
procedure Enable_Page_Accounting (To_What : Boolean := False);
-- Turn on page tracing within the Cmvc_Database disk subsystem. The
-- result is a report of what pages were touched how many times
-- whenever a database is closed. This is system wide, and causes the
-- creation of garbage.
pragma Subsystem (Tools);
pragma Module_Name (4, 3762);
end Cmvc_Implementation_Utilities;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=19 rec1=00 rec2=01 rec3=08a
[0x01] rec0=08 rec1=00 rec2=02 rec3=000
tail 0x21501415081bf809b2b45 0x42a00088462065003