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, 4 insertions, 0 deletions

diff --git a/txr.c b/txr.c
index d07b98a6..80b93836 100644
--- a/txr.c
+++ b/txr.c
@@ -46,6 +46,7 @@
 const wchli_t *version = wli("64");
 const wchar_t *progname = L"txr";
 const wchar_t *spec_file = L"stdin";
+val self_path;
 
 /*
  * Can implement an emergency allocator here from a fixed storage
@@ -173,6 +174,7 @@ int txr_main(int argc, char **argv)
   int match_loglevel = opt_loglevel;
 
   prot1(&spec_file_str);
+  prot1(&self_path);
 
   yyin_stream = std_input;
 
@@ -429,6 +431,8 @@ int txr_main(int argc, char **argv)
       format(std_error, lit("bindings:\n~s\n"), bindings, nao);
     }
 
+    self_path = spec_file_str;
+
     {
       int retval;
       list_collect_decl(filenames, iter);