gdb/ser-unix.c

   1 /* Serial interface for local (hardwired) serial ports on Un*x like systems
   2
   3    Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2003,
   4    2004, 2005, 2007, 2008, 2009, 2010, 2011 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 #include "defs.h"
  22 #include "serial.h"
  23 #include "ser-base.h"
  24 #include "ser-unix.h"
  25
  26 #include <fcntl.h>
  27 #include <sys/types.h>
  28 #include "terminal.h"
  29 #include <sys/socket.h>
  30 #include <sys/time.h>
  31
  32 #include "gdb_select.h"
  33 #include "gdb_string.h"
  34 #include "gdbcmd.h"
  35
  36 #ifdef HAVE_TERMIOS
  37
  38 struct hardwire_ttystate
  39   {
  40     struct termios termios;
  41   };
  42
  43 #ifdef CRTSCTS
  44 /* Boolean to explicitly enable or disable h/w flow control.  */
  45 static int serial_hwflow;
  46 static void
  47 show_serial_hwflow (struct ui_file *file, int from_tty,
  48                     struct cmd_list_element *c, const char *value)
  49 {
  50   fprintf_filtered (file, _("Hardware flow control is %s.\n"), value);
  51 }
  52 #endif
  53
  54 #endif /* termios */
  55
  56 #ifdef HAVE_TERMIO
  57
  58 /* It is believed that all systems which have added job control to SVR3
  59    (e.g. sco) have also added termios.  Even if not, trying to figure out
  60    all the variations (TIOCGPGRP vs. TCGETPGRP, etc.) would be pretty
  61    bewildering.  So we don't attempt it.  */
  62
  63 struct hardwire_ttystate
  64   {
  65     struct termio termio;
  66   };
  67 #endif /* termio */
  68
  69 #ifdef HAVE_SGTTY
  70 struct hardwire_ttystate
  71   {
  72     struct sgttyb sgttyb;
  73     struct tchars tc;
  74     struct ltchars ltc;
  75     /* Line discipline flags.  */
  76     int lmode;
  77   };
  78 #endif /* sgtty */
  79
  80 static int hardwire_open (struct serial *scb, const char *name);
  81 static void hardwire_raw (struct serial *scb);
  82 static int wait_for (struct serial *scb, int timeout);
  83 static int hardwire_readchar (struct serial *scb, int timeout);
  84 static int do_hardwire_readchar (struct serial *scb, int timeout);
  85 static int rate_to_code (int rate);
  86 static int hardwire_setbaudrate (struct serial *scb, int rate);
  87 static void hardwire_close (struct serial *scb);
  88 static int get_tty_state (struct serial *scb,
  89                           struct hardwire_ttystate * state);
  90 static int set_tty_state (struct serial *scb,
  91                           struct hardwire_ttystate * state);
  92 static serial_ttystate hardwire_get_tty_state (struct serial *scb);
  93 static int hardwire_set_tty_state (struct serial *scb, serial_ttystate state);
  94 static int hardwire_noflush_set_tty_state (struct serial *, serial_ttystate,
  95                                            serial_ttystate);
  96 static void hardwire_print_tty_state (struct serial *, serial_ttystate,
  97                                       struct ui_file *);
  98 static int hardwire_drain_output (struct serial *);
  99 static int hardwire_flush_output (struct serial *);
 100 static int hardwire_flush_input (struct serial *);
 101 static int hardwire_send_break (struct serial *);
 102 static int hardwire_setstopbits (struct serial *, int);
 103
 104 void _initialize_ser_hardwire (void);
 105
 106 /* Open up a real live device for serial I/O.  */
 107
 108 static int
 109 hardwire_open (struct serial *scb, const char *name)
 110 {
 111   scb->fd = open (name, O_RDWR);
 112   if (scb->fd < 0)
 113     return -1;
 114
 115   return 0;
 116 }
 117
 118 static int
 119 get_tty_state (struct serial *scb, struct hardwire_ttystate *state)
 120 {
 121 #ifdef HAVE_TERMIOS
 122   if (tcgetattr (scb->fd, &state->termios) < 0)
 123     return -1;
 124
 125   return 0;
 126 #endif
 127
 128 #ifdef HAVE_TERMIO
 129   if (ioctl (scb->fd, TCGETA, &state->termio) < 0)
 130     return -1;
 131   return 0;
 132 #endif
 133
 134 #ifdef HAVE_SGTTY
 135   if (ioctl (scb->fd, TIOCGETP, &state->sgttyb) < 0)
 136     return -1;
 137   if (ioctl (scb->fd, TIOCGETC, &state->tc) < 0)
 138     return -1;
 139   if (ioctl (scb->fd, TIOCGLTC, &state->ltc) < 0)
 140     return -1;
 141   if (ioctl (scb->fd, TIOCLGET, &state->lmode) < 0)
 142     return -1;
 143
 144   return 0;
 145 #endif
 146 }
 147
 148 static int
 149 set_tty_state (struct serial *scb, struct hardwire_ttystate *state)
 150 {
 151 #ifdef HAVE_TERMIOS
 152   if (tcsetattr (scb->fd, TCSANOW, &state->termios) < 0)
 153     return -1;
 154
 155   return 0;
 156 #endif
 157
 158 #ifdef HAVE_TERMIO
 159   if (ioctl (scb->fd, TCSETA, &state->termio) < 0)
 160     return -1;
 161   return 0;
 162 #endif
 163
 164 #ifdef HAVE_SGTTY
 165   if (ioctl (scb->fd, TIOCSETN, &state->sgttyb) < 0)
 166     return -1;
 167   if (ioctl (scb->fd, TIOCSETC, &state->tc) < 0)
 168     return -1;
 169   if (ioctl (scb->fd, TIOCSLTC, &state->ltc) < 0)
 170     return -1;
 171   if (ioctl (scb->fd, TIOCLSET, &state->lmode) < 0)
 172     return -1;
 173
 174   return 0;
 175 #endif
 176 }
 177
 178 static serial_ttystate
 179 hardwire_get_tty_state (struct serial *scb)
 180 {
 181   struct hardwire_ttystate *state;
 182
 183   state = (struct hardwire_ttystate *) xmalloc (sizeof *state);
 184
 185   if (get_tty_state (scb, state))
 186     return NULL;
 187
 188   return (serial_ttystate) state;
 189 }
 190
 191 static serial_ttystate
 192 hardwire_copy_tty_state (struct serial *scb, serial_ttystate ttystate)
 193 {
 194   struct hardwire_ttystate *state;
 195
 196   state = (struct hardwire_ttystate *) xmalloc (sizeof *state);
 197   *state = *(struct hardwire_ttystate *) ttystate;
 198
 199   return (serial_ttystate) state;
 200 }
 201
 202 static int
 203 hardwire_set_tty_state (struct serial *scb, serial_ttystate ttystate)
 204 {
 205   struct hardwire_ttystate *state;
 206
 207   state = (struct hardwire_ttystate *) ttystate;
 208
 209   return set_tty_state (scb, state);
 210 }
 211
 212 static int
 213 hardwire_noflush_set_tty_state (struct serial *scb,
 214                                 serial_ttystate new_ttystate,
 215                                 serial_ttystate old_ttystate)
 216 {
 217   struct hardwire_ttystate new_state;
 218 #ifdef HAVE_SGTTY
 219   struct hardwire_ttystate *state = (struct hardwire_ttystate *) old_ttystate;
 220 #endif
 221
 222   new_state = *(struct hardwire_ttystate *) new_ttystate;
 223
 224   /* Don't change in or out of raw mode; we don't want to flush input.
 225      termio and termios have no such restriction; for them flushing input
 226      is separate from setting the attributes.  */
 227
 228 #ifdef HAVE_SGTTY
 229   if (state->sgttyb.sg_flags & RAW)
 230     new_state.sgttyb.sg_flags |= RAW;
 231   else
 232     new_state.sgttyb.sg_flags &= ~RAW;
 233
 234   /* I'm not sure whether this is necessary; the manpage just mentions
 235      RAW not CBREAK.  */
 236   if (state->sgttyb.sg_flags & CBREAK)
 237     new_state.sgttyb.sg_flags |= CBREAK;
 238   else
 239     new_state.sgttyb.sg_flags &= ~CBREAK;
 240 #endif
 241
 242   return set_tty_state (scb, &new_state);
 243 }
 244
 245 static void
 246 hardwire_print_tty_state (struct serial *scb,
 247                           serial_ttystate ttystate,
 248                           struct ui_file *stream)
 249 {
 250   struct hardwire_ttystate *state = (struct hardwire_ttystate *) ttystate;
 251   int i;
 252
 253 #ifdef HAVE_TERMIOS
 254   fprintf_filtered (stream, "c_iflag = 0x%x, c_oflag = 0x%x,\n",
 255                     (int) state->termios.c_iflag,
 256                     (int) state->termios.c_oflag);
 257   fprintf_filtered (stream, "c_cflag = 0x%x, c_lflag = 0x%x\n",
 258                     (int) state->termios.c_cflag,
 259                     (int) state->termios.c_lflag);
 260 #if 0
 261   /* This not in POSIX, and is not really documented by those systems
 262      which have it (at least not Sun).  */
 263   fprintf_filtered (stream, "c_line = 0x%x.\n", state->termios.c_line);
 264 #endif
 265   fprintf_filtered (stream, "c_cc: ");
 266   for (i = 0; i < NCCS; i += 1)
 267     fprintf_filtered (stream, "0x%x ", state->termios.c_cc[i]);
 268   fprintf_filtered (stream, "\n");
 269 #endif
 270
 271 #ifdef HAVE_TERMIO
 272   fprintf_filtered (stream, "c_iflag = 0x%x, c_oflag = 0x%x,\n",
 273                     state->termio.c_iflag, state->termio.c_oflag);
 274   fprintf_filtered (stream, "c_cflag = 0x%x, c_lflag = 0x%x, c_line = 0x%x.\n",
 275                     state->termio.c_cflag, state->termio.c_lflag,
 276                     state->termio.c_line);
 277   fprintf_filtered (stream, "c_cc: ");
 278   for (i = 0; i < NCC; i += 1)
 279     fprintf_filtered (stream, "0x%x ", state->termio.c_cc[i]);
 280   fprintf_filtered (stream, "\n");
 281 #endif
 282
 283 #ifdef HAVE_SGTTY
 284   fprintf_filtered (stream, "sgttyb.sg_flags = 0x%x.\n",
 285                     state->sgttyb.sg_flags);
 286
 287   fprintf_filtered (stream, "tchars: ");
 288   for (i = 0; i < (int) sizeof (struct tchars); i++)
 289     fprintf_filtered (stream, "0x%x ", ((unsigned char *) &state->tc)[i]);
 290   fprintf_filtered (stream, "\n");
 291
 292   fprintf_filtered (stream, "ltchars: ");
 293   for (i = 0; i < (int) sizeof (struct ltchars); i++)
 294     fprintf_filtered (stream, "0x%x ", ((unsigned char *) &state->ltc)[i]);
 295   fprintf_filtered (stream, "\n");
 296
 297   fprintf_filtered (stream, "lmode:  0x%x\n", state->lmode);
 298 #endif
 299 }
 300
 301 /* Wait for the output to drain away, as opposed to flushing
 302    (discarding) it.  */
 303
 304 static int
 305 hardwire_drain_output (struct serial *scb)
 306 {
 307 #ifdef HAVE_TERMIOS
 308   return tcdrain (scb->fd);
 309 #endif
 310
 311 #ifdef HAVE_TERMIO
 312   return ioctl (scb->fd, TCSBRK, 1);
 313 #endif
 314
 315 #ifdef HAVE_SGTTY
 316   /* Get the current state and then restore it using TIOCSETP,
 317      which should cause the output to drain and pending input
 318      to be discarded.  */
 319   {
 320     struct hardwire_ttystate state;
 321
 322     if (get_tty_state (scb, &state))
 323       {
 324         return (-1);
 325       }
 326     else
 327       {
 328         return (ioctl (scb->fd, TIOCSETP, &state.sgttyb));
 329       }
 330   }
 331 #endif
 332 }
 333
 334 static int
 335 hardwire_flush_output (struct serial *scb)
 336 {
 337 #ifdef HAVE_TERMIOS
 338   return tcflush (scb->fd, TCOFLUSH);
 339 #endif
 340
 341 #ifdef HAVE_TERMIO
 342   return ioctl (scb->fd, TCFLSH, 1);
 343 #endif
 344
 345 #ifdef HAVE_SGTTY
 346   /* This flushes both input and output, but we can't do better.  */
 347   return ioctl (scb->fd, TIOCFLUSH, 0);
 348 #endif
 349 }
 350
 351 static int
 352 hardwire_flush_input (struct serial *scb)
 353 {
 354   ser_base_flush_input (scb);
 355
 356 #ifdef HAVE_TERMIOS
 357   return tcflush (scb->fd, TCIFLUSH);
 358 #endif
 359
 360 #ifdef HAVE_TERMIO
 361   return ioctl (scb->fd, TCFLSH, 0);
 362 #endif
 363
 364 #ifdef HAVE_SGTTY
 365   /* This flushes both input and output, but we can't do better.  */
 366   return ioctl (scb->fd, TIOCFLUSH, 0);
 367 #endif
 368 }
 369
 370 static int
 371 hardwire_send_break (struct serial *scb)
 372 {
 373 #ifdef HAVE_TERMIOS
 374   return tcsendbreak (scb->fd, 0);
 375 #endif
 376
 377 #ifdef HAVE_TERMIO
 378   return ioctl (scb->fd, TCSBRK, 0);
 379 #endif
 380
 381 #ifdef HAVE_SGTTY
 382   {
 383     int status;
 384
 385     status = ioctl (scb->fd, TIOCSBRK, 0);
 386
 387     /* Can't use usleep; it doesn't exist in BSD 4.2.  */
 388     /* Note that if this gdb_select() is interrupted by a signal it will not
 389        wait the full length of time.  I think that is OK.  */
 390     gdb_usleep (250000);
 391     status = ioctl (scb->fd, TIOCCBRK, 0);
 392     return status;
 393   }
 394 #endif
 395 }
 396
 397 static void
 398 hardwire_raw (struct serial *scb)
 399 {
 400   struct hardwire_ttystate state;
 401
 402   if (get_tty_state (scb, &state))
 403     fprintf_unfiltered (gdb_stderr, "get_tty_state failed: %s\n",
 404                         safe_strerror (errno));
 405
 406 #ifdef HAVE_TERMIOS
 407   state.termios.c_iflag = 0;
 408   state.termios.c_oflag = 0;
 409   state.termios.c_lflag = 0;
 410   state.termios.c_cflag &= ~(CSIZE | PARENB);
 411   state.termios.c_cflag |= CLOCAL | CS8;
 412 #ifdef CRTSCTS
 413   /* h/w flow control.  */
 414   if (serial_hwflow)
 415     state.termios.c_cflag |= CRTSCTS;
 416   else
 417     state.termios.c_cflag &= ~CRTSCTS;
 418 #ifdef CRTS_IFLOW
 419   if (serial_hwflow)
 420     state.termios.c_cflag |= CRTS_IFLOW;
 421   else
 422     state.termios.c_cflag &= ~CRTS_IFLOW;
 423 #endif
 424 #endif
 425   state.termios.c_cc[VMIN] = 0;
 426   state.termios.c_cc[VTIME] = 0;
 427 #endif
 428
 429 #ifdef HAVE_TERMIO
 430   state.termio.c_iflag = 0;
 431   state.termio.c_oflag = 0;
 432   state.termio.c_lflag = 0;
 433   state.termio.c_cflag &= ~(CSIZE | PARENB);
 434   state.termio.c_cflag |= CLOCAL | CS8;
 435   state.termio.c_cc[VMIN] = 0;
 436   state.termio.c_cc[VTIME] = 0;
 437 #endif
 438
 439 #ifdef HAVE_SGTTY
 440   state.sgttyb.sg_flags |= RAW | ANYP;
 441   state.sgttyb.sg_flags &= ~(CBREAK | ECHO);
 442 #endif
 443
 444   scb->current_timeout = 0;
 445
 446   if (set_tty_state (scb, &state))
 447     fprintf_unfiltered (gdb_stderr, "set_tty_state failed: %s\n",
 448                         safe_strerror (errno));
 449 }
 450
 451 /* Wait for input on scb, with timeout seconds.  Returns 0 on success,
 452    otherwise SERIAL_TIMEOUT or SERIAL_ERROR.
 453
 454    For termio{s}, we actually just setup VTIME if necessary, and let the
 455    timeout occur in the read() in hardwire_read().  */
 456
 457 /* FIXME: cagney/1999-09-16: Don't replace this with the equivalent
 458    ser_base*() until the old TERMIOS/SGTTY/... timer code has been
 459    flushed. .  */
 460
 461 /* NOTE: cagney/1999-09-30: Much of the code below is dead.  The only
 462    possible values of the TIMEOUT parameter are ONE and ZERO.
 463    Consequently all the code that tries to handle the possability of
 464    an overflowed timer is unnecessary.  */
 465
 466 static int
 467 wait_for (struct serial *scb, int timeout)
 468 {
 469 #ifdef HAVE_SGTTY
 470   while (1)
 471     {
 472       struct timeval tv;
 473       fd_set readfds;
 474       int numfds;
 475
 476       /* NOTE: Some OS's can scramble the READFDS when the select()
 477          call fails (ex the kernel with Red Hat 5.2).  Initialize all
 478          arguments before each call.  */
 479
 480       tv.tv_sec = timeout;
 481       tv.tv_usec = 0;
 482
 483       FD_ZERO (&readfds);
 484       FD_SET (scb->fd, &readfds);
 485
 486       if (timeout >= 0)
 487         numfds = gdb_select (scb->fd + 1, &readfds, 0, 0, &tv);
 488       else
 489         numfds = gdb_select (scb->fd + 1, &readfds, 0, 0, 0);
 490
 491       if (numfds <= 0)
 492         if (numfds == 0)
 493           return SERIAL_TIMEOUT;
 494         else if (errno == EINTR)
 495           continue;
 496         else
 497           return SERIAL_ERROR;  /* Got an error from select or poll.  */
 498
 499       return 0;
 500     }
 501 #endif /* HAVE_SGTTY */
 502
 503 #if defined HAVE_TERMIO || defined HAVE_TERMIOS
 504   if (timeout == scb->current_timeout)
 505     return 0;
 506
 507   scb->current_timeout = timeout;
 508
 509   {
 510     struct hardwire_ttystate state;
 511
 512     if (get_tty_state (scb, &state))
 513       fprintf_unfiltered (gdb_stderr, "get_tty_state failed: %s\n",
 514                           safe_strerror (errno));
 515
 516 #ifdef HAVE_TERMIOS
 517     if (timeout < 0)
 518       {
 519         /* No timeout.  */
 520         state.termios.c_cc[VTIME] = 0;
 521         state.termios.c_cc[VMIN] = 1;
 522       }
 523     else
 524       {
 525         state.termios.c_cc[VMIN] = 0;
 526         state.termios.c_cc[VTIME] = timeout * 10;
 527         if (state.termios.c_cc[VTIME] != timeout * 10)
 528           {
 529
 530             /* If c_cc is an 8-bit signed character, we can't go
 531                bigger than this.  If it is always unsigned, we could use
 532                25.  */
 533
 534             scb->current_timeout = 12;
 535             state.termios.c_cc[VTIME] = scb->current_timeout * 10;
 536             scb->timeout_remaining = timeout - scb->current_timeout;
 537           }
 538       }
 539 #endif
 540
 541 #ifdef HAVE_TERMIO
 542     if (timeout < 0)
 543       {
 544         /* No timeout.  */
 545         state.termio.c_cc[VTIME] = 0;
 546         state.termio.c_cc[VMIN] = 1;
 547       }
 548     else
 549       {
 550         state.termio.c_cc[VMIN] = 0;
 551         state.termio.c_cc[VTIME] = timeout * 10;
 552         if (state.termio.c_cc[VTIME] != timeout * 10)
 553           {
 554             /* If c_cc is an 8-bit signed character, we can't go
 555                bigger than this.  If it is always unsigned, we could use
 556                25.  */
 557
 558             scb->current_timeout = 12;
 559             state.termio.c_cc[VTIME] = scb->current_timeout * 10;
 560             scb->timeout_remaining = timeout - scb->current_timeout;
 561           }
 562       }
 563 #endif
 564
 565     if (set_tty_state (scb, &state))
 566       fprintf_unfiltered (gdb_stderr, "set_tty_state failed: %s\n",
 567                           safe_strerror (errno));
 568
 569     return 0;
 570   }
 571 #endif /* HAVE_TERMIO || HAVE_TERMIOS */
 572 }
 573
 574 /* Read a character with user-specified timeout.  TIMEOUT is number of
 575    seconds to wait, or -1 to wait forever.  Use timeout of 0 to effect
 576    a poll.  Returns char if successful.  Returns SERIAL_TIMEOUT if
 577    timeout expired, EOF if line dropped dead, or SERIAL_ERROR for any
 578    other error (see errno in that case).  */
 579
 580 /* FIXME: cagney/1999-09-16: Don't replace this with the equivalent
 581    ser_base*() until the old TERMIOS/SGTTY/... timer code has been
 582    flushed.  */
 583
 584 /* NOTE: cagney/1999-09-16: This function is not identical to
 585    ser_base_readchar() as part of replacing it with ser_base*()
 586    merging will be required - this code handles the case where read()
 587    times out due to no data while ser_base_readchar() doesn't expect
 588    that.  */
 589
 590 static int
 591 do_hardwire_readchar (struct serial *scb, int timeout)
 592 {
 593   int status, delta;
 594   int detach = 0;
 595
 596   if (timeout > 0)
 597     timeout++;
 598
 599   /* We have to be able to keep the GUI alive here, so we break the
 600      original timeout into steps of 1 second, running the "keep the
 601      GUI alive" hook each time through the loop.
 602
 603      Also, timeout = 0 means to poll, so we just set the delta to 0,
 604      so we will only go through the loop once.  */
 605
 606   delta = (timeout == 0 ? 0 : 1);
 607   while (1)
 608     {
 609
 610       /* N.B. The UI may destroy our world (for instance by calling
 611          remote_stop,) in which case we want to get out of here as
 612          quickly as possible.  It is not safe to touch scb, since
 613          someone else might have freed it.  The
 614          deprecated_ui_loop_hook signals that we should exit by
 615          returning 1.  */
 616
 617       if (deprecated_ui_loop_hook)
 618         detach = deprecated_ui_loop_hook (0);
 619
 620       if (detach)
 621         return SERIAL_TIMEOUT;
 622
 623       scb->timeout_remaining = (timeout < 0 ? timeout : timeout - delta);
 624       status = wait_for (scb, delta);
 625
 626       if (status < 0)
 627         return status;
 628
 629       status = read (scb->fd, scb->buf, BUFSIZ);
 630
 631       if (status <= 0)
 632         {
 633           if (status == 0)
 634             {
 635               /* Zero characters means timeout (it could also be EOF, but
 636                  we don't (yet at least) distinguish).  */
 637               if (scb->timeout_remaining > 0)
 638                 {
 639                   timeout = scb->timeout_remaining;
 640                   continue;
 641                 }
 642               else if (scb->timeout_remaining < 0)
 643                 continue;
 644               else
 645                 return SERIAL_TIMEOUT;
 646             }
 647           else if (errno == EINTR)
 648             continue;
 649           else
 650             return SERIAL_ERROR;        /* Got an error from read.  */
 651         }
 652
 653       scb->bufcnt = status;
 654       scb->bufcnt--;
 655       scb->bufp = scb->buf;
 656       return *scb->bufp++;
 657     }
 658 }
 659
 660 static int
 661 hardwire_readchar (struct serial *scb, int timeout)
 662 {
 663   return generic_readchar (scb, timeout, do_hardwire_readchar);
 664 }
 665
 666
 667 #ifndef B19200
 668 #define B19200 EXTA
 669 #endif
 670
 671 #ifndef B38400
 672 #define B38400 EXTB
 673 #endif
 674
 675 /* Translate baud rates from integers to damn B_codes.  Unix should
 676    have outgrown this crap years ago, but even POSIX wouldn't buck it.  */
 677
 678 static struct
 679 {
 680   int rate;
 681   int code;
 682 }
 683 baudtab[] =
 684 {
 685   {
 686     50, B50
 687   }
 688   ,
 689   {
 690     75, B75
 691   }
 692   ,
 693   {
 694     110, B110
 695   }
 696   ,
 697   {
 698     134, B134
 699   }
 700   ,
 701   {
 702     150, B150
 703   }
 704   ,
 705   {
 706     200, B200
 707   }
 708   ,
 709   {
 710     300, B300
 711   }
 712   ,
 713   {
 714     600, B600
 715   }
 716   ,
 717   {
 718     1200, B1200
 719   }
 720   ,
 721   {
 722     1800, B1800
 723   }
 724   ,
 725   {
 726     2400, B2400
 727   }
 728   ,
 729   {
 730     4800, B4800
 731   }
 732   ,
 733   {
 734     9600, B9600
 735   }
 736   ,
 737   {
 738     19200, B19200
 739   }
 740   ,
 741   {
 742     38400, B38400
 743   }
 744   ,
 745 #ifdef B57600
 746   {
 747     57600, B57600
 748   }
 749   ,
 750 #endif
 751 #ifdef B115200
 752   {
 753     115200, B115200
 754   }
 755   ,
 756 #endif
 757 #ifdef B230400
 758   {
 759     230400, B230400
 760   }
 761   ,
 762 #endif
 763 #ifdef B460800
 764   {
 765     460800, B460800
 766   }
 767   ,
 768 #endif
 769   {
 770     -1, -1
 771   }
 772   ,
 773 };
 774
 775 static int
 776 rate_to_code (int rate)
 777 {
 778   int i;
 779
 780   for (i = 0; baudtab[i].rate != -1; i++)
 781     {
 782       /* test for perfect macth.  */
 783       if (rate == baudtab[i].rate)
 784         return baudtab[i].code;
 785       else
 786         {
 787           /* check if it is in between valid values.  */
 788           if (rate < baudtab[i].rate)
 789             {
 790               if (i)
 791                 {
 792                   warning (_("Invalid baud rate %d.  "
 793                              "Closest values are %d and %d."),
 794                            rate, baudtab[i - 1].rate, baudtab[i].rate);
 795                 }
 796               else
 797                 {
 798                   warning (_("Invalid baud rate %d.  Minimum value is %d."),
 799                            rate, baudtab[0].rate);
 800                 }
 801               return -1;
 802             }
 803         }
 804     }
 805
 806   /* The requested speed was too large.  */
 807   warning (_("Invalid baud rate %d.  Maximum value is %d."),
 808             rate, baudtab[i - 1].rate);
 809   return -1;
 810 }
 811
 812 static int
 813 hardwire_setbaudrate (struct serial *scb, int rate)
 814 {
 815   struct hardwire_ttystate state;
 816   int baud_code = rate_to_code (rate);
 817
 818   if (baud_code < 0)
 819     {
 820       /* The baud rate was not valid.
 821          A warning has already been issued.  */
 822       errno = EINVAL;
 823       return -1;
 824     }
 825
 826   if (get_tty_state (scb, &state))
 827     return -1;
 828
 829 #ifdef HAVE_TERMIOS
 830   cfsetospeed (&state.termios, baud_code);
 831   cfsetispeed (&state.termios, baud_code);
 832 #endif
 833
 834 #ifdef HAVE_TERMIO
 835 #ifndef CIBAUD
 836 #define CIBAUD CBAUD
 837 #endif
 838
 839   state.termio.c_cflag &= ~(CBAUD | CIBAUD);
 840   state.termio.c_cflag |= baud_code;
 841 #endif
 842
 843 #ifdef HAVE_SGTTY
 844   state.sgttyb.sg_ispeed = baud_code;
 845   state.sgttyb.sg_ospeed = baud_code;
 846 #endif
 847
 848   return set_tty_state (scb, &state);
 849 }
 850
 851 static int
 852 hardwire_setstopbits (struct serial *scb, int num)
 853 {
 854   struct hardwire_ttystate state;
 855   int newbit;
 856
 857   if (get_tty_state (scb, &state))
 858     return -1;
 859
 860   switch (num)
 861     {
 862     case SERIAL_1_STOPBITS:
 863       newbit = 0;
 864       break;
 865     case SERIAL_1_AND_A_HALF_STOPBITS:
 866     case SERIAL_2_STOPBITS:
 867       newbit = 1;
 868       break;
 869     default:
 870       return 1;
 871     }
 872
 873 #ifdef HAVE_TERMIOS
 874   if (!newbit)
 875     state.termios.c_cflag &= ~CSTOPB;
 876   else
 877     state.termios.c_cflag |= CSTOPB;    /* two bits */
 878 #endif
 879
 880 #ifdef HAVE_TERMIO
 881   if (!newbit)
 882     state.termio.c_cflag &= ~CSTOPB;
 883   else
 884     state.termio.c_cflag |= CSTOPB;     /* two bits */
 885 #endif
 886
 887 #ifdef HAVE_SGTTY
 888   return 0;                     /* sgtty doesn't support this */
 889 #endif
 890
 891   return set_tty_state (scb, &state);
 892 }
 893
 894 static void
 895 hardwire_close (struct serial *scb)
 896 {
 897   if (scb->fd < 0)
 898     return;
 899
 900   close (scb->fd);
 901   scb->fd = -1;
 902 }
 903 \f
 904 \f
 905 void
 906 _initialize_ser_hardwire (void)
 907 {
 908   struct serial_ops *ops = XMALLOC (struct serial_ops);
 909
 910   memset (ops, 0, sizeof (struct serial_ops));
 911   ops->name = "hardwire";
 912   ops->next = 0;
 913   ops->open = hardwire_open;
 914   ops->close = hardwire_close;
 915   /* FIXME: Don't replace this with the equivalent ser_base*() until
 916      the old TERMIOS/SGTTY/... timer code has been flushed.  cagney
 917      1999-09-16.  */
 918   ops->readchar = hardwire_readchar;
 919   ops->write = ser_base_write;
 920   ops->flush_output = hardwire_flush_output;
 921   ops->flush_input = hardwire_flush_input;
 922   ops->send_break = hardwire_send_break;
 923   ops->go_raw = hardwire_raw;
 924   ops->get_tty_state = hardwire_get_tty_state;
 925   ops->copy_tty_state = hardwire_copy_tty_state;
 926   ops->set_tty_state = hardwire_set_tty_state;
 927   ops->print_tty_state = hardwire_print_tty_state;
 928   ops->noflush_set_tty_state = hardwire_noflush_set_tty_state;
 929   ops->setbaudrate = hardwire_setbaudrate;
 930   ops->setstopbits = hardwire_setstopbits;
 931   ops->drain_output = hardwire_drain_output;
 932   ops->async = ser_base_async;
 933   ops->read_prim = ser_unix_read_prim;
 934   ops->write_prim = ser_unix_write_prim;
 935   serial_add_interface (ops);
 936
 937 #ifdef HAVE_TERMIOS
 938 #ifdef CRTSCTS
 939   add_setshow_boolean_cmd ("remoteflow", no_class,
 940                            &serial_hwflow, _("\
 941 Set use of hardware flow control for remote serial I/O."), _("\
 942 Show use of hardware flow control for remote serial I/O."), _("\
 943 Enable or disable hardware flow control (RTS/CTS) on the serial port\n\
 944 when debugging using remote targets."),
 945                            NULL,
 946                            show_serial_hwflow,
 947                            &setlist, &showlist);
 948 #endif
 949 #endif
 950 }
 951
 952 int
 953 ser_unix_read_prim (struct serial *scb, size_t count)
 954 {
 955   int status;
 956
 957   while (1)
 958     {
 959       status = read (scb->fd, scb->buf, count);
 960       if (status != -1 || errno != EINTR)
 961         break;
 962     }
 963   return status;
 964 }
 965
 966 int
 967 ser_unix_write_prim (struct serial *scb, const void *buf, size_t len)
 968 {
 969   /* ??? Historically, GDB has not retried calls to "write" that
 970      result in EINTR.  */
 971   return write (scb->fd, buf, len);
 972 }