package re

  1. Overview
  2. Docs
RE is a regular expression library for OCaml

Install 

dune-project
 Dependency

github.com Readme Changelog LGPL-2.1-or-later WITH OCaml-LGPL-linking-exception License Edit opam file Versions (20)

Authors

  1. J
    Jerome Vouillon
  2. T
    Thomas Gazagnaire
  3. A
    Anil Madhavapeddy
  4. R
    Rudi Grinberg
  5. Gabriel Radanne

Maintainers

  1. R
    Rudi Grinberg <me@rgrinberg.com>

Sources

1.14.0.tar.gz
md5=03f4a83100cb9229a796b85c698076e1
sha512=cd2cc39f951ca6b7be631bbb5531ed13bc040e629842671bf6fef3911b20ef1653fa9a1f0aa23b094d252cffc9a9efe7ffca69e50d362ab935bc0cc447548124

doc/src/re/posix_class.ml.html

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)
;;