Provide access to line number info and source path.

* eval.c (eval_init): New intrinsic functions source-loc
and source-loc-str. New variable *self-path*.

* txr.1: Stub doc sections.

* txr.c (self_path): New variable.

* txr.h (self_path): Declared.

* txr.vim: Syntax highlighting for source-loc, source-loc-str
and *self-path*.

1 files changed, 6 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 960ca4be..8133c6e5 100644
--- a/eval.c
+++ b/eval.c
@@ -44,6 +44,7 @@
 #include "match.h"
 #include "rand.h"
 #include "filter.h"
+#include "txr.h"
 #include "eval.h"
 
 typedef val (*opfun_t)(val, val);
@@ -2411,6 +2412,11 @@ void eval_init(void)
   reg_fun(intern(lit("time"), user_package), func_n0(time_sec));
   reg_fun(intern(lit("time-usec"), user_package), func_n0(time_sec_usec));
 
+  reg_fun(intern(lit("source-loc"), user_package), func_n1(source_loc));
+  reg_fun(intern(lit("source-loc-str"), user_package), func_n1(source_loc_str));
+
+  reg_var(intern(lit("*self-path*"), user_package), &self_path);
+
   eval_error_s = intern(lit("eval-error"), user_package);
   uw_register_subtype(eval_error_s, error_s);
 }