From b1acf6517d808242c6c46b09250925ff20861cc4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 30 Jul 2014 18:56:17 -0700 Subject: * 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. --- signal.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'signal.c') 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 -- cgit v1.2.3