dysmal

import gleam/dict.{type Dict}

@external(erlang, "erlang", "binary_to_atom")
fn binary_to_atom(binary: String) -> atom

@external(erlang, "decimal", "to_binary")
fn to_binary(decimal: Decimal) -> String

@external(erlang, "decimal", "to_decimal")
fn to_decimal_raw(value: a, opts: Dict(atom, b)) -> Decimal

/// Decimal type
pub type Decimal

/// Options type for precision and rounding
pub type Opts {
  Opts(precision: Int, rounding: RoundingAlgorithm)
}

/// Default options for precision and rounding
fn default_opts() -> Opts {
  Opts(2, RoundHalfUp)
}

/// Convert Opts type to a Dict
fn opts_to_dict(opts: Opts) -> Dict(atom, Int) {
  // Extract the values from Opts
  let Opts(precision, rounding) = opts

  // Convert `rounding` to an Erlang atom
  let rounding_atom = rounding_to_atom(rounding)

  // Build the dict that `to_decimal/2` function expects
  dict.new()
  |> dict.insert(binary_to_atom("precision"), precision)
  |> dict.insert(binary_to_atom("rounding"), rounding_atom)
}

// Rounding algorithm type
pub type RoundingAlgorithm {
  RoundHalfUp
  RoundHalfDown
  RoundHalfEven
  RoundUp
  RoundDown
  RoundCeiling
  RoundFloor
}

/// Helper to convert rounding algorithm to atom
fn rounding_to_atom(rounding: RoundingAlgorithm) -> atom {
  case rounding {
    RoundHalfUp -> binary_to_atom("round_half_up")
    RoundHalfDown -> binary_to_atom("round_half_down")
    RoundHalfEven -> binary_to_atom("round_half_even")
    RoundUp -> binary_to_atom("round_up")
    RoundDown -> binary_to_atom("round_down")
    RoundCeiling -> binary_to_atom("round_ceiling")
    RoundFloor -> binary_to_atom("round_floor")
  }
}

/// Create a new Decimal from a string.
pub fn from_string(value: String) -> Decimal {
  to_decimal_raw(value, opts_to_dict(default_opts()))
}

/// Create a new Decimal from a String with precision and rounding options.
pub fn from_string_with_opts(value: String, opts: Opts) -> Decimal {
  to_decimal_raw(value, opts_to_dict(opts))
}

/// Convert a Decimal to a String.
pub fn to_string(decimal: Decimal) -> String {
  to_binary(decimal)
}