blob: c5ffceee225daeb6d443189be8d1ae6199a9c27b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <config.h>
# PR_GETREDIR -- Get the pseudofile redirection code for a process.
int procedure pr_getredir (pid, stream)
int pid # process id
int stream # stream for which redirection info is needed
int pr
int pr_findproc()
include "prc.com"
begin
pr = pr_findproc (pid)
return (pr_pstofd[pr,stream])
end
|
