49f23415a60e17a1e5a16f64978ac7e248264cc4
[pspp-builds.git] / src / ui / debugger.c
1 /* PSPP - computes sample statistics.
2    Copyright (C) 2006 Free Software Foundation, Inc.
3    Written by John Darrington <john@darrington.wattle.id.au>
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
18    02110-1301, USA. */
19
20 #include <config.h>
21
22 #include <errno.h>
23 #include <sys/types.h>
24 #include <unistd.h>
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <sys/wait.h>
28
29
30 #include "debugger.h"
31
32 /* Fork, start gdb and connect to the parent process. 
33    If that happens successfully, then this function does not return,
34    but exits with EXIT_FAILURE. Otherwise it returns.
35  */
36    
37 void
38 connect_debugger (void)
39 {
40   char pidstr[20];
41   pid_t pid;
42
43   snprintf (pidstr, 20, "%d", getpid ());
44   pid = fork ();
45   if ( pid  == -1 ) 
46     {
47       perror ("Cannot fork");
48       return ;
49     }
50   if ( pid == 0 ) 
51     {
52       /* child */
53       execlp ("gdb", "gdb", "-p", pidstr, NULL);
54       perror ("Cannot exec debugger");
55       exit (EXIT_FAILURE);
56     }
57   else
58     {
59       int status;
60       wait (&status);
61       if ( EXIT_SUCCESS != WEXITSTATUS (status) ) 
62         return ;
63     }
64   
65   exit (EXIT_FAILURE);
66 }
67