mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-09 12:45:34 -05:00
35 lines
881 B
OCaml
35 lines
881 B
OCaml
(* This file is free software, part of containers. See file "license" for more details. *)
|
|
|
|
(** {1 Utils around char}
|
|
|
|
@since 0.14 *)
|
|
|
|
include Char
|
|
|
|
let pp_buf = Buffer.add_char
|
|
let pp = Format.pp_print_char
|
|
|
|
let of_int_exn = Char.chr
|
|
let of_int c = try Some (of_int_exn c) with Invalid_argument _ -> None
|
|
let to_int = Char.code
|
|
|
|
(*$=
|
|
(Some 'a') (of_int (to_int 'a'))
|
|
None (of_int 257)
|
|
*)
|
|
|
|
let to_string c = String.make 1 c
|
|
|
|
(*$Q to_string
|
|
(Q.string_of_size (Q.Gen.return 1)) (fun s -> CCShims_.Stdlib.(=) (to_string s.[0]) s)
|
|
*)
|
|
|
|
module Infix = struct
|
|
let (=) : t -> t -> bool = CCShims_.Stdlib.(=)
|
|
let (<>) : t -> t -> bool = CCShims_.Stdlib.(<>)
|
|
let (<) : t -> t -> bool = CCShims_.Stdlib.(<)
|
|
let (>) : t -> t -> bool = CCShims_.Stdlib.(>)
|
|
let (<=) : t -> t -> bool = CCShims_.Stdlib.(<=)
|
|
let (>=) : t -> t -> bool = CCShims_.Stdlib.(>=)
|
|
end
|
|
include Infix
|