From 38efec391aa0c4f92f3ca374db8df0bfd43909e0 Mon Sep 17 00:00:00 2001 From: "Aaron L. Zeng" Date: Fri, 11 Oct 2019 11:45:37 -0400 Subject: [PATCH 1/2] Support POSIX `[:alpha:]` character class --- lib/perl.ml | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lib/perl.ml b/lib/perl.ml index aba49958..27e1c51d 100644 --- a/lib/perl.ml +++ b/lib/perl.ml @@ -26,6 +26,7 @@ exception Parse_error exception Not_supported let posix_class_of_string = function + | "alpha" -> Re.alpha | "alnum" -> Re.alnum | "ascii" -> Re.ascii | "blank" -> Re.blank @@ -42,11 +43,11 @@ let posix_class_of_string = function | class_ -> invalid_arg ("Invalid pcre class: " ^ class_) let posix_class_strings = - [ "alnum" ; "ascii" ; "blank" - ; "cntrl" ; "digit" ; "lower" - ; "print" ; "space" ; "upper" - ; "word" ; "punct" ; "graph" - ; "xdigit" ] + [ "alpha" ; "alnum" ; "ascii" + ; "blank" ; "cntrl" ; "digit" + ; "lower" ; "print" ; "space" + ; "upper" ; "word" ; "punct" + ; "graph" ; "xdigit" ] let parse multiline dollar_endonly dotall ungreedy s = let i = ref 0 in From 57d53d8a70d38214e59c0e5a95b80e073c8244af Mon Sep 17 00:00:00 2001 From: "Aaron L. Zeng" Date: Fri, 11 Oct 2019 11:45:37 -0400 Subject: [PATCH 2/2] Support POSIX `[:alpha:]` character class --- CHANGES.md | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/CHANGES.md b/CHANGES.md index 7dc4d0b8..5b662db2 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,3 +1,8 @@ +Unreleased +---------- + +* Add the `[:alpha:]` character class in `Re.Perl` (#169) + 1.9.0 (05-Apr-2019) -------------------