Support for parsing Lisp expression out of strings and streams.

New catenated streams make the Yacc hack possible.

* eval.c (eval_init): Register lisp_parse as intrinsic.

* parser.h (lisp_parse): Declared.

* parser.l: New lexical hack to produce SECRET_ESCAPE_E token.
(regex_parse): Move declaration before statements.
(lisp_parse): New function.

* parser.y (SECRET_ESCAPE_E): New token type.
(spec): New production rule for single expression.

* stream.c (cat_stream_print, cat_get_line, cat_get_char,
cat_get_byte, cat_get_prop): New static functions.
(cat_stream_ops): New static function.
(make_catenated_stream): New function.

* stream.h (make_catenated_stream): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index 36236622..e2ea714d 100644
--- a/stream.h
+++ b/stream.h
@@ -94,5 +94,6 @@ val open_file(val path, val mode_str);
 val open_tail(val path, val mode_str, val seek_end_p);
 val open_command(val path, val mode_str);
 val open_process(val path, val mode_str, val args);
+val make_catenated_stream(val stream_list);
 
 void stream_init(void);