val unicode_version : stringtype boundary = [ | `Custom of custom| `Grapheme_cluster| `Line_break| `Sentence| `Word
]type ret = [ | `Await| `Boundary| `End| `Uchar of Uchar.t
]val add : t -> [ `Await | `End | `Uchar of Uchar.t ] -> retval mandatory : t -> boolval custom :
?mandatory:('a -> bool) ->
name:string ->
create:(unit -> 'a) ->
copy:('a -> 'a) ->
add:('a -> [ `Await | `End | `Uchar of Uchar.t ] -> ret) ->
unit ->
customval err_exp_await : [< ret ] -> 'aval err_ended : [< ret ] -> 'a