18
18
(**************************************************************************)
27
30
let lexbuf = Lexing.from_string s in
28
31
Stml_parser.full_expr Stml_lexer.token lexbuf
30
33
let rec to_string = function
32
35
sprintf "?%s ~ %s" f (string_of_regexp r)
34
37
sprintf "!%s" (to_string e)
36
39
sprintf "(%s & %s)" (to_string e1) (to_string e2)
38
41
sprintf "(%s | %s)" (to_string e1) (to_string e2)
41
47
let rec eval kind pkg = function
44
50
let value = Package.get field pkg in
45
51
ignore (Pcre.exec ~rex value);