blob: 2a4ae5b16ae6a455da5a73e9846edb77025b0dd3 (
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
34
35
36
37
38
39
40
41
42
43
44
45
46
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_xnames
#define import_stdio
#include <iraf.h>
/* C_FREDIR -- FIO redirect an open i/o stream to a named file. Most commonly
** used to redirect one of the standard i/o streams to a file. The named file
** need not be of the same type as the old stream.
*/
int
c_fredir (
XINT fd, /* stream to be redirected */
char *fname, /* name of file to be opened */
int mode, /* access mode */
int type /* file type */
)
{
XINT x_fd = fd, x_type = type, x_mode = mode;
iferr (FREDIR (&x_fd, c_sppstr(fname), &x_mode, &x_type))
return (ERR);
else
return (fd);
}
/* C_FREDIRO -- FIO redirect an open i/o stream to another open stream.
*/
int
c_frediro (
XINT fd, /* stream to be redirected */
XINT newfd /* where it is to be redirected */
)
{
XINT x_fd = fd, x_newfd = newfd;
iferr (FREDIRO (&x_fd, &x_newfd))
return (ERR);
else
return (fd);
}
|
