3 This file is part of gldbg
4 Copyright © 2009 Mikko Rasa, Mikkosoft Productions
5 Distributed under the GPL
12 #include <sys/socket.h>
13 #include <readline/readline.h>
14 #include <msp/core/except.h>
15 #include <msp/fs/dir.h>
16 #include <msp/io/print.h>
17 #include <msp/strings/lexicalcast.h>
24 Application::RegApp<GlDbg> GlDbg::reg;
26 GlDbg::GlDbg(int argc, char **argv):
28 process(vector<string>(argv+1, argv+argc)),
32 FS::Path libdir = FS::get_sys_lib_dir(argv[0], "gldbg");
33 process.setenv("LD_PRELOAD", (libdir/"glwrap.so").str().c_str());
39 catch_signal(SIGCHLD);
40 set_loop_mode(TICK_BUSY);
47 if(process.get_state()!=Process::INACTIVE)
48 throw InvalidState("Program is already running");
51 socketpair(AF_UNIX, SOCK_STREAM, 0, fds);
54 int flags = fcntl(sock_fd, F_GETFD);
55 fcntl(sock_fd, F_SETFD, flags|FD_CLOEXEC);
57 process.setenv("GLWRAP_FD", lexical_cast(fds[1]));
64 if(process.get_state()!=Process::INACTIVE)
65 throw InvalidState("Program is still running");
74 int ret = process.check();
76 IO::print("Target process exited normally\n");
78 IO::print("Target process exited with status %d\n", ret&0xFF);
80 IO::print("Target process terminated with signal %d\n", ret&0xFF);
83 IO::print("Target process stopped by signal %d\n", ret&0xFF);
88 Process::State pstate = process.get_state();
89 if((pstate!=Process::INACTIVE && pstate!=Process::STOPPED) || flushing)
93 char *line = readline("gldbg> ");
98 cmd_interp.execute(line);
100 catch(const Exception &e)
102 IO::print("%s\n", e.what());
106 else if(pstate==Process::INACTIVE)
111 void GlDbg::read_stream()
113 pollfd pfd = { sock_fd, POLLIN, 0 };
114 int ret = poll(&pfd, 1, (flushing ? 0 : -1));
118 ret = read(sock_fd, rbuf, 1024);
121 buffer.append(rbuf, ret);
122 while(buffer.size()>buf_offset)
124 const char *data = buffer.data()+buf_offset;
125 unsigned len = buffer.size()-buf_offset;
126 int size = gldecoder_decode(0, data, len);
129 tracer.decode(data, len);
134 buffer.erase(0, buf_offset);
143 void GlDbg::sighandler(int sig)