sig
  type fast_pattern
  type globber = fast_pattern Glob_ast.atom Bool.boolean
  val parse : ?dir:string -> string -> globber
  exception Parse_error of string
  val eval : globber -> string -> bool
  val fast_pattern_of_pattern : Glob_ast.pattern -> Glob.fast_pattern
end