ld/testsuite/
[external/binutils.git] / gdb / inflow.c
1 /* Low level interface to ptrace, for GDB when running under Unix.
2    Copyright (C) 1986-1996, 1998-2012 Free Software Foundation, Inc.
3
4    This file is part of GDB.
5
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 3 of the License, or
9    (at your option) any later version.
10
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.
15
16    You should have received a copy of the GNU General Public License
17    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
18
19 #include "defs.h"
20 #include "frame.h"
21 #include "inferior.h"
22 #include "command.h"
23 #include "serial.h"
24 #include "terminal.h"
25 #include "target.h"
26 #include "gdbthread.h"
27 #include "observer.h"
28
29 #include "gdb_string.h"
30 #include <signal.h>
31 #include <fcntl.h>
32 #include "gdb_select.h"
33
34 #include "inflow.h"
35 #include "gdbcmd.h"
36
37 #ifdef HAVE_SYS_IOCTL_H
38 #include <sys/ioctl.h>
39 #endif
40
41 #ifndef O_NOCTTY
42 #define O_NOCTTY 0
43 #endif
44
45 extern void _initialize_inflow (void);
46
47 static void pass_signal (int);
48
49 static void terminal_ours_1 (int);
50 \f
51 /* Record terminal status separately for debugger and inferior.  */
52
53 static struct serial *stdin_serial;
54
55 /* Terminal related info we need to keep track of.  Each inferior
56    holds an instance of this structure --- we save it whenever the
57    corresponding inferior stops, and restore it to the foreground
58    inferior when it resumes.  */
59 struct terminal_info
60 {
61   /* The name of the tty (from the `tty' command) that we gave to the
62      inferior when it was started.  */
63   char *run_terminal;
64
65   /* TTY state.  We save it whenever the inferior stops, and restore
66      it when it resumes.  */
67   serial_ttystate ttystate;
68
69 #ifdef PROCESS_GROUP_TYPE
70   /* Process group.  Saved and restored just like ttystate.  */
71   PROCESS_GROUP_TYPE process_group;
72 #endif
73
74   /* fcntl flags.  Saved and restored just like ttystate.  */
75   int tflags;
76 };
77
78 /* Our own tty state, which we restore every time we need to deal with
79    the terminal.  This is only set once, when GDB first starts.  The
80    settings of flags which readline saves and restores and
81    unimportant.  */
82 static struct terminal_info our_terminal_info;
83
84 static struct terminal_info *get_inflow_inferior_data (struct inferior *);
85
86 #ifdef PROCESS_GROUP_TYPE
87
88 /* Return the process group of the current inferior.  */
89
90 PROCESS_GROUP_TYPE
91 inferior_process_group (void)
92 {
93   return get_inflow_inferior_data (current_inferior ())->process_group;
94 }
95 #endif
96
97 /* While the inferior is running, we want SIGINT and SIGQUIT to go to the
98    inferior only.  If we have job control, that takes care of it.  If not,
99    we save our handlers in these two variables and set SIGINT and SIGQUIT
100    to SIG_IGN.  */
101
102 static void (*sigint_ours) ();
103 static void (*sigquit_ours) ();
104
105 /* The name of the tty (from the `tty' command) that we're giving to
106    the inferior when starting it up.  This is only (and should only
107    be) used as a transient global by new_tty_prefork,
108    create_tty_session, new_tty and new_tty_postfork, all called from
109    fork_inferior, while forking a new child.  */
110 static const char *inferior_thisrun_terminal;
111
112 /* Nonzero if our terminal settings are in effect.  Zero if the
113    inferior's settings are in effect.  Ignored if !gdb_has_a_terminal
114    ().  */
115
116 int terminal_is_ours;
117
118 #ifdef PROCESS_GROUP_TYPE
119 static PROCESS_GROUP_TYPE
120 gdb_getpgrp (void)
121 {
122   int process_group = -1;
123
124 #ifdef HAVE_TERMIOS
125   process_group = tcgetpgrp (0);
126 #endif
127 #ifdef HAVE_TERMIO
128   process_group = getpgrp ();
129 #endif
130 #ifdef HAVE_SGTTY
131   ioctl (0, TIOCGPGRP, &process_group);
132 #endif
133   return process_group;
134 }
135 #endif
136
137 enum
138   {
139     yes, no, have_not_checked
140   }
141 gdb_has_a_terminal_flag = have_not_checked;
142
143 /* The value of the "interactive-mode" setting.  */
144 static enum auto_boolean interactive_mode = AUTO_BOOLEAN_AUTO;
145
146 /* Implement the "show interactive-mode" option.  */
147
148 static void
149 show_interactive_mode (struct ui_file *file, int from_tty,
150                        struct cmd_list_element *c,
151                        const char *value)
152 {
153   if (interactive_mode == AUTO_BOOLEAN_AUTO)
154     fprintf_filtered (file, "Debugger's interactive mode "
155                             "is %s (currently %s).\n",
156                       value, gdb_has_a_terminal () ? "on" : "off");
157   else
158     fprintf_filtered (file, "Debugger's interactive mode is %s.\n", value);
159 }
160
161 /* Does GDB have a terminal (on stdin)?  */
162 int
163 gdb_has_a_terminal (void)
164 {
165   if (interactive_mode != AUTO_BOOLEAN_AUTO)
166     return interactive_mode == AUTO_BOOLEAN_TRUE;
167
168   switch (gdb_has_a_terminal_flag)
169     {
170     case yes:
171       return 1;
172     case no:
173       return 0;
174     case have_not_checked:
175       /* Get all the current tty settings (including whether we have a
176          tty at all!).  Can't do this in _initialize_inflow because
177          serial_fdopen() won't work until the serial_ops_list is
178          initialized.  */
179
180 #ifdef F_GETFL
181       our_terminal_info.tflags = fcntl (0, F_GETFL, 0);
182 #endif
183
184       gdb_has_a_terminal_flag = no;
185       if (stdin_serial != NULL)
186         {
187           our_terminal_info.ttystate = serial_get_tty_state (stdin_serial);
188
189           if (our_terminal_info.ttystate != NULL)
190             {
191               gdb_has_a_terminal_flag = yes;
192 #ifdef PROCESS_GROUP_TYPE
193               our_terminal_info.process_group = gdb_getpgrp ();
194 #endif
195             }
196         }
197
198       return gdb_has_a_terminal_flag == yes;
199     default:
200       /* "Can't happen".  */
201       return 0;
202     }
203 }
204
205 /* Macro for printing errors from ioctl operations */
206
207 #define OOPSY(what)     \
208   if (result == -1)     \
209     fprintf_unfiltered(gdb_stderr, "[%s failed in terminal_inferior: %s]\n", \
210             what, safe_strerror (errno))
211
212 static void terminal_ours_1 (int);
213
214 /* Initialize the terminal settings we record for the inferior,
215    before we actually run the inferior.  */
216
217 void
218 terminal_init_inferior_with_pgrp (int pgrp)
219 {
220   if (gdb_has_a_terminal ())
221     {
222       struct inferior *inf = current_inferior ();
223       struct terminal_info *tinfo = get_inflow_inferior_data (inf);
224
225       xfree (tinfo->ttystate);
226       tinfo->ttystate = serial_copy_tty_state (stdin_serial,
227                                                our_terminal_info.ttystate);
228
229 #ifdef PROCESS_GROUP_TYPE
230       tinfo->process_group = pgrp;
231 #endif
232
233       /* Make sure that next time we call terminal_inferior (which will be
234          before the program runs, as it needs to be), we install the new
235          process group.  */
236       terminal_is_ours = 1;
237     }
238 }
239
240 /* Save the terminal settings again.  This is necessary for the TUI
241    when it switches to TUI or non-TUI mode;  curses changes the terminal
242    and gdb must be able to restore it correctly.  */
243
244 void
245 terminal_save_ours (void)
246 {
247   if (gdb_has_a_terminal ())
248     {
249       xfree (our_terminal_info.ttystate);
250       our_terminal_info.ttystate = serial_get_tty_state (stdin_serial);
251     }
252 }
253
254 void
255 terminal_init_inferior (void)
256 {
257 #ifdef PROCESS_GROUP_TYPE
258   /* This is for Lynx, and should be cleaned up by having Lynx be a separate
259      debugging target with a version of target_terminal_init_inferior which
260      passes in the process group to a generic routine which does all the work
261      (and the non-threaded child_terminal_init_inferior can just pass in
262      inferior_ptid to the same routine).  */
263   /* We assume INFERIOR_PID is also the child's process group.  */
264   terminal_init_inferior_with_pgrp (PIDGET (inferior_ptid));
265 #endif /* PROCESS_GROUP_TYPE */
266 }
267
268 /* Put the inferior's terminal settings into effect.
269    This is preparation for starting or resuming the inferior.  */
270
271 void
272 terminal_inferior (void)
273 {
274   struct inferior *inf;
275   struct terminal_info *tinfo;
276
277   if (!terminal_is_ours)
278     return;
279
280   inf = current_inferior ();
281   tinfo = get_inflow_inferior_data (inf);
282
283   if (gdb_has_a_terminal ()
284       && tinfo->ttystate != NULL
285       && tinfo->run_terminal == NULL)
286     {
287       int result;
288
289 #ifdef F_GETFL
290       /* Is there a reason this is being done twice?  It happens both
291          places we use F_SETFL, so I'm inclined to think perhaps there
292          is some reason, however perverse.  Perhaps not though...  */
293       result = fcntl (0, F_SETFL, tinfo->tflags);
294       result = fcntl (0, F_SETFL, tinfo->tflags);
295       OOPSY ("fcntl F_SETFL");
296 #endif
297
298       /* Because we were careful to not change in or out of raw mode in
299          terminal_ours, we will not change in our out of raw mode with
300          this call, so we don't flush any input.  */
301       result = serial_set_tty_state (stdin_serial,
302                                      tinfo->ttystate);
303       OOPSY ("setting tty state");
304
305       if (!job_control)
306         {
307           sigint_ours = (void (*)()) signal (SIGINT, SIG_IGN);
308 #ifdef SIGQUIT
309           sigquit_ours = (void (*)()) signal (SIGQUIT, SIG_IGN);
310 #endif
311         }
312
313       /* If attach_flag is set, we don't know whether we are sharing a
314          terminal with the inferior or not.  (attaching a process
315          without a terminal is one case where we do not; attaching a
316          process which we ran from the same shell as GDB via `&' is
317          one case where we do, I think (but perhaps this is not
318          `sharing' in the sense that we need to save and restore tty
319          state)).  I don't know if there is any way to tell whether we
320          are sharing a terminal.  So what we do is to go through all
321          the saving and restoring of the tty state, but ignore errors
322          setting the process group, which will happen if we are not
323          sharing a terminal).  */
324
325       if (job_control)
326         {
327 #ifdef HAVE_TERMIOS
328           result = tcsetpgrp (0, tinfo->process_group);
329           if (!inf->attach_flag)
330             OOPSY ("tcsetpgrp");
331 #endif
332
333 #ifdef HAVE_SGTTY
334           result = ioctl (0, TIOCSPGRP, &tinfo->process_group);
335           if (!inf->attach_flag)
336             OOPSY ("TIOCSPGRP");
337 #endif
338         }
339
340     }
341   terminal_is_ours = 0;
342 }
343
344 /* Put some of our terminal settings into effect,
345    enough to get proper results from our output,
346    but do not change into or out of RAW mode
347    so that no input is discarded.
348
349    After doing this, either terminal_ours or terminal_inferior
350    should be called to get back to a normal state of affairs.  */
351
352 void
353 terminal_ours_for_output (void)
354 {
355   terminal_ours_1 (1);
356 }
357
358 /* Put our terminal settings into effect.
359    First record the inferior's terminal settings
360    so they can be restored properly later.  */
361
362 void
363 terminal_ours (void)
364 {
365   terminal_ours_1 (0);
366 }
367
368 /* output_only is not used, and should not be used unless we introduce
369    separate terminal_is_ours and terminal_is_ours_for_output
370    flags.  */
371
372 static void
373 terminal_ours_1 (int output_only)
374 {
375   struct inferior *inf;
376   struct terminal_info *tinfo;
377
378   if (terminal_is_ours)
379     return;
380
381   terminal_is_ours = 1;
382
383   /* Checking inferior->run_terminal is necessary so that
384      if GDB is running in the background, it won't block trying
385      to do the ioctl()'s below.  Checking gdb_has_a_terminal
386      avoids attempting all the ioctl's when running in batch.  */
387
388   inf = current_inferior ();
389   tinfo = get_inflow_inferior_data (inf);
390
391   if (tinfo->run_terminal != NULL || gdb_has_a_terminal () == 0)
392     return;
393
394     {
395 #ifdef SIGTTOU
396       /* Ignore this signal since it will happen when we try to set the
397          pgrp.  */
398       void (*osigttou) () = NULL;
399 #endif
400       int result;
401
402 #ifdef SIGTTOU
403       if (job_control)
404         osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN);
405 #endif
406
407       xfree (tinfo->ttystate);
408       tinfo->ttystate = serial_get_tty_state (stdin_serial);
409
410 #ifdef PROCESS_GROUP_TYPE
411       if (!inf->attach_flag)
412         /* If setpgrp failed in terminal_inferior, this would give us
413            our process group instead of the inferior's.  See
414            terminal_inferior for details.  */
415         tinfo->process_group = gdb_getpgrp ();
416 #endif
417
418       /* Here we used to set ICANON in our ttystate, but I believe this
419          was an artifact from before when we used readline.  Readline sets
420          the tty state when it needs to.
421          FIXME-maybe: However, query() expects non-raw mode and doesn't
422          use readline.  Maybe query should use readline (on the other hand,
423          this only matters for HAVE_SGTTY, not termio or termios, I think).  */
424
425       /* Set tty state to our_ttystate.  We don't change in our out of raw
426          mode, to avoid flushing input.  We need to do the same thing
427          regardless of output_only, because we don't have separate
428          terminal_is_ours and terminal_is_ours_for_output flags.  It's OK,
429          though, since readline will deal with raw mode when/if it needs
430          to.  */
431
432       serial_noflush_set_tty_state (stdin_serial, our_terminal_info.ttystate,
433                                     tinfo->ttystate);
434
435       if (job_control)
436         {
437 #ifdef HAVE_TERMIOS
438           result = tcsetpgrp (0, our_terminal_info.process_group);
439 #if 0
440           /* This fails on Ultrix with EINVAL if you run the testsuite
441              in the background with nohup, and then log out.  GDB never
442              used to check for an error here, so perhaps there are other
443              such situations as well.  */
444           if (result == -1)
445             fprintf_unfiltered (gdb_stderr,
446                                 "[tcsetpgrp failed in terminal_ours: %s]\n",
447                                 safe_strerror (errno));
448 #endif
449 #endif /* termios */
450
451 #ifdef HAVE_SGTTY
452           result = ioctl (0, TIOCSPGRP, &our_terminal_info.process_group);
453 #endif
454         }
455
456 #ifdef SIGTTOU
457       if (job_control)
458         signal (SIGTTOU, osigttou);
459 #endif
460
461       if (!job_control)
462         {
463           signal (SIGINT, sigint_ours);
464 #ifdef SIGQUIT
465           signal (SIGQUIT, sigquit_ours);
466 #endif
467         }
468
469 #ifdef F_GETFL
470       tinfo->tflags = fcntl (0, F_GETFL, 0);
471
472       /* Is there a reason this is being done twice?  It happens both
473          places we use F_SETFL, so I'm inclined to think perhaps there
474          is some reason, however perverse.  Perhaps not though...  */
475       result = fcntl (0, F_SETFL, our_terminal_info.tflags);
476       result = fcntl (0, F_SETFL, our_terminal_info.tflags);
477 #endif
478     }
479 }
480
481 /* Per-inferior data key.  */
482 static const struct inferior_data *inflow_inferior_data;
483
484 static void
485 inflow_inferior_data_cleanup (struct inferior *inf, void *arg)
486 {
487   struct terminal_info *info;
488
489   info = inferior_data (inf, inflow_inferior_data);
490   if (info != NULL)
491     {
492       xfree (info->run_terminal);
493       xfree (info->ttystate);
494       xfree (info);
495     }
496 }
497
498 /* Get the current svr4 data.  If none is found yet, add it now.  This
499    function always returns a valid object.  */
500
501 static struct terminal_info *
502 get_inflow_inferior_data (struct inferior *inf)
503 {
504   struct terminal_info *info;
505
506   info = inferior_data (inf, inflow_inferior_data);
507   if (info == NULL)
508     {
509       info = XZALLOC (struct terminal_info);
510       set_inferior_data (inf, inflow_inferior_data, info);
511     }
512
513   return info;
514 }
515
516 /* This is a "inferior_exit" observer.  Releases the TERMINAL_INFO member
517    of the inferior structure.  This field is private to inflow.c, and
518    its type is opaque to the rest of GDB.  PID is the target pid of
519    the inferior that is about to be removed from the inferior
520    list.  */
521
522 static void
523 inflow_inferior_exit (struct inferior *inf)
524 {
525   struct terminal_info *info;
526
527   info = inferior_data (inf, inflow_inferior_data);
528   if (info != NULL)
529     {
530       xfree (info->run_terminal);
531       xfree (info->ttystate);
532       xfree (info);
533       set_inferior_data (inf, inflow_inferior_data, NULL);
534     }
535 }
536
537 void
538 copy_terminal_info (struct inferior *to, struct inferior *from)
539 {
540   struct terminal_info *tinfo_to, *tinfo_from;
541
542   tinfo_to = get_inflow_inferior_data (to);
543   tinfo_from = get_inflow_inferior_data (from);
544
545   xfree (tinfo_to->run_terminal);
546   xfree (tinfo_to->ttystate);
547
548   *tinfo_to = *tinfo_from;
549
550   if (tinfo_from->run_terminal)
551     tinfo_to->run_terminal
552       = xstrdup (tinfo_from->run_terminal);
553
554   if (tinfo_from->ttystate)
555     tinfo_to->ttystate
556       = serial_copy_tty_state (stdin_serial, tinfo_from->ttystate);
557 }
558
559 void
560 term_info (char *arg, int from_tty)
561 {
562   target_terminal_info (arg, from_tty);
563 }
564
565 void
566 child_terminal_info (char *args, int from_tty)
567 {
568   struct inferior *inf;
569   struct terminal_info *tinfo;
570
571   if (!gdb_has_a_terminal ())
572     {
573       printf_filtered (_("This GDB does not control a terminal.\n"));
574       return;
575     }
576
577   if (ptid_equal (inferior_ptid, null_ptid))
578     return;
579
580   inf = current_inferior ();
581   tinfo = get_inflow_inferior_data (inf);
582
583   printf_filtered (_("Inferior's terminal status "
584                      "(currently saved by GDB):\n"));
585
586   /* First the fcntl flags.  */
587   {
588     int flags;
589
590     flags = tinfo->tflags;
591
592     printf_filtered ("File descriptor flags = ");
593
594 #ifndef O_ACCMODE
595 #define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR)
596 #endif
597     /* (O_ACCMODE) parens are to avoid Ultrix header file bug.  */
598     switch (flags & (O_ACCMODE))
599       {
600       case O_RDONLY:
601         printf_filtered ("O_RDONLY");
602         break;
603       case O_WRONLY:
604         printf_filtered ("O_WRONLY");
605         break;
606       case O_RDWR:
607         printf_filtered ("O_RDWR");
608         break;
609       }
610     flags &= ~(O_ACCMODE);
611
612 #ifdef O_NONBLOCK
613     if (flags & O_NONBLOCK)
614       printf_filtered (" | O_NONBLOCK");
615     flags &= ~O_NONBLOCK;
616 #endif
617
618 #if defined (O_NDELAY)
619     /* If O_NDELAY and O_NONBLOCK are defined to the same thing, we will
620        print it as O_NONBLOCK, which is good cause that is what POSIX
621        has, and the flag will already be cleared by the time we get here.  */
622     if (flags & O_NDELAY)
623       printf_filtered (" | O_NDELAY");
624     flags &= ~O_NDELAY;
625 #endif
626
627     if (flags & O_APPEND)
628       printf_filtered (" | O_APPEND");
629     flags &= ~O_APPEND;
630
631 #if defined (O_BINARY)
632     if (flags & O_BINARY)
633       printf_filtered (" | O_BINARY");
634     flags &= ~O_BINARY;
635 #endif
636
637     if (flags)
638       printf_filtered (" | 0x%x", flags);
639     printf_filtered ("\n");
640   }
641
642 #ifdef PROCESS_GROUP_TYPE
643   printf_filtered ("Process group = %d\n", (int) tinfo->process_group);
644 #endif
645
646   serial_print_tty_state (stdin_serial, tinfo->ttystate, gdb_stdout);
647 }
648 \f
649 /* NEW_TTY_PREFORK is called before forking a new child process,
650    so we can record the state of ttys in the child to be formed.
651    TTYNAME is null if we are to share the terminal with gdb;
652    or points to a string containing the name of the desired tty.
653
654    NEW_TTY is called in new child processes under Unix, which will
655    become debugger target processes.  This actually switches to
656    the terminal specified in the NEW_TTY_PREFORK call.  */
657
658 void
659 new_tty_prefork (const char *ttyname)
660 {
661   /* Save the name for later, for determining whether we and the child
662      are sharing a tty.  */
663   inferior_thisrun_terminal = ttyname;
664 }
665
666 #if !defined(__GO32__) && !defined(_WIN32)
667 /* If RESULT, assumed to be the return value from a system call, is
668    negative, print the error message indicated by errno and exit.
669    MSG should identify the operation that failed.  */
670 static void
671 check_syscall (const char *msg, int result)
672 {
673   if (result < 0)
674     {
675       print_sys_errmsg (msg, errno);
676       _exit (1);
677     }
678 }
679 #endif
680
681 void
682 new_tty (void)
683 {
684   int tty;
685
686   if (inferior_thisrun_terminal == 0)
687     return;
688 #if !defined(__GO32__) && !defined(_WIN32)
689 #ifdef TIOCNOTTY
690   /* Disconnect the child process from our controlling terminal.  On some
691      systems (SVR4 for example), this may cause a SIGTTOU, so temporarily
692      ignore SIGTTOU.  */
693   tty = open ("/dev/tty", O_RDWR);
694   if (tty > 0)
695     {
696       void (*osigttou) ();
697
698       osigttou = (void (*)()) signal (SIGTTOU, SIG_IGN);
699       ioctl (tty, TIOCNOTTY, 0);
700       close (tty);
701       signal (SIGTTOU, osigttou);
702     }
703 #endif
704
705   /* Now open the specified new terminal.  */
706   tty = open (inferior_thisrun_terminal, O_RDWR | O_NOCTTY);
707   check_syscall (inferior_thisrun_terminal, tty);
708
709   /* Avoid use of dup2; doesn't exist on all systems.  */
710   if (tty != 0)
711     {
712       close (0);
713       check_syscall ("dup'ing tty into fd 0", dup (tty));
714     }
715   if (tty != 1)
716     {
717       close (1);
718       check_syscall ("dup'ing tty into fd 1", dup (tty));
719     }
720   if (tty != 2)
721     {
722       close (2);
723       check_syscall ("dup'ing tty into fd 2", dup (tty));
724     }
725
726 #ifdef TIOCSCTTY
727   /* Make tty our new controlling terminal.  */
728   if (ioctl (tty, TIOCSCTTY, 0) == -1)
729     /* Mention GDB in warning because it will appear in the inferior's
730        terminal instead of GDB's.  */
731     warning (_("GDB: Failed to set controlling terminal: %s"),
732              safe_strerror (errno));
733 #endif
734
735   if (tty > 2)
736     close (tty);
737 #endif /* !go32 && !win32 */
738 }
739
740 /* NEW_TTY_POSTFORK is called after forking a new child process, and
741    adding it to the inferior table, to store the TTYNAME being used by
742    the child, or null if it sharing the terminal with gdb.  */
743
744 void
745 new_tty_postfork (void)
746 {
747   /* Save the name for later, for determining whether we and the child
748      are sharing a tty.  */
749
750   if (inferior_thisrun_terminal)
751     {
752       struct inferior *inf = current_inferior ();
753       struct terminal_info *tinfo = get_inflow_inferior_data (inf);
754
755       tinfo->run_terminal = xstrdup (inferior_thisrun_terminal);
756     }
757
758   inferior_thisrun_terminal = NULL;
759 }
760
761 \f
762 /* Call set_sigint_trap when you need to pass a signal on to an attached
763    process when handling SIGINT.  */
764
765 static void
766 pass_signal (int signo)
767 {
768 #ifndef _WIN32
769   kill (PIDGET (inferior_ptid), SIGINT);
770 #endif
771 }
772
773 static void (*osig) ();
774 static int osig_set;
775
776 void
777 set_sigint_trap (void)
778 {
779   struct inferior *inf = current_inferior ();
780   struct terminal_info *tinfo = get_inflow_inferior_data (inf);
781
782   if (inf->attach_flag || tinfo->run_terminal)
783     {
784       osig = (void (*)()) signal (SIGINT, pass_signal);
785       osig_set = 1;
786     }
787   else
788     osig_set = 0;
789 }
790
791 void
792 clear_sigint_trap (void)
793 {
794   if (osig_set)
795     {
796       signal (SIGINT, osig);
797       osig_set = 0;
798     }
799 }
800 \f
801
802 /* Create a new session if the inferior will run in a different tty.
803    A session is UNIX's way of grouping processes that share a controlling
804    terminal, so a new one is needed if the inferior terminal will be
805    different from GDB's.
806
807    Returns the session id of the new session, 0 if no session was created
808    or -1 if an error occurred.  */
809 pid_t
810 create_tty_session (void)
811 {
812 #ifdef HAVE_SETSID
813   pid_t ret;
814
815   if (!job_control || inferior_thisrun_terminal == 0)
816     return 0;
817
818   ret = setsid ();
819   if (ret == -1)
820     warning (_("Failed to create new terminal session: setsid: %s"),
821              safe_strerror (errno));
822
823   return ret;
824 #else
825   return 0;
826 #endif /* HAVE_SETSID */
827 }
828
829 /* This is here because this is where we figure out whether we (probably)
830    have job control.  Just using job_control only does part of it because
831    setpgid or setpgrp might not exist on a system without job control.
832    It might be considered misplaced (on the other hand, process groups and
833    job control are closely related to ttys).
834
835    For a more clean implementation, in libiberty, put a setpgid which merely
836    calls setpgrp and a setpgrp which does nothing (any system with job control
837    will have one or the other).  */
838 int
839 gdb_setpgid (void)
840 {
841   int retval = 0;
842
843   if (job_control)
844     {
845 #if defined (HAVE_TERMIOS) || defined (TIOCGPGRP)
846 #ifdef HAVE_SETPGID
847       /* The call setpgid (0, 0) is supposed to work and mean the same
848          thing as this, but on Ultrix 4.2A it fails with EPERM (and
849          setpgid (getpid (), getpid ()) succeeds).  */
850       retval = setpgid (getpid (), getpid ());
851 #else
852 #ifdef HAVE_SETPGRP
853 #ifdef SETPGRP_VOID 
854       retval = setpgrp ();
855 #else
856       retval = setpgrp (getpid (), getpid ());
857 #endif
858 #endif /* HAVE_SETPGRP */
859 #endif /* HAVE_SETPGID */
860 #endif /* defined (HAVE_TERMIOS) || defined (TIOCGPGRP) */
861     }
862
863   return retval;
864 }
865
866 /* Get all the current tty settings (including whether we have a
867    tty at all!).  We can't do this in _initialize_inflow because
868    serial_fdopen() won't work until the serial_ops_list is
869    initialized, but we don't want to do it lazily either, so
870    that we can guarantee stdin_serial is opened if there is
871    a terminal.  */
872 void
873 initialize_stdin_serial (void)
874 {
875   stdin_serial = serial_fdopen (0);
876 }
877
878 void
879 _initialize_inflow (void)
880 {
881   add_info ("terminal", term_info,
882             _("Print inferior's saved terminal status."));
883
884   add_setshow_auto_boolean_cmd ("interactive-mode", class_support,
885                                 &interactive_mode, _("\
886 Set whether GDB's standard input is a terminal."), _("\
887 Show whether GDB's standard input is a terminal."), _("\
888 If on, GDB assumes that standard input is a terminal.  In practice, it\n\
889 means that GDB should wait for the user to answer queries associated to\n\
890 commands entered at the command prompt.  If off, GDB assumes that standard\n\
891 input is not a terminal, and uses the default answer to all queries.\n\
892 If auto (the default), determine which mode to use based on the standard\n\
893 input settings."),
894                         NULL,
895                         show_interactive_mode,
896                         &setlist, &showlist);
897
898   terminal_is_ours = 1;
899
900   /* OK, figure out whether we have job control.  If neither termios nor
901      sgtty (i.e. termio or go32), leave job_control 0.  */
902
903 #if defined (HAVE_TERMIOS)
904   /* Do all systems with termios have the POSIX way of identifying job
905      control?  I hope so.  */
906 #ifdef _POSIX_JOB_CONTROL
907   job_control = 1;
908 #else
909 #ifdef _SC_JOB_CONTROL
910   job_control = sysconf (_SC_JOB_CONTROL);
911 #else
912   job_control = 0;              /* Have to assume the worst.  */
913 #endif /* _SC_JOB_CONTROL */
914 #endif /* _POSIX_JOB_CONTROL */
915 #endif /* HAVE_TERMIOS */
916
917 #ifdef HAVE_SGTTY
918 #ifdef TIOCGPGRP
919   job_control = 1;
920 #else
921   job_control = 0;
922 #endif /* TIOCGPGRP */
923 #endif /* sgtty */
924
925   observer_attach_inferior_exit (inflow_inferior_exit);
926
927   inflow_inferior_data
928     = register_inferior_data_with_cleanup (inflow_inferior_data_cleanup);
929 }