bugfix: source lineno off by one under hash bang.

* eval.c (load): When we read and discard a hash bang line,
we must set the parser line number to two.

* parser.c (parser_set_lineno): New function.

* parser.h (parser_set_lineno): Declared.

* txr.c (check_hash_bang): New argument, occurs.
(txr_main): Track whether hash bang has occurred in a new
local variable hb_occurs.  Then, before parsing, if hash bang
has occurred, set the line number to two.

1 files changed, 8 insertions, 0 deletions

diff --git a/parser.c b/parser.c
index fbc2e2ca..7662614e 100644
--- a/parser.c
+++ b/parser.c
@@ -193,6 +193,14 @@ static void pushback_token(parser_t *p, struct yy_token *tok)
   p->tok_pushback[p->tok_idx++] = *tok;
 }
 
+val parser_set_lineno(val self, val stream, val lineno)
+{
+  val parser = ensure_parser(stream);
+  parser_t *pi = parser_get_impl(self, parser);
+  pi->lineno = c_num(lineno);
+  return stream;
+}
+
 void prime_parser(parser_t *p, val name, enum prime_parser prim)
 {
   struct yy_token sec_tok = { 0 };