Source file `char.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
include Stdlib.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)