sig
module type Selector =
sig
type selector
type value
val eval :
Selector.Selector.selector -> Selector.Selector.value -> bool
end
module Date_selector :
sig
type t =
GT of Core.Std.Date.t
| LT of Core.Std.Date.t
| Between of Core.Std.Date.t * Core.Std.Date.t
| On of Core.Std.Date.t
val t_of_sexp : Sexplib.Sexp.t -> Selector.Date_selector.t
type selector = t
type value = Core.Std.Date.t
val eval : selector -> value -> bool
end
module String_selector :
sig
module Regexp :
sig
type t
val sexp_of_t : Selector.String_selector.Regexp.t -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> Selector.String_selector.Regexp.t
val of_regexp : string -> Selector.String_selector.Regexp.t
val matches : Selector.String_selector.Regexp.t -> string -> bool
val to_string : Selector.String_selector.Regexp.t -> string
val to_regexp : Selector.String_selector.Regexp.t -> Pcre.regexp
end
type t =
Equal of string list
| Matches of Selector.String_selector.Regexp.t list
| Mixed of
[ `Literal of string
| `Regexp of Selector.String_selector.Regexp.t ] list
val t_of_sexp : Sexplib.Sexp.t -> Selector.String_selector.t
type selector = t
type value = Core.Std.String.t
val eval : selector -> value -> bool
end
module String_list_selector :
sig
type t = string list
val sexp_of_t : Selector.String_list_selector.t -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> Selector.String_list_selector.t
type selector = t
type value = string
val eval : selector -> value -> bool
end
val ounit_tests : unit -> OUnit.test
end