newlib/libc/sys/mmixware/write.c

   1 /* write for MMIXware.
   2
   3    Copyright (C) 2001, 2023 Hans-Peter Nilsson
   4
   5    Permission to use, copy, modify, and distribute this software is
   6    freely granted, provided that the above copyright notice, this notice
   7    and the following disclaimer are preserved with no changes.
   8
   9    THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  10    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  11    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  12    PURPOSE.  */
  13
  14 #include <_ansi.h>
  15 #include <sys/types.h>
  16 #include <sys/stat.h>
  17 #include "sys/syscall.h"
  18 #include <errno.h>
  19
  20 int
  21 _write ( int file,
  22          const void *ptr,
  23          size_t len)
  24 {
  25   long ret;
  26
  27   if ((unsigned int) file >= 32 || _MMIX_allocated_filehandle[file] == 0)
  28     {
  29       errno = EBADF;
  30       return -1;
  31     }
  32
  33   ret = TRAP3f (SYS_Fwrite, file, ptr, len);
  34
  35   if (ret < 0)
  36     {
  37       errno = EIO;
  38       return -1;
  39     }
  40
  41   return len;
  42 }