|
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: 1847 (0x737)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦cbe8d369b⟧
└─⟦this⟧
with Block_Defs;
with Virtual_Memory_Garbage_Collector;
procedure Local_Gc_Thresholds is
package Disk_Daemon renames Virtual_Memory_Garbage_Collector;
function "=" (A, B : Block_Defs.Volume_Number) return Boolean
renames Block_Defs."=";
subtype Threshold is Disk_Daemon.Percentage; -- eg, 10 means 10%
subtype Threshold_Kinds is Disk_Daemon.Threshold_Kinds;
type Threshold_Array is array (Threshold_Kinds) of Threshold;
Thresholds : Threshold_Array;
Volume : Disk_Daemon.Volume_Number;
-- In the arrays below:
-- First entry is for Start_Collection threshold
-- Second entry is for Raise_Priority threshold
-- Third entry is for Stop_Jobs threshold
-- Fourth entry is for Suspend_System Threshold
-- Set desired values for volume 1 here
Thresholds1 : Threshold_Array := (12, 10, 9, 7);
-- Set desired values for all other volumes here
Thresholds2 : Threshold_Array := (10, 8, 6, 4);
begin
for Volume in Disk_Daemon.Volume_Number'(1) ..
Disk_Daemon.Volume_Number'(4) loop
if Disk_Daemon.Exists (Volume) then
if Volume = 1 then
Thresholds := Thresholds1;
else
Thresholds := Thresholds2;
end if;
-- Preset thresholds to known, legal values
for K in reverse Thresholds'Range loop
Disk_Daemon.Set_Threshold
(Volume, K, 1 + Threshold_Kinds'Pos (Threshold_Kinds'Last) -
Threshold_Kinds'Pos (K));
end loop;
-- Set thresholds to desired values
for K in Thresholds1'Range loop
Disk_Daemon.Set_Threshold (Volume, K, Thresholds (K));
end loop;
end if;
end loop;
end Local_Gc_Thresholds;
pragma Main