json: new *read-json-int* variable.

* parser.h (struct parser): New member, read_json_int.

* parser.c (read_json_int_s): New symbol variable
for *read-json-int* symbol.
(parser_common_init): Look up value of *read-json-int*
and store in read_json_int struct member.
(parse_init): Initialize read_json_int_s with interned
symbol and also register the dynamic variable.

* parser.l (grammar): Extend the {JNUM} rule to check
the read_json_int flag and produce an integer value if
the lexeme does not contain a decimal point, e or E.

* tests/010/json.tl: New tests.

* txr.1: Documented.

* lex.yy.c.shipped: Regenerated.

1 files changed, 1 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index abf9c4ef..f39c19f8 100644
--- a/parser.h
+++ b/parser.h
@@ -68,6 +68,7 @@ struct parser {
   int rec_source_loc;
   int read_unknown_structs;
   int read_bad_json;
+  int read_json_int;
 };
 #endif