* eval.c (env_hash): new function.

(eval_init): Register env and env_hash functions.  Register prog_args
and prog_args_full as *args* and *full-args*.

* lib.c (timegm_hack): Invalidate env_list, after mucking with
the environment via setenv and unsetenv.

* txr.c (prog_args_full, prog_args): New global variables.
(txr_main): Command-line processing converted to use TXR's
library. Populates prog_args_full and prog_args.

* txr.h (prog_args_full, prog_args): Declared.

* txr.1: Documented *args*, *full-args*, env and env-hash.

1 files changed, 18 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index f23546f2..a1b2365a 100644
--- a/eval.c
+++ b/eval.c
@@ -2548,6 +2548,19 @@ static val usleep_wrap(val usec)
   return retval;
 }
 
+static val env_hash(void)
+{
+  val env_strings = env();
+  val hash = make_hash(nil, nil, t);
+
+  for (; env_strings; env_strings = cdr(env_strings)) {
+    cons_bind (key, val_cons, split_str(car(env_strings), lit("=")));
+    sethash(hash, key, car(val_cons));
+  }
+
+  return hash;
+}
+
 static void reg_fun(val sym, val fun)
 {
   sethash(top_fb, sym, cons(sym, fun));
@@ -3127,6 +3140,11 @@ void eval_init(void)
   reg_fun(intern(lit("exit"), user_package), func_n1(exit_wrap));
   reg_fun(intern(lit("usleep"), user_package), func_n1(usleep_wrap));
 
+  reg_fun(intern(lit("env"), user_package), func_n0(env));
+  reg_fun(intern(lit("env-hash"), user_package), func_n0(env_hash));
+  reg_var(intern(lit("*args*"), user_package), &prog_args);
+  reg_var(intern(lit("*full-args*"), user_package), &prog_args_full);
+
 #if HAVE_DAEMON
   reg_fun(intern(lit("daemon"), user_package), func_n2(daemon_wrap));
 #endif