annotate src/main.d @ 1:4a9dcbd9e54f

-files of 0.13 beta -fixes so that it now compiles with the current dmd version
author marton@basel.hu
date Tue, 05 Apr 2011 20:44:01 +0200
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
1 /* Ddbg - Win32 Debugger for the D programming language
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
2 * Copyright (c) 2007 Jascha Wetzel
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
3 * All rights reserved. See LICENSE.TXT for details.
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
4 */
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
5
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
6 import cli.userinterface;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
7 import cli.ddbgcli;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
8 import cli.gdbcli;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
9 import cli.gdbmicli;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
10 import debugger;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
11
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
12 import std.string;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
13 import std.stdio;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
14
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
15 import util;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
16
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
17 /**************************************************************************************************
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
18
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
19 **************************************************************************************************/
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
20 int main(string[] args)
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
21 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
22 debug domain(args);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
23 else
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
24 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
25 try domain(args);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
26 catch ( DebuggerException e )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
27 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
28 writefln("%s", e.msg);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
29 return 1;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
30 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
31 catch ( Object o )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
32 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
33 writefln("\n\n----------------------------------------\nUnhandled exception in %s:\n"~
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
34 "%s\n\nPlease report this problem!\nSee the http://ddbg.mainia.de/releases.html for details.\nThank you!",
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
35 VERSION_STRING, o
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
36 );
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
37 return 1;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
38 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
39 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
40 return 0;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
41 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
42
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
43 void domain(string[] args)
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
44 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
45 string[string] options = parseArgs(args);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
46
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
47 UserInterface cli;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
48 if ( ("cli" in options) !is null )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
49 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
50 if ( options["cli"] == "gdb" )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
51 cli = new GDBCLI;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
52 else if ( options["cli"] == "gdbmi" )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
53 cli = new GDBMICLI;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
54 else {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
55 DbgIO.println("Unknown CLI mode \"%s\"", options["cli"]);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
56 return;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
57 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
58 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
59 else
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
60 cli = new DdbgCLI;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
61 cli.init(args);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
62
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
63 if ( "cmd" in options )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
64 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
65 string cmd_string = strip(options["cmd"]);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
66 if ( cmd_string[0] == '"' && cmd_string[$-1] == '"' )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
67 cmd_string = cmd_string[1..$-1];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
68 cli.runCommands(cmd_string);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
69 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
70
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
71 cli.start();
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
72 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
73
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
74 string[string] parseArgs(inout string[] args)
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
75 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
76 string[string] options;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
77
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
78 for ( int i=1; i < args.length; )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
79 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
80 string arg = args[i];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
81
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
82 uint optend;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
83 for ( optend = 1; optend < arg.length; ++optend )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
84 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
85 if ( !inPattern(arg[optend], "a-zA-Z0-9") )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
86 break;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
87 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
88 string option = arg[0..optend];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
89 switch ( option )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
90 {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
91 case "-cli":
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
92 case "-cmd":
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
93 string value;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
94 if ( optend >= arg.length ) {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
95 args = args[0..i]~args[i+1..$];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
96 value = args[i];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
97 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
98 else
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
99 value = arg[optend..$];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
100 if ( value.length <= 0 ) {
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
101 DbgIO.println("ERROR: -%s=<value> or -%s <value> expected", option, option);
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
102 break;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
103 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
104 if ( value[0] == '=' )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
105 value = value[1..$];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
106 options[option[1..$]] = value;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
107 args = args[0..i]~args[i+1..$];
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
108 break;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
109 default:
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
110 ++i;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
111 if ( option[0] != '-' )
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
112 return options;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
113 break;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
114 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
115 }
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
116 return options;
4a9dcbd9e54f -files of 0.13 beta
marton@basel.hu
parents:
diff changeset
117 }