blob: e5dd397c77d9828d02d13f9a95aebaf8b4ac80f5 (
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
33
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
include <syserr.h>
# PRCLCPR -- Close a connected subprocess. Given the PID of the child process
# we get the input and output file descriptors from the process table and
# close both files. When the second file is closed the process is disconnected
# by the PR_ZCLSPR procedure, which leaves the exit status in the process table
# common.
int procedure prclcpr (pid)
int pid # process id of child process
int child
int pr_findproc()
include "prc.com"
errchk syserr
begin
# Search process table for the PID of the child process and close it
# if found. Return process termination code to parent.
child = pr_findproc (pid)
if (child == ERR)
call syserr (SYS_PRNOTFOUND)
call close (pr_infd[child])
call close (pr_outfd[child])
return (pr_last_exit_code)
end
|
