Revert "nptl files should #include <pthreadP.h> instead of "pthreadP.h""
[kopensolaris-gnu/glibc.git] / mach / devstream.c
index c680323..1c51695 100644 (file)
 /* stdio on a Mach device port.
-   Translates \n to \r on output.
+   Translates \n to \r\n on output, echos and translates \r to \n on input.
+   Copyright (C) 1992,93,94,96,97,2000 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
 
-Copyright (C) 1992 Free Software Foundation, Inc.
-This file is part of the GNU C Library.
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
-The GNU C Library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public License as
-published by the Free Software Foundation; either version 2 of the
-License, or (at your option) any later version.
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Lesser General Public License for more details.
 
-The GNU C Library is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-Library General Public License for more details.
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
-You should have received a copy of the GNU Library General Public
-License along with the GNU C Library; see the file COPYING.LIB.  If
-not, write to the Free Software Foundation, Inc., 675 Mass Ave,
-Cambridge, MA 02139, USA.  */
-
-#include <ansidecl.h>
 #include <stdio.h>
 #include <mach.h>
-#include <mach/device.h>
+#include <device/device.h>
+#include <errno.h>
+#include <string.h>
 
-static int
-input (FILE *f)
+
+static ssize_t
+devstream_write (void *cookie, const char *buffer, size_t n)
 {
-  error_t err;
-  char *buffer;
-  size_t to_read;
-  char c;
+  const device_t dev = (device_t) cookie;
 
-  if (f->__buffer == NULL)
+  int write_some (const char *p, size_t to_write)
     {
-      buffer = &c;
-      to_read = 1;
+      kern_return_t err;
+      int wrote;
+      int thiswrite;
+
+      while (to_write > 0)
+       {
+         thiswrite = to_write;
+         if (thiswrite > IO_INBAND_MAX)
+           thiswrite = IO_INBAND_MAX;
+
+         if (err = device_write_inband (dev, 0, 0, p, thiswrite, &wrote))
+           {
+             errno = err;
+             return 0;
+           }
+         p += wrote;
+         to_write -= wrote;
+       }
+      return 1;
     }
-  else
+  int write_crlf (void)
     {
-      buffer = f->__buffer;
-      to_read = f->__bufsize;
+      static const char crlf[] = "\r\n";
+      return write_some (crlf, 2);
     }
 
-  f->__eof = 0;
+  /* Search for newlines (LFs) in the buffer.  */
 
-  if (err = device_read_inband ((device_t) cookie, 0, f->__target, to_read,
-                               buffer, &nread))
+  const char *start = buffer, *p;
+  while ((p = memchr (start, '\n', n)) != NULL)
     {
-      f->__error = 1;
-      f->__bufp = f->__get_limit = f->__put_limit = f->__buffer;
-      errno = err;
-      return EOF;
-    }
+      /* Found one.  Write out through the preceding character,
+        and then write a CR/LF pair.  */
+
+      if ((p > start && !write_some (start, p - start))
+         || !write_crlf ())
+       return (start - buffer) ?: -1;
 
-  if (f->__buffer == NULL)
-    return (unsigned char) c;
+      n -= p + 1 - start;
+      start = p + 1;
+    }
 
-  f->__get_limit = f->__buffer + nread;
-  f->__bufp = f->__buffer;
-  f->__put_limit = f->__buffer + (f->__mode.__write ? f->__bufsize : 0);
-  return (unsigned char *) *f->__bufp++;
+  /* Write the remainder of the buffer.  */
+  if (write_some (start, n))
+    start += n;
+  return (start - buffer) ?: -1;
 }
 
