!7

cmodule EstimateDiskDoom > DynPrintLogAndEnabled {

  switchable long timeHorizon = daysToMS(3); // don't report of longer than that away

  transient new DoomEstimator estimator;

  transient S status;

  start {

    estimator.minValue = 3.0; // 3 percent free space

    setModuleName("Calculating data (please wait one minute)...");

    doEveryAndNow(60.0, r measure);

  }

  void measure enter {

    double value = 100-diskSpacePercentage_oshi();

    printWithTime("Free space: " + formatDouble(value, 3) + " %");

    if (!estimator.consumeValue(value)) ret;

    long ms = or0(estimator.doomDate)-sysNow();

    if (estimator.doomDate == null || ms >= timeHorizon) ret with setStatus("Hard disk is doom-free!");

    if (ms == 0) ret with setStatus("HARD DISK FULL!!!!");

    double days = toDays(ms), hours = toHours(ms);

    S doomText = days >= 2

        ? iround(days) + " days from now"

      : hours >= 2 ?

        iround(hours) + " hours from now"

      : n2(iround(toMinutes(ms)), "minute") + "from now";

    // formatDouble(100-estimator.minValue, 0)

    setStatus("DOOM IN " + doomText + " (hard disk " +

      formatDouble(100-estimator.value1, 1) + "% full)");

  }

  void setStatus(S s) {

    if (setField(status := s)) print(s);

    setModuleName(s);

  }

}