blob: 0ec647a0708c215426fad8023c5dcb03087bb4f2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
|
