parser: batched read operation for speed.

As a result of this change, the startup time is reduced.
The command txr -e '(compile-toplevel nil)' shows a 54%
speedup: around 110 milliseconds down from around 170.

Programs that read large amounts of TXR Lisp data will
benefit.

* parser.l (YY_INPUT): Use new get_bytes function instead of
get_byte to read a buffer at a time.

* stream.c (get_bytes): New function.

* stream.h (get_bytes): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.h b/stream.h
index ba905871..197be303 100644
--- a/stream.h
+++ b/stream.h
@@ -194,6 +194,7 @@ val clear_error(val stream);
 val get_line(val);
 val get_char(val);
 val get_byte(val);
+val get_bytes(val self, val, mem_t *ptr, ucnum len);
 val unget_char(val ch, val stream);
 val unget_byte(val byte, val stream);
 val put_buf(val buf, val pos, val stream);