Source file posix_class.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
module Re = Core

let of_name = function
  | "alpha" -> Re.alpha
  | "alnum" -> Re.alnum
  | "ascii" -> Re.ascii
  | "blank" -> Re.blank
  | "cntrl" -> Re.cntrl
  | "digit" -> Re.digit
  | "lower" -> Re.lower
  | "print" -> Re.print
  | "space" -> Re.space
  | "upper" -> Re.upper
  | "word" -> Re.wordc
  | "punct" -> Re.punct
  | "graph" -> Re.graph
  | "xdigit" -> Re.xdigit
  | class_ -> invalid_arg ("Invalid pcre class: " ^ class_)
;;

let names =
  [ "alpha"
  ; "alnum"
  ; "ascii"
  ; "blank"
  ; "cntrl"
  ; "digit"
  ; "lower"
  ; "print"
  ; "space"
  ; "upper"
  ; "word"
  ; "punct"
  ; "graph"
  ; "xdigit"
  ]
;;

let parse buf =
  let accept = Parse_buffer.accept buf in
  let accept_s = Parse_buffer.accept_s buf in
  match accept ':' with
  | false -> None
  | true ->
    let compl = accept '^' in
    let cls =
      try List.find accept_s names with
      | Not_found -> raise Parse_buffer.Parse_error
    in
    if not (accept_s ":]") then raise Parse_buffer.Parse_error;
    let posix_class = of_name cls in
    Some (if compl then Re.compl [ posix_class ] else posix_class)
;;