Commit | Line | Data |
---|---|---|
c906108c | 1 | /* Generic serial interface routines |
4fcf66da | 2 | |
6aba47ca | 3 | Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, |
4c38e0a4 JB |
4 | 2002, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
5 | Free Software Foundation, Inc. | |
c906108c | 6 | |
c5aa993b | 7 | This file is part of GDB. |
c906108c | 8 | |
c5aa993b JM |
9 | This program is free software; you can redistribute it and/or modify |
10 | it under the terms of the GNU General Public License as published by | |
a9762ec7 | 11 | the Free Software Foundation; either version 3 of the License, or |
c5aa993b | 12 | (at your option) any later version. |
c906108c | 13 | |
c5aa993b JM |
14 | This program is distributed in the hope that it will be useful, |
15 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 | GNU General Public License for more details. | |
c906108c | 18 | |
c5aa993b | 19 | You should have received a copy of the GNU General Public License |
a9762ec7 | 20 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
c906108c SS |
21 | |
22 | #include "defs.h" | |
23 | #include <ctype.h> | |
24 | #include "serial.h" | |
25 | #include "gdb_string.h" | |
26 | #include "gdbcmd.h" | |
27 | ||
c2c6d25f | 28 | extern void _initialize_serial (void); |
392a587b | 29 | |
2acceee2 JM |
30 | /* Is serial being debugged? */ |
31 | ||
32 | static int global_serial_debug_p; | |
33 | ||
c906108c SS |
34 | /* Linked list of serial I/O handlers */ |
35 | ||
36 | static struct serial_ops *serial_ops_list = NULL; | |
37 | ||
38 | /* This is the last serial stream opened. Used by connect command. */ | |
39 | ||
819cc324 | 40 | static struct serial *last_serial_opened = NULL; |
c906108c SS |
41 | |
42 | /* Pointer to list of scb's. */ | |
43 | ||
819cc324 | 44 | static struct serial *scb_base; |
c906108c SS |
45 | |
46 | /* Non-NULL gives filename which contains a recording of the remote session, | |
47 | suitable for playback by gdbserver. */ | |
48 | ||
49 | static char *serial_logfile = NULL; | |
d9fcf2fb | 50 | static struct ui_file *serial_logfp = NULL; |
c906108c | 51 | |
c2c6d25f | 52 | static struct serial_ops *serial_interface_lookup (char *); |
d9fcf2fb | 53 | static void serial_logchar (struct ui_file *stream, int ch_type, int ch, int timeout); |
53904c9e AC |
54 | static const char logbase_hex[] = "hex"; |
55 | static const char logbase_octal[] = "octal"; | |
56 | static const char logbase_ascii[] = "ascii"; | |
57 | static const char *logbase_enums[] = | |
c5aa993b | 58 | {logbase_hex, logbase_octal, logbase_ascii, NULL}; |
53904c9e | 59 | static const char *serial_logbase = logbase_ascii; |
c906108c | 60 | \f |
c5aa993b | 61 | |
c906108c SS |
62 | static int serial_current_type = 0; |
63 | ||
64 | /* Log char CH of type CHTYPE, with TIMEOUT */ | |
65 | ||
66 | /* Define bogus char to represent a BREAK. Should be careful to choose a value | |
67 | that can't be confused with a normal char, or an error code. */ | |
68 | #define SERIAL_BREAK 1235 | |
69 | ||
70 | static void | |
d9fcf2fb | 71 | serial_logchar (struct ui_file *stream, int ch_type, int ch, int timeout) |
c906108c SS |
72 | { |
73 | if (ch_type != serial_current_type) | |
74 | { | |
2acceee2 | 75 | fprintf_unfiltered (stream, "\n%c ", ch_type); |
c906108c SS |
76 | serial_current_type = ch_type; |
77 | } | |
78 | ||
79 | if (serial_logbase != logbase_ascii) | |
2acceee2 | 80 | fputc_unfiltered (' ', stream); |
c906108c SS |
81 | |
82 | switch (ch) | |
83 | { | |
84 | case SERIAL_TIMEOUT: | |
2acceee2 | 85 | fprintf_unfiltered (stream, "<Timeout: %d seconds>", timeout); |
c906108c SS |
86 | return; |
87 | case SERIAL_ERROR: | |
2acceee2 | 88 | fprintf_unfiltered (stream, "<Error: %s>", safe_strerror (errno)); |
c906108c SS |
89 | return; |
90 | case SERIAL_EOF: | |
2acceee2 | 91 | fputs_unfiltered ("<Eof>", stream); |
c906108c SS |
92 | return; |
93 | case SERIAL_BREAK: | |
2acceee2 | 94 | fputs_unfiltered ("<Break>", stream); |
c906108c SS |
95 | return; |
96 | default: | |
97 | if (serial_logbase == logbase_hex) | |
2acceee2 | 98 | fprintf_unfiltered (stream, "%02x", ch & 0xff); |
c906108c | 99 | else if (serial_logbase == logbase_octal) |
2acceee2 | 100 | fprintf_unfiltered (stream, "%03o", ch & 0xff); |
c906108c SS |
101 | else |
102 | switch (ch) | |
103 | { | |
c5aa993b | 104 | case '\\': |
2acceee2 | 105 | fputs_unfiltered ("\\\\", stream); |
c5aa993b JM |
106 | break; |
107 | case '\b': | |
2acceee2 | 108 | fputs_unfiltered ("\\b", stream); |
c5aa993b JM |
109 | break; |
110 | case '\f': | |
2acceee2 | 111 | fputs_unfiltered ("\\f", stream); |
c5aa993b JM |
112 | break; |
113 | case '\n': | |
2acceee2 | 114 | fputs_unfiltered ("\\n", stream); |
c5aa993b JM |
115 | break; |
116 | case '\r': | |
2acceee2 | 117 | fputs_unfiltered ("\\r", stream); |
c5aa993b JM |
118 | break; |
119 | case '\t': | |
2acceee2 | 120 | fputs_unfiltered ("\\t", stream); |
c5aa993b JM |
121 | break; |
122 | case '\v': | |
2acceee2 | 123 | fputs_unfiltered ("\\v", stream); |
c5aa993b JM |
124 | break; |
125 | default: | |
2acceee2 | 126 | fprintf_unfiltered (stream, isprint (ch) ? "%c" : "\\x%02x", ch & 0xFF); |
c5aa993b | 127 | break; |
c906108c SS |
128 | } |
129 | } | |
130 | } | |
131 | ||
132 | void | |
c2c6d25f | 133 | serial_log_command (const char *cmd) |
c906108c SS |
134 | { |
135 | if (!serial_logfp) | |
136 | return; | |
137 | ||
138 | serial_current_type = 'c'; | |
139 | ||
140 | fputs_unfiltered ("\nc ", serial_logfp); | |
141 | fputs_unfiltered (cmd, serial_logfp); | |
142 | ||
143 | /* Make sure that the log file is as up-to-date as possible, | |
144 | in case we are getting ready to dump core or something. */ | |
145 | gdb_flush (serial_logfp); | |
146 | } | |
147 | ||
c2c6d25f | 148 | \f |
c906108c | 149 | static struct serial_ops * |
c2c6d25f | 150 | serial_interface_lookup (char *name) |
c906108c SS |
151 | { |
152 | struct serial_ops *ops; | |
153 | ||
154 | for (ops = serial_ops_list; ops; ops = ops->next) | |
155 | if (strcmp (name, ops->name) == 0) | |
156 | return ops; | |
157 | ||
158 | return NULL; | |
159 | } | |
160 | ||
161 | void | |
c2c6d25f | 162 | serial_add_interface (struct serial_ops *optable) |
c906108c SS |
163 | { |
164 | optable->next = serial_ops_list; | |
165 | serial_ops_list = optable; | |
166 | } | |
167 | ||
168 | /* Open up a device or a network socket, depending upon the syntax of NAME. */ | |
169 | ||
819cc324 | 170 | struct serial * |
c2c6d25f | 171 | serial_open (const char *name) |
c906108c | 172 | { |
819cc324 | 173 | struct serial *scb; |
c906108c | 174 | struct serial_ops *ops; |
c2c6d25f | 175 | const char *open_name = name; |
c906108c SS |
176 | |
177 | for (scb = scb_base; scb; scb = scb->next) | |
178 | if (scb->name && strcmp (scb->name, name) == 0) | |
179 | { | |
180 | scb->refcnt++; | |
181 | return scb; | |
182 | } | |
183 | ||
50a9e2f1 | 184 | if (strcmp (name, "pc") == 0) |
c906108c | 185 | ops = serial_interface_lookup ("pc"); |
c906108c SS |
186 | else if (strncmp (name, "lpt", 3) == 0) |
187 | ops = serial_interface_lookup ("parallel"); | |
43e526b9 | 188 | else if (strncmp (name, "|", 1) == 0) |
c2c6d25f JM |
189 | { |
190 | ops = serial_interface_lookup ("pipe"); | |
8b9e3a15 VP |
191 | /* Discard ``|'' and any space before the command itself. */ |
192 | ++open_name; | |
193 | while (isspace (*open_name)) | |
194 | ++open_name; | |
c2c6d25f | 195 | } |
2821caf1 JB |
196 | /* Check for a colon, suggesting an IP address/port pair. |
197 | Do this *after* checking for all the interesting prefixes. We | |
198 | don't want to constrain the syntax of what can follow them. */ | |
199 | else if (strchr (name, ':')) | |
200 | ops = serial_interface_lookup ("tcp"); | |
c906108c SS |
201 | else |
202 | ops = serial_interface_lookup ("hardwire"); | |
203 | ||
204 | if (!ops) | |
205 | return NULL; | |
206 | ||
65e2f740 | 207 | scb = XMALLOC (struct serial); |
c906108c SS |
208 | |
209 | scb->ops = ops; | |
210 | ||
211 | scb->bufcnt = 0; | |
212 | scb->bufp = scb->buf; | |
65cc4390 | 213 | scb->error_fd = -1; |
c906108c | 214 | |
652aaa24 JK |
215 | /* `...->open (...)' would get expanded by an the open(2) syscall macro. */ |
216 | if ((*scb->ops->open) (scb, open_name)) | |
c906108c | 217 | { |
b8c9b27d | 218 | xfree (scb); |
c906108c SS |
219 | return NULL; |
220 | } | |
221 | ||
4fcf66da | 222 | scb->name = xstrdup (name); |
c906108c SS |
223 | scb->next = scb_base; |
224 | scb->refcnt = 1; | |
2acceee2 JM |
225 | scb->debug_p = 0; |
226 | scb->async_state = 0; | |
c2c6d25f JM |
227 | scb->async_handler = NULL; |
228 | scb->async_context = NULL; | |
c906108c SS |
229 | scb_base = scb; |
230 | ||
231 | last_serial_opened = scb; | |
232 | ||
233 | if (serial_logfile != NULL) | |
234 | { | |
235 | serial_logfp = gdb_fopen (serial_logfile, "w"); | |
236 | if (serial_logfp == NULL) | |
237 | perror_with_name (serial_logfile); | |
238 | } | |
239 | ||
240 | return scb; | |
241 | } | |
242 | ||
0ea3f30e DJ |
243 | /* Return the open serial device for FD, if found, or NULL if FD |
244 | is not already opened. */ | |
245 | ||
246 | struct serial * | |
247 | serial_for_fd (int fd) | |
248 | { | |
249 | struct serial *scb; | |
250 | struct serial_ops *ops; | |
251 | ||
252 | for (scb = scb_base; scb; scb = scb->next) | |
253 | if (scb->fd == fd) | |
254 | return scb; | |
255 | ||
256 | return NULL; | |
257 | } | |
258 | ||
819cc324 | 259 | struct serial * |
c2c6d25f | 260 | serial_fdopen (const int fd) |
c906108c | 261 | { |
819cc324 | 262 | struct serial *scb; |
c906108c SS |
263 | struct serial_ops *ops; |
264 | ||
265 | for (scb = scb_base; scb; scb = scb->next) | |
266 | if (scb->fd == fd) | |
267 | { | |
268 | scb->refcnt++; | |
269 | return scb; | |
270 | } | |
271 | ||
0ea3f30e DJ |
272 | ops = serial_interface_lookup ("terminal"); |
273 | if (!ops) | |
274 | ops = serial_interface_lookup ("hardwire"); | |
c906108c SS |
275 | |
276 | if (!ops) | |
277 | return NULL; | |
278 | ||
0ea3f30e | 279 | scb = XCALLOC (1, struct serial); |
c906108c SS |
280 | |
281 | scb->ops = ops; | |
282 | ||
283 | scb->bufcnt = 0; | |
284 | scb->bufp = scb->buf; | |
285 | ||
286 | scb->fd = fd; | |
287 | ||
288 | scb->name = NULL; | |
289 | scb->next = scb_base; | |
290 | scb->refcnt = 1; | |
2acceee2 JM |
291 | scb->debug_p = 0; |
292 | scb->async_state = 0; | |
c2c6d25f JM |
293 | scb->async_handler = NULL; |
294 | scb->async_context = NULL; | |
c906108c SS |
295 | scb_base = scb; |
296 | ||
297 | last_serial_opened = scb; | |
298 | ||
299 | return scb; | |
300 | } | |
301 | ||
c2c6d25f | 302 | static void |
819cc324 | 303 | do_serial_close (struct serial *scb, int really_close) |
c906108c | 304 | { |
819cc324 | 305 | struct serial *tmp_scb; |
c906108c SS |
306 | |
307 | last_serial_opened = NULL; | |
308 | ||
309 | if (serial_logfp) | |
310 | { | |
311 | fputs_unfiltered ("\nEnd of log\n", serial_logfp); | |
312 | serial_current_type = 0; | |
313 | ||
314 | /* XXX - What if serial_logfp == gdb_stdout or gdb_stderr? */ | |
d9fcf2fb | 315 | ui_file_delete (serial_logfp); |
c906108c SS |
316 | serial_logfp = NULL; |
317 | } | |
318 | ||
319 | /* This is bogus. It's not our fault if you pass us a bad scb...! Rob, you | |
320 | should fix your code instead. */ | |
321 | ||
322 | if (!scb) | |
323 | return; | |
324 | ||
325 | scb->refcnt--; | |
326 | if (scb->refcnt > 0) | |
327 | return; | |
328 | ||
c2c6d25f JM |
329 | /* ensure that the FD has been taken out of async mode */ |
330 | if (scb->async_handler != NULL) | |
331 | serial_async (scb, NULL, NULL); | |
332 | ||
c906108c SS |
333 | if (really_close) |
334 | scb->ops->close (scb); | |
335 | ||
336 | if (scb->name) | |
b8c9b27d | 337 | xfree (scb->name); |
c906108c SS |
338 | |
339 | if (scb_base == scb) | |
340 | scb_base = scb_base->next; | |
341 | else | |
342 | for (tmp_scb = scb_base; tmp_scb; tmp_scb = tmp_scb->next) | |
343 | { | |
344 | if (tmp_scb->next != scb) | |
345 | continue; | |
346 | ||
347 | tmp_scb->next = tmp_scb->next->next; | |
348 | break; | |
349 | } | |
350 | ||
b8c9b27d | 351 | xfree (scb); |
c906108c SS |
352 | } |
353 | ||
c2c6d25f | 354 | void |
819cc324 | 355 | serial_close (struct serial *scb) |
c2c6d25f JM |
356 | { |
357 | do_serial_close (scb, 1); | |
358 | } | |
359 | ||
360 | void | |
819cc324 | 361 | serial_un_fdopen (struct serial *scb) |
c2c6d25f JM |
362 | { |
363 | do_serial_close (scb, 0); | |
364 | } | |
365 | ||
366 | int | |
819cc324 | 367 | serial_readchar (struct serial *scb, int timeout) |
c2c6d25f JM |
368 | { |
369 | int ch; | |
370 | ||
2df3850c JM |
371 | /* FIXME: cagney/1999-10-11: Don't enable this check until the ASYNC |
372 | code is finished. */ | |
2cd58942 | 373 | if (0 && serial_is_async_p (scb) && timeout < 0) |
8e65ff28 | 374 | internal_error (__FILE__, __LINE__, |
e2e0b3e5 | 375 | _("serial_readchar: blocking read in async mode")); |
2df3850c | 376 | |
c2c6d25f JM |
377 | ch = scb->ops->readchar (scb, timeout); |
378 | if (serial_logfp != NULL) | |
379 | { | |
2acceee2 | 380 | serial_logchar (serial_logfp, 'r', ch, timeout); |
c2c6d25f JM |
381 | |
382 | /* Make sure that the log file is as up-to-date as possible, | |
383 | in case we are getting ready to dump core or something. */ | |
384 | gdb_flush (serial_logfp); | |
385 | } | |
2cd58942 | 386 | if (serial_debug_p (scb)) |
2acceee2 JM |
387 | { |
388 | fprintf_unfiltered (gdb_stdlog, "["); | |
389 | serial_logchar (gdb_stdlog, 'r', ch, timeout); | |
390 | fprintf_unfiltered (gdb_stdlog, "]"); | |
391 | gdb_flush (gdb_stdlog); | |
392 | } | |
c2c6d25f JM |
393 | |
394 | return (ch); | |
395 | } | |
396 | ||
397 | int | |
819cc324 | 398 | serial_write (struct serial *scb, const char *str, int len) |
c2c6d25f JM |
399 | { |
400 | if (serial_logfp != NULL) | |
401 | { | |
402 | int count; | |
403 | ||
404 | for (count = 0; count < len; count++) | |
2acceee2 | 405 | serial_logchar (serial_logfp, 'w', str[count] & 0xff, 0); |
c2c6d25f JM |
406 | |
407 | /* Make sure that the log file is as up-to-date as possible, | |
408 | in case we are getting ready to dump core or something. */ | |
409 | gdb_flush (serial_logfp); | |
410 | } | |
9214d371 DE |
411 | if (serial_debug_p (scb)) |
412 | { | |
413 | int count; | |
414 | ||
415 | for (count = 0; count < len; count++) | |
416 | { | |
417 | fprintf_unfiltered (gdb_stdlog, "["); | |
418 | serial_logchar (gdb_stdlog, 'w', str[count] & 0xff, 0); | |
419 | fprintf_unfiltered (gdb_stdlog, "]"); | |
420 | } | |
421 | gdb_flush (gdb_stdlog); | |
422 | } | |
c2c6d25f JM |
423 | |
424 | return (scb->ops->write (scb, str, len)); | |
425 | } | |
426 | ||
427 | void | |
819cc324 | 428 | serial_printf (struct serial *desc, const char *format,...) |
c2c6d25f JM |
429 | { |
430 | va_list args; | |
431 | char *buf; | |
432 | va_start (args, format); | |
433 | ||
e623b504 | 434 | buf = xstrvprintf (format, args); |
2cd58942 | 435 | serial_write (desc, buf, strlen (buf)); |
c2c6d25f | 436 | |
b8c9b27d | 437 | xfree (buf); |
c2c6d25f JM |
438 | va_end (args); |
439 | } | |
440 | ||
441 | int | |
819cc324 | 442 | serial_drain_output (struct serial *scb) |
c2c6d25f JM |
443 | { |
444 | return scb->ops->drain_output (scb); | |
445 | } | |
446 | ||
447 | int | |
819cc324 | 448 | serial_flush_output (struct serial *scb) |
c2c6d25f JM |
449 | { |
450 | return scb->ops->flush_output (scb); | |
451 | } | |
452 | ||
453 | int | |
819cc324 | 454 | serial_flush_input (struct serial *scb) |
c2c6d25f JM |
455 | { |
456 | return scb->ops->flush_input (scb); | |
457 | } | |
458 | ||
459 | int | |
819cc324 | 460 | serial_send_break (struct serial *scb) |
c2c6d25f JM |
461 | { |
462 | if (serial_logfp != NULL) | |
2acceee2 | 463 | serial_logchar (serial_logfp, 'w', SERIAL_BREAK, 0); |
c2c6d25f JM |
464 | |
465 | return (scb->ops->send_break (scb)); | |
466 | } | |
467 | ||
468 | void | |
819cc324 | 469 | serial_raw (struct serial *scb) |
c2c6d25f JM |
470 | { |
471 | scb->ops->go_raw (scb); | |
472 | } | |
473 | ||
474 | serial_ttystate | |
819cc324 | 475 | serial_get_tty_state (struct serial *scb) |
c2c6d25f JM |
476 | { |
477 | return scb->ops->get_tty_state (scb); | |
478 | } | |
479 | ||
480 | int | |
819cc324 | 481 | serial_set_tty_state (struct serial *scb, serial_ttystate ttystate) |
c2c6d25f JM |
482 | { |
483 | return scb->ops->set_tty_state (scb, ttystate); | |
484 | } | |
485 | ||
486 | void | |
819cc324 | 487 | serial_print_tty_state (struct serial *scb, |
c2c6d25f | 488 | serial_ttystate ttystate, |
d9fcf2fb | 489 | struct ui_file *stream) |
c2c6d25f JM |
490 | { |
491 | scb->ops->print_tty_state (scb, ttystate, stream); | |
492 | } | |
493 | ||
494 | int | |
819cc324 | 495 | serial_noflush_set_tty_state (struct serial *scb, |
c2c6d25f JM |
496 | serial_ttystate new_ttystate, |
497 | serial_ttystate old_ttystate) | |
498 | { | |
499 | return scb->ops->noflush_set_tty_state (scb, new_ttystate, old_ttystate); | |
500 | } | |
501 | ||
502 | int | |
819cc324 | 503 | serial_setbaudrate (struct serial *scb, int rate) |
c2c6d25f JM |
504 | { |
505 | return scb->ops->setbaudrate (scb, rate); | |
506 | } | |
507 | ||
508 | int | |
819cc324 | 509 | serial_setstopbits (struct serial *scb, int num) |
c2c6d25f JM |
510 | { |
511 | return scb->ops->setstopbits (scb, num); | |
512 | } | |
513 | ||
514 | int | |
819cc324 | 515 | serial_can_async_p (struct serial *scb) |
c2c6d25f JM |
516 | { |
517 | return (scb->ops->async != NULL); | |
518 | } | |
519 | ||
520 | int | |
819cc324 | 521 | serial_is_async_p (struct serial *scb) |
c2c6d25f JM |
522 | { |
523 | return (scb->ops->async != NULL) && (scb->async_handler != NULL); | |
524 | } | |
525 | ||
526 | void | |
819cc324 | 527 | serial_async (struct serial *scb, |
c2c6d25f JM |
528 | serial_event_ftype *handler, |
529 | void *context) | |
530 | { | |
05ce04a4 | 531 | int changed = ((scb->async_handler == NULL) != (handler == NULL)); |
c2c6d25f JM |
532 | scb->async_handler = handler; |
533 | scb->async_context = context; | |
05ce04a4 VP |
534 | /* Only change mode if there is a need. */ |
535 | if (changed) | |
536 | scb->ops->async (scb, handler != NULL); | |
c2c6d25f JM |
537 | } |
538 | ||
539 | int | |
819cc324 | 540 | deprecated_serial_fd (struct serial *scb) |
c2c6d25f JM |
541 | { |
542 | /* FIXME: should this output a warning that deprecated code is being | |
543 | called? */ | |
544 | if (scb->fd < 0) | |
545 | { | |
8e65ff28 | 546 | internal_error (__FILE__, __LINE__, |
e2e0b3e5 | 547 | _("serial: FD not valid")); |
c2c6d25f JM |
548 | } |
549 | return scb->fd; /* sigh */ | |
550 | } | |
551 | ||
2acceee2 | 552 | void |
819cc324 | 553 | serial_debug (struct serial *scb, int debug_p) |
2acceee2 JM |
554 | { |
555 | scb->debug_p = debug_p; | |
556 | } | |
557 | ||
558 | int | |
819cc324 | 559 | serial_debug_p (struct serial *scb) |
2acceee2 JM |
560 | { |
561 | return scb->debug_p || global_serial_debug_p; | |
562 | } | |
563 | ||
0ea3f30e DJ |
564 | #ifdef USE_WIN32API |
565 | void | |
566 | serial_wait_handle (struct serial *scb, HANDLE *read, HANDLE *except) | |
567 | { | |
568 | if (scb->ops->wait_handle) | |
569 | scb->ops->wait_handle (scb, read, except); | |
570 | else | |
571 | { | |
572 | *read = (HANDLE) _get_osfhandle (scb->fd); | |
573 | *except = NULL; | |
574 | } | |
575 | } | |
c3e2b812 DJ |
576 | |
577 | void | |
578 | serial_done_wait_handle (struct serial *scb) | |
579 | { | |
580 | if (scb->ops->done_wait_handle) | |
581 | scb->ops->done_wait_handle (scb); | |
582 | } | |
0ea3f30e | 583 | #endif |
2acceee2 | 584 | |
c906108c | 585 | #if 0 |
819cc324 AC |
586 | /* The connect command is #if 0 because I hadn't thought of an elegant |
587 | way to wait for I/O on two `struct serial *'s simultaneously. Two | |
588 | solutions came to mind: | |
c906108c | 589 | |
c5aa993b JM |
590 | 1) Fork, and have have one fork handle the to user direction, |
591 | and have the other hand the to target direction. This | |
592 | obviously won't cut it for MSDOS. | |
c906108c | 593 | |
c5aa993b JM |
594 | 2) Use something like select. This assumes that stdin and |
595 | the target side can both be waited on via the same | |
596 | mechanism. This may not be true for DOS, if GDB is | |
597 | talking to the target via a TCP socket. | |
819cc324 | 598 | -grossman, 8 Jun 93 */ |
c906108c SS |
599 | |
600 | /* Connect the user directly to the remote system. This command acts just like | |
601 | the 'cu' or 'tip' command. Use <CR>~. or <CR>~^D to break out. */ | |
602 | ||
819cc324 | 603 | static struct serial *tty_desc; /* Controlling terminal */ |
c906108c SS |
604 | |
605 | static void | |
c2c6d25f | 606 | cleanup_tty (serial_ttystate ttystate) |
c906108c SS |
607 | { |
608 | printf_unfiltered ("\r\n[Exiting connect mode]\r\n"); | |
2cd58942 | 609 | serial_set_tty_state (tty_desc, ttystate); |
b8c9b27d | 610 | xfree (ttystate); |
2cd58942 | 611 | serial_close (tty_desc); |
c906108c SS |
612 | } |
613 | ||
614 | static void | |
c2c6d25f | 615 | connect_command (char *args, int fromtty) |
c906108c SS |
616 | { |
617 | int c; | |
618 | char cur_esc = 0; | |
619 | serial_ttystate ttystate; | |
819cc324 | 620 | struct serial *port_desc; /* TTY port */ |
c906108c | 621 | |
c5aa993b | 622 | dont_repeat (); |
c906108c SS |
623 | |
624 | if (args) | |
c5aa993b JM |
625 | fprintf_unfiltered (gdb_stderr, "This command takes no args. They have been ignored.\n"); |
626 | ||
627 | printf_unfiltered ("[Entering connect mode. Use ~. or ~^D to escape]\n"); | |
c906108c | 628 | |
2cd58942 | 629 | tty_desc = serial_fdopen (0); |
c906108c SS |
630 | port_desc = last_serial_opened; |
631 | ||
2cd58942 | 632 | ttystate = serial_get_tty_state (tty_desc); |
c906108c | 633 | |
2cd58942 AC |
634 | serial_raw (tty_desc); |
635 | serial_raw (port_desc); | |
c906108c SS |
636 | |
637 | make_cleanup (cleanup_tty, ttystate); | |
638 | ||
639 | while (1) | |
640 | { | |
641 | int mask; | |
642 | ||
2cd58942 | 643 | mask = serial_wait_2 (tty_desc, port_desc, -1); |
c906108c SS |
644 | |
645 | if (mask & 2) | |
646 | { /* tty input */ | |
647 | char cx; | |
648 | ||
649 | while (1) | |
650 | { | |
2cd58942 | 651 | c = serial_readchar (tty_desc, 0); |
c906108c SS |
652 | |
653 | if (c == SERIAL_TIMEOUT) | |
c5aa993b | 654 | break; |
c906108c SS |
655 | |
656 | if (c < 0) | |
e2e0b3e5 | 657 | perror_with_name (_("connect")); |
c906108c SS |
658 | |
659 | cx = c; | |
2cd58942 | 660 | serial_write (port_desc, &cx, 1); |
c906108c SS |
661 | |
662 | switch (cur_esc) | |
663 | { | |
664 | case 0: | |
665 | if (c == '\r') | |
666 | cur_esc = c; | |
667 | break; | |
668 | case '\r': | |
669 | if (c == '~') | |
670 | cur_esc = c; | |
671 | else | |
672 | cur_esc = 0; | |
673 | break; | |
674 | case '~': | |
675 | if (c == '.' || c == '\004') | |
676 | return; | |
677 | else | |
678 | cur_esc = 0; | |
679 | } | |
680 | } | |
681 | } | |
682 | ||
683 | if (mask & 1) | |
684 | { /* Port input */ | |
685 | char cx; | |
686 | ||
687 | while (1) | |
688 | { | |
2cd58942 | 689 | c = serial_readchar (port_desc, 0); |
c906108c SS |
690 | |
691 | if (c == SERIAL_TIMEOUT) | |
c5aa993b | 692 | break; |
c906108c SS |
693 | |
694 | if (c < 0) | |
e2e0b3e5 | 695 | perror_with_name (_("connect")); |
c906108c SS |
696 | |
697 | cx = c; | |
698 | ||
2cd58942 | 699 | serial_write (tty_desc, &cx, 1); |
c906108c SS |
700 | } |
701 | } | |
702 | } | |
703 | } | |
704 | #endif /* 0 */ | |
705 | ||
e3abfe1d AC |
706 | /* Serial set/show framework. */ |
707 | ||
708 | static struct cmd_list_element *serial_set_cmdlist; | |
709 | static struct cmd_list_element *serial_show_cmdlist; | |
710 | ||
711 | static void | |
712 | serial_set_cmd (char *args, int from_tty) | |
713 | { | |
714 | printf_unfiltered ("\"set serial\" must be followed by the name of a command.\n"); | |
715 | help_list (serial_set_cmdlist, "set serial ", -1, gdb_stdout); | |
716 | } | |
717 | ||
718 | static void | |
719 | serial_show_cmd (char *args, int from_tty) | |
720 | { | |
721 | cmd_show_list (serial_show_cmdlist, from_tty, ""); | |
722 | } | |
723 | ||
724 | ||
c906108c | 725 | void |
c2c6d25f | 726 | _initialize_serial (void) |
c906108c SS |
727 | { |
728 | #if 0 | |
1bedd215 AC |
729 | add_com ("connect", class_obscure, connect_command, _("\ |
730 | Connect the terminal directly up to the command monitor.\n\ | |
731 | Use <CR>~. or <CR>~^D to break out.")); | |
c906108c SS |
732 | #endif /* 0 */ |
733 | ||
1bedd215 AC |
734 | add_prefix_cmd ("serial", class_maintenance, serial_set_cmd, _("\ |
735 | Set default serial/parallel port configuration."), | |
e3abfe1d AC |
736 | &serial_set_cmdlist, "set serial ", |
737 | 0/*allow-unknown*/, | |
738 | &setlist); | |
739 | ||
1bedd215 AC |
740 | add_prefix_cmd ("serial", class_maintenance, serial_show_cmd, _("\ |
741 | Show default serial/parallel port configuration."), | |
e3abfe1d AC |
742 | &serial_show_cmdlist, "show serial ", |
743 | 0/*allow-unknown*/, | |
744 | &showlist); | |
745 | ||
f397e303 AC |
746 | add_setshow_filename_cmd ("remotelogfile", no_class, &serial_logfile, _("\ |
747 | Set filename for remote session recording."), _("\ | |
748 | Show filename for remote session recording."), _("\ | |
c906108c | 749 | This file is used to record the remote session for future playback\n\ |
f397e303 AC |
750 | by gdbserver."), |
751 | NULL, | |
752 | NULL, /* FIXME: i18n: */ | |
753 | &setlist, &showlist); | |
c906108c | 754 | |
7ab04401 AC |
755 | add_setshow_enum_cmd ("remotelogbase", no_class, logbase_enums, |
756 | &serial_logbase, _("\ | |
757 | Set numerical base for remote session logging"), _("\ | |
758 | Show numerical base for remote session logging"), NULL, | |
759 | NULL, | |
760 | NULL, /* FIXME: i18n: */ | |
761 | &setlist, &showlist); | |
2acceee2 | 762 | |
85c07804 AC |
763 | add_setshow_zinteger_cmd ("serial", class_maintenance, |
764 | &global_serial_debug_p, _("\ | |
765 | Set serial debugging."), _("\ | |
766 | Show serial debugging."), _("\ | |
767 | When non-zero, serial port debugging is enabled."), | |
768 | NULL, | |
769 | NULL, /* FIXME: i18n: */ | |
770 | &setdebuglist, &showdebuglist); | |
c906108c | 771 | } |