aboutsummaryrefslogtreecommitdiff
path: root/sys/etc/prfindpr.x
diff options
context:
space:
mode:
Diffstat (limited to 'sys/etc/prfindpr.x')
-rw-r--r--sys/etc/prfindpr.x20
1 files changed, 20 insertions, 0 deletions
diff --git a/sys/etc/prfindpr.x b/sys/etc/prfindpr.x
new file mode 100644
index 00000000..3df73ed2
--- /dev/null
+++ b/sys/etc/prfindpr.x
@@ -0,0 +1,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