|
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, procedure Low_Level_Destroy, seg_012ae7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
procedure Low_Level_Destroy (Objects : String := "<SELECTION>";
Response : String := "<PROFILE>");
------------------------------------------------------------------------------
-- Objects - Specifies what objects to destroy
-- Response - Specifies the user profile to use
--
-- Do everything in our power to destroy a set of objects. The Objects
-- specified, as well as any and all sub-objects are destroyed.
--
-- Note: CMVC databases are not maintained, updated, or consulted.
-- If any CMVC subsystems reference any of the destroyed objects, it
-- will be necessary to use Cmvc_Maintenance.Check_Consistency on them
-- afterwards.
--
-- To use this procedure:
--
-- a) First, use Repair_Directory on all directories in the Objects list and
-- on any immediately containing directory, eg. Objects & ".$".
--
-- b) Second, try a normal destroy, eg. Library.Delete on the objects.
--
-- c) Third, if this fails then use Low_Level_Destroy.
--
-- d) Fourth, if any of the Objects still exist, go back to step (a).
------------------------------------------------------------------------------
nblk1=2
nid=0
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=02c
[0x01] rec0=06 rec1=00 rec2=02 rec3=000
tail 0x2150d9d3c82b14d38b754 0x42a00088462063203