* 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.y b/parser.y
index c71ddce7..321b32e0 100644
--- a/parser.y
+++ b/parser.y
@@ -73,6 +73,7 @@ static val parsed_spec;
 %token <lineno> MOD MODLAST DEFINE TRY CATCH FINALLY
 %token <lineno> ERRTOK /* deliberately not used in grammar */
 %token <lineno> HASH_BACKSLASH HASH_SLASH DOTDOT HASH_H
+%token <lineno> SECRET_ESCAPE_R
 
 %token <val> NUMBER METANUM
 
@@ -113,6 +114,7 @@ static val parsed_spec;
 
 spec : clauses                  { parsed_spec = $1; }
      | /* empty */              { parsed_spec = nil; }
+     | SECRET_ESCAPE_R regex    { parsed_spec = $2; }
      | error '\n'               { parsed_spec = nil;
                                   if (errors >= 8)
                                     YYABORT;