#include "internal.h"
#include "logging.h"

ABC_NAMESPACE_IMPL_START

void kissat_enable_reluctant (reluctant *reluctant, uint64_t period,
                              uint64_t limit) {
  if (limit && period > limit)
    period = limit;
  reluctant->limited = (limit > 0);
  reluctant->trigger = false;
  reluctant->period = period;
  reluctant->wait = period;
  reluctant->u = reluctant->v = 1;
  reluctant->limit = limit;
}

void kissat_disable_reluctant (reluctant *reluctant) {
  reluctant->period = 0;
}

void kissat_tick_reluctant (reluctant *reluctant) {
  if (!reluctant->period)
    return;

  if (reluctant->trigger)
    return;

  KISSAT_assert (reluctant->wait > 0);
  if (--reluctant->wait)
    return;

  uint64_t u = reluctant->u;
  uint64_t v = reluctant->v;

  if ((u & -u) == v) {
    u++;
    v = 1;
  } else {
    KISSAT_assert (UINT64_MAX / 2 >= v);
    v *= 2;
  }

  KISSAT_assert (v);
  KISSAT_assert (UINT64_MAX / v >= reluctant->period);
  uint64_t wait = v * reluctant->period;

  if (reluctant->limited && wait > reluctant->limit) {
    u = v = 1;
    wait = reluctant->period;
  }

  reluctant->trigger = true;
  reluctant->wait = wait;
  reluctant->u = u;
  reluctant->v = v;
}

void kissat_init_reluctant (kissat *solver) {
  if (GET_OPTION (reluctant)) {
    LOG ("enable reluctant doubling with period %d limit %d",
         GET_OPTION (reluctantint), GET_OPTION (reluctantlim));
    kissat_enable_reluctant (&solver->reluctant, GET_OPTION (reluctantint),
                             GET_OPTION (reluctantlim));
  } else {
    LOG ("reluctant doubling disabled and thus no stable restarts");
    kissat_disable_reluctant (&solver->reluctant);
  }
}

ABC_NAMESPACE_IMPL_END
