blob: 26e2702c488c50809f5c9f64dfeb1201cba49822 (
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
28
29
30
31
32
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <syserr.h>
include <prstat.h>
# PRCLOSE -- Close a connected subprocess. Send the command "bye" to the
# child to initiate process shutdown, then close the IPC channels and
# wait for the child to terminate, returning the termination status to
# our caller. Note that process shutdown may take an arbitrarily long
# time, depending on the number and nature of ONEXIT procedures posted by
# tasks in the the child process.
int procedure prclose (pid)
int pid # process-id of child process
int child
int pr_findproc(), prclcpr()
include "prc.com"
errchk syserr
begin
child = pr_findproc (pid)
if (child == ERR)
call syserr (SYS_PRNOTFOUND)
if (pr_status[child] != P_DONE && pr_status[child] != P_DEAD)
call putline (pr_outfd[child], "bye\n")
return (prclcpr (pid))
end
|