-static void
-output (FILE *f, int c)
+static ssize_t
+devstream_read (void *cookie, char *buffer, size_t to_read)
 {
-  error_t err;
-  size_t to_write;
-  char *p;
+  const device_t dev = (device_t) cookie;
 
-  if (f->__buffer == NULL)
-    {
-      if (c != EOF)
-       {
-         char cc = (unsigned char) c;
-         int wrote;
-         if (cc == '\n')
-           cc = '\r';
-         if ((err = device_write_inband ((device_t) f->__cookie, 0,
-                                         f->__target, &cc, 1, &wrote)) ||
-             wrote != 1)
-           {
-             errno = err;
-             f->__error = 1;
-           }
-       }
-      ++f->__target;
-      return;
-    }
+  kern_return_t err;
+  mach_msg_type_number_t nread = to_read;
 
-  if (f->__put_limit == f->__buffer)
+  err = device_read_inband (dev, 0, 0, to_read, buffer, &nread);
+  if (err)
     {
-      f->__put_limit = f->__buffer + f->__bufsize;
-      f->__bufp = f->__buffer;
-      if (c != EOF)
-       {
-         *f->__bufp++ = (unsigned char) c;
-         c = EOF;
-       }
+      errno = err;
+      return -1;
     }
 
-  to_write = f->__bufp - f->__buffer;
-  p = f->__buffer;
-  while (1)
-    {
-      char *p2 = memchr (p, '\n', to_write);
-      if (p2 == NULL)
-       break;
-      *p2++ = '\r';
-      to_write -= p2 - p;
-      p = p2;
-    }
+  /* Translate CR to LF.  */
+  {
+    char *p;
+    for (p = memchr (buffer, '\r', nread); p;
+        p = memchr (p + 1, '\r', (buffer + nread) - (p + 1)))
+      *p = '\n';
+  }
 
-  to_write = f->__bufp - f->__buffer;
-  p = f->__buffer;
-  while (to_write > 0)
-    {
-      int wrote;
-      if (err = device_write_inband ((device_t) f->__cookie, 0, f->__target,
-                                    p, to_write, &wrote))
-       {
-         errno = EIO;
-         f->__error = 1;
-         break;
-       }
-      p += wrote;
-      to_write -= wrote;
-      f->__target += wrote;
-    }
+  /* Echo back what we read.  */
+  (void) devstream_write (cookie, buffer, nread);
 
-  f->__bufp = f->__buffer;
+  return nread;
+}
 
-  if (c != EOF && !ferror (f))
+static int
+dealloc_ref (void *cookie)
+{
+  if (mach_port_deallocate (mach_task_self (), (mach_port_t) cookie))
     {
-      if (f->__linebuf && (unsigned char) c == '\n')
-       {
-         static const char nl = '\r';
-         if ((err = device_write_inband ((device_t) f->__cookie, 0,
-                                         f->__target, &nl, 1, &wrote)) ||
-             wrote != 1)
-           {
-             errno = EIO;
-             f->__error = 1;
-           }
-         else
-           ++f->__target;
-       }
-      else
-       *f->__bufp++ = (unsigned char) c;
+      errno = EINVAL;
+      return -1;
     }
+  return 0;
 }
 
+#ifndef USE_IN_LIBIO
+#define cookie_io_functions_t __io_functions
+#define write __write
+#define read __read
+#define close __close
+#endif
+
 FILE *
-mach_open_devstream (device_t dev)
+mach_open_devstream (mach_port_t dev, const char *mode)
 {
-  FILE *stream = __newstream ();
-  if (stream == NULL)
-    return NULL;
+  FILE *stream;
 
-  stream->__cookie = (void *) dev;
-  stream->__room_funcs.__input = input;
-  stream->__room_funcs.__output = output;
-  stream->__io_funcs.__close = device_close;
-  stream->__seen = 1;
+  if (mach_port_mod_refs (mach_task_self (), dev, MACH_PORT_RIGHT_SEND, 1))
+    {
+      errno = EINVAL;
+      return NULL;
+    }
+
+  stream = fopencookie ((void *) dev, mode,
+                       (cookie_io_functions_t) { write: devstream_write,
+                                                 read: devstream_read,
+                                                 close: dealloc_ref });
+  if (stream == NULL)
+    {
+      mach_port_deallocate (mach_task_self (), dev);
+      return NULL;
+    }
 
-  retrun stream;
+  return stream;
 }