/*
 * Stub version of write.
 */

#include <_ansi.h>
#include <_syslist.h>
#include <errno.h>
#undef errno
extern int errno;
#include "warning.h"
#include "psml-bochs-io.h"

int
_DEFUN (write, (file, ptr, len),
        int   file _AND
        char *ptr  _AND
        int   len)
{
  for (int i=0; i<len; i++) _IO_MEM = ptr[i];

  return len;
}

stub_warning (write)