Std.Glob
type pattern =
| Wildwild
| Exact of string
| Regexp of Str.regexp
val compile_pattern : string -> pattern
val match_pattern : pattern -> string -> bool