Formerly ../mach/devstream.c.~16~
[kopensolaris-gnu/glibc.git] / mach / devstream.c
index 7542f11..cb1dfb6 100644 (file)
@@ -1,17 +1,37 @@
 /* stdio on a Mach device port.
-   Translates \n to \r on output.  */
+   Translates \n to \r\n on output.
+
+Copyright (C) 1992, 1993, 1994 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 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
+Library General Public License for more details.
+
+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)
 {
-  error_t err;
+  kern_return_t err;
   char *buffer;
   size_t to_read;
+  mach_msg_type_size_t nread;
   char c;
 
   if (f->__buffer == NULL)
@@ -27,12 +47,13 @@ input (FILE *f)
 
   f->__eof = 0;
 
-  if (err = device_read_inband ((device_t) cookie, 0, f->__target, to_read,
-                               buffer, &nread))
+  nread = to_read;
+  if (err = device_read_inband ((device_t) f->__cookie, 0, f->__target,
+                               to_read, buffer, &nread))
     {
-      errno = EIO;
       f->__error = 1;
       f->__bufp = f->__get_limit = f->__put_limit = f->__buffer;
+      errno = err;
       return EOF;
     }
 
@@ -42,38 +63,115 @@ input (FILE *f)
   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++;
+  return (unsigned char) *f->__bufp++;
 }
 
+
 static void
 output (FILE *f, int c)
 {
-  error_t err;
-  size_t to_write;
-  char *p;
+  inline void write_some (const char *p, size_t to_write)
+    {
+      kern_return_t err;
+      int wrote;
+      while (to_write > 0)
+       {
+         if (err = device_write ((device_t) f->__cookie, 0,
+                                 f->__target, (char *)p, 
+                                 to_write, &wrote))
+           {
+             errno = err;
+             f->__error = 1;
+             break;
+           }
+         p += wrote;
+         to_write -= wrote;
+         f->__target += wrote;
+       }
+    }
 
-  if (f->__buffer == NULL)
+  if (f->__buffer != NULL)
     {
-      if (c != EOF)
+      if (f->__put_limit == f->__buffer)
        {
-         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)
+         /* Prime the stream for writing.  */
+         f->__put_limit = f->__buffer + f->__bufsize;
+         f->__bufp = f->__buffer;
+         if (c != EOF)
            {
-             errno = EIO;
+             *f->__bufp++ = (unsigned char) c;
+             c = EOF;
+           }
+       }
+
+
+      /* Write out the buffer.  */
+
+      write_some (f->__buffer, f->__bufp - f->__buffer);
+
+      f->__bufp = f->__buffer;
+    }
+
+  if (c != EOF && !ferror (f))
+    {
+      if (f->__linebuf && (unsigned char) c == '\n')
+       {
+         static const char nl = '\n';
+         write_some (&nl, 1);
+       }
+      else
+       *f->__bufp++ = (unsigned char) c;
+    }
+}
+
+
+
+#if 0                          /* Translates \n to \r\n.  */
+static void
+output (FILE *f, int c)
+{
+  void write_some (const char *p, size_t to_write)
+    {
+      kern_return_t err;
+      int wrote;
+      while (to_write > 0)
+       {
+         if (err = device_write_inband ((device_t) f->__cookie, 0,
+                                        f->__target, p, to_write, &wrote))
+           {
+             errno = err;
              f->__error = 1;
+             break;
            }
+         p += wrote;
+         to_write -= wrote;
+         f->__target += wrote;
+       }
+    }
+  void write_crlf (void)
+    {
+      static const char crlf[] = "\r\n";
+      write_some (crlf, 2);
+    }
+
+  if (f->__buffer == NULL)
+    {
+      /* The stream is unbuffered.  */
+
+      if (c == '\n')
+       write_crlf ();
+      else if (c != EOF)
+       {
+         char cc = (unsigned char) c;
+         write_some (&cc, 1);
        }
-      ++f->__target;
+
       return;
     }
 
   if (f->__put_limit == f->__buffer)
     {
+      /* Prime the stream for writing.  */
       f->__put_limit = f->__buffer + f->__bufsize;
       f->__bufp = f->__buffer;
       if (c != EOF)
@@ -83,69 +181,54 @@ output (FILE *f, int c)
        }
     }
 
-  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;
-    }
+  {
+    /* Search for newlines (LFs) in the buffer.  */
 
-  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;
-    }
+    char *start = f->__buffer, *p = start;
+
+    while (!ferror (f) && (p = memchr (p, '\n', f->__bufp - start)))
+      {
+       /* Found one.  Replace it with a CR and write out through that CR.  */
+
+       *p = '\r';
+       write_some (start, p + 1 - start);
+
+       /* Change it back to an LF; the next iteration will write it out
+          first thing.  Start the next searching iteration one char later.  */
+
+       start = p;
+       *p++ = '\n';
+      }
+
+    /* Write the remainder of the buffer.  */
+
+    if (!ferror (f))
+      write_some (start, f->__bufp - start);
+  }
 
   f->__bufp = f->__buffer;
 
   if (c != EOF && !ferror (f))
     {
       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;
-       }
+       write_crlf ();
       else
        *f->__bufp++ = (unsigned char) c;
     }
 }
+#endif
 
 FILE *
-mach_open_devstream (device_t dev)
+mach_open_devstream (mach_port_t dev, const char *mode)
 {
-  FILE *stream = __newstream ();
+  FILE *stream = fopencookie ((void *) dev, mode, __default_io_functions);
   if (stream == NULL)
     return NULL;
 
-  stream->__cookie = (void *) dev;
   stream->__room_funcs.__input = input;
   stream->__room_funcs.__output = output;
-  stream->__io_funcs.__close = device_close;
+  stream->__io_funcs.__close = (__io_close_fn *) device_close;
   stream->__seen = 1;
 
-  retrun stream;
+  return stream;
 }