From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- unix/os/zintpr.c | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 unix/os/zintpr.c (limited to 'unix/os/zintpr.c') diff --git a/unix/os/zintpr.c b/unix/os/zintpr.c new file mode 100644 index 00000000..3e47bca7 --- /dev/null +++ b/unix/os/zintpr.c @@ -0,0 +1,29 @@ +/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + */ + +#include +#include +#define import_kernel +#define import_knames +#define import_spp +#include + +/* ZINTPR -- Interrupt a connected subprocess, i.e., raise the exception X_INT + * in the subprocess. On the UNIX system subprocesses ignore the UNIX SIGINT + * exception, hence we send SIGTERM instead and the exception handling code + * maps both to X_INT. + */ +int +ZINTPR ( + XINT *pid, + XINT *exception, /* not used at present */ + XINT *status +) +{ + if (kill (*pid, SIGTERM) == ERR) + *status = XERR; + else + *status = XOK; + + return (*status); +} -- cgit