Source file `char.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
include Stdlib.Char

let repr = Repr.char

let is_digit = function
  | '0' .. '9' -> true
  | _non_digit_char -> false
;;

let is_lowercase_hex = function
  | '0' .. '9' | 'a' .. 'f' -> true
  | _non_lowercase_hex_char -> false
;;

let[@inline always] hash c = Int.hash (code c)
let compare x y = Ordering.of_int (compare x y)
let to_dyn = Repr.to_dyn repr