aboutsummaryrefslogtreecommitdiff
path: root/sys/etc/prsignal.x
diff options
context:
space:
mode:
Diffstat (limited to 'sys/etc/prsignal.x')
-rw-r--r--sys/etc/prsignal.x27
1 files changed, 27 insertions, 0 deletions
diff --git a/sys/etc/prsignal.x b/sys/etc/prsignal.x
new file mode 100644
index 00000000..0ec647a0
--- /dev/null
+++ b/sys/etc/prsignal.x
@@ -0,0 +1,27 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <config.h>
+include <syserr.h>
+include <knet.h>
+
+# PRSIGNAL -- Send a signal (interrupt) to a child process. It is an error
+# if the pid given is not found in the process table.
+
+procedure prsignal (pid, signal)
+
+int pid # process-id of child process
+int signal # code of signal to be sent (e.g. X_INT)
+
+int child
+int pr_findproc()
+include "prc.com"
+errchk syserr
+
+begin
+ child = pr_findproc (pid)
+ if (child != ERR)
+ call zintpr (pid, signal, child)
+
+ if (child == ERR)
+ call syserr (SYS_PRSIGNAL)
+end