Documentation for counting functions

DESCRIPTION

@@ -20,8 +20,8 @@ Collate:
     'escape.R'
     'capture.R'
     'character_class.R'
+    'counts.R'
     'lookarounds.R'
     'modifiers.R'
     'or.R'
     'rex.R'
-    'word.R'

NAMESPACE

@@ -31,6 +31,7 @@ export(exclude_range)
 export(group)
 export(lazy)
 export(maybe)
+export(n)
 export(n_times)
 export(named_capture)
 export(none_of)

R/counts.R

@@ -0,0 +1,39 @@
+#' @include escape.R
+#' @include utils.R
+NULL
+
+# TODO: Improve documentation, put +, * here as well
+#' Counts
+#'
+#' Functions to restrict a regex to a specific number
+#' @param x A regex pattern.
+#' @param n An integer number
+#' @param low An integer number for the lower limit.
+#' @param high An integer number for the upper limit.
+#' @aliases n
+#' @family rex
+#' @export
+n_times <- function(x, n) {
+  p("(?:", p(escape(x)), "){", n, "}")
+}
+
+#' @export
+n <- n_times
+
+#' @export
+#' @describeIn n_times \code{x} must occur between \code{low} and \code{high} times.
+between <- function(x, low, high) {
+  p("(?:", p(escape(x)), "){", low, ",", high, "}")
+}
+
+#' @export
+#' @describeIn n_times \code{x} must occur at least \code{n} times.
+at_least <- function(x, n) {
+  between(x, n, '')
+}
+
+#' @export
+#' @describeIn n_times \code{x} must occur at most \code{n} times.
+at_most <- function(x, n) {
+  between(x, '', n)
+}

man/capture.Rd

@@ -60,9 +60,12 @@ Other rex: \code{\link{\%if_next_is\%}},
   \code{\link{\%if_next_isnt\%}},
   \code{\link{\%if_prev_is\%}},
   \code{\link{\%if_prev_isnt\%}},
-  \code{\link{lookarounds}}; \code{\link{character_class}},
-  \code{\link{except}}, \code{\link{exclude_range}},
-  \code{\link{none_of}}, \code{\link{one_of}},
-  \code{\link{range}}; \code{\link{group}}
+  \code{\link{lookarounds}}; \code{\link{at_least}},
+  \code{\link{at_most}}, \code{\link{between}},
+  \code{\link{n}}, \code{\link{n_times}};
+  \code{\link{character_class}}, \code{\link{except}},
+  \code{\link{exclude_range}}, \code{\link{none_of}},
+  \code{\link{one_of}}, \code{\link{range}};
+  \code{\link{group}}
 }
 

man/character_class.Rd

@@ -70,6 +70,9 @@ Other rex: \code{\link{.}}, \code{\link{..}},
   \code{\link{\%if_next_isnt\%}},
   \code{\link{\%if_prev_is\%}},
   \code{\link{\%if_prev_isnt\%}},
-  \code{\link{lookarounds}}; \code{\link{group}}
+  \code{\link{lookarounds}}; \code{\link{at_least}},
+  \code{\link{at_most}}, \code{\link{between}},
+  \code{\link{n}}, \code{\link{n_times}};
+  \code{\link{group}}
 }
 

man/group.Rd

@@ -25,9 +25,11 @@ Other rex: \code{\link{.}}, \code{\link{..}},
   \code{\link{\%if_next_isnt\%}},
   \code{\link{\%if_prev_is\%}},
   \code{\link{\%if_prev_isnt\%}},
-  \code{\link{lookarounds}}; \code{\link{character_class}},
-  \code{\link{except}}, \code{\link{exclude_range}},
-  \code{\link{none_of}}, \code{\link{one_of}},
-  \code{\link{range}}
+  \code{\link{lookarounds}}; \code{\link{at_least}},
+  \code{\link{at_most}}, \code{\link{between}},
+  \code{\link{n}}, \code{\link{n_times}};
+  \code{\link{character_class}}, \code{\link{except}},
+  \code{\link{exclude_range}}, \code{\link{none_of}},
+  \code{\link{one_of}}, \code{\link{range}}
 }
 

man/lookarounds.Rd

@@ -42,7 +42,9 @@ Perl 5 Documentation \url{http://perldoc.perl.org/perlre.html#Extended-Patterns}
 
 Other rex: \code{\link{.}}, \code{\link{..}},
   \code{\link{capture}}, \code{\link{capture_group}},
-  \code{\link{named_capture}};
+  \code{\link{named_capture}}; \code{\link{at_least}},
+  \code{\link{at_most}}, \code{\link{between}},
+  \code{\link{n}}, \code{\link{n_times}};
   \code{\link{character_class}}, \code{\link{except}},
   \code{\link{exclude_range}}, \code{\link{none_of}},
   \code{\link{one_of}}, \code{\link{range}};