3 // Copyright by Johannes Sixt
4 // This file is under GPL, the GNU General Public Licence
8 #include <klocale.h> /* i18n */
9 #include <kmessagebox.h>
12 #include <kcmdlineargs.h>
13 #include <kaboutdata.h>
14 #include <kpopupmenu.h>
16 #include "dbgmainwnd.h"
17 #include "typetable.h"
25 #include <fcntl.h> /* open(2) */
28 #include <unistd.h> /* getopt(3) */
30 #include <stdlib.h> /* getenv(3) */
34 int main(int argc
, char** argv
)
36 KAboutData
aboutData("kdbg", "KDbg",
38 I18N_NOOP("A Debugger"),
39 KAboutData::License_GPL
,
40 "(c) 1998-2005 Johannes Sixt",
42 "http://members.nextra.at/johsixt/kdbg.html",
43 "Johannes.Sixt@telecom.at");
44 aboutData
.addAuthor("Johannes Sixt", 0, "Johannes.Sixt@telecom.at");
45 aboutData
.addCredit("Keith Isdale",
46 I18N_NOOP("XSLT debugging"),
47 "k_isdale@tpg.com.au");
48 aboutData
.addCredit("Daniel Kristjansson",
49 I18N_NOOP("Register groups and formating"),
50 "danielk@cat.nyu.edu");
51 KCmdLineArgs::init( argc
, argv
, &aboutData
);
53 static KCmdLineOptions options
[] = {
54 { "t <file>", I18N_NOOP("transcript of conversation with the debugger"), 0 },
55 { "r <device>", I18N_NOOP("remote debugging via <device>"), 0 },
56 { "l <language>", I18N_NOOP("specify language: C, XSLT"), ""},
57 { "x", I18N_NOOP("use language XSLT (deprecated)"), 0 },
58 { "p <pid>", I18N_NOOP("specify PID of process to debug"), 0},
59 { "+[program]", I18N_NOOP("path of executable to debug"), 0 },
60 { "+[core]", I18N_NOOP("a core file to use"), 0},
63 KCmdLineArgs::addCmdLineOptions(options
);
67 KGlobal::dirs()->addResourceType("types", "share/apps/kdbg/types");
69 DebuggerMainWnd
debugger("kdbg_main");
72 TypeTable::initTypeLibraries();
75 bool restored
= false;
76 if (app
.isRestored()) {
77 if (KMainWindow::canBeRestored(1)) {
83 app
.setMainWidget(&debugger
);
89 KCmdLineArgs
*args
= KCmdLineArgs::parsedArgs();
90 QCString t
= args
->getOption("t");
91 const char* transcript
= t
.data();
92 QString remote
= args
->getOption("r");
93 if (!remote
.isEmpty())
94 debugger
.setRemoteDevice(remote
);
96 QCString lang
= args
->getOption("l");
98 // deprecated option; overrides -l
99 if (args
->isSet("x")){
100 /* run in xsldbg mode */
104 // check environment variable for transcript file name
105 if (transcript
== 0) {
106 transcript
= getenv("KDBG_TRANSCRIPT");
108 debugger
.setTranscript(transcript
);
110 QString pid
= args
->getOption("p");
112 if (!restored
&& args
->count() > 0) {
113 // attach to process?
114 if (!pid
.isEmpty()) {
115 TRACE("pid: " + pid
);
116 debugger
.setAttachPid(pid
);
118 // check for core file; use it only if we're not attaching to a process
119 else if (args
->count() > 1 && pid
.isEmpty()) {
120 debugger
.setCoreFile(args
->arg(1));
122 if (!debugger
.debugProgram(args
->arg(0), lang
)) {
124 TRACE("cannot start debugger");
125 KMessageBox::error(&debugger
, i18n("Cannot start debugger."));
127 debugger
.setCoreFile(QString());
128 debugger
.setAttachPid(QString());