URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [gdb/] [remote-fileio.c] - Rev 840
Compare with Previous | Blame | View Log
/* Remote File-I/O communications Copyright (C) 2003, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program 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 General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. */ /* See the GDB User Guide for details of the GDB remote protocol. */ #include "defs.h" #include "gdb_string.h" #include "gdbcmd.h" #include "remote.h" #include "gdb/fileio.h" #include "gdb_wait.h" #include "gdb_stat.h" #include "exceptions.h" #include "remote-fileio.h" #include <fcntl.h> #include <sys/time.h> #ifdef __CYGWIN__ #include <sys/cygwin.h> /* For cygwin_conv_to_full_posix_path. */ #endif #include <signal.h> static struct { int *fd_map; int fd_map_size; } remote_fio_data; #define FIO_FD_INVALID -1 #define FIO_FD_CONSOLE_IN -2 #define FIO_FD_CONSOLE_OUT -3 static int remote_fio_system_call_allowed = 0; static int remote_fileio_init_fd_map (void) { int i; if (!remote_fio_data.fd_map) { remote_fio_data.fd_map = (int *) xmalloc (10 * sizeof (int)); remote_fio_data.fd_map_size = 10; remote_fio_data.fd_map[0] = FIO_FD_CONSOLE_IN; remote_fio_data.fd_map[1] = FIO_FD_CONSOLE_OUT; remote_fio_data.fd_map[2] = FIO_FD_CONSOLE_OUT; for (i = 3; i < 10; ++i) remote_fio_data.fd_map[i] = FIO_FD_INVALID; } return 3; } static int remote_fileio_resize_fd_map (void) { int i = remote_fio_data.fd_map_size; if (!remote_fio_data.fd_map) return remote_fileio_init_fd_map (); remote_fio_data.fd_map_size += 10; remote_fio_data.fd_map = (int *) xrealloc (remote_fio_data.fd_map, remote_fio_data.fd_map_size * sizeof (int)); for (; i < remote_fio_data.fd_map_size; i++) remote_fio_data.fd_map[i] = FIO_FD_INVALID; return remote_fio_data.fd_map_size - 10; } static int remote_fileio_next_free_fd (void) { int i; for (i = 0; i < remote_fio_data.fd_map_size; ++i) if (remote_fio_data.fd_map[i] == FIO_FD_INVALID) return i; return remote_fileio_resize_fd_map (); } static int remote_fileio_fd_to_targetfd (int fd) { int target_fd = remote_fileio_next_free_fd (); remote_fio_data.fd_map[target_fd] = fd; return target_fd; } static int remote_fileio_map_fd (int target_fd) { remote_fileio_init_fd_map (); if (target_fd < 0 || target_fd >= remote_fio_data.fd_map_size) return FIO_FD_INVALID; return remote_fio_data.fd_map[target_fd]; } static void remote_fileio_close_target_fd (int target_fd) { remote_fileio_init_fd_map (); if (target_fd >= 0 && target_fd < remote_fio_data.fd_map_size) remote_fio_data.fd_map[target_fd] = FIO_FD_INVALID; } static int remote_fileio_oflags_to_host (long flags) { int hflags = 0; if (flags & FILEIO_O_CREAT) hflags |= O_CREAT; if (flags & FILEIO_O_EXCL) hflags |= O_EXCL; if (flags & FILEIO_O_TRUNC) hflags |= O_TRUNC; if (flags & FILEIO_O_APPEND) hflags |= O_APPEND; if (flags & FILEIO_O_RDONLY) hflags |= O_RDONLY; if (flags & FILEIO_O_WRONLY) hflags |= O_WRONLY; if (flags & FILEIO_O_RDWR) hflags |= O_RDWR; /* On systems supporting binary and text mode, always open files in binary mode. */ #ifdef O_BINARY hflags |= O_BINARY; #endif return hflags; } static mode_t remote_fileio_mode_to_host (long mode, int open_call) { mode_t hmode = 0; if (!open_call) { if (mode & FILEIO_S_IFREG) hmode |= S_IFREG; if (mode & FILEIO_S_IFDIR) hmode |= S_IFDIR; if (mode & FILEIO_S_IFCHR) hmode |= S_IFCHR; } if (mode & FILEIO_S_IRUSR) hmode |= S_IRUSR; if (mode & FILEIO_S_IWUSR) hmode |= S_IWUSR; if (mode & FILEIO_S_IXUSR) hmode |= S_IXUSR; #ifdef S_IRGRP if (mode & FILEIO_S_IRGRP) hmode |= S_IRGRP; #endif #ifdef S_IWGRP if (mode & FILEIO_S_IWGRP) hmode |= S_IWGRP; #endif #ifdef S_IXGRP if (mode & FILEIO_S_IXGRP) hmode |= S_IXGRP; #endif if (mode & FILEIO_S_IROTH) hmode |= S_IROTH; #ifdef S_IWOTH if (mode & FILEIO_S_IWOTH) hmode |= S_IWOTH; #endif #ifdef S_IXOTH if (mode & FILEIO_S_IXOTH) hmode |= S_IXOTH; #endif return hmode; } static LONGEST remote_fileio_mode_to_target (mode_t mode) { mode_t tmode = 0; if (S_ISREG(mode)) tmode |= FILEIO_S_IFREG; if (S_ISDIR(mode)) tmode |= FILEIO_S_IFDIR; if (S_ISCHR(mode)) tmode |= FILEIO_S_IFCHR; if (mode & S_IRUSR) tmode |= FILEIO_S_IRUSR; if (mode & S_IWUSR) tmode |= FILEIO_S_IWUSR; if (mode & S_IXUSR) tmode |= FILEIO_S_IXUSR; #ifdef S_IRGRP if (mode & S_IRGRP) tmode |= FILEIO_S_IRGRP; #endif #ifdef S_IWRGRP if (mode & S_IWGRP) tmode |= FILEIO_S_IWGRP; #endif #ifdef S_IXGRP if (mode & S_IXGRP) tmode |= FILEIO_S_IXGRP; #endif if (mode & S_IROTH) tmode |= FILEIO_S_IROTH; #ifdef S_IWOTH if (mode & S_IWOTH) tmode |= FILEIO_S_IWOTH; #endif #ifdef S_IXOTH if (mode & S_IXOTH) tmode |= FILEIO_S_IXOTH; #endif return tmode; } static int remote_fileio_errno_to_target (int error) { switch (error) { case EPERM: return FILEIO_EPERM; case ENOENT: return FILEIO_ENOENT; case EINTR: return FILEIO_EINTR; case EIO: return FILEIO_EIO; case EBADF: return FILEIO_EBADF; case EACCES: return FILEIO_EACCES; case EFAULT: return FILEIO_EFAULT; case EBUSY: return FILEIO_EBUSY; case EEXIST: return FILEIO_EEXIST; case ENODEV: return FILEIO_ENODEV; case ENOTDIR: return FILEIO_ENOTDIR; case EISDIR: return FILEIO_EISDIR; case EINVAL: return FILEIO_EINVAL; case ENFILE: return FILEIO_ENFILE; case EMFILE: return FILEIO_EMFILE; case EFBIG: return FILEIO_EFBIG; case ENOSPC: return FILEIO_ENOSPC; case ESPIPE: return FILEIO_ESPIPE; case EROFS: return FILEIO_EROFS; case ENOSYS: return FILEIO_ENOSYS; case ENAMETOOLONG: return FILEIO_ENAMETOOLONG; } return FILEIO_EUNKNOWN; } static int remote_fileio_seek_flag_to_host (long num, int *flag) { if (!flag) return 0; switch (num) { case FILEIO_SEEK_SET: *flag = SEEK_SET; break; case FILEIO_SEEK_CUR: *flag = SEEK_CUR; break; case FILEIO_SEEK_END: *flag = SEEK_END; break; default: return -1; } return 0; } static int remote_fileio_extract_long (char **buf, LONGEST *retlong) { char *c; int sign = 1; if (!buf || !*buf || !**buf || !retlong) return -1; c = strchr (*buf, ','); if (c) *c++ = '\0'; else c = strchr (*buf, '\0'); while (strchr ("+-", **buf)) { if (**buf == '-') sign = -sign; ++*buf; } for (*retlong = 0; **buf; ++*buf) { *retlong <<= 4; if (**buf >= '0' && **buf <= '9') *retlong += **buf - '0'; else if (**buf >= 'a' && **buf <= 'f') *retlong += **buf - 'a' + 10; else if (**buf >= 'A' && **buf <= 'F') *retlong += **buf - 'A' + 10; else return -1; } *retlong *= sign; *buf = c; return 0; } static int remote_fileio_extract_int (char **buf, long *retint) { int ret; LONGEST retlong; if (!retint) return -1; ret = remote_fileio_extract_long (buf, &retlong); if (!ret) *retint = (long) retlong; return ret; } static int remote_fileio_extract_ptr_w_len (char **buf, CORE_ADDR *ptrval, int *length) { char *c; LONGEST retlong; if (!buf || !*buf || !**buf || !ptrval || !length) return -1; c = strchr (*buf, '/'); if (!c) return -1; *c++ = '\0'; if (remote_fileio_extract_long (buf, &retlong)) return -1; *ptrval = (CORE_ADDR) retlong; *buf = c; if (remote_fileio_extract_long (buf, &retlong)) return -1; *length = (int) retlong; return 0; } /* Convert to big endian */ static void remote_fileio_to_be (LONGEST num, char *buf, int bytes) { int i; for (i = 0; i < bytes; ++i) buf[i] = (num >> (8 * (bytes - i - 1))) & 0xff; } static void remote_fileio_to_fio_uint (long num, fio_uint_t fnum) { remote_fileio_to_be ((LONGEST) num, (char *) fnum, 4); } static void remote_fileio_to_fio_mode (mode_t num, fio_mode_t fnum) { remote_fileio_to_be (remote_fileio_mode_to_target(num), (char *) fnum, 4); } static void remote_fileio_to_fio_time (time_t num, fio_time_t fnum) { remote_fileio_to_be ((LONGEST) num, (char *) fnum, 4); } static void remote_fileio_to_fio_long (LONGEST num, fio_long_t fnum) { remote_fileio_to_be (num, (char *) fnum, 8); } static void remote_fileio_to_fio_ulong (LONGEST num, fio_ulong_t fnum) { remote_fileio_to_be (num, (char *) fnum, 8); } static void remote_fileio_to_fio_stat (struct stat *st, struct fio_stat *fst) { LONGEST blksize; /* `st_dev' is set in the calling function */ remote_fileio_to_fio_uint ((long) st->st_ino, fst->fst_ino); remote_fileio_to_fio_mode (st->st_mode, fst->fst_mode); remote_fileio_to_fio_uint ((long) st->st_nlink, fst->fst_nlink); remote_fileio_to_fio_uint ((long) st->st_uid, fst->fst_uid); remote_fileio_to_fio_uint ((long) st->st_gid, fst->fst_gid); remote_fileio_to_fio_uint ((long) st->st_rdev, fst->fst_rdev); remote_fileio_to_fio_ulong ((LONGEST) st->st_size, fst->fst_size); #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE blksize = st->st_blksize; #else blksize = 512; #endif remote_fileio_to_fio_ulong (blksize, fst->fst_blksize); #if HAVE_STRUCT_STAT_ST_BLOCKS remote_fileio_to_fio_ulong ((LONGEST) st->st_blocks, fst->fst_blocks); #else /* FIXME: This is correct for DJGPP, but other systems that don't have st_blocks, if any, might prefer 512 instead of st_blksize. (eliz, 30-12-2003) */ remote_fileio_to_fio_ulong (((LONGEST) st->st_size + blksize - 1) / blksize, fst->fst_blocks); #endif remote_fileio_to_fio_time (st->st_atime, fst->fst_atime); remote_fileio_to_fio_time (st->st_mtime, fst->fst_mtime); remote_fileio_to_fio_time (st->st_ctime, fst->fst_ctime); } static void remote_fileio_to_fio_timeval (struct timeval *tv, struct fio_timeval *ftv) { remote_fileio_to_fio_time (tv->tv_sec, ftv->ftv_sec); remote_fileio_to_fio_long (tv->tv_usec, ftv->ftv_usec); } static int remote_fio_ctrl_c_flag = 0; static int remote_fio_no_longjmp = 0; #if defined (HAVE_SIGACTION) && defined (SA_RESTART) static struct sigaction remote_fio_sa; static struct sigaction remote_fio_osa; #else static void (*remote_fio_ofunc)(int); #endif static void remote_fileio_sig_init (void) { #if defined (HAVE_SIGACTION) && defined (SA_RESTART) remote_fio_sa.sa_handler = SIG_IGN; sigemptyset (&remote_fio_sa.sa_mask); remote_fio_sa.sa_flags = 0; sigaction (SIGINT, &remote_fio_sa, &remote_fio_osa); #else remote_fio_ofunc = signal (SIGINT, SIG_IGN); #endif } static void remote_fileio_sig_set (void (*sigint_func)(int)) { #if defined (HAVE_SIGACTION) && defined (SA_RESTART) remote_fio_sa.sa_handler = sigint_func; sigemptyset (&remote_fio_sa.sa_mask); remote_fio_sa.sa_flags = 0; sigaction (SIGINT, &remote_fio_sa, NULL); #else signal (SIGINT, sigint_func); #endif } static void remote_fileio_sig_exit (void) { #if defined (HAVE_SIGACTION) && defined (SA_RESTART) sigaction (SIGINT, &remote_fio_osa, NULL); #else signal (SIGINT, remote_fio_ofunc); #endif } static void remote_fileio_ctrl_c_signal_handler (int signo) { remote_fileio_sig_set (SIG_IGN); remote_fio_ctrl_c_flag = 1; if (!remote_fio_no_longjmp) deprecated_throw_reason (RETURN_QUIT); remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler); } static void remote_fileio_reply (int retcode, int error) { char buf[32]; remote_fileio_sig_set (SIG_IGN); strcpy (buf, "F"); if (retcode < 0) { strcat (buf, "-"); retcode = -retcode; } sprintf (buf + strlen (buf), "%x", retcode); if (error || remote_fio_ctrl_c_flag) { if (error && remote_fio_ctrl_c_flag) error = FILEIO_EINTR; if (error < 0) { strcat (buf, "-"); error = -error; } sprintf (buf + strlen (buf), ",%x", error); if (remote_fio_ctrl_c_flag) strcat (buf, ",C"); } remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler); putpkt (buf); } static void remote_fileio_ioerror (void) { remote_fileio_reply (-1, FILEIO_EIO); } static void remote_fileio_badfd (void) { remote_fileio_reply (-1, FILEIO_EBADF); } static void remote_fileio_return_errno (int retcode) { remote_fileio_reply (retcode, retcode < 0 ? remote_fileio_errno_to_target (errno) : 0); } static void remote_fileio_return_success (int retcode) { remote_fileio_reply (retcode, 0); } /* Wrapper function for remote_write_bytes() which has the disadvantage to write only one packet, regardless of the requested number of bytes to transfer. This wrapper calls remote_write_bytes() as often as needed. */ static int remote_fileio_write_bytes (CORE_ADDR memaddr, gdb_byte *myaddr, int len) { int ret = 0, written; while (len > 0 && (written = remote_write_bytes (memaddr, myaddr, len)) > 0) { len -= written; memaddr += written; myaddr += written; ret += written; } return ret; } static void remote_fileio_func_open (char *buf) { CORE_ADDR ptrval; int length, retlength; long num; int flags, fd; mode_t mode; char *pathname; struct stat st; /* 1. Parameter: Ptr to pathname / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length)) { remote_fileio_ioerror (); return; } /* 2. Parameter: open flags */ if (remote_fileio_extract_int (&buf, &num)) { remote_fileio_ioerror (); return; } flags = remote_fileio_oflags_to_host (num); /* 3. Parameter: open mode */ if (remote_fileio_extract_int (&buf, &num)) { remote_fileio_ioerror (); return; } mode = remote_fileio_mode_to_host (num, 1); /* Request pathname using 'm' packet */ pathname = alloca (length); retlength = remote_read_bytes (ptrval, (gdb_byte *) pathname, length); if (retlength != length) { remote_fileio_ioerror (); return; } /* Check if pathname exists and is not a regular file or directory. If so, return an appropriate error code. Same for trying to open directories for writing. */ if (!stat (pathname, &st)) { if (!S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode)) { remote_fileio_reply (-1, FILEIO_ENODEV); return; } if (S_ISDIR (st.st_mode) && ((flags & O_WRONLY) == O_WRONLY || (flags & O_RDWR) == O_RDWR)) { remote_fileio_reply (-1, FILEIO_EISDIR); return; } } remote_fio_no_longjmp = 1; fd = open (pathname, flags, mode); if (fd < 0) { remote_fileio_return_errno (-1); return; } fd = remote_fileio_fd_to_targetfd (fd); remote_fileio_return_success (fd); } static void remote_fileio_func_close (char *buf) { long num; int fd; /* Parameter: file descriptor */ if (remote_fileio_extract_int (&buf, &num)) { remote_fileio_ioerror (); return; } fd = remote_fileio_map_fd ((int) num); if (fd == FIO_FD_INVALID) { remote_fileio_badfd (); return; } remote_fio_no_longjmp = 1; if (fd != FIO_FD_CONSOLE_IN && fd != FIO_FD_CONSOLE_OUT && close (fd)) remote_fileio_return_errno (-1); remote_fileio_close_target_fd ((int) num); remote_fileio_return_success (0); } static void remote_fileio_func_read (char *buf) { long target_fd, num; LONGEST lnum; CORE_ADDR ptrval; int fd, ret, retlength; 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 (32768); 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 { ret = ui_file_read (gdb_stdtargin, (char *) buffer, 32767); 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) { retlength = remote_fileio_write_bytes (ptrval, buffer, ret); if (retlength != ret) ret = -1; /* errno has been set to EIO in remote_fileio_write_bytes() */ } if (ret < 0) remote_fileio_return_errno (-1); else remote_fileio_return_success (ret); xfree (buffer); } static void remote_fileio_func_write (char *buf) { long target_fd, num; LONGEST lnum; CORE_ADDR ptrval; int fd, ret, retlength; gdb_byte *buffer; size_t length; /* 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; buffer = (gdb_byte *) xmalloc (length); retlength = remote_read_bytes (ptrval, buffer, length); if (retlength != length) { xfree (buffer); remote_fileio_ioerror (); return; } remote_fio_no_longjmp = 1; switch (fd) { case FIO_FD_CONSOLE_IN: remote_fileio_badfd (); xfree (buffer); return; case FIO_FD_CONSOLE_OUT: ui_file_write (target_fd == 1 ? gdb_stdtarg : gdb_stdtargerr, (char *) buffer, length); gdb_flush (target_fd == 1 ? gdb_stdtarg : gdb_stdtargerr); ret = length; break; default: ret = write (fd, buffer, length); if (ret < 0 && errno == EACCES) errno = EBADF; /* Cygwin returns EACCESS when writing to a R/O file.*/ break; } if (ret < 0) remote_fileio_return_errno (-1); else remote_fileio_return_success (ret); xfree (buffer); } static void remote_fileio_func_lseek (char *buf) { long num; LONGEST lnum; int fd, flag; off_t offset, ret; /* 1. Parameter: file descriptor */ if (remote_fileio_extract_int (&buf, &num)) { remote_fileio_ioerror (); return; } fd = remote_fileio_map_fd ((int) num); if (fd == FIO_FD_INVALID) { remote_fileio_badfd (); return; } else if (fd == FIO_FD_CONSOLE_IN || fd == FIO_FD_CONSOLE_OUT) { remote_fileio_reply (-1, FILEIO_ESPIPE); return; } /* 2. Parameter: offset */ if (remote_fileio_extract_long (&buf, &lnum)) { remote_fileio_ioerror (); return; } offset = (off_t) lnum; /* 3. Parameter: flag */ if (remote_fileio_extract_int (&buf, &num)) { remote_fileio_ioerror (); return; } if (remote_fileio_seek_flag_to_host (num, &flag)) { remote_fileio_reply (-1, FILEIO_EINVAL); return; } remote_fio_no_longjmp = 1; ret = lseek (fd, offset, flag); if (ret == (off_t) -1) remote_fileio_return_errno (-1); else remote_fileio_return_success (ret); } static void remote_fileio_func_rename (char *buf) { CORE_ADDR old_ptr, new_ptr; int old_len, new_len, retlength; char *oldpath, *newpath; int ret, of, nf; struct stat ost, nst; /* 1. Parameter: Ptr to oldpath / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &old_ptr, &old_len)) { remote_fileio_ioerror (); return; } /* 2. Parameter: Ptr to newpath / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &new_ptr, &new_len)) { remote_fileio_ioerror (); return; } /* Request oldpath using 'm' packet */ oldpath = alloca (old_len); retlength = remote_read_bytes (old_ptr, (gdb_byte *) oldpath, old_len); if (retlength != old_len) { remote_fileio_ioerror (); return; } /* Request newpath using 'm' packet */ newpath = alloca (new_len); retlength = remote_read_bytes (new_ptr, (gdb_byte *) newpath, new_len); if (retlength != new_len) { remote_fileio_ioerror (); return; } /* Only operate on regular files and directories */ of = stat (oldpath, &ost); nf = stat (newpath, &nst); if ((!of && !S_ISREG (ost.st_mode) && !S_ISDIR (ost.st_mode)) || (!nf && !S_ISREG (nst.st_mode) && !S_ISDIR (nst.st_mode))) { remote_fileio_reply (-1, FILEIO_EACCES); return; } remote_fio_no_longjmp = 1; ret = rename (oldpath, newpath); if (ret == -1) { /* Special case: newpath is a non-empty directory. Some systems return ENOTEMPTY, some return EEXIST. We coerce that to be always EEXIST. */ if (errno == ENOTEMPTY) errno = EEXIST; #ifdef __CYGWIN__ /* Workaround some Cygwin problems with correct errnos. */ if (errno == EACCES) { if (!of && !nf && S_ISDIR (nst.st_mode)) { if (S_ISREG (ost.st_mode)) errno = EISDIR; else { char oldfullpath[PATH_MAX + 1]; char newfullpath[PATH_MAX + 1]; int len; cygwin_conv_to_full_posix_path (oldpath, oldfullpath); cygwin_conv_to_full_posix_path (newpath, newfullpath); len = strlen (oldfullpath); if (newfullpath[len] == '/' && !strncmp (oldfullpath, newfullpath, len)) errno = EINVAL; else errno = EEXIST; } } } #endif remote_fileio_return_errno (-1); } else remote_fileio_return_success (ret); } static void remote_fileio_func_unlink (char *buf) { CORE_ADDR ptrval; int length, retlength; char *pathname; int ret; struct stat st; /* Parameter: Ptr to pathname / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length)) { remote_fileio_ioerror (); return; } /* Request pathname using 'm' packet */ pathname = alloca (length); retlength = remote_read_bytes (ptrval, (gdb_byte *) pathname, length); if (retlength != length) { remote_fileio_ioerror (); return; } /* Only operate on regular files (and directories, which allows to return the correct return code) */ if (!stat (pathname, &st) && !S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode)) { remote_fileio_reply (-1, FILEIO_ENODEV); return; } remote_fio_no_longjmp = 1; ret = unlink (pathname); if (ret == -1) remote_fileio_return_errno (-1); else remote_fileio_return_success (ret); } static void remote_fileio_func_stat (char *buf) { CORE_ADDR statptr, nameptr; int ret, namelength, retlength; char *pathname; LONGEST lnum; struct stat st; struct fio_stat fst; /* 1. Parameter: Ptr to pathname / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &nameptr, &namelength)) { remote_fileio_ioerror (); return; } /* 2. Parameter: Ptr to struct stat */ if (remote_fileio_extract_long (&buf, &lnum)) { remote_fileio_ioerror (); return; } statptr = (CORE_ADDR) lnum; /* Request pathname using 'm' packet */ pathname = alloca (namelength); retlength = remote_read_bytes (nameptr, (gdb_byte *) pathname, namelength); if (retlength != namelength) { remote_fileio_ioerror (); return; } remote_fio_no_longjmp = 1; ret = stat (pathname, &st); if (ret == -1) { remote_fileio_return_errno (-1); return; } /* Only operate on regular files and directories */ if (!ret && !S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode)) { remote_fileio_reply (-1, FILEIO_EACCES); return; } if (statptr) { remote_fileio_to_fio_stat (&st, &fst); remote_fileio_to_fio_uint (0, fst.fst_dev); retlength = remote_fileio_write_bytes (statptr, (gdb_byte *) &fst, sizeof fst); if (retlength != sizeof fst) { remote_fileio_return_errno (-1); return; } } remote_fileio_return_success (ret); } static void remote_fileio_func_fstat (char *buf) { CORE_ADDR ptrval; int fd, ret, retlength; long target_fd; LONGEST lnum; struct stat st; struct fio_stat fst; struct timeval tv; /* 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: Ptr to struct stat */ if (remote_fileio_extract_long (&buf, &lnum)) { remote_fileio_ioerror (); return; } ptrval = (CORE_ADDR) lnum; remote_fio_no_longjmp = 1; if (fd == FIO_FD_CONSOLE_IN || fd == FIO_FD_CONSOLE_OUT) { remote_fileio_to_fio_uint (1, fst.fst_dev); st.st_mode = S_IFCHR | (fd == FIO_FD_CONSOLE_IN ? S_IRUSR : S_IWUSR); st.st_nlink = 1; #ifdef HAVE_GETUID st.st_uid = getuid (); #else st.st_uid = 0; #endif #ifdef HAVE_GETGID st.st_gid = getgid (); #else st.st_gid = 0; #endif st.st_rdev = 0; st.st_size = 0; #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE st.st_blksize = 512; #endif #if HAVE_STRUCT_STAT_ST_BLOCKS st.st_blocks = 0; #endif if (!gettimeofday (&tv, NULL)) st.st_atime = st.st_mtime = st.st_ctime = tv.tv_sec; else st.st_atime = st.st_mtime = st.st_ctime = (time_t) 0; ret = 0; } else ret = fstat (fd, &st); if (ret == -1) { remote_fileio_return_errno (-1); return; } if (ptrval) { remote_fileio_to_fio_stat (&st, &fst); retlength = remote_fileio_write_bytes (ptrval, (gdb_byte *) &fst, sizeof fst); if (retlength != sizeof fst) { remote_fileio_return_errno (-1); return; } } remote_fileio_return_success (ret); } static void remote_fileio_func_gettimeofday (char *buf) { LONGEST lnum; CORE_ADDR ptrval; int ret, retlength; struct timeval tv; struct fio_timeval ftv; /* 1. Parameter: struct timeval pointer */ if (remote_fileio_extract_long (&buf, &lnum)) { remote_fileio_ioerror (); return; } ptrval = (CORE_ADDR) lnum; /* 2. Parameter: some pointer value... */ if (remote_fileio_extract_long (&buf, &lnum)) { remote_fileio_ioerror (); return; } /* ...which has to be NULL */ if (lnum) { remote_fileio_reply (-1, FILEIO_EINVAL); return; } remote_fio_no_longjmp = 1; ret = gettimeofday (&tv, NULL); if (ret == -1) { remote_fileio_return_errno (-1); return; } if (ptrval) { remote_fileio_to_fio_timeval (&tv, &ftv); retlength = remote_fileio_write_bytes (ptrval, (gdb_byte *) &ftv, sizeof ftv); if (retlength != sizeof ftv) { remote_fileio_return_errno (-1); return; } } remote_fileio_return_success (ret); } static void remote_fileio_func_isatty (char *buf) { long target_fd; int fd; /* Parameter: file descriptor */ if (remote_fileio_extract_int (&buf, &target_fd)) { remote_fileio_ioerror (); return; } remote_fio_no_longjmp = 1; fd = remote_fileio_map_fd ((int) target_fd); remote_fileio_return_success (fd == FIO_FD_CONSOLE_IN || fd == FIO_FD_CONSOLE_OUT ? 1 : 0); } static void remote_fileio_func_system (char *buf) { CORE_ADDR ptrval; int ret, length, retlength; char *cmdline = NULL; /* Parameter: Ptr to commandline / length incl. trailing zero */ if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length)) { remote_fileio_ioerror (); return; } if (length) { /* Request commandline using 'm' packet */ cmdline = alloca (length); retlength = remote_read_bytes (ptrval, (gdb_byte *) cmdline, length); if (retlength != length) { remote_fileio_ioerror (); return; } } /* Check if system(3) has been explicitely allowed using the `set remote system-call-allowed 1' command. If length is 0, indicating a NULL parameter to the system call, return zero to indicate a shell is not available. Otherwise fail with EPERM. */ if (!remote_fio_system_call_allowed) { if (!length) remote_fileio_return_success (0); else remote_fileio_reply (-1, FILEIO_EPERM); return; } remote_fio_no_longjmp = 1; ret = system (cmdline); if (!length) remote_fileio_return_success (ret); else if (ret == -1) remote_fileio_return_errno (-1); else remote_fileio_return_success (WEXITSTATUS (ret)); } static struct { char *name; void (*func)(char *); } remote_fio_func_map[] = { { "open", remote_fileio_func_open }, { "close", remote_fileio_func_close }, { "read", remote_fileio_func_read }, { "write", remote_fileio_func_write }, { "lseek", remote_fileio_func_lseek }, { "rename", remote_fileio_func_rename }, { "unlink", remote_fileio_func_unlink }, { "stat", remote_fileio_func_stat }, { "fstat", remote_fileio_func_fstat }, { "gettimeofday", remote_fileio_func_gettimeofday }, { "isatty", remote_fileio_func_isatty }, { "system", remote_fileio_func_system }, { NULL, NULL } }; static int do_remote_fileio_request (struct ui_out *uiout, void *buf_arg) { char *buf = buf_arg; char *c; int idx; remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler); c = strchr (++buf, ','); if (c) *c++ = '\0'; else c = strchr (buf, '\0'); for (idx = 0; remote_fio_func_map[idx].name; ++idx) if (!strcmp (remote_fio_func_map[idx].name, buf)) break; if (!remote_fio_func_map[idx].name) /* ERROR: No such function. */ return RETURN_ERROR; remote_fio_func_map[idx].func (c); return 0; } /* Close any open descriptors, and reinitialize the file mapping. */ void remote_fileio_reset (void) { int ix; for (ix = 0; ix != remote_fio_data.fd_map_size; ix++) { int fd = remote_fio_data.fd_map[ix]; if (fd >= 0) close (fd); } if (remote_fio_data.fd_map) { free (remote_fio_data.fd_map); remote_fio_data.fd_map = NULL; remote_fio_data.fd_map_size = 0; } } void remote_fileio_request (char *buf) { int ex; remote_fileio_sig_init (); remote_fio_ctrl_c_flag = 0; remote_fio_no_longjmp = 0; ex = catch_exceptions (uiout, do_remote_fileio_request, (void *)buf, RETURN_MASK_ALL); switch (ex) { case RETURN_ERROR: remote_fileio_reply (-1, FILEIO_ENOSYS); break; case RETURN_QUIT: remote_fileio_reply (-1, FILEIO_EINTR); break; default: break; } remote_fileio_sig_exit (); } static void set_system_call_allowed (char *args, int from_tty) { if (args) { char *arg_end; int val = strtoul (args, &arg_end, 10); if (*args && *arg_end == '\0') { remote_fio_system_call_allowed = !!val; return; } } error (_("Illegal argument for \"set remote system-call-allowed\" command")); } static void show_system_call_allowed (char *args, int from_tty) { if (args) error (_("Garbage after \"show remote system-call-allowed\" command: `%s'"), args); printf_unfiltered ("Calling host system(3) call from target is %sallowed\n", remote_fio_system_call_allowed ? "" : "not "); } void initialize_remote_fileio (struct cmd_list_element *remote_set_cmdlist, struct cmd_list_element *remote_show_cmdlist) { add_cmd ("system-call-allowed", no_class, set_system_call_allowed, _("Set if the host system(3) call is allowed for the target."), &remote_set_cmdlist); add_cmd ("system-call-allowed", no_class, show_system_call_allowed, _("Show if the host system(3) call is allowed for the target."), &remote_show_cmdlist); }