/* 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 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>
{
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)
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;
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;
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)
{
{
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;
}
}
+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 (device_t dev, const char *mode)
+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 = 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;