blob: 3df73ed2e9af69d76b54fec2bc4076df6da534eb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
# PR_FINDPROC -- Search the process table for the given PID of a child process,
# returning the index of the process if found.
int procedure pr_findproc (pid)
int pid # process id of child process
int pr
include "prc.com"
begin
for (pr=1; pr <= MAX_CHILDPROCS; pr=pr+1)
if (pr_pid[pr] == pid)
return (pr)
return (ERR)
end
|
