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, 0 deletions

diff --git a/lex.yy.c.shipped b/lex.yy.c.shipped
index d9d251db..1e3cf4ff 100644
--- a/lex.yy.c.shipped
+++ b/lex.yy.c.shipped
@@ -7342,6 +7342,9 @@ void prime_scanner(scanner_t *yyg, enum prime_parser prim)
   case prime_regex:
     yy_push_state(SREGEX, yyg);
     break;
+  case prime_json:
+    yy_push_state(JSON, yyg);
+    break;
   }
 }