DataMuseum.dk

top - download

    Length: 1694 (0x69e)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦18f9f6507⟧ 
            └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦652dca3b8⟧ 
            └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦c95d1c94a⟧ 
            └─⟦this⟧ 
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦f5b23b787⟧ 
            └─⟦this⟧ 

TextFile

with Disk_Daemon;

procedure Local_Gc_Thresholds is
    subtype Volume_Number is Integer range 0 .. 31;
    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 Thresholds'Range loop
                Disk_Daemon.Set_Threshold (Volume, K, Thresholds (K));
            end loop;
        end if;
    end loop;

end Local_Gc_Thresholds;
pragma Main