From e5cd9bbd3de84e90d5602b83a0eb7780ec4b750e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 14 Dec 2013 23:46:32 -0800 Subject: 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. --- parser.h | 1 + 1 file changed, 1 insertion(+) (limited to 'parser.h') diff --git a/parser.h b/parser.h index 93061fe4..bf582fcb 100644 --- a/parser.h +++ b/parser.h @@ -50,3 +50,4 @@ INLINE val rlcp(val to, val from) return rlset(to, source_loc(from)); } val regex_parse(val string, val error_stream); +val lisp_parse(val source, val error_stream); -- cgit v1.2.3