First cut at @(load) directive. Incomplete: debug location info

needs to record file name, not only line number; absolute paths
not handled, etc.

* match.c (load_s): New symbol variable.
(v_load): New static function.
(syms_init): load_s initialized.
(dir_tables_init): Load directive registered.

* match.h (load_s): Declared.

* parser.h (parse_reset): New function declared.

* parser.l (spec_file_str): Global variable moved from txr.c.
(parse_reset): New function.

* parser.y (clause): Special handling for @(load ...) directive.
parent file path inserted into the syntax at parse time,
so when the load directive executes, it can load the file from
the same directory as the parent file.

* txr.c (spec_file_str): Global variable moved to parser.l.

1 files changed, 1 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index 81e43c31..519da719 100644
--- a/parser.h
+++ b/parser.h
@@ -39,6 +39,7 @@ void end_of_regex(void);
 void end_of_char(void);
 int yylex(void);
 void parse_init(void);
+void parse_reset(val spec_file);
 val source_loc(val form);
 val rl(val form, val lineno);
 INLINE val rlcp(val to, val from)