* eval.c (eval_init): Expose regex-compile and regexp as intrinsics.

* lib.c (obj_init): Change spelling of nongreedy operator and put
it into the user package so that it is available for use with
regex-compile.

* regex.c (match_regex, search_regex): Bugfix: optional start
position argument argument not defaulting to zero.

* txr.1: Documented regex-compile and regexp.

* txr.vim: Highlighting regex-compile and regexp.

1 files changed, 40 insertions, 0 deletions

diff --git a/txr.1 b/txr.1
index 6fb80aa2..1507eada 100644
--- a/txr.1
+++ b/txr.1
@@ -7274,6 +7274,46 @@ Examples:
   ;; Replace Hello with Goodbye:
   (regsub #/Hello/ "Goodbye" "Hello world!") -> "Goodbye world!"
 
+.SS Function regexp
+
+.TP
+Syntax:
+
+  (regexp <obj>)
+
+.TP
+Description:
+
+The regexp function returns t if <obj> is a compiled regular expression
+object. For any other object type, it returns nil.
+
+.SS Function regex-compile
+
+.TP
+Syntax:
+
+  (regex-compile <form>)
+
+.TP
+Description:
+
+The regex compile function takes the source code of a regular expression,
+expressed as a Lisp data structure, and compiles it to a regular expression
+object.
+
+.TP
+Examples:
+
+  ;; the equivalent of #/[a-zA-Z0-9_/
+  (regex-compile '(set (#\ea . #\ez) (#\eA . #\eZ) (#\e0 . #\e9) #\e_))
+
+  ;; the equivalent of #/.*/ and #/.+/
+  (regex-compile '(0+ wild))
+  (regex-compile '(1+ wild))
+
+  ;; #/a|b|c/
+  (regex-compile '(or (or #\ea #\eb) #\ec))
+
 .SS Functions make-hash, hash
 
 .SS Function sethash