cde/programs/dtksh/ksh93/src/lib/libast/comp/fcntl.c

   1 /*
   2  * CDE - Common Desktop Environment
   3  *
   4  * Copyright (c) 1993-2012, The Open Group. All rights reserved.
   5  *
   6  * These libraries and programs are free software; you can
   7  * redistribute them and/or modify them under the terms of the GNU
   8  * Lesser General Public License as published by the Free Software
   9  * Foundation; either version 2 of the License, or (at your option)
  10  * any later version.
  11  *
  12  * These libraries and programs are distributed in the hope that
  13  * they will be useful, but WITHOUT ANY WARRANTY; without even the
  14  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  15  * PURPOSE. See the GNU Lesser General Public License for more
  16  * details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with these librararies and programs; if not, write
  20  * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
  21  * Floor, Boston, MA 02110-1301 USA
  22  */
  23 /* $XConsortium: fcntl.c /main/3 1995/11/01 17:11:43 rswiston $ */
  24 /***************************************************************
  25 *                                                              *
  26 *                      AT&T - PROPRIETARY                      *
  27 *                                                              *
  28 *         THIS IS PROPRIETARY SOURCE CODE LICENSED BY          *
  29 *                          AT&T CORP.                          *
  30 *                                                              *
  31 *                Copyright (c) 1995 AT&T Corp.                 *
  32 *                     All Rights Reserved                      *
  33 *                                                              *
  34 *           This software is licensed by AT&T Corp.            *
  35 *       under the terms and conditions of the license in       *
  36 *       http://www.research.att.com/orgs/ssr/book/reuse        *
  37 *                                                              *
  38 *               This software was created by the               *
  39 *           Software Engineering Research Department           *
  40 *                    AT&T Bell Laboratories                    *
  41 *                                                              *
  42 *               For further information contact                *
  43 *                     gsf@research.att.com                     *
  44 *                                                              *
  45 ***************************************************************/
  46
  47 /* : : generated by proto : : */
  48
  49 #if !defined(__PROTO__)
  50 #if defined(__STDC__) || defined(__cplusplus) || defined(_proto) || defined(c_plusplus)
  51 #if defined(__cplusplus)
  52 #define __MANGLE__      "C"
  53 #else
  54 #define __MANGLE__
  55 #endif
  56 #define __STDARG__
  57 #define __PROTO__(x)    x
  58 #define __OTORP__(x)
  59 #define __PARAM__(n,o)  n
  60 #if !defined(__STDC__) && !defined(__cplusplus)
  61 #if !defined(c_plusplus)
  62 #define const
  63 #endif
  64 #define signed
  65 #define void            int
  66 #define volatile
  67 #define __V_            char
  68 #else
  69 #define __V_            void
  70 #endif
  71 #else
  72 #define __PROTO__(x)    ()
  73 #define __OTORP__(x)    x
  74 #define __PARAM__(n,o)  o
  75 #define __MANGLE__
  76 #define __V_            char
  77 #define const
  78 #define signed
  79 #define void            int
  80 #define volatile
  81 #endif
  82 #if defined(__cplusplus) || defined(c_plusplus)
  83 #define __VARARG__      ...
  84 #else
  85 #define __VARARG__
  86 #endif
  87 #if defined(__STDARG__)
  88 #define __VA_START__(p,a)       va_start(p,a)
  89 #else
  90 #define __VA_START__(p,a)       va_start(p)
  91 #endif
  92 #endif
  93 #include <ast.h>
  94
  95 #ifndef fcntl
  96
  97 NoN(fcntl)
  98
  99 #else
 100
 101 #include <ls.h>
 102 #include <ast_tty.h>
 103 #include <error.h>
 104
 105 #if F_SETFD >= _ast_F_LOCAL
 106 #if _sys_filio
 107 #include <sys/filio.h>
 108 #endif
 109 #endif
 110
 111 #if _lib_fcntl
 112 #undef  fcntl
 113 extern __MANGLE__ int   fcntl __PROTO__((int, int, ...));
 114 #endif
 115
 116 int
 117 _ast_fcntl __PARAM__((int fd, int op, ...), (va_alist)) __OTORP__(va_dcl)
 118 { __OTORP__(int fd; int op; )
 119         int             n;
 120         int             save_errno;
 121         struct stat     st;
 122         va_list         ap;
 123
 124         save_errno = errno;
 125         __VA_START__(ap, op); __OTORP__(fd = va_arg(ap, int );op = va_arg(ap, int );)
 126         if (op >= _ast_F_LOCAL) switch (op)
 127         {
 128 #if F_DUPFD >= _ast_F_LOCAL
 129         case F_DUPFD:
 130                 n = va_arg(ap, int);
 131                 op = dup2(fd, n);
 132                 break;
 133 #endif
 134 #if F_GETFL >= _ast_F_LOCAL
 135         case F_GETFL:
 136                 op = fstat(fd, &st);
 137                 break;
 138 #endif
 139 #if F_SETFD >= _ast_F_LOCAL && defined(FIOCLEX)
 140         case F_SETFD:
 141                 n = va_arg(ap, int);
 142                 op = ioctl(fd, n == FD_CLOEXEC ? FIOCLEX : FIONCLEX, 0);
 143                 break;
 144 #endif
 145         default:
 146                 errno = EINVAL;
 147                 op = -1;
 148                 break;
 149         }
 150         else
 151 #if _lib_fcntl
 152         op = fcntl(fd, op, va_arg(ap, int));
 153 #else
 154         {
 155                 errno = EINVAL;
 156                 op = -1;
 157         }
 158 #endif
 159         va_end(ap);
 160         return(op);
 161 }
 162
 163 #endif