(obstack_free): Explicitly convert __obj to
[kopensolaris-gnu/glibc.git] / mach / devstream.c
index 8827794..b54dcff 100644 (file)
@@ -1,23 +1,22 @@
 /* stdio on a Mach device port.
-   Translates \n to \r\n on output.
+   Translates \n to \r\n on output, echos and translates \r to \n on input.
+   Copyright (C) 1992, 1993, 1994, 1996, 1997 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
 
-Copyright (C) 1992, 1993 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 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.
 
-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.  */
+   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., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
 
 #include <stdio.h>
 #include <mach.h>
@@ -30,7 +29,8 @@ input (FILE *f)
 {
   kern_return_t err;
   char *buffer;
-  size_t to_read, nread;
+  size_t to_read;
+  mach_msg_type_number_t nread;
   char c;
 
   if (f->__buffer == NULL)
@@ -46,8 +46,11 @@ input (FILE *f)
 
   f->__eof = 0;
 
-  if (err = device_read_inband ((device_t) f->__cookie, 0, f->__target,
-                               to_read, buffer, &nread))
+  nread = to_read;
+  err = device_read_inband ((device_t) f->__cookie, 0, f->__target,
+                           to_read, buffer, &nread);
+
+  if (err)
     {
       f->__error = 1;
       f->__bufp = f->__get_limit = f->__put_limit = f->__buffer;
@@ -55,6 +58,18 @@ input (FILE *f)
       return EOF;
     }
 
+  /* Echo it back.  */
+  err = device_write_inband ((device_t) f->__cookie, 0, f->__target,
+                            buffer, nread, (int *) &to_read);
+
+  /* Translate LF to CR.  */
+  {
+    char *p;
+    for (p = memchr (buffer, '\r', nread); p;
+        p = memchr (p + 1, '\r', (buffer + nread) - (p + 1)))
+      *p = '\n';
+  }
+
   if (f->__buffer == NULL)
     return (unsigned char) c;
 
@@ -64,6 +79,67 @@ input (FILE *f)
   return (unsigned char) *f->__bufp++;
 }
 
+
+#if 0
+static void
+output (FILE *f, int c)
+{
+  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->__put_limit == f->__buffer)
+       {
+         /* Prime the stream for writing.  */
+         f->__put_limit = f->__buffer + f->__bufsize;
+         f->__bufp = f->__buffer;
+         if (c != EOF)
+           {
+             *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;
+    }
+}
+#endif
+
+
 static void
 output (FILE *f, int c)
 {
@@ -71,10 +147,16 @@ output (FILE *f, int c)
     {
       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 ((device_t) f->__cookie, 0,
-                                        f->__target, p, to_write, &wrote))
+                                        f->__target, p, thiswrite, &wrote))
            {
              errno = err;
              f->__error = 1;
@@ -154,16 +236,41 @@ output (FILE *f, int c)
     }
 }
 
+static int
+dealloc_ref (void *cookie)
+{
+  if (mach_port_deallocate (mach_task_self (), (mach_port_t) cookie))
+    {
+      errno = EINVAL;
+      return -1;
+    }
+  return 0;
+}
+
+
 FILE *
 mach_open_devstream (mach_port_t dev, const char *mode)
 {
-  FILE *stream = fopencookie ((void *) dev, mode, __default_io_functions);
+  FILE *stream;
+
+  if (mach_port_mod_refs (mach_task_self (), dev, MACH_PORT_RIGHT_SEND, 1))
+    {
+      errno = EINVAL;
+      return NULL;
+    }
+
+  stream = fopencookie ((void *) dev, mode, __default_io_functions);
   if (stream == NULL)
-    return NULL;
+    {
+      mach_port_deallocate (mach_task_self (), dev);
+      return NULL;
+    }
 
   stream->__room_funcs.__input = input;
   stream->__room_funcs.__output = output;
-  stream->__io_funcs.__close = (__io_close_fn *) device_close;
+  stream->__io_funcs.__close = dealloc_ref;
+  stream->__io_funcs.__seek = NULL; /* Cannot seek.  */
+  stream->__io_funcs.__fileno = NULL; /* No corresponding POSIX.1 fd.  */
   stream->__seen = 1;
 
   return stream;