New function: txr-parse.

txr-parse provides a way for Lisp code to programmatically
parse the TXR language and obtain the Lisp represenation.
This has hitherto not been available.

* eval.c (eval_init): Register txr-parse intrinsic.

* parser.c (txr_parse): New function.

* parser.h (txr_parse): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 337dca9b..85bfca2f 100644
--- a/parser.h
+++ b/parser.h
@@ -123,6 +123,8 @@ val iread(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,
+              val error_return_val, val name_in);
 #if HAVE_TERMIOS
 val repl(val bindings, val in_stream, val out_stream, val env);
 #endif