scriptorium

//// A minute is a ranged integer from 0 to 59.

import bigi.{type BigInt}
import ranged_int/interface.{type Interface, Interface}

const max_limit = 59

const min_limit = 0

const iface: Interface(Minute, interface.Overflowable) = Interface(
  from_bigint_unsafe: from_bigint_unsafe,
  to_bigint: to_bigint,
  limits: limits,
)

pub opaque type Minute {
  Minute(data: BigInt)
}

fn to_bigint(value: Minute) {
  value.data
}

pub fn to_int(value: Minute) {
  let assert Ok(int) = bigi.to_int(to_bigint(value))
  int
}

pub fn from_int(value: Int) {
  interface.from_bigint(bigi.from_int(value), iface)
}

pub fn compare(a: Minute, b: Minute) {
  interface.compare(a, b, iface)
}

fn limits() {
  interface.overflowable_limits(
    bigi.from_int(min_limit),
    bigi.from_int(max_limit),
  )
}

fn from_bigint_unsafe(value: BigInt) {
  Minute(data: value)
}