* eval.c (getpid_wrap, getppid_wrap): New static functions.

(eval_init): Registered getpid and getppid intrinsics.

* signal.c (kill_wrap): New static function.
(sig-init): Registered kill intrinsic function.

* txr.1: Documented getpid, gettpid and kill.

1 files changed, 7 insertions, 0 deletions

diff --git a/signal.c b/signal.c
index a4139b1b..033a9ec8 100644
--- a/signal.c
+++ b/signal.c
@@ -97,6 +97,12 @@ static void sig_handler(int sig)
   }
 }
 
+static val kill_wrap(val pid, val sig)
+{
+  cnum p = c_num(pid), s = c_num(default_arg(sig, num_fast(SIGTERM)));
+  return num(kill(p, s));
+}
+
 void sig_init(void)
 {
   int i;
@@ -160,6 +166,7 @@ void sig_init(void)
   reg_fun(intern(lit("set-sig-handler"), user_package), func_n2(set_sig_handler));
   reg_fun(intern(lit("get-sig-handler"), user_package), func_n1(get_sig_handler));
   reg_fun(intern(lit("sig-check"), user_package), func_n0(sig_check));
+  reg_fun(intern(lit("kill"), user_package), func_n2o(kill_wrap, 1));
 }
 
 #if HAVE_SIGALTSTACK