From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/libc/cfredir.c | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 sys/libc/cfredir.c (limited to 'sys/libc/cfredir.c') diff --git a/sys/libc/cfredir.c b/sys/libc/cfredir.c new file mode 100644 index 00000000..2a4ae5b1 --- /dev/null +++ b/sys/libc/cfredir.c @@ -0,0 +1,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 + + +/* 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); +} -- cgit