Source file `codes.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open CamomileLibraryDefault.Camomile

include USet

let add_ranges l s=
  List.fold_left (fun s (start, stop)-> add_range start stop s) s l

let tuple_to_range (start, stop)=
  let start= UChar.of_int start
  and stop= UChar.of_int stop in
  start, stop

let of_tuple_list l=
  let ranges= List.map tuple_to_range l in
  add_ranges ranges empty