sig
type token =
GROUP
| ITEM
| EMPTY
| STATE
| DESC
| BEFORE
| EOF
| String of string
| Date of Tdl_date.t
| State of Tdl_types.state
| LPAR
| RPAR
| OR
| AND
| NOT
val filter :
(Lexing.lexbuf -> Tdl_filter_parser.token) ->
Lexing.lexbuf -> Tdl_filter.filter
end