3 * Copyright (c) 2007 - 2011, 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 "DebuggerController.h"
19 #import "AppDelegate.h"
20 #import "BSSourceView.h"
21 #import "BreakpointController.h"
22 #import "BreakpointManager.h"
23 #import "DebuggerBackEnd.h"
24 #import "DebuggerModel.h"
25 #import "EvalController.h"
26 #import "PreferenceNames.h"
27 #import "NSXMLElementAdditions.h"
28 #import "StackFrame.h"
30 @interface DebuggerController (Private
)
31 - (void)updateSourceViewer
;
32 - (void)expandVariables
;
35 @implementation DebuggerController
{
36 BreakpointController
* _breakpointsController
;
37 EvalController
* _evalController
;
40 @synthesize connection
, sourceViewer
, inspector
;
43 * Initializes the window controller and sets the connection using preference
48 if (self = [super initWithWindowNibName
:@
"Debugger"])
50 NSUserDefaults
* defaults
= [NSUserDefaults standardUserDefaults
];
52 _model
= [[DebuggerModel alloc
] init
];
53 [_model addObserver
:self
54 forKeyPath
:@
"connected"
55 options
:NSKeyValueObservingOptionNew
58 connection
= [[DebuggerBackEnd alloc
] initWithPort
:[defaults integerForKey
:kPrefPort
]
59 autoAttach
:[defaults boolForKey
:kPrefDebuggerAttached
]];
60 connection.model
= _model
;
61 _model.breakpointManager.connection
= connection
;
63 expandedVariables
= [[NSMutableSet alloc
] init
];
64 [[self window
] makeKeyAndOrderFront
:nil];
65 [[self window
] setDelegate
:self];
67 if ([defaults boolForKey
:kPrefInspectorWindowVisible
])
68 [inspector orderFront
:self];
80 [_breakpointsController release
];
81 [_evalController release
];
82 [expandedVariables release
];
87 * Before the display get's comfortable, set up the NSTextView to scroll horizontally
91 [[self window
] setExcludedFromWindowsMenu
:YES
];
92 [[self window
] setTitle
:[NSString stringWithFormat
:@
"MacGDBp @ %d", [connection port
]]];
93 [sourceViewer setDelegate
:self];
94 [stackArrayController setSortDescriptors
:@
[ [[[NSSortDescriptor alloc
] initWithKey
:@
"index" ascending
:YES
] autorelease
] ]];
95 [stackArrayController addObserver
:self
96 forKeyPath
:@
"selectedObjects"
97 options
:NSKeyValueObservingOptionNew
99 [stackArrayController addObserver
:self
100 forKeyPath
:@
"selection.source"
101 options
:NSKeyValueObservingOptionNew
103 self.connection.autoAttach
= [attachedCheckbox_ state
] == NSOnState
;
105 // Load view controllers into the tab views.
106 _breakpointsController
= [[BreakpointController alloc
] initWithBreakpointManager
:_model.breakpointManager
107 sourceView
:sourceViewer
];
108 [[self.tabView tabViewItemAtIndex
:1] setView
:_breakpointsController.view
];
110 _evalController
= [[EvalController alloc
] initWithBackEnd
:connection
];
111 [[self.tabView tabViewItemAtIndex
:2] setView
:_evalController.view
];
113 // When the segment control's selection changes, update the tab view.
114 [[_segmentControl cell
] addObserver
:self
115 forKeyPath
:@
"selectedSegment"
118 // When the segment control's superview changes, recalculate the spacer
120 [[_segmentControl superview
] addObserver
:self
124 [self updateSegmentControl
];
128 * Key-value observation routine.
130 - (void)observeValueForKeyPath
:(NSString
*)keyPath
132 change
:(NSDictionary
<NSString
*,id>*)change
133 context
:(void*)context
{
134 if (object
== stackArrayController
&& [keyPath isEqualToString
:@
"selectedObjects"]) {
135 for (StackFrame
* frame
in stackArrayController.selectedObjects
)
136 [connection loadStackFrame
:frame
];
137 } else if (object
== stackArrayController
&& [keyPath isEqualToString
:@
"selection.source"]) {
138 [self updateSourceViewer
];
139 } else if (object
== _model
&& [keyPath isEqualToString
:@
"connected"]) {
140 if ([change
[NSKeyValueChangeNewKey
] boolValue
])
141 [self debuggerConnected
];
143 [self debuggerDisconnected
];
144 } else if (object
== _segmentControl.cell
) {
145 [_tabView selectTabViewItemAtIndex
:_segmentControl.selectedSegment
- 1];
146 } else if (object
== _segmentControl.superview
) {
147 [self updateSegmentControl
];
149 [super observeValueForKeyPath
:keyPath ofObject
:object change
:change context
:context
];
154 * Validates the menu items for the "Debugger" menu
156 - (BOOL)validateUserInterfaceItem
:(id <NSValidatedUserInterfaceItem
>)anItem
158 SEL action
= [anItem action
];
160 if (action
== @selector(stepOut
:)) {
161 return _model.connected
&& _model.stackDepth
> 1;
162 } else if (action
== @selector(stepIn
:) ||
163 action
== @selector(stepOver
:) ||
164 action
== @selector(run
:) ||
165 action
== @selector(stop
:) ||
166 action
== @selector(showEvalWindow
:)) {
167 return _model.connected
;
169 return [[self window
] validateUserInterfaceItem
:anItem
];
173 * Shows the inspector window
175 - (IBAction
)showInspectorWindow
:(id)sender
177 if (![inspector isVisible
])
178 [inspector makeKeyAndOrderFront
:sender
];
180 [inspector orderOut
:sender
];
184 * Runs the eval window sheet.
186 - (IBAction
)showEvalWindow
:(id)sender
188 [self.segmentControl setSelectedSegment
:3];
192 * Resets all the displays to be empty
194 - (void)resetDisplays
196 [variablesTreeController setContent
:nil];
197 [stackArrayController rearrangeObjects
];
198 [[sourceViewer textView
] setString
:@
""];
199 sourceViewer.file
= nil;
203 * Sets the status to be "Error" and then displays the error message
205 - (void)setError
:(NSString
*)anError
207 [errormsg setStringValue
:anError
];
208 [errormsg setHidden
:NO
];
212 * Delegate function for GDBpConnection for when the debugger connects.
214 - (void)debuggerConnected
216 [errormsg setHidden
:YES
];
217 if (!self.connection.autoAttach
)
219 if ([[NSUserDefaults standardUserDefaults
] boolForKey
:kPrefBreakOnFirstLine
])
221 // Do not cache the file between debugger executions.
222 sourceViewer.file
= nil;
226 * Called once the debugger disconnects.
228 - (void)debuggerDisconnected
230 // Invalidate the marked line so we don't look like we're still running.
231 sourceViewer.markedLine
= -1;
232 [sourceViewer setNeedsDisplay
:YES
];
236 * Forwards the message to run script execution to the connection
238 - (IBAction
)run
:(id)sender
243 - (IBAction
)attachedToggled
:(id)sender
245 connection.autoAttach
= [sender state
] == NSOnState
;
249 * Forwards the message to "step in" to the connection
251 - (IBAction
)stepIn
:(id)sender
253 if ([[variablesTreeController selectedObjects
] count
] > 0)
254 selectedVariable
= [[variablesTreeController selectedObjects
] objectAtIndex
:0];
260 * Forwards the message to "step out" to the connection
262 - (IBAction
)stepOut
:(id)sender
264 if ([[variablesTreeController selectedObjects
] count
] > 0)
265 selectedVariable
= [[variablesTreeController selectedObjects
] objectAtIndex
:0];
267 [connection stepOut
];
271 * Forwards the message to "step over" to the connection
273 - (IBAction
)stepOver
:(id)sender
275 if ([[variablesTreeController selectedObjects
] count
] > 0)
276 selectedVariable
= [[variablesTreeController selectedObjects
] objectAtIndex
:0];
278 [connection stepOver
];
282 * Forwards the detach/"stop" message to the back end.
284 - (IBAction
)stop
:(id)sender
290 * NSTableView delegate method that informs the controller that the stack selection did change and that
291 * we should update the source viewer
293 - (void)tableViewSelectionDidChange
:(NSNotification
*)notif
295 // TODO: This is very, very hacky because it's nondeterministic. The issue
296 // is that calling |-[NSOutlineView expandItem:]| while the table is still
297 // doing its redraw will translate to a no-op. Instead, we need to restructure
298 // this controller so that when everything has been laid out we call
299 // |-expandVariables|; but NSOutlineView doesn't have a |-didFinishDoingCrap:|
300 // method. The other issue is that we need to call this method from
301 // selectionDidChange but ONLY when it was the result of a user-initiated
302 // action and not the stack viewer updating causing a selection change.
303 // If it happens in the latter, then we run into the same issue that causes
305 [self performSelector
:@selector(expandVariables
) withObject
:nil afterDelay
:0.05];
309 * Called whenver an item is expanded. This allows us to determine if we need to fetch deeper
311 - (void)outlineViewItemDidExpand
:(NSNotification
*)notif
313 NSTreeNode
* node
= [[notif userInfo
] objectForKey
:@
"NSObject"];
314 [expandedVariables addObject
:[[node representedObject
] fullName
]];
316 [connection loadVariableNode
:[node representedObject
]
317 forStackFrame
:[[stackArrayController selectedObjects
] lastObject
]];
321 * Called when an item was collapsed. This allows us to remove it from the list of expanded items
323 - (void)outlineViewItemDidCollapse
:(NSNotification
*)notif
325 [expandedVariables removeObject
:[[[[notif userInfo
] objectForKey
:@
"NSObject"] representedObject
] fullName
]];
331 * Does the actual updating of the source viewer by reading in the file
333 - (void)updateSourceViewer
335 NSArray
* selection
= [stackArrayController selectedObjects
];
336 if (!selection ||
[selection count
] < 1)
338 if ([selection count
] > 1)
339 NSLog(@
"INVALID SELECTION");
340 StackFrame
* frame
= [selection objectAtIndex
:0];
343 [connection loadStackFrame
:frame
];
348 NSString
* filename
= [[NSURL URLWithString
:frame.filename
] path
];
349 if ([filename isEqualToString
:@
""])
352 // Replace the source if necessary.
353 if (frame.source
&& ![sourceViewer.file isEqualToString
:filename
])
355 [sourceViewer setString
:frame.source asFile
:filename
];
357 NSSet
<NSNumber
*>* breakpoints
= [_model.breakpointManager breakpointsForFile
:filename
];
358 [sourceViewer setMarkers
:breakpoints
];
361 [sourceViewer setMarkedLine
:frame.lineNumber
];
362 [sourceViewer scrollToLine
:frame.lineNumber
];
364 [[sourceViewer textView
] setNeedsDisplay
:YES
];
368 * Expands the variables based on the stored set
370 - (void)expandVariables
372 NSString
* selection
= [selectedVariable fullName
];
374 for (NSInteger i
= 0; i
< [variablesOutlineView numberOfRows
]; i
++) {
375 NSTreeNode
* node
= [variablesOutlineView itemAtRow
:i
];
376 NSString
* fullName
= [[node representedObject
] fullName
];
378 // see if it needs expanding
379 if ([expandedVariables containsObject
:fullName
])
380 [variablesOutlineView expandItem
:node
];
382 // select it if we had it selected before
383 if ([fullName isEqualToString
:selection
])
384 [variablesTreeController setSelectionIndexPath
:[node indexPath
]];
389 * Sets the widths of the segmented control.
391 - (void)updateSegmentControl
{
392 NSRect containerFrame
= [[_segmentControl superview
] frame
];
393 CGFloat containerWidth
= NSWidth(containerFrame
);
394 CGFloat segmentSizes
= 0;
395 for (NSInteger i
= 1; i
< [_segmentControl segmentCount
] - 1; ++i
) {
396 segmentSizes
+= [_segmentControl widthForSegment
:i
];
398 CGFloat spacerWidth
= (containerWidth
- segmentSizes
) / 2;
399 [_segmentControl setWidth
:spacerWidth forSegment
:0];
400 [_segmentControl setWidth
:spacerWidth forSegment
:[_segmentControl segmentCount
] - 1];
402 [_segmentControl setFrame
:NSMakeRect(-1, NSHeight(containerFrame
) - 27, containerWidth
+ 2, 30)];
405 #pragma mark BSSourceView Delegate
408 * The gutter was clicked, which indicates that a breakpoint needs to be changed
410 - (void)gutterClickedAtLine
:(int)line forFile
:(NSString
*)file
412 BreakpointManager
* mngr
= _model.breakpointManager
;
414 if ([mngr hasBreakpointAt
:line inFile
:file
])
416 [mngr removeBreakpointAt
:line inFile
:file
];
420 Breakpoint
* bp
= [[Breakpoint alloc
] initWithLine
:line inFile
:file
];
421 [mngr addBreakpoint
:bp
];
425 [sourceViewer setMarkers
:[mngr breakpointsForFile
:file
]];