viewcvs.cgi/types/chars.mli

module Unichar : sig
  type t
  val from_int: int -> t
  val from_char: char -> t
  val to_int: t -> int

  val print : Format.formatter -> t -> unit
end

type t = (Unichar.t * Unichar.t) list

val empty : t
val any   : t
val cup   : t -> t -> t
val cap   : t -> t -> t
val diff  : t -> t -> t
val char_class  : Unichar.t -> Unichar.t -> t
val atom  : Unichar.t -> t


val is_empty : t -> bool
val contains : int -> t -> bool
val sample : t -> Unichar.t

val print : t -> (Format.formatter -> unit) list
1	abate	12	module Unichar : sig
2			type t
3			val from_int: int -> t
4	abate	13	val from_char: char -> t
5	abate	12	val to_int: t -> int
6	abate	13
7	abate	12	val print : Format.formatter -> t -> unit
8			end
9
10			type t = (Unichar.t * Unichar.t) list
11
12			val empty : t
13	abate	18	val any : t
14	abate	12	val cup : t -> t -> t
15			val cap : t -> t -> t
16			val diff : t -> t -> t
17	abate	13	val char_class : Unichar.t -> Unichar.t -> t
18			val atom : Unichar.t -> t
19	abate	12
20
21			val is_empty : t -> bool
22			val contains : int -> t -> bool
23			val sample : t -> Unichar.t
24
25			val print : t -> (Format.formatter -> unit) list