diff options
Diffstat (limited to 'src/lib/libast/comp/fcntl.c')
-rw-r--r-- | src/lib/libast/comp/fcntl.c | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/src/lib/libast/comp/fcntl.c b/src/lib/libast/comp/fcntl.c new file mode 100644 index 0000000..70adfee --- /dev/null +++ b/src/lib/libast/comp/fcntl.c @@ -0,0 +1,98 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler <gsf@research.att.com> * +* David Korn <dgk@research.att.com> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +#pragma prototyped + +/* + * -last fcntl + */ + +#include <ast.h> + +#ifndef fcntl + +NoN(fcntl) + +#else + +#include <ls.h> +#include <ast_tty.h> +#include <error.h> + +#if F_SETFD >= _ast_F_LOCAL +#if _sys_filio +#include <sys/filio.h> +#endif +#endif + +#if _lib_fcntl +#undef fcntl +extern int fcntl(int, int, ...); +#endif + +int +_ast_fcntl(int fd, int op, ...) +{ + int n; + int save_errno; + struct stat st; + va_list ap; + + save_errno = errno; + va_start(ap, op); + if (op >= _ast_F_LOCAL) switch (op) + { +#if F_DUPFD >= _ast_F_LOCAL + case F_DUPFD: + n = va_arg(ap, int); + op = dup2(fd, n); + break; +#endif +#if F_GETFL >= _ast_F_LOCAL + case F_GETFL: + op = fstat(fd, &st); + break; +#endif +#if F_SETFD >= _ast_F_LOCAL && defined(FIOCLEX) + case F_SETFD: + n = va_arg(ap, int); + op = ioctl(fd, n == FD_CLOEXEC ? FIOCLEX : FIONCLEX, 0); + break; +#endif + default: + errno = EINVAL; + op = -1; + break; + } + else +#if _lib_fcntl + op = fcntl(fd, op, va_arg(ap, int)); +#else + { + errno = EINVAL; + op = -1; + } +#endif + va_end(ap); + return(op); +} + +#endif |