compiler/clib/fcntl.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/dos.h>
   7
   8 #include <fcntl.h>
   9 #include <errno.h>
  10 #include <stdarg.h>
  11
  12 #include "__errno.h"
  13 #include "__open.h"
  14
  15 int fcntl(int fd, int cmd, ...)
  16 {
  17     fdesc *desc = __getfdesc(fd);
  18
  19     if (!desc)
  20     {
  21         errno = EBADF;
  22         return -1;
  23     }
  24
  25     switch (cmd)
  26     {
  27         case F_DUPFD:
  28         {
  29             va_list ap;
  30             int     arg;
  31
  32             va_start(ap, cmd);
  33             arg = va_arg(ap, int);
  34             va_end(ap);
  35
  36             /*
  37                 FIXME: FD_CLOEXEC must be off on the copy, once this flag
  38                        is supported (related to F_GETFD and F_SETFD).
  39             */
  40
  41             return dup2(fd, __getfirstfd(arg));
  42         }
  43
  44         case F_GETFL:
  45             return desc->flags & (O_NONBLOCK|O_APPEND|O_ASYNC);
  46
  47         case F_SETFL:
  48         {
  49             va_list ap;
  50             int     arg;
  51             int     oldmode = __oflags2amode(desc->flags & ~(O_NONBLOCK|O_APPEND|O_ASYNC));
  52
  53             va_start(ap, cmd);
  54             arg = va_arg(ap, int);
  55             va_end(ap);
  56
  57             arg &= (O_NONBLOCK|O_APPEND|O_ASYNC);
  58
  59             if (ChangeMode(CHANGE_FH, desc->fh, oldmode | __oflags2amode(arg)) == DOSTRUE)
  60             {
  61                 desc->flags &= ~(O_NONBLOCK|O_APPEND|O_ASYNC);
  62                 desc->flags |= arg;
  63                 return 0;
  64             }
  65
  66             errno = IoErr2errno(IoErr());
  67             return -1;
  68         }
  69
  70         default:
  71             errno = EINVAL;
  72             return -1;
  73     }
  74 }