1 /* Serial interface for local (hardwired) serial ports on Un*x like systems
2 Copyright 1992, 1993, 1994, 1998 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 #include <sys/types.h>
31 struct hardwire_ttystate
33 struct termios termios
;
39 /* It is believed that all systems which have added job control to SVR3
40 (e.g. sco) have also added termios. Even if not, trying to figure out
41 all the variations (TIOCGPGRP vs. TCGETPGRP, etc.) would be pretty
42 bewildering. So we don't attempt it. */
44 struct hardwire_ttystate
51 /* Needed for the code which uses select(). We would include <sys/select.h>
52 too if it existed on all systems. */
55 struct hardwire_ttystate
60 /* Line discipline flags. */
65 static int hardwire_open
PARAMS ((serial_t scb
, const char *name
));
66 static void hardwire_raw
PARAMS ((serial_t scb
));
67 static int wait_for
PARAMS ((serial_t scb
, int timeout
));
68 static int hardwire_readchar
PARAMS ((serial_t scb
, int timeout
));
69 static int rate_to_code
PARAMS ((int rate
));
70 static int hardwire_setbaudrate
PARAMS ((serial_t scb
, int rate
));
71 static int hardwire_write
PARAMS ((serial_t scb
, const char *str
, int len
));
72 static void hardwire_close
PARAMS ((serial_t scb
));
73 static int get_tty_state
PARAMS ((serial_t scb
, struct hardwire_ttystate
*state
));
74 static int set_tty_state
PARAMS ((serial_t scb
, struct hardwire_ttystate
*state
));
75 static serial_ttystate hardwire_get_tty_state
PARAMS ((serial_t scb
));
76 static int hardwire_set_tty_state
PARAMS ((serial_t scb
, serial_ttystate state
));
77 static int hardwire_noflush_set_tty_state
PARAMS ((serial_t
, serial_ttystate
,
79 static void hardwire_print_tty_state
PARAMS ((serial_t
, serial_ttystate
));
80 static int hardwire_drain_output
PARAMS ((serial_t
));
81 static int hardwire_flush_output
PARAMS ((serial_t
));
82 static int hardwire_flush_input
PARAMS ((serial_t
));
83 static int hardwire_send_break
PARAMS ((serial_t
));
84 static int hardwire_setstopbits
PARAMS ((serial_t
, int));
86 void _initialize_ser_hardwire
PARAMS ((void));
89 extern void (*ui_loop_hook
) PARAMS ((int));
92 /* Open up a real live device for serial I/O */
95 hardwire_open(scb
, name
)
99 scb
->fd
= open (name
, O_RDWR
);
107 get_tty_state (scb
, state
)
109 struct hardwire_ttystate
*state
;
112 if (tcgetattr(scb
->fd
, &state
->termios
) < 0)
119 if (ioctl (scb
->fd
, TCGETA
, &state
->termio
) < 0)
125 if (ioctl (scb
->fd
, TIOCGETP
, &state
->sgttyb
) < 0)
127 if (ioctl (scb
->fd
, TIOCGETC
, &state
->tc
) < 0)
129 if (ioctl (scb
->fd
, TIOCGLTC
, &state
->ltc
) < 0)
131 if (ioctl (scb
->fd
, TIOCLGET
, &state
->lmode
) < 0)
139 set_tty_state(scb
, state
)
141 struct hardwire_ttystate
*state
;
144 if (tcsetattr(scb
->fd
, TCSANOW
, &state
->termios
) < 0)
151 if (ioctl (scb
->fd
, TCSETA
, &state
->termio
) < 0)
157 if (ioctl (scb
->fd
, TIOCSETN
, &state
->sgttyb
) < 0)
159 if (ioctl (scb
->fd
, TIOCSETC
, &state
->tc
) < 0)
161 if (ioctl (scb
->fd
, TIOCSLTC
, &state
->ltc
) < 0)
163 if (ioctl (scb
->fd
, TIOCLSET
, &state
->lmode
) < 0)
170 static serial_ttystate
171 hardwire_get_tty_state(scb
)
174 struct hardwire_ttystate
*state
;
176 state
= (struct hardwire_ttystate
*)xmalloc(sizeof *state
);
178 if (get_tty_state(scb
, state
))
181 return (serial_ttystate
)state
;
185 hardwire_set_tty_state(scb
, ttystate
)
187 serial_ttystate ttystate
;
189 struct hardwire_ttystate
*state
;
191 state
= (struct hardwire_ttystate
*)ttystate
;
193 return set_tty_state(scb
, state
);
197 hardwire_noflush_set_tty_state (scb
, new_ttystate
, old_ttystate
)
199 serial_ttystate new_ttystate
;
200 serial_ttystate old_ttystate
;
202 struct hardwire_ttystate new_state
;
204 struct hardwire_ttystate
*state
= (struct hardwire_ttystate
*) old_ttystate
;
207 new_state
= *(struct hardwire_ttystate
*)new_ttystate
;
209 /* Don't change in or out of raw mode; we don't want to flush input.
210 termio and termios have no such restriction; for them flushing input
211 is separate from setting the attributes. */
214 if (state
->sgttyb
.sg_flags
& RAW
)
215 new_state
.sgttyb
.sg_flags
|= RAW
;
217 new_state
.sgttyb
.sg_flags
&= ~RAW
;
219 /* I'm not sure whether this is necessary; the manpage just mentions
221 if (state
->sgttyb
.sg_flags
& CBREAK
)
222 new_state
.sgttyb
.sg_flags
|= CBREAK
;
224 new_state
.sgttyb
.sg_flags
&= ~CBREAK
;
227 return set_tty_state (scb
, &new_state
);
231 hardwire_print_tty_state (scb
, ttystate
)
233 serial_ttystate ttystate
;
235 struct hardwire_ttystate
*state
= (struct hardwire_ttystate
*) ttystate
;
239 printf_filtered ("c_iflag = 0x%x, c_oflag = 0x%x,\n",
240 state
->termios
.c_iflag
, state
->termios
.c_oflag
);
241 printf_filtered ("c_cflag = 0x%x, c_lflag = 0x%x\n",
242 state
->termios
.c_cflag
, state
->termios
.c_lflag
);
244 /* This not in POSIX, and is not really documented by those systems
245 which have it (at least not Sun). */
246 printf_filtered ("c_line = 0x%x.\n", state
->termios
.c_line
);
248 printf_filtered ("c_cc: ");
249 for (i
= 0; i
< NCCS
; i
+= 1)
250 printf_filtered ("0x%x ", state
->termios
.c_cc
[i
]);
251 printf_filtered ("\n");
255 printf_filtered ("c_iflag = 0x%x, c_oflag = 0x%x,\n",
256 state
->termio
.c_iflag
, state
->termio
.c_oflag
);
257 printf_filtered ("c_cflag = 0x%x, c_lflag = 0x%x, c_line = 0x%x.\n",
258 state
->termio
.c_cflag
, state
->termio
.c_lflag
,
259 state
->termio
.c_line
);
260 printf_filtered ("c_cc: ");
261 for (i
= 0; i
< NCC
; i
+= 1)
262 printf_filtered ("0x%x ", state
->termio
.c_cc
[i
]);
263 printf_filtered ("\n");
267 printf_filtered ("sgttyb.sg_flags = 0x%x.\n", state
->sgttyb
.sg_flags
);
269 printf_filtered ("tchars: ");
270 for (i
= 0; i
< (int)sizeof (struct tchars
); i
++)
271 printf_filtered ("0x%x ", ((unsigned char *)&state
->tc
)[i
]);
272 printf_filtered ("\n");
274 printf_filtered ("ltchars: ");
275 for (i
= 0; i
< (int)sizeof (struct ltchars
); i
++)
276 printf_filtered ("0x%x ", ((unsigned char *)&state
->ltc
)[i
]);
277 printf_filtered ("\n");
279 printf_filtered ("lmode: 0x%x\n", state
->lmode
);
283 /* Wait for the output to drain away, as opposed to flushing (discarding) it */
286 hardwire_drain_output (scb
)
290 return tcdrain (scb
->fd
);
294 return ioctl (scb
->fd
, TCSBRK
, 1);
298 /* Get the current state and then restore it using TIOCSETP,
299 which should cause the output to drain and pending input
302 struct hardwire_ttystate state
;
303 if (get_tty_state (scb
, &state
))
309 return (ioctl (scb
->fd
, TIOCSETP
, &state
.sgttyb
));
316 hardwire_flush_output (scb
)
320 return tcflush (scb
->fd
, TCOFLUSH
);
324 return ioctl (scb
->fd
, TCFLSH
, 1);
328 /* This flushes both input and output, but we can't do better. */
329 return ioctl (scb
->fd
, TIOCFLUSH
, 0);
334 hardwire_flush_input (scb
)
338 scb
->bufp
= scb
->buf
;
341 return tcflush (scb
->fd
, TCIFLUSH
);
345 return ioctl (scb
->fd
, TCFLSH
, 0);
349 /* This flushes both input and output, but we can't do better. */
350 return ioctl (scb
->fd
, TIOCFLUSH
, 0);
355 hardwire_send_break (scb
)
359 return tcsendbreak (scb
->fd
, 0);
363 return ioctl (scb
->fd
, TCSBRK
, 0);
369 struct timeval timeout
;
371 status
= ioctl (scb
->fd
, TIOCSBRK
, 0);
373 /* Can't use usleep; it doesn't exist in BSD 4.2. */
374 /* Note that if this select() is interrupted by a signal it will not wait
375 the full length of time. I think that is OK. */
377 timeout
.tv_usec
= 250000;
378 select (0, 0, 0, 0, &timeout
);
379 status
= ioctl (scb
->fd
, TIOCCBRK
, 0);
389 struct hardwire_ttystate state
;
391 if (get_tty_state(scb
, &state
))
392 fprintf_unfiltered(gdb_stderr
, "get_tty_state failed: %s\n", safe_strerror(errno
));
395 state
.termios
.c_iflag
= 0;
396 state
.termios
.c_oflag
= 0;
397 state
.termios
.c_lflag
= 0;
398 state
.termios
.c_cflag
&= ~(CSIZE
|PARENB
);
399 state
.termios
.c_cflag
|= CLOCAL
| CS8
;
400 state
.termios
.c_cc
[VMIN
] = 0;
401 state
.termios
.c_cc
[VTIME
] = 0;
405 state
.termio
.c_iflag
= 0;
406 state
.termio
.c_oflag
= 0;
407 state
.termio
.c_lflag
= 0;
408 state
.termio
.c_cflag
&= ~(CSIZE
|PARENB
);
409 state
.termio
.c_cflag
|= CLOCAL
| CS8
;
410 state
.termio
.c_cc
[VMIN
] = 0;
411 state
.termio
.c_cc
[VTIME
] = 0;
415 state
.sgttyb
.sg_flags
|= RAW
| ANYP
;
416 state
.sgttyb
.sg_flags
&= ~(CBREAK
| ECHO
);
419 scb
->current_timeout
= 0;
421 if (set_tty_state (scb
, &state
))
422 fprintf_unfiltered(gdb_stderr
, "set_tty_state failed: %s\n", safe_strerror(errno
));
425 /* Wait for input on scb, with timeout seconds. Returns 0 on success,
426 otherwise SERIAL_TIMEOUT or SERIAL_ERROR.
428 For termio{s}, we actually just setup VTIME if necessary, and let the
429 timeout occur in the read() in hardwire_read().
433 wait_for(scb
, timeout
)
438 scb
->timeout_remaining
= 0;
451 FD_SET(scb
->fd
, &readfds
);
458 numfds
= select(scb
->fd
+1, &readfds
, 0, 0, &tv
);
460 numfds
= select(scb
->fd
+1, &readfds
, 0, 0, 0);
464 return SERIAL_TIMEOUT
;
465 else if (errno
== EINTR
)
468 return SERIAL_ERROR
; /* Got an error from select or poll */
473 #endif /* HAVE_SGTTY */
475 #if defined HAVE_TERMIO || defined HAVE_TERMIOS
476 if (timeout
== scb
->current_timeout
)
479 scb
->current_timeout
= timeout
;
482 struct hardwire_ttystate state
;
484 if (get_tty_state(scb
, &state
))
485 fprintf_unfiltered(gdb_stderr
, "get_tty_state failed: %s\n", safe_strerror(errno
));
491 state
.termios
.c_cc
[VTIME
] = 0;
492 state
.termios
.c_cc
[VMIN
] = 1;
496 state
.termios
.c_cc
[VMIN
] = 0;
497 state
.termios
.c_cc
[VTIME
] = timeout
* 10;
498 if (state
.termios
.c_cc
[VTIME
] != timeout
* 10)
501 /* If c_cc is an 8-bit signed character, we can't go
502 bigger than this. If it is always unsigned, we could use
505 scb
->current_timeout
= 12;
506 state
.termios
.c_cc
[VTIME
] = scb
->current_timeout
* 10;
507 scb
->timeout_remaining
= timeout
- scb
->current_timeout
;
516 state
.termio
.c_cc
[VTIME
] = 0;
517 state
.termio
.c_cc
[VMIN
] = 1;
521 state
.termio
.c_cc
[VMIN
] = 0;
522 state
.termio
.c_cc
[VTIME
] = timeout
* 10;
523 if (state
.termio
.c_cc
[VTIME
] != timeout
* 10)
525 /* If c_cc is an 8-bit signed character, we can't go
526 bigger than this. If it is always unsigned, we could use
529 scb
->current_timeout
= 12;
530 state
.termio
.c_cc
[VTIME
] = scb
->current_timeout
* 10;
531 scb
->timeout_remaining
= timeout
- scb
->current_timeout
;
536 if (set_tty_state (scb
, &state
))
537 fprintf_unfiltered(gdb_stderr
, "set_tty_state failed: %s\n", safe_strerror(errno
));
541 #endif /* HAVE_TERMIO || HAVE_TERMIOS */
544 /* Read a character with user-specified timeout. TIMEOUT is number of seconds
545 to wait, or -1 to wait forever. Use timeout of 0 to effect a poll. Returns
546 char if successful. Returns SERIAL_TIMEOUT if timeout expired, EOF if line
547 dropped dead, or SERIAL_ERROR for any other error (see errno in that case). */
549 hardwire_readchar (scb
, timeout
)
558 if (scb
->bufcnt
-- > 0)
569 t
= timeout
== 0 ? 0 : 1;
570 scb
->timeout_remaining
= timeout
< 0 ? timeout
: timeout
- t
;
571 status
= wait_for (scb
, t
);
573 /* -2 means disable timer */
577 status
= wait_for (scb
, timeout
);
582 scb
->bufcnt
= read (scb
->fd
, scb
->buf
, BUFSIZ
);
584 if (scb
->bufcnt
<= 0)
586 if (scb
->bufcnt
== 0)
588 /* Zero characters means timeout (it could also be EOF, but
589 we don't (yet at least) distinguish). */
590 if (scb
->timeout_remaining
> 0)
592 timeout
= scb
->timeout_remaining
;
596 else if (scb
->timeout_remaining
< 0)
600 return SERIAL_TIMEOUT
;
602 else if (errno
== EINTR
)
605 return SERIAL_ERROR
; /* Got an error from read */
609 scb
->bufp
= scb
->buf
;
622 /* Translate baud rates from integers to damn B_codes. Unix should
623 have outgrown this crap years ago, but even POSIX wouldn't buck it. */
668 for (i
= 0; baudtab
[i
].rate
!= -1; i
++)
669 if (rate
== baudtab
[i
].rate
)
670 return baudtab
[i
].code
;
676 hardwire_setbaudrate(scb
, rate
)
680 struct hardwire_ttystate state
;
682 if (get_tty_state(scb
, &state
))
686 cfsetospeed (&state
.termios
, rate_to_code (rate
));
687 cfsetispeed (&state
.termios
, rate_to_code (rate
));
695 state
.termio
.c_cflag
&= ~(CBAUD
| CIBAUD
);
696 state
.termio
.c_cflag
|= rate_to_code (rate
);
700 state
.sgttyb
.sg_ispeed
= rate_to_code (rate
);
701 state
.sgttyb
.sg_ospeed
= rate_to_code (rate
);
704 return set_tty_state (scb
, &state
);
708 hardwire_setstopbits(scb
, num
)
712 struct hardwire_ttystate state
;
715 if (get_tty_state(scb
, &state
))
720 case SERIAL_1_STOPBITS
:
723 case SERIAL_1_AND_A_HALF_STOPBITS
:
724 case SERIAL_2_STOPBITS
:
733 state
.termios
.c_cflag
&= ~CSTOPB
;
735 state
.termios
.c_cflag
|= CSTOPB
; /* two bits */
740 state
.termio
.c_cflag
&= ~CSTOPB
;
742 state
.termio
.c_cflag
|= CSTOPB
; /* two bits */
746 return 0; /* sgtty doesn't support this */
749 return set_tty_state (scb
, &state
);
753 hardwire_write(scb
, str
, len
)
762 cc
= write(scb
->fd
, str
, len
);
783 static struct serial_ops hardwire_ops
=
791 hardwire_flush_output
,
792 hardwire_flush_input
,
795 hardwire_get_tty_state
,
796 hardwire_set_tty_state
,
797 hardwire_print_tty_state
,
798 hardwire_noflush_set_tty_state
,
799 hardwire_setbaudrate
,
800 hardwire_setstopbits
,
801 hardwire_drain_output
, /* wait for output to drain */
805 _initialize_ser_hardwire ()
807 serial_add_interface (&hardwire_ops
);