Source file uucp__gc.ml

1
2
3
4
5
6
7
8
9
10
(*---------------------------------------------------------------------------
   Copyright (c) 2014 The uucp programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

include Uucp_gc_base

let compare = compare
let general_category u =
  Uucp_rmap.get Uucp_gc_data.general_category_map (Uchar.to_int u)