gdb/remote-fileio.c

   1 /* Remote File-I/O communications
   2
   3    Copyright (C) 2003, 2005, 2006, 2007, 2008, 2009
   4    Free Software Foundation, Inc.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21 /* See the GDB User Guide for details of the GDB remote protocol. */
  22
  23 #include "defs.h"
  24 #include "gdb_string.h"
  25 #include "gdbcmd.h"
  26 #include "remote.h"
  27 #include "gdb/fileio.h"
  28 #include "gdb_wait.h"
  29 #include "gdb_stat.h"
  30 #include "exceptions.h"
  31 #include "remote-fileio.h"
  32 #include "event-loop.h"
  33
  34 #include <fcntl.h>
  35 #include <sys/time.h>
  36 #ifdef __CYGWIN__
  37 #include <sys/cygwin.h>         /* For cygwin_conv_to_full_posix_path.  */
  38 #endif
  39 #include <signal.h>
  40
  41 static struct {
  42   int *fd_map;
  43   int fd_map_size;
  44 } remote_fio_data;
  45
  46 #define FIO_FD_INVALID          -1
  47 #define FIO_FD_CONSOLE_IN       -2
  48 #define FIO_FD_CONSOLE_OUT      -3
  49
  50 static int remote_fio_system_call_allowed = 0;
  51
  52 static struct async_signal_handler *sigint_fileio_token;
  53
  54 static int
  55 remote_fileio_init_fd_map (void)
  56 {
  57   int i;
  58
  59   if (!remote_fio_data.fd_map)
  60     {
  61       remote_fio_data.fd_map = (int *) xmalloc (10 * sizeof (int));
  62       remote_fio_data.fd_map_size = 10;
  63       remote_fio_data.fd_map[0] = FIO_FD_CONSOLE_IN;
  64       remote_fio_data.fd_map[1] = FIO_FD_CONSOLE_OUT;
  65       remote_fio_data.fd_map[2] = FIO_FD_CONSOLE_OUT;
  66       for (i = 3; i < 10; ++i)
  67         remote_fio_data.fd_map[i] = FIO_FD_INVALID;
  68     }
  69   return 3;
  70 }
  71
  72 static int
  73 remote_fileio_resize_fd_map (void)
  74 {
  75   int i = remote_fio_data.fd_map_size;
  76
  77   if (!remote_fio_data.fd_map)
  78     return remote_fileio_init_fd_map ();
  79   remote_fio_data.fd_map_size += 10;
  80   remote_fio_data.fd_map =
  81     (int *) xrealloc (remote_fio_data.fd_map,
  82                       remote_fio_data.fd_map_size * sizeof (int));
  83   for (; i < remote_fio_data.fd_map_size; i++)
  84     remote_fio_data.fd_map[i] = FIO_FD_INVALID;
  85   return remote_fio_data.fd_map_size - 10;
  86 }
  87
  88 static int
  89 remote_fileio_next_free_fd (void)
  90 {
  91   int i;
  92
  93   for (i = 0; i < remote_fio_data.fd_map_size; ++i)
  94     if (remote_fio_data.fd_map[i] == FIO_FD_INVALID)
  95       return i;
  96   return remote_fileio_resize_fd_map ();
  97 }
  98
  99 static int
 100 remote_fileio_fd_to_targetfd (int fd)
 101 {
 102   int target_fd = remote_fileio_next_free_fd ();
 103   remote_fio_data.fd_map[target_fd] = fd;
 104   return target_fd;
 105 }
 106
 107 static int
 108 remote_fileio_map_fd (int target_fd)
 109 {
 110   remote_fileio_init_fd_map ();
 111   if (target_fd < 0 || target_fd >= remote_fio_data.fd_map_size)
 112     return FIO_FD_INVALID;
 113   return remote_fio_data.fd_map[target_fd];
 114 }
 115
 116 static void
 117 remote_fileio_close_target_fd (int target_fd)
 118 {
 119   remote_fileio_init_fd_map ();
 120   if (target_fd >= 0 && target_fd < remote_fio_data.fd_map_size)
 121     remote_fio_data.fd_map[target_fd] = FIO_FD_INVALID;
 122 }
 123
 124 static int
 125 remote_fileio_oflags_to_host (long flags)
 126 {
 127   int hflags = 0;
 128
 129   if (flags & FILEIO_O_CREAT)
 130     hflags |= O_CREAT;
 131   if (flags & FILEIO_O_EXCL)
 132     hflags |= O_EXCL;
 133   if (flags & FILEIO_O_TRUNC)
 134     hflags |= O_TRUNC;
 135   if (flags & FILEIO_O_APPEND)
 136     hflags |= O_APPEND;
 137   if (flags & FILEIO_O_RDONLY)
 138     hflags |= O_RDONLY;
 139   if (flags & FILEIO_O_WRONLY)
 140     hflags |= O_WRONLY;
 141   if (flags & FILEIO_O_RDWR)
 142     hflags |= O_RDWR;
 143 /* On systems supporting binary and text mode, always open files in
 144    binary mode. */
 145 #ifdef O_BINARY
 146   hflags |= O_BINARY;
 147 #endif
 148   return hflags;
 149 }
 150
 151 static mode_t
 152 remote_fileio_mode_to_host (long mode, int open_call)
 153 {
 154   mode_t hmode = 0;
 155
 156   if (!open_call)
 157     {
 158       if (mode & FILEIO_S_IFREG)
 159         hmode |= S_IFREG;
 160       if (mode & FILEIO_S_IFDIR)
 161         hmode |= S_IFDIR;
 162       if (mode & FILEIO_S_IFCHR)
 163         hmode |= S_IFCHR;
 164     }
 165   if (mode & FILEIO_S_IRUSR)
 166     hmode |= S_IRUSR;
 167   if (mode & FILEIO_S_IWUSR)
 168     hmode |= S_IWUSR;
 169   if (mode & FILEIO_S_IXUSR)
 170     hmode |= S_IXUSR;
 171 #ifdef S_IRGRP
 172   if (mode & FILEIO_S_IRGRP)
 173     hmode |= S_IRGRP;
 174 #endif
 175 #ifdef S_IWGRP
 176   if (mode & FILEIO_S_IWGRP)
 177     hmode |= S_IWGRP;
 178 #endif
 179 #ifdef S_IXGRP
 180   if (mode & FILEIO_S_IXGRP)
 181     hmode |= S_IXGRP;
 182 #endif
 183   if (mode & FILEIO_S_IROTH)
 184     hmode |= S_IROTH;
 185 #ifdef S_IWOTH
 186   if (mode & FILEIO_S_IWOTH)
 187     hmode |= S_IWOTH;
 188 #endif
 189 #ifdef S_IXOTH
 190   if (mode & FILEIO_S_IXOTH)
 191     hmode |= S_IXOTH;
 192 #endif
 193   return hmode;
 194 }
 195
 196 static LONGEST
 197 remote_fileio_mode_to_target (mode_t mode)
 198 {
 199   mode_t tmode = 0;
 200
 201   if (S_ISREG(mode))
 202     tmode |= FILEIO_S_IFREG;
 203   if (S_ISDIR(mode))
 204     tmode |= FILEIO_S_IFDIR;
 205   if (S_ISCHR(mode))
 206     tmode |= FILEIO_S_IFCHR;
 207   if (mode & S_IRUSR)
 208     tmode |= FILEIO_S_IRUSR;
 209   if (mode & S_IWUSR)
 210     tmode |= FILEIO_S_IWUSR;
 211   if (mode & S_IXUSR)
 212     tmode |= FILEIO_S_IXUSR;
 213 #ifdef S_IRGRP
 214   if (mode & S_IRGRP)
 215     tmode |= FILEIO_S_IRGRP;
 216 #endif
 217 #ifdef S_IWRGRP
 218   if (mode & S_IWGRP)
 219     tmode |= FILEIO_S_IWGRP;
 220 #endif
 221 #ifdef S_IXGRP
 222   if (mode & S_IXGRP)
 223     tmode |= FILEIO_S_IXGRP;
 224 #endif
 225   if (mode & S_IROTH)
 226     tmode |= FILEIO_S_IROTH;
 227 #ifdef S_IWOTH
 228   if (mode & S_IWOTH)
 229     tmode |= FILEIO_S_IWOTH;
 230 #endif
 231 #ifdef S_IXOTH
 232   if (mode & S_IXOTH)
 233     tmode |= FILEIO_S_IXOTH;
 234 #endif
 235   return tmode;
 236 }
 237
 238 static int
 239 remote_fileio_errno_to_target (int error)
 240 {
 241   switch (error)
 242     {
 243       case EPERM:
 244         return FILEIO_EPERM;
 245       case ENOENT:
 246         return FILEIO_ENOENT;
 247       case EINTR:
 248         return FILEIO_EINTR;
 249       case EIO:
 250         return FILEIO_EIO;
 251       case EBADF:
 252         return FILEIO_EBADF;
 253       case EACCES:
 254         return FILEIO_EACCES;
 255       case EFAULT:
 256         return FILEIO_EFAULT;
 257       case EBUSY:
 258         return FILEIO_EBUSY;
 259       case EEXIST:
 260         return FILEIO_EEXIST;
 261       case ENODEV:
 262         return FILEIO_ENODEV;
 263       case ENOTDIR:
 264         return FILEIO_ENOTDIR;
 265       case EISDIR:
 266         return FILEIO_EISDIR;
 267       case EINVAL:
 268         return FILEIO_EINVAL;
 269       case ENFILE:
 270         return FILEIO_ENFILE;
 271       case EMFILE:
 272         return FILEIO_EMFILE;
 273       case EFBIG:
 274         return FILEIO_EFBIG;
 275       case ENOSPC:
 276         return FILEIO_ENOSPC;
 277       case ESPIPE:
 278         return FILEIO_ESPIPE;
 279       case EROFS:
 280         return FILEIO_EROFS;
 281       case ENOSYS:
 282         return FILEIO_ENOSYS;
 283       case ENAMETOOLONG:
 284         return FILEIO_ENAMETOOLONG;
 285     }
 286   return FILEIO_EUNKNOWN;
 287 }
 288
 289 static int
 290 remote_fileio_seek_flag_to_host (long num, int *flag)
 291 {
 292   if (!flag)
 293     return 0;
 294   switch (num)
 295     {
 296       case FILEIO_SEEK_SET:
 297         *flag = SEEK_SET;
 298         break;
 299       case FILEIO_SEEK_CUR:
 300         *flag =  SEEK_CUR;
 301         break;
 302       case FILEIO_SEEK_END:
 303         *flag =  SEEK_END;
 304         break;
 305       default:
 306         return -1;
 307     }
 308   return 0;
 309 }
 310
 311 static int
 312 remote_fileio_extract_long (char **buf, LONGEST *retlong)
 313 {
 314   char *c;
 315   int sign = 1;
 316
 317   if (!buf || !*buf || !**buf || !retlong)
 318     return -1;
 319   c = strchr (*buf, ',');
 320   if (c)
 321     *c++ = '\0';
 322   else
 323     c = strchr (*buf, '\0');
 324   while (strchr ("+-", **buf))
 325     {
 326       if (**buf == '-')
 327         sign = -sign;
 328       ++*buf;
 329     }
 330   for (*retlong = 0; **buf; ++*buf)
 331     {
 332       *retlong <<= 4;
 333       if (**buf >= '0' && **buf <= '9')
 334         *retlong += **buf - '0';
 335       else if (**buf >= 'a' && **buf <= 'f')
 336         *retlong += **buf - 'a' + 10;
 337       else if (**buf >= 'A' && **buf <= 'F')
 338         *retlong += **buf - 'A' + 10;
 339       else
 340         return -1;
 341     }
 342   *retlong *= sign;
 343   *buf = c;
 344   return 0;
 345 }
 346
 347 static int
 348 remote_fileio_extract_int (char **buf, long *retint)
 349 {
 350   int ret;
 351   LONGEST retlong;
 352
 353   if (!retint)
 354     return -1;
 355   ret = remote_fileio_extract_long (buf, &retlong);
 356   if (!ret)
 357     *retint = (long) retlong;
 358   return ret;
 359 }
 360
 361 static int
 362 remote_fileio_extract_ptr_w_len (char **buf, CORE_ADDR *ptrval, int *length)
 363 {
 364   char *c;
 365   LONGEST retlong;
 366
 367   if (!buf || !*buf || !**buf || !ptrval || !length)
 368     return -1;
 369   c = strchr (*buf, '/');
 370   if (!c)
 371     return -1;
 372   *c++ = '\0';
 373   if (remote_fileio_extract_long (buf, &retlong))
 374     return -1;
 375   *ptrval = (CORE_ADDR) retlong;
 376   *buf = c;
 377   if (remote_fileio_extract_long (buf, &retlong))
 378     return -1;
 379   *length = (int) retlong;
 380   return 0;
 381 }
 382
 383 /* Convert to big endian */
 384 static void
 385 remote_fileio_to_be (LONGEST num, char *buf, int bytes)
 386 {
 387   int i;
 388
 389   for (i = 0; i < bytes; ++i)
 390     buf[i] = (num >> (8 * (bytes - i - 1))) & 0xff;
 391 }
 392
 393 static void
 394 remote_fileio_to_fio_uint (long num, fio_uint_t fnum)
 395 {
 396   remote_fileio_to_be ((LONGEST) num, (char *) fnum, 4);
 397 }
 398
 399 static void
 400 remote_fileio_to_fio_mode (mode_t num, fio_mode_t fnum)
 401 {
 402   remote_fileio_to_be (remote_fileio_mode_to_target(num), (char *) fnum, 4);
 403 }
 404
 405 static void
 406 remote_fileio_to_fio_time (time_t num, fio_time_t fnum)
 407 {
 408   remote_fileio_to_be ((LONGEST) num, (char *) fnum, 4);
 409 }
 410
 411 static void
 412 remote_fileio_to_fio_long (LONGEST num, fio_long_t fnum)
 413 {
 414   remote_fileio_to_be (num, (char *) fnum, 8);
 415 }
 416
 417 static void
 418 remote_fileio_to_fio_ulong (LONGEST num, fio_ulong_t fnum)
 419 {
 420   remote_fileio_to_be (num, (char *) fnum, 8);
 421 }
 422
 423 static void
 424 remote_fileio_to_fio_stat (struct stat *st, struct fio_stat *fst)
 425 {
 426   LONGEST blksize;
 427
 428   /* `st_dev' is set in the calling function */
 429   remote_fileio_to_fio_uint ((long) st->st_ino, fst->fst_ino);
 430   remote_fileio_to_fio_mode (st->st_mode, fst->fst_mode);
 431   remote_fileio_to_fio_uint ((long) st->st_nlink, fst->fst_nlink);
 432   remote_fileio_to_fio_uint ((long) st->st_uid, fst->fst_uid);
 433   remote_fileio_to_fio_uint ((long) st->st_gid, fst->fst_gid);
 434   remote_fileio_to_fio_uint ((long) st->st_rdev, fst->fst_rdev);
 435   remote_fileio_to_fio_ulong ((LONGEST) st->st_size, fst->fst_size);
 436 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
 437   blksize = st->st_blksize;
 438 #else
 439   blksize = 512;
 440 #endif
 441   remote_fileio_to_fio_ulong (blksize, fst->fst_blksize);
 442 #if HAVE_STRUCT_STAT_ST_BLOCKS
 443   remote_fileio_to_fio_ulong ((LONGEST) st->st_blocks, fst->fst_blocks);
 444 #else
 445   /* FIXME: This is correct for DJGPP, but other systems that don't
 446      have st_blocks, if any, might prefer 512 instead of st_blksize.
 447      (eliz, 30-12-2003)  */
 448   remote_fileio_to_fio_ulong (((LONGEST) st->st_size + blksize - 1)
 449                               / blksize,
 450                               fst->fst_blocks);
 451 #endif
 452   remote_fileio_to_fio_time (st->st_atime, fst->fst_atime);
 453   remote_fileio_to_fio_time (st->st_mtime, fst->fst_mtime);
 454   remote_fileio_to_fio_time (st->st_ctime, fst->fst_ctime);
 455 }
 456
 457 static void
 458 remote_fileio_to_fio_timeval (struct timeval *tv, struct fio_timeval *ftv)
 459 {
 460   remote_fileio_to_fio_time (tv->tv_sec, ftv->ftv_sec);
 461   remote_fileio_to_fio_long (tv->tv_usec, ftv->ftv_usec);
 462 }
 463
 464 static int remote_fio_ctrl_c_flag = 0;
 465 static int remote_fio_no_longjmp = 0;
 466
 467 #if defined (HAVE_SIGACTION) && defined (SA_RESTART)
 468 static struct sigaction remote_fio_sa;
 469 static struct sigaction remote_fio_osa;
 470 #else
 471 static void (*remote_fio_ofunc)(int);
 472 #endif
 473
 474 static void
 475 remote_fileio_sig_init (void)
 476 {
 477 #if defined (HAVE_SIGACTION) && defined (SA_RESTART)
 478   remote_fio_sa.sa_handler = SIG_IGN;
 479   sigemptyset (&remote_fio_sa.sa_mask);
 480   remote_fio_sa.sa_flags = 0;
 481   sigaction (SIGINT, &remote_fio_sa, &remote_fio_osa);
 482 #else
 483   remote_fio_ofunc = signal (SIGINT, SIG_IGN);
 484 #endif
 485 }
 486
 487 static void
 488 remote_fileio_sig_set (void (*sigint_func)(int))
 489 {
 490 #if defined (HAVE_SIGACTION) && defined (SA_RESTART)
 491   remote_fio_sa.sa_handler = sigint_func;
 492   sigemptyset (&remote_fio_sa.sa_mask);
 493   remote_fio_sa.sa_flags = 0;
 494   sigaction (SIGINT, &remote_fio_sa, NULL);
 495 #else
 496   signal (SIGINT, sigint_func);
 497 #endif
 498 }
 499
 500 static void
 501 remote_fileio_sig_exit (void)
 502 {
 503 #if defined (HAVE_SIGACTION) && defined (SA_RESTART)
 504   sigaction (SIGINT, &remote_fio_osa, NULL);
 505 #else
 506   signal (SIGINT, remote_fio_ofunc);
 507 #endif
 508 }
 509
 510 static void
 511 async_remote_fileio_interrupt (gdb_client_data arg)
 512 {
 513   deprecated_throw_reason (RETURN_QUIT);
 514 }
 515
 516 static void
 517 remote_fileio_ctrl_c_signal_handler (int signo)
 518 {
 519   remote_fileio_sig_set (SIG_IGN);
 520   remote_fio_ctrl_c_flag = 1;
 521   if (!remote_fio_no_longjmp)
 522     gdb_call_async_signal_handler (sigint_fileio_token, 1);
 523   remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler);
 524 }
 525
 526 static void
 527 remote_fileio_reply (int retcode, int error)
 528 {
 529   char buf[32];
 530
 531   remote_fileio_sig_set (SIG_IGN);
 532   strcpy (buf, "F");
 533   if (retcode < 0)
 534     {
 535       strcat (buf, "-");
 536       retcode = -retcode;
 537     }
 538   sprintf (buf + strlen (buf), "%x", retcode);
 539   if (error || remote_fio_ctrl_c_flag)
 540     {
 541       if (error && remote_fio_ctrl_c_flag)
 542         error = FILEIO_EINTR;
 543       if (error < 0)
 544         {
 545           strcat (buf, "-");
 546           error = -error;
 547         }
 548       sprintf (buf + strlen (buf), ",%x", error);
 549       if (remote_fio_ctrl_c_flag)
 550         strcat (buf, ",C");
 551     }
 552   remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler);
 553   putpkt (buf);
 554 }
 555
 556 static void
 557 remote_fileio_ioerror (void)
 558 {
 559   remote_fileio_reply (-1, FILEIO_EIO);
 560 }
 561
 562 static void
 563 remote_fileio_badfd (void)
 564 {
 565   remote_fileio_reply (-1, FILEIO_EBADF);
 566 }
 567
 568 static void
 569 remote_fileio_return_errno (int retcode)
 570 {
 571   remote_fileio_reply (retcode,
 572                        retcode < 0 ? remote_fileio_errno_to_target (errno) : 0);
 573 }
 574
 575 static void
 576 remote_fileio_return_success (int retcode)
 577 {
 578   remote_fileio_reply (retcode, 0);
 579 }
 580
 581 /* Wrapper function for remote_write_bytes() which has the disadvantage to
 582    write only one packet, regardless of the requested number of bytes to
 583    transfer.  This wrapper calls remote_write_bytes() as often as needed. */
 584 static int
 585 remote_fileio_write_bytes (CORE_ADDR memaddr, gdb_byte *myaddr, int len)
 586 {
 587   int ret = 0, written;
 588
 589   while (len > 0 && (written = remote_write_bytes (memaddr, myaddr, len)) > 0)
 590     {
 591       len -= written;
 592       memaddr += written;
 593       myaddr += written;
 594       ret += written;
 595     }
 596   return ret;
 597 }
 598
 599 static void
 600 remote_fileio_func_open (char *buf)
 601 {
 602   CORE_ADDR ptrval;
 603   int length, retlength;
 604   long num;
 605   int flags, fd;
 606   mode_t mode;
 607   char *pathname;
 608   struct stat st;
 609
 610   /* 1. Parameter: Ptr to pathname / length incl. trailing zero */
 611   if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length))
 612     {
 613       remote_fileio_ioerror ();
 614       return;
 615     }
 616   /* 2. Parameter: open flags */
 617   if (remote_fileio_extract_int (&buf, &num))
 618     {
 619       remote_fileio_ioerror ();
 620       return;
 621     }
 622   flags = remote_fileio_oflags_to_host (num);
 623   /* 3. Parameter: open mode */
 624   if (remote_fileio_extract_int (&buf, &num))
 625     {
 626       remote_fileio_ioerror ();
 627       return;
 628     }
 629   mode = remote_fileio_mode_to_host (num, 1);
 630
 631   /* Request pathname using 'm' packet */
 632   pathname = alloca (length);
 633   retlength = remote_read_bytes (ptrval, (gdb_byte *) pathname, length);
 634   if (retlength != length)
 635     {
 636       remote_fileio_ioerror ();
 637       return;
 638     }
 639
 640   /* Check if pathname exists and is not a regular file or directory.  If so,
 641      return an appropriate error code.  Same for trying to open directories
 642      for writing. */
 643   if (!stat (pathname, &st))
 644     {
 645       if (!S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode))
 646         {
 647           remote_fileio_reply (-1, FILEIO_ENODEV);
 648           return;
 649         }
 650       if (S_ISDIR (st.st_mode)
 651           && ((flags & O_WRONLY) == O_WRONLY || (flags & O_RDWR) == O_RDWR))
 652         {
 653           remote_fileio_reply (-1, FILEIO_EISDIR);
 654           return;
 655         }
 656     }
 657
 658   remote_fio_no_longjmp = 1;
 659   fd = open (pathname, flags, mode);
 660   if (fd < 0)
 661     {
 662       remote_fileio_return_errno (-1);
 663       return;
 664     }
 665
 666   fd = remote_fileio_fd_to_targetfd (fd);
 667   remote_fileio_return_success (fd);
 668 }
 669
 670 static void
 671 remote_fileio_func_close (char *buf)
 672 {
 673   long num;
 674   int fd;
 675
 676   /* Parameter: file descriptor */
 677   if (remote_fileio_extract_int (&buf, &num))
 678     {
 679       remote_fileio_ioerror ();
 680       return;
 681     }
 682   fd = remote_fileio_map_fd ((int) num);
 683   if (fd == FIO_FD_INVALID)
 684     {
 685       remote_fileio_badfd ();
 686       return;
 687     }
 688
 689   remote_fio_no_longjmp = 1;
 690   if (fd != FIO_FD_CONSOLE_IN && fd != FIO_FD_CONSOLE_OUT && close (fd))
 691     remote_fileio_return_errno (-1);
 692   remote_fileio_close_target_fd ((int) num);
 693   remote_fileio_return_success (0);
 694 }
 695
 696 static void
 697 remote_fileio_func_read (char *buf)
 698 {
 699   long target_fd, num;
 700   LONGEST lnum;
 701   CORE_ADDR ptrval;
 702   int fd, ret, retlength;
 703   gdb_byte *buffer;
 704   size_t length;
 705   off_t old_offset, new_offset;
 706
 707   /* 1. Parameter: file descriptor */
 708   if (remote_fileio_extract_int (&buf, &target_fd))
 709     {
 710       remote_fileio_ioerror ();
 711       return;
 712     }
 713   fd = remote_fileio_map_fd ((int) target_fd);
 714   if (fd == FIO_FD_INVALID)
 715     {
 716       remote_fileio_badfd ();
 717       return;
 718     }
 719   /* 2. Parameter: buffer pointer */
 720   if (remote_fileio_extract_long (&buf, &lnum))
 721     {
 722       remote_fileio_ioerror ();
 723       return;
 724     }
 725   ptrval = (CORE_ADDR) lnum;
 726   /* 3. Parameter: buffer length */
 727   if (remote_fileio_extract_int (&buf, &num))
 728     {
 729       remote_fileio_ioerror ();
 730       return;
 731     }
 732   length = (size_t) num;
 733
 734   switch (fd)
 735     {
 736       case FIO_FD_CONSOLE_OUT:
 737         remote_fileio_badfd ();
 738         return;
 739       case FIO_FD_CONSOLE_IN:
 740         {
 741           static char *remaining_buf = NULL;
 742           static int remaining_length = 0;
 743
 744           buffer = (gdb_byte *) xmalloc (16384);
 745           if (remaining_buf)
 746             {
 747               remote_fio_no_longjmp = 1;
 748               if (remaining_length > length)
 749                 {
 750                   memcpy (buffer, remaining_buf, length);
 751                   memmove (remaining_buf, remaining_buf + length,
 752                            remaining_length - length);
 753                   remaining_length -= length;
 754                   ret = length;
 755                 }
 756               else
 757                 {
 758                   memcpy (buffer, remaining_buf, remaining_length);
 759                   xfree (remaining_buf);
 760                   remaining_buf = NULL;
 761                   ret = remaining_length;
 762                 }
 763             }
 764           else
 765             {
 766               /* Windows (at least XP and Server 2003) has difficulty
 767                  with large reads from consoles.  If a handle is
 768                  backed by a real console device, overly large reads
 769                  from the handle will fail and set errno == ENOMEM.
 770                  On a Windows Server 2003 system where I tested,
 771                  reading 26608 bytes from the console was OK, but
 772                  anything above 26609 bytes would fail.  The limit has
 773                  been observed to vary on different systems.  So, we
 774                  limit this read to something smaller than that - by a
 775                  safe margin, in case the limit depends on system
 776                  resources or version.  */
 777               ret = ui_file_read (gdb_stdtargin, (char *) buffer, 16383);
 778               remote_fio_no_longjmp = 1;
 779               if (ret > 0 && (size_t)ret > length)
 780                 {
 781                   remaining_buf = (char *) xmalloc (ret - length);
 782                   remaining_length = ret - length;
 783                   memcpy (remaining_buf, buffer + length, remaining_length);
 784                   ret = length;
 785                 }
 786             }
 787         }
 788         break;
 789       default:
 790         buffer = (gdb_byte *) xmalloc (length);
 791         /* POSIX defines EINTR behaviour of read in a weird way.  It's allowed
 792            for read() to return -1 even if "some" bytes have been read.  It
 793            has been corrected in SUSv2 but that doesn't help us much...
 794            Therefore a complete solution must check how many bytes have been
 795            read on EINTR to return a more reliable value to the target */
 796         old_offset = lseek (fd, 0, SEEK_CUR);
 797         remote_fio_no_longjmp = 1;
 798         ret = read (fd, buffer, length);
 799         if (ret < 0 && errno == EINTR)
 800           {
 801             new_offset = lseek (fd, 0, SEEK_CUR);
 802             /* If some data has been read, return the number of bytes read.
 803                The Ctrl-C flag is set in remote_fileio_reply() anyway */
 804             if (old_offset != new_offset)
 805               ret = new_offset - old_offset;
 806           }
 807         break;
 808     }
 809
 810   if (ret > 0)
 811     {
 812       retlength = remote_fileio_write_bytes (ptrval, buffer, ret);
 813       if (retlength != ret)
 814         ret = -1; /* errno has been set to EIO in remote_fileio_write_bytes() */
 815     }
 816
 817   if (ret < 0)
 818     remote_fileio_return_errno (-1);
 819   else
 820     remote_fileio_return_success (ret);
 821
 822   xfree (buffer);
 823 }
 824
 825 static void
 826 remote_fileio_func_write (char *buf)
 827 {
 828   long target_fd, num;
 829   LONGEST lnum;
 830   CORE_ADDR ptrval;
 831   int fd, ret, retlength;
 832   gdb_byte *buffer;
 833   size_t length;
 834
 835   /* 1. Parameter: file descriptor */
 836   if (remote_fileio_extract_int (&buf, &target_fd))
 837     {
 838       remote_fileio_ioerror ();
 839       return;
 840     }
 841   fd = remote_fileio_map_fd ((int) target_fd);
 842   if (fd == FIO_FD_INVALID)
 843     {
 844       remote_fileio_badfd ();
 845       return;
 846     }
 847   /* 2. Parameter: buffer pointer */
 848   if (remote_fileio_extract_long (&buf, &lnum))
 849     {
 850       remote_fileio_ioerror ();
 851       return;
 852     }
 853   ptrval = (CORE_ADDR) lnum;
 854   /* 3. Parameter: buffer length */
 855   if (remote_fileio_extract_int (&buf, &num))
 856     {
 857       remote_fileio_ioerror ();
 858       return;
 859     }
 860   length = (size_t) num;
 861
 862   buffer = (gdb_byte *) xmalloc (length);
 863   retlength = remote_read_bytes (ptrval, buffer, length);
 864   if (retlength != length)
 865     {
 866       xfree (buffer);
 867       remote_fileio_ioerror ();
 868       return;
 869     }
 870
 871   remote_fio_no_longjmp = 1;
 872   switch (fd)
 873     {
 874       case FIO_FD_CONSOLE_IN:
 875         remote_fileio_badfd ();
 876         xfree (buffer);
 877         return;
 878       case FIO_FD_CONSOLE_OUT:
 879         ui_file_write (target_fd == 1 ? gdb_stdtarg : gdb_stdtargerr,
 880                        (char *) buffer, length);
 881         gdb_flush (target_fd == 1 ? gdb_stdtarg : gdb_stdtargerr);
 882         ret = length;
 883         break;
 884       default:
 885         ret = write (fd, buffer, length);
 886         if (ret < 0 && errno == EACCES)
 887           errno = EBADF; /* Cygwin returns EACCESS when writing to a R/O file.*/
 888         break;
 889     }
 890
 891   if (ret < 0)
 892     remote_fileio_return_errno (-1);
 893   else
 894     remote_fileio_return_success (ret);
 895
 896   xfree (buffer);
 897 }
 898
 899 static void
 900 remote_fileio_func_lseek (char *buf)
 901 {
 902   long num;
 903   LONGEST lnum;
 904   int fd, flag;
 905   off_t offset, ret;
 906
 907   /* 1. Parameter: file descriptor */
 908   if (remote_fileio_extract_int (&buf, &num))
 909     {
 910       remote_fileio_ioerror ();
 911       return;
 912     }
 913   fd = remote_fileio_map_fd ((int) num);
 914   if (fd == FIO_FD_INVALID)
 915     {
 916       remote_fileio_badfd ();
 917       return;
 918     }
 919   else if (fd == FIO_FD_CONSOLE_IN || fd == FIO_FD_CONSOLE_OUT)
 920     {
 921       remote_fileio_reply (-1, FILEIO_ESPIPE);
 922       return;
 923     }
 924
 925   /* 2. Parameter: offset */
 926   if (remote_fileio_extract_long (&buf, &lnum))
 927     {
 928       remote_fileio_ioerror ();
 929       return;
 930     }
 931   offset = (off_t) lnum;
 932   /* 3. Parameter: flag */
 933   if (remote_fileio_extract_int (&buf, &num))
 934     {
 935       remote_fileio_ioerror ();
 936       return;
 937     }
 938   if (remote_fileio_seek_flag_to_host (num, &flag))
 939     {
 940       remote_fileio_reply (-1, FILEIO_EINVAL);
 941       return;
 942     }
 943
 944   remote_fio_no_longjmp = 1;
 945   ret = lseek (fd, offset, flag);
 946
 947   if (ret == (off_t) -1)
 948     remote_fileio_return_errno (-1);
 949   else
 950     remote_fileio_return_success (ret);
 951 }
 952
 953 static void
 954 remote_fileio_func_rename (char *buf)
 955 {
 956   CORE_ADDR old_ptr, new_ptr;
 957   int old_len, new_len, retlength;
 958   char *oldpath, *newpath;
 959   int ret, of, nf;
 960   struct stat ost, nst;
 961
 962   /* 1. Parameter: Ptr to oldpath / length incl. trailing zero */
 963   if (remote_fileio_extract_ptr_w_len (&buf, &old_ptr, &old_len))
 964     {
 965       remote_fileio_ioerror ();
 966       return;
 967     }
 968
 969   /* 2. Parameter: Ptr to newpath / length incl. trailing zero */
 970   if (remote_fileio_extract_ptr_w_len (&buf, &new_ptr, &new_len))
 971     {
 972       remote_fileio_ioerror ();
 973       return;
 974     }
 975
 976   /* Request oldpath using 'm' packet */
 977   oldpath = alloca (old_len);
 978   retlength = remote_read_bytes (old_ptr, (gdb_byte *) oldpath, old_len);
 979   if (retlength != old_len)
 980     {
 981       remote_fileio_ioerror ();
 982       return;
 983     }
 984
 985   /* Request newpath using 'm' packet */
 986   newpath = alloca (new_len);
 987   retlength = remote_read_bytes (new_ptr, (gdb_byte *) newpath, new_len);
 988   if (retlength != new_len)
 989     {
 990       remote_fileio_ioerror ();
 991       return;
 992     }
 993
 994   /* Only operate on regular files and directories */
 995   of = stat (oldpath, &ost);
 996   nf = stat (newpath, &nst);
 997   if ((!of && !S_ISREG (ost.st_mode) && !S_ISDIR (ost.st_mode))
 998       || (!nf && !S_ISREG (nst.st_mode) && !S_ISDIR (nst.st_mode)))
 999     {
1000       remote_fileio_reply (-1, FILEIO_EACCES);
1001       return;
1002     }
1003
1004   remote_fio_no_longjmp = 1;
1005   ret = rename (oldpath, newpath);
1006
1007   if (ret == -1)
1008     {
1009       /* Special case: newpath is a non-empty directory.  Some systems
1010          return ENOTEMPTY, some return EEXIST.  We coerce that to be
1011          always EEXIST. */
1012       if (errno == ENOTEMPTY)
1013         errno = EEXIST;
1014 #ifdef __CYGWIN__
1015       /* Workaround some Cygwin problems with correct errnos. */
1016       if (errno == EACCES)
1017         {
1018           if (!of && !nf && S_ISDIR (nst.st_mode))
1019             {
1020               if (S_ISREG (ost.st_mode))
1021                 errno = EISDIR;
1022               else
1023                 {
1024                   char oldfullpath[PATH_MAX + 1];
1025                   char newfullpath[PATH_MAX + 1];
1026                   int len;
1027
1028                   cygwin_conv_to_full_posix_path (oldpath, oldfullpath);
1029                   cygwin_conv_to_full_posix_path (newpath, newfullpath);
1030                   len = strlen (oldfullpath);
1031                   if (newfullpath[len] == '/'
1032                       && !strncmp (oldfullpath, newfullpath, len))
1033                     errno = EINVAL;
1034                   else
1035                     errno = EEXIST;
1036                 }
1037             }
1038         }
1039 #endif
1040
1041       remote_fileio_return_errno (-1);
1042     }
1043   else
1044     remote_fileio_return_success (ret);
1045 }
1046
1047 static void
1048 remote_fileio_func_unlink (char *buf)
1049 {
1050   CORE_ADDR ptrval;
1051   int length, retlength;
1052   char *pathname;
1053   int ret;
1054   struct stat st;
1055
1056   /* Parameter: Ptr to pathname / length incl. trailing zero */
1057   if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length))
1058     {
1059       remote_fileio_ioerror ();
1060       return;
1061     }
1062   /* Request pathname using 'm' packet */
1063   pathname = alloca (length);
1064   retlength = remote_read_bytes (ptrval, (gdb_byte *) pathname, length);
1065   if (retlength != length)
1066     {
1067       remote_fileio_ioerror ();
1068       return;
1069     }
1070
1071   /* Only operate on regular files (and directories, which allows to return
1072      the correct return code) */
1073   if (!stat (pathname, &st) && !S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode))
1074     {
1075       remote_fileio_reply (-1, FILEIO_ENODEV);
1076       return;
1077     }
1078
1079   remote_fio_no_longjmp = 1;
1080   ret = unlink (pathname);
1081
1082   if (ret == -1)
1083     remote_fileio_return_errno (-1);
1084   else
1085     remote_fileio_return_success (ret);
1086 }
1087
1088 static void
1089 remote_fileio_func_stat (char *buf)
1090 {
1091   CORE_ADDR statptr, nameptr;
1092   int ret, namelength, retlength;
1093   char *pathname;
1094   LONGEST lnum;
1095   struct stat st;
1096   struct fio_stat fst;
1097
1098   /* 1. Parameter: Ptr to pathname / length incl. trailing zero */
1099   if (remote_fileio_extract_ptr_w_len (&buf, &nameptr, &namelength))
1100     {
1101       remote_fileio_ioerror ();
1102       return;
1103     }
1104
1105   /* 2. Parameter: Ptr to struct stat */
1106   if (remote_fileio_extract_long (&buf, &lnum))
1107     {
1108       remote_fileio_ioerror ();
1109       return;
1110     }
1111   statptr = (CORE_ADDR) lnum;
1112
1113   /* Request pathname using 'm' packet */
1114   pathname = alloca (namelength);
1115   retlength = remote_read_bytes (nameptr, (gdb_byte *) pathname, namelength);
1116   if (retlength != namelength)
1117     {
1118       remote_fileio_ioerror ();
1119       return;
1120     }
1121
1122   remote_fio_no_longjmp = 1;
1123   ret = stat (pathname, &st);
1124
1125   if (ret == -1)
1126     {
1127       remote_fileio_return_errno (-1);
1128       return;
1129     }
1130   /* Only operate on regular files and directories */
1131   if (!ret && !S_ISREG (st.st_mode) && !S_ISDIR (st.st_mode))
1132     {
1133       remote_fileio_reply (-1, FILEIO_EACCES);
1134       return;
1135     }
1136   if (statptr)
1137     {
1138       remote_fileio_to_fio_stat (&st, &fst);
1139       remote_fileio_to_fio_uint (0, fst.fst_dev);
1140
1141       retlength = remote_fileio_write_bytes (statptr,
1142                                              (gdb_byte *) &fst, sizeof fst);
1143       if (retlength != sizeof fst)
1144         {
1145           remote_fileio_return_errno (-1);
1146           return;
1147         }
1148     }
1149   remote_fileio_return_success (ret);
1150 }
1151
1152 static void
1153 remote_fileio_func_fstat (char *buf)
1154 {
1155   CORE_ADDR ptrval;
1156   int fd, ret, retlength;
1157   long target_fd;
1158   LONGEST lnum;
1159   struct stat st;
1160   struct fio_stat fst;
1161   struct timeval tv;
1162
1163   /* 1. Parameter: file descriptor */
1164   if (remote_fileio_extract_int (&buf, &target_fd))
1165     {
1166       remote_fileio_ioerror ();
1167       return;
1168     }
1169   fd = remote_fileio_map_fd ((int) target_fd);
1170   if (fd == FIO_FD_INVALID)
1171     {
1172       remote_fileio_badfd ();
1173       return;
1174     }
1175   /* 2. Parameter: Ptr to struct stat */
1176   if (remote_fileio_extract_long (&buf, &lnum))
1177     {
1178       remote_fileio_ioerror ();
1179       return;
1180     }
1181   ptrval = (CORE_ADDR) lnum;
1182
1183   remote_fio_no_longjmp = 1;
1184   if (fd == FIO_FD_CONSOLE_IN || fd == FIO_FD_CONSOLE_OUT)
1185     {
1186       remote_fileio_to_fio_uint (1, fst.fst_dev);
1187       st.st_mode = S_IFCHR | (fd == FIO_FD_CONSOLE_IN ? S_IRUSR : S_IWUSR);
1188       st.st_nlink = 1;
1189 #ifdef HAVE_GETUID
1190       st.st_uid = getuid ();
1191 #else
1192       st.st_uid = 0;
1193 #endif
1194 #ifdef HAVE_GETGID
1195       st.st_gid = getgid ();
1196 #else
1197       st.st_gid = 0;
1198 #endif
1199       st.st_rdev = 0;
1200       st.st_size = 0;
1201 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
1202       st.st_blksize = 512;
1203 #endif
1204 #if HAVE_STRUCT_STAT_ST_BLOCKS
1205       st.st_blocks = 0;
1206 #endif
1207       if (!gettimeofday (&tv, NULL))
1208         st.st_atime = st.st_mtime = st.st_ctime = tv.tv_sec;
1209       else
1210         st.st_atime = st.st_mtime = st.st_ctime = (time_t) 0;
1211       ret = 0;
1212     }
1213   else
1214     ret = fstat (fd, &st);
1215
1216   if (ret == -1)
1217     {
1218       remote_fileio_return_errno (-1);
1219       return;
1220     }
1221   if (ptrval)
1222     {
1223       remote_fileio_to_fio_stat (&st, &fst);
1224
1225       retlength = remote_fileio_write_bytes (ptrval, (gdb_byte *) &fst, sizeof fst);
1226       if (retlength != sizeof fst)
1227         {
1228           remote_fileio_return_errno (-1);
1229           return;
1230         }
1231     }
1232   remote_fileio_return_success (ret);
1233 }
1234
1235 static void
1236 remote_fileio_func_gettimeofday (char *buf)
1237 {
1238   LONGEST lnum;
1239   CORE_ADDR ptrval;
1240   int ret, retlength;
1241   struct timeval tv;
1242   struct fio_timeval ftv;
1243
1244   /* 1. Parameter: struct timeval pointer */
1245   if (remote_fileio_extract_long (&buf, &lnum))
1246     {
1247       remote_fileio_ioerror ();
1248       return;
1249     }
1250   ptrval = (CORE_ADDR) lnum;
1251   /* 2. Parameter: some pointer value... */
1252   if (remote_fileio_extract_long (&buf, &lnum))
1253     {
1254       remote_fileio_ioerror ();
1255       return;
1256     }
1257   /* ...which has to be NULL */
1258   if (lnum)
1259     {
1260       remote_fileio_reply (-1, FILEIO_EINVAL);
1261       return;
1262     }
1263
1264   remote_fio_no_longjmp = 1;
1265   ret = gettimeofday (&tv, NULL);
1266
1267   if (ret == -1)
1268     {
1269       remote_fileio_return_errno (-1);
1270       return;
1271     }
1272
1273   if (ptrval)
1274     {
1275       remote_fileio_to_fio_timeval (&tv, &ftv);
1276
1277       retlength = remote_fileio_write_bytes (ptrval, (gdb_byte *) &ftv, sizeof ftv);
1278       if (retlength != sizeof ftv)
1279         {
1280           remote_fileio_return_errno (-1);
1281           return;
1282         }
1283     }
1284   remote_fileio_return_success (ret);
1285 }
1286
1287 static void
1288 remote_fileio_func_isatty (char *buf)
1289 {
1290   long target_fd;
1291   int fd;
1292
1293   /* Parameter: file descriptor */
1294   if (remote_fileio_extract_int (&buf, &target_fd))
1295     {
1296       remote_fileio_ioerror ();
1297       return;
1298     }
1299   remote_fio_no_longjmp = 1;
1300   fd = remote_fileio_map_fd ((int) target_fd);
1301   remote_fileio_return_success (fd == FIO_FD_CONSOLE_IN ||
1302                                 fd == FIO_FD_CONSOLE_OUT ? 1 : 0);
1303 }
1304
1305 static void
1306 remote_fileio_func_system (char *buf)
1307 {
1308   CORE_ADDR ptrval;
1309   int ret, length, retlength;
1310   char *cmdline = NULL;
1311
1312   /* Parameter: Ptr to commandline / length incl. trailing zero */
1313   if (remote_fileio_extract_ptr_w_len (&buf, &ptrval, &length))
1314     {
1315       remote_fileio_ioerror ();
1316       return;
1317     }
1318
1319   if (length)
1320     {
1321       /* Request commandline using 'm' packet */
1322       cmdline = alloca (length);
1323       retlength = remote_read_bytes (ptrval, (gdb_byte *) cmdline, length);
1324       if (retlength != length)
1325         {
1326           remote_fileio_ioerror ();
1327           return;
1328         }
1329     }
1330
1331   /* Check if system(3) has been explicitely allowed using the
1332      `set remote system-call-allowed 1' command.  If length is 0,
1333      indicating a NULL parameter to the system call, return zero to
1334      indicate a shell is not available.  Otherwise fail with EPERM.  */
1335   if (!remote_fio_system_call_allowed)
1336     {
1337       if (!length)
1338         remote_fileio_return_success (0);
1339       else
1340         remote_fileio_reply (-1, FILEIO_EPERM);
1341       return;
1342     }
1343
1344   remote_fio_no_longjmp = 1;
1345   ret = system (cmdline);
1346
1347   if (!length)
1348     remote_fileio_return_success (ret);
1349   else if (ret == -1)
1350     remote_fileio_return_errno (-1);
1351   else
1352     remote_fileio_return_success (WEXITSTATUS (ret));
1353 }
1354
1355 static struct {
1356   char *name;
1357   void (*func)(char *);
1358 } remote_fio_func_map[] = {
1359   { "open", remote_fileio_func_open },
1360   { "close", remote_fileio_func_close },
1361   { "read", remote_fileio_func_read },
1362   { "write", remote_fileio_func_write },
1363   { "lseek", remote_fileio_func_lseek },
1364   { "rename", remote_fileio_func_rename },
1365   { "unlink", remote_fileio_func_unlink },
1366   { "stat", remote_fileio_func_stat },
1367   { "fstat", remote_fileio_func_fstat },
1368   { "gettimeofday", remote_fileio_func_gettimeofday },
1369   { "isatty", remote_fileio_func_isatty },
1370   { "system", remote_fileio_func_system },
1371   { NULL, NULL }
1372 };
1373
1374 static int
1375 do_remote_fileio_request (struct ui_out *uiout, void *buf_arg)
1376 {
1377   char *buf = buf_arg;
1378   char *c;
1379   int idx;
1380
1381   remote_fileio_sig_set (remote_fileio_ctrl_c_signal_handler);
1382
1383   c = strchr (++buf, ',');
1384   if (c)
1385     *c++ = '\0';
1386   else
1387     c = strchr (buf, '\0');
1388   for (idx = 0; remote_fio_func_map[idx].name; ++idx)
1389     if (!strcmp (remote_fio_func_map[idx].name, buf))
1390       break;
1391   if (!remote_fio_func_map[idx].name)   /* ERROR: No such function. */
1392     return RETURN_ERROR;
1393   remote_fio_func_map[idx].func (c);
1394   return 0;
1395 }
1396
1397 /* Close any open descriptors, and reinitialize the file mapping.  */
1398
1399 void
1400 remote_fileio_reset (void)
1401 {
1402   int ix;
1403
1404   for (ix = 0; ix != remote_fio_data.fd_map_size; ix++)
1405     {
1406       int fd = remote_fio_data.fd_map[ix];
1407
1408       if (fd >= 0)
1409         close (fd);
1410     }
1411   if (remote_fio_data.fd_map)
1412     {
1413       xfree (remote_fio_data.fd_map);
1414       remote_fio_data.fd_map = NULL;
1415       remote_fio_data.fd_map_size = 0;
1416     }
1417 }
1418
1419 /* Handle a file I/O request. BUF points to the packet containing the
1420    request. CTRLC_PENDING_P should be nonzero if the target has not
1421    acknowledged the Ctrl-C sent asynchronously earlier.  */
1422
1423 void
1424 remote_fileio_request (char *buf, int ctrlc_pending_p)
1425 {
1426   int ex;
1427
1428   remote_fileio_sig_init ();
1429
1430   if (ctrlc_pending_p)
1431     {
1432       /* If the target hasn't responded to the Ctrl-C sent
1433          asynchronously earlier, take this opportunity to send the
1434          Ctrl-C synchronously.  */
1435       remote_fio_ctrl_c_flag = 1;
1436       remote_fio_no_longjmp = 0;
1437       remote_fileio_reply (-1, FILEIO_EINTR);
1438     }
1439   else
1440     {
1441       remote_fio_ctrl_c_flag = 0;
1442       remote_fio_no_longjmp = 0;
1443
1444       ex = catch_exceptions (uiout, do_remote_fileio_request, (void *)buf,
1445                              RETURN_MASK_ALL);
1446       switch (ex)
1447         {
1448         case RETURN_ERROR:
1449           remote_fileio_reply (-1, FILEIO_ENOSYS);
1450           break;
1451         case RETURN_QUIT:
1452           remote_fileio_reply (-1, FILEIO_EINTR);
1453           break;
1454         default:
1455           break;
1456         }
1457     }
1458
1459   remote_fileio_sig_exit ();
1460 }
1461
1462 static void
1463 set_system_call_allowed (char *args, int from_tty)
1464 {
1465   if (args)
1466     {
1467       char *arg_end;
1468       int val = strtoul (args, &arg_end, 10);
1469       if (*args && *arg_end == '\0')
1470         {
1471           remote_fio_system_call_allowed = !!val;
1472           return;
1473         }
1474     }
1475   error (_("Illegal argument for \"set remote system-call-allowed\" command"));
1476 }
1477
1478 static void
1479 show_system_call_allowed (char *args, int from_tty)
1480 {
1481   if (args)
1482     error (_("Garbage after \"show remote system-call-allowed\" command: `%s'"), args);
1483   printf_unfiltered ("Calling host system(3) call from target is %sallowed\n",
1484                      remote_fio_system_call_allowed ? "" : "not ");
1485 }
1486
1487 void
1488 initialize_remote_fileio (struct cmd_list_element *remote_set_cmdlist,
1489                           struct cmd_list_element *remote_show_cmdlist)
1490 {
1491   sigint_fileio_token =
1492     create_async_signal_handler (async_remote_fileio_interrupt, NULL);
1493
1494   add_cmd ("system-call-allowed", no_class,
1495            set_system_call_allowed,
1496            _("Set if the host system(3) call is allowed for the target."),
1497            &remote_set_cmdlist);
1498   add_cmd ("system-call-allowed", no_class,
1499            show_system_call_allowed,
1500            _("Show if the host system(3) call is allowed for the target."),
1501            &remote_show_cmdlist);
1502 }