static int
ioscm_fill_input (SCM port)
{
/* Borrowed from libguile/fports.c. */
long count;
scm_t_port *pt = SCM_PTAB_ENTRY (port);
/* If we're called on stdout,stderr, punt. */
if (! scm_is_eq (port, input_port_scm))
return (scm_t_wchar) EOF; /* Set errno and return -1? */
gdb_flush (gdb_stdout);
gdb_flush (gdb_stderr);
count = ui_file_read (gdb_stdin, (char *) pt->read_buf, pt->read_buf_size);
if (count == -1)
scm_syserror (FUNC_NAME);
if (count == 0)
return (scm_t_wchar) EOF;
pt->read_pos = pt->read_buf;
pt->read_end = pt->read_buf + count;
return *pt->read_buf;
}
static void
remote_fileio_func_read (char *buf)
{
long target_fd, num;
LONGEST lnum;
CORE_ADDR ptrval;
int fd, ret;
gdb_byte *buffer;
size_t length;
off_t old_offset, new_offset;
/* 1. Parameter: file descriptor */
if (remote_fileio_extract_int (&buf, &target_fd))
{
remote_fileio_ioerror ();
return;
}
fd = remote_fileio_map_fd ((int) target_fd);
if (fd == FIO_FD_INVALID)
{
remote_fileio_badfd ();
return;
}
/* 2. Parameter: buffer pointer */
if (remote_fileio_extract_long (&buf, &lnum))
{
remote_fileio_ioerror ();
return;
}
ptrval = (CORE_ADDR) lnum;
/* 3. Parameter: buffer length */
if (remote_fileio_extract_int (&buf, &num))
{
remote_fileio_ioerror ();
return;
}
length = (size_t) num;
switch (fd)
{
case FIO_FD_CONSOLE_OUT:
remote_fileio_badfd ();
return;
case FIO_FD_CONSOLE_IN:
{
static char *remaining_buf = NULL;
static int remaining_length = 0;
buffer = (gdb_byte *) xmalloc (16384);
if (remaining_buf)
{
remote_fio_no_longjmp = 1;
if (remaining_length > length)
{
memcpy (buffer, remaining_buf, length);
memmove (remaining_buf, remaining_buf + length,
remaining_length - length);
remaining_length -= length;
ret = length;
}
else
{
memcpy (buffer, remaining_buf, remaining_length);
xfree (remaining_buf);
remaining_buf = NULL;
ret = remaining_length;
}
}
else
{
/* Windows (at least XP and Server 2003) has difficulty
with large reads from consoles. If a handle is
backed by a real console device, overly large reads
from the handle will fail and set errno == ENOMEM.
On a Windows Server 2003 system where I tested,
reading 26608 bytes from the console was OK, but
anything above 26609 bytes would fail. The limit has
been observed to vary on different systems. So, we
limit this read to something smaller than that - by a
safe margin, in case the limit depends on system
resources or version. */
ret = ui_file_read (gdb_stdtargin, (char *) buffer, 16383);
remote_fio_no_longjmp = 1;
if (ret > 0 && (size_t)ret > length)
{
remaining_buf = (char *) xmalloc (ret - length);
remaining_length = ret - length;
memcpy (remaining_buf, buffer + length, remaining_length);
ret = length;
}
}
}
break;
default:
buffer = (gdb_byte *) xmalloc (length);
/* POSIX defines EINTR behaviour of read in a weird way. It's allowed
for read() to return -1 even if "some" bytes have been read. It
has been corrected in SUSv2 but that doesn't help us much...
Therefore a complete solution must check how many bytes have been
read on EINTR to return a more reliable value to the target */
old_offset = lseek (fd, 0, SEEK_CUR);
remote_fio_no_longjmp = 1;
ret = read (fd, buffer, length);
if (ret < 0 && errno == EINTR)
{
new_offset = lseek (fd, 0, SEEK_CUR);
/* If some data has been read, return the number of bytes read.
The Ctrl-C flag is set in remote_fileio_reply() anyway. */
if (old_offset != new_offset)
ret = new_offset - old_offset;
}
break;
}
if (ret > 0)
{
errno = target_write_memory (ptrval, buffer, ret);
if (errno != 0)
ret = -1;
}
if (ret < 0)
remote_fileio_return_errno (-1);
else
remote_fileio_return_success (ret);
xfree (buffer);
}
