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 /*****************************************************************************
  16
  17     NAME */
  18         int fcntl(
  19
  20 /*  SYNOPSIS */
  21         int fd,
  22         int cmd,
  23         ...)
  24
  25 /*  FUNCTION
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41 ******************************************************************************/
  42 {
  43     fdesc *desc = __getfdesc(fd);
  44
  45     if (!desc)
  46     {
  47         errno = EBADF;
  48         return -1;
  49     }
  50
  51     switch (cmd)
  52     {
  53         case F_DUPFD:
  54         {
  55             va_list ap;
  56             int     arg;
  57
  58             va_start(ap, cmd);
  59             arg = va_arg(ap, int);
  60             va_end(ap);
  61
  62             /*
  63                 FIXME: FD_CLOEXEC must be off on the copy, once this flag
  64                        is supported (related to F_GETFD and F_SETFD).
  65             */
  66
  67             return dup2(fd, __getfirstfd(arg));
  68         }
  69
  70         case F_GETFL:
  71             return desc->flags & (O_NONBLOCK|O_APPEND|O_ASYNC);
  72
  73         case F_SETFL:
  74         {
  75             va_list ap;
  76             int     arg;
  77             int     oldmode = __oflags2amode(desc->flags & ~(O_NONBLOCK|O_APPEND|O_ASYNC));
  78
  79             va_start(ap, cmd);
  80             arg = va_arg(ap, int);
  81             va_end(ap);
  82
  83             arg &= (O_NONBLOCK|O_APPEND|O_ASYNC);
  84
  85             if (ChangeMode(CHANGE_FH, desc->fh, oldmode | __oflags2amode(arg)) == DOSTRUE)
  86             {
  87                 desc->flags &= ~(O_NONBLOCK|O_APPEND|O_ASYNC);
  88                 desc->flags |= arg;
  89                 return 0;
  90             }
  91
  92             errno = IoErr2errno(IoErr());
  93             return -1;
  94         }
  95
  96         default:
  97             errno = EINVAL;
  98             return -1;
  99     }
 100 }