json: get-json function.

* eval.c (eval_init): get-json intrinsic registered.

* parser.c (prime_parser): Handle prime_json.
(lisp_parse_impl): Take enum prime_parser argument
directly instead of the interactive flag.
(lisp_parse, nread, iread): Pass appropriate prime_parser
value instead of the original flag.
(get_json): New function. Like nread, but passes prime_json.

* parser.h (enum prime_parser): New constant, prime_json.
(get_json): Declared.

* parser.l (prime_scanner): Handle prime_json.

* parser.y (SECRET_ESCAPE_J): New terminal symbol.
(spec): New productions around SECRET_ESCAPE_J for parsing
JSON.

* lex.yy.c.shipped, y.tab.c.shipped, y.tab.h.shipped: Updated.

* txr.1: Documented.

* share/txr/stdlib/doc-syms.tl: Updated.

1 files changed, 3 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index d6e677a4..5955447a 100644
--- a/parser.h
+++ b/parser.h
@@ -68,7 +68,7 @@ struct parser {
 };
 #endif
 
-enum prime_parser { prime_lisp, prime_interactive, prime_regex };
+enum prime_parser { prime_lisp, prime_interactive, prime_regex, prime_json };
 
 extern const int have_yydebug;
 extern const wchar_t *spec_file;
@@ -125,6 +125,8 @@ val nread(val source_in, val error_stream, val error_return_val,
           val name_in, val lineno);
 val iread(val source_in, val error_stream, val error_return_val,
           val name_in, val lineno);
+val get_json(val source_in, val error_stream, val error_return_val,
+             val name_in, val lineno);
 val read_eval_stream(val self, val stream, val error_stream);
 val read_compiled_file(val self, val stream, val error_stream);
 val txr_parse(val source, val error_stream,