From b43d605b8986b8ef2edd11abf7ed5b7e4313d318 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 11 Apr 2012 10:58:40 -0700 Subject: 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*. --- eval.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'eval.c') 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); } -- cgit v1.2.3