* eval.c (eval_init): Registered regex_parse as new

intrinsic function and std_null as new variable.

* parser.h (yylex_destroy): Existing function declared.

* parser.l (regex_parse): New function.
New lexical syntax added which returns SECRET_ESCAPE_R.

* parser.y (SECRET_ESCAPE_R): New token.
(spec): Added syntactic variant which lets us
smuggle a regex into the parser easily.

* stream.c:x (std_null): New global variable.
(null_stream_print): New static function.
(null_ops): New static structure.
(make_null_stream): New function.
(stream_init): Protect and initialize std_null.

* stream.h (std_null, make_null_stream): Declared.

* txr.1: New features documented: regex-parse, *stdnull*.

* txr.c (txr_main): Call yylex_destroy after parsing the program now
that I know about this function; this can free up some memory.

1 files changed, 2 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 82ca1f0f..5c953896 100644
--- a/parser.h
+++ b/parser.h
@@ -38,6 +38,7 @@ void yybadtoken(int tok, val context);
 void end_of_regex(void);
 void end_of_char(void);
 int yylex(void);
+int yylex_destroy(void);
 void parse_init(void);
 void parse_reset(val spec_file);
 val source_loc(val form);
@@ -48,3 +49,4 @@ INLINE val rlcp(val to, val from)
 {
   return rlset(to, source_loc(from));
 }
+val regex_parse(val string, val error_stream);