DataMuseum.dk

top - download

    Length: 1695 (0x69f)
    Types: TextFile
    Names: »LOCAL_GC_THRESHOLDS_SAMPLE«

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦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;