3 * Copyright (c) 2007 - 2008, Blue Static <http://www.bluestatic.org>
5 * This program is free software; you can redistribute it and/or modify it under the terms of the GNU
6 * General Public License as published by the Free Software Foundation; either version 2 of the
7 * License, or (at your option) any later version.
9 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
10 * even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 * General Public License for more details.
13 * You should have received a copy of the GNU General Public License along with this program; if not,
14 * write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
17 #import "DebuggerWindowController.h"
18 #import "DebuggerConnection.h"
19 #import "NSXMLElementAdditions.h"
20 #import "AppDelegate.h"
21 #import "BreakpointManager.h"
23 @interface DebuggerWindowController (Private
)
25 - (void)updateSourceViewer
;
29 @implementation DebuggerWindowController
31 @synthesize connection
;
34 * Initializes the window controller and sets the connection
36 - (id)initWithPort
:(int)aPort session
:(NSString
*)aSession
38 if (self = [super initWithWindowNibName
:@
"Debugger"])
40 connection
= [[DebuggerConnection alloc
] initWithWindowController
:self port
:aPort session
:aSession
];
41 expandedRegisters
= [[NSMutableSet alloc
] init
];
42 [[self window
] makeKeyAndOrderFront
:nil];
53 [expandedRegisters release
];
58 * Before the display get's comfortable, set up the NSTextView to scroll horizontally
62 [self setStatus
:@
"Connecting"];
63 [[self window
] setExcludedFromWindowsMenu
:YES
];
64 [sourceViewer setDelegate
:self];
68 * Called right before the window closes so that we can tell the socket to close down
70 - (void)windowWillClose
:(NSNotification
*)notif
72 [[connection socket
] close
];
76 * Resets all the displays to be empty
80 [registerController setContent
:nil];
81 [stackController setContent
:nil];
82 [[sourceViewer textView
] setString
:@
""];
86 * Sets the status and clears any error message
88 - (void)setStatus
:(NSString
*)aStatus
90 [errormsg setHidden
:YES
];
91 [statusmsg setStringValue
:aStatus
];
92 [[self window
] setTitle
:[NSString stringWithFormat
:@
"GDBp @ %@:%d/%@", [connection remoteHost
], [connection port
], [connection session
]]];
94 [stepInButton setEnabled
:NO
];
95 [stepOutButton setEnabled
:NO
];
96 [stepOverButton setEnabled
:NO
];
97 [runButton setEnabled
:NO
];
98 [reconnectButton setEnabled
:NO
];
100 if ([connection isConnected
])
102 if ([aStatus isEqualToString
:@
"Starting"])
104 [stepInButton setEnabled
:YES
];
105 [runButton setEnabled
:YES
];
110 [reconnectButton setEnabled
:YES
];
115 * Sets the status to be "Error" and then displays the error message
117 - (void)setError
:(NSString
*)anError
119 [errormsg setStringValue
:anError
];
120 [self setStatus
:@
"Error"];
121 [errormsg setHidden
:NO
];
125 * Sets the root node element of the stacktrace
127 - (void)setStack
:(NSArray
*)node
131 if ([stack count
] > 1)
133 [stepOutButton setEnabled
:YES
];
135 [stepInButton setEnabled
:YES
];
136 [stepOverButton setEnabled
:YES
];
137 [runButton setEnabled
:YES
];
139 [self updateSourceViewer
];
143 * Sets the stack root element so that the NSOutlineView can display it
145 - (void)setRegister
:(NSXMLDocument
*)elm
147 // XXX: Doing anything short of this will cause bindings to crash spectacularly for no reason whatsoever, and
148 // in seemingly arbitrary places. The class that crashes is _NSKeyValueObservationInfoCreateByRemoving.
149 // http://boredzo.org/blog/archives/2006-01-29/have-you-seen-this-crash says that this means nothing is
150 // being observed, but I doubt that he was using an NSOutlineView which seems to be one f!cking piece of
151 // sh!t when used with NSTreeController. http://www.cocoadev.com/index.pl?NSTreeControllerBugOrDeveloperError
152 // was the inspiration for this fix (below) but the author says that inserting does not work too well, but
153 // that's okay for us as we just need to replace the entire thing.
154 [registerController setContent
:nil];
155 [registerController setContent
:[[elm rootElement
] children
]];
157 for (int i
= 0; i
< [registerView numberOfRows
]; i
++)
159 NSTreeNode
*node
= [registerView itemAtRow
:i
];
160 if ([expandedRegisters containsObject
:[[node representedObject
] fullname
]])
162 [registerView expandItem
:node
];
168 * Forwards the message to run script execution to the connection
170 - (IBAction
)run
:(id)sender
176 * Tells the connection to ask the server to reconnect
178 - (IBAction
)reconnect
:(id)sender
180 [connection reconnect
];
184 * Forwards the message to "step in" to the connection
186 - (IBAction
)stepIn
:(id)sender
192 * Forwards the message to "step out" to the connection
194 - (IBAction
)stepOut
:(id)sender
196 [connection stepOut
];
200 * Forwards the message to "step over" to the connection
202 - (IBAction
)stepOver
:(id)sender
204 [connection stepOver
];
208 * NSTableView delegate method that informs the controller that the stack selection did change and that
209 * we should update the source viewer
211 - (void)tableViewSelectionDidChange
:(NSNotification
*)notif
213 [self updateSourceViewer
];
217 * Does the actual updating of the source viewer by reading in the file
219 - (void)updateSourceViewer
221 id selectedLevel
= [[stackController selection
] valueForKey
:@
"level"];
222 if (selectedLevel
== NSNoSelectionMarker
)
224 [[sourceViewer textView
] setString
:@
""];
227 int selection
= [selectedLevel intValue
];
229 if ([stack count
] < 1)
231 NSLog(@
"huh... we don't have a stack");
235 // get the filename and then set the text
236 NSString
*filename
= [[stack objectAtIndex
:selection
] valueForKey
:@
"filename"];
237 filename
= [[NSURL URLWithString
:filename
] path
];
238 if ([filename isEqualToString
:@
""])
243 [sourceViewer setFile
:filename
];
245 int line
= [[[stack objectAtIndex
:selection
] valueForKey
:@
"lineno"] intValue
];
246 [sourceViewer setMarkedLine
:line
];
247 [sourceViewer scrollToLine
:line
];
249 // make sure the font stays Monaco
250 //[sourceViewer setFont:[NSFont fontWithName:@"Monaco" size:10.0]];
254 * Called whenver an item is expanded. This allows us to determine if we need to fetch deeper
256 - (void)outlineViewItemDidExpand
:(NSNotification
*)notif
258 NSTreeNode
*node
= [[notif userInfo
] objectForKey
:@
"NSObject"];
260 // we're not a leaf but have no children. this must be beyond our depth, so go make us deeper
261 if (![node isLeaf
] && [[node childNodes
] count
] < 1)
263 [connection getProperty
:[[node representedObject
] fullname
] forNode
:node
];
266 [expandedRegisters addObject
:[[node representedObject
] fullname
]];
270 * Called when an item was collapsed. This allows us to remove it from the list of expanded items
272 - (void)outlineViewItemDidCollapse
:(NSNotification
*)notif
274 [expandedRegisters removeObject
:[[[[notif userInfo
] objectForKey
:@
"NSObject"] representedObject
] fullname
]];
278 * Updates the register view by reinserting a given node back into the outline view
280 - (void)addChildren
:(NSArray
*)children toNode
:(NSTreeNode
*)node
282 NSXMLElement
*parent
= [node representedObject
];
283 for (NSXMLNode
*child
in children
)
285 [parent addChild
:child
];
288 [registerController rearrangeObjects
];
291 #pragma mark BSSourceView Delegate
294 * The gutter was clicked, which indicates that a breakpoint needs to be changed
296 - (void)gutterClickedAtLine
:(int)line forFile
:(NSString
*)file
298 BreakpointManager
*mngr
= [BreakpointManager sharedManager
];
300 if ([mngr hasBreakpointAt
:line inFile
:file
])
302 [connection removeBreakpoint
:[mngr removeBreakpointAt
:line inFile
:file
]];
306 Breakpoint
*bp
= [[Breakpoint alloc
] initWithLine
:line inFile
:file
];
307 [mngr addBreakpoint
:bp
];
308 [connection addBreakpoint
:bp
];
311 [[sourceViewer numberView
] setMarkers
:[mngr breakpointsForFile
:file
]];
312 [[sourceViewer numberView
] setNeedsDisplay
:YES
];