Source file char_code.ml

open! Core
open! Import

include Value.Make_subtype (struct
    let name = "char-code"
    let here = [%here]
    let is_in_subtype = Funcall.Wrap.("characterp" <: value @-> return bool)
  end)

let equal t1 t2 = eq t1 t2
let of_int_exn int = int |> Value.of_int_exn |> of_value_exn
let to_int t = t |> to_value |> Value.to_int_exn
let min_value = of_int_exn 0
let max_value = Funcall.Wrap.("max-char" <: nullary @-> return t) ()

let of_char_exn char =
  let code = char |> Char.to_int in
  if code >= 128
  then
    raise_s
      [%message
        "[Char_code.of_char_exn] got non-ASCII character" (char : char) (code : int)];
  code |> Value.of_int_exn |> of_value_exn
;;