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 "DebuggerBackEnd.h"
19 #import "AppDelegate.h"
20 #import "NSXMLElementAdditions.h"
22 // GDBpConnection (Private) ////////////////////////////////////////////////////
24 @interface DebuggerBackEnd ()
25 @property (readwrite
, copy
) NSString
* status
;
27 - (void)recordCallback
:(SEL)callback forTransaction
:(NSNumber
*)txn
;
29 - (void)updateStatus
:(NSXMLDocument
*)response
;
30 - (void)debuggerStep
:(NSXMLDocument
*)response
;
31 - (void)rebuildStack
:(NSXMLDocument
*)response
;
32 - (void)getStackFrame
:(NSXMLDocument
*)response
;
33 - (void)setSource
:(NSXMLDocument
*)response
;
34 - (void)contextsReceived
:(NSXMLDocument
*)response
;
35 - (void)variablesReceived
:(NSXMLDocument
*)response
;
36 - (void)propertiesReceived
:(NSXMLDocument
*)response
;
40 // GDBpConnection //////////////////////////////////////////////////////////////
42 @implementation DebuggerBackEnd
45 @synthesize attached
= attached_
;
49 * Creates a new DebuggerBackEnd and initializes the socket from the given connection
52 - (id)initWithPort
:(NSUInteger
)aPort
54 if (self = [super init
])
56 stackFrames_
= [[NSMutableDictionary alloc
] init
];
57 callbackContext_
= [NSMutableDictionary
new];
58 callTable_
= [NSMutableDictionary
new];
60 [[BreakpointManager sharedManager
] setConnection
:self];
61 connection_
= [[NetworkConnection alloc
] initWithPort
:aPort
];
62 connection_.delegate
= self;
63 [connection_ connect
];
65 attached_
= [[NSUserDefaults standardUserDefaults
] boolForKey
:@
"DebuggerAttached"];
71 * Deallocates the object
76 [stackFrames_ release
];
78 [callbackContext_ release
];
83 // Getters /////////////////////////////////////////////////////////////////////
87 * Gets the port number
91 return [connection_ port
];
95 * Returns whether or not we have an active connection
99 return [connection_ connected
] && active_
;
102 // Commands ////////////////////////////////////////////////////////////////////
103 #pragma mark Commands
106 * Tells the debugger to continue running the script. Returns the current stack frame.
110 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"run"];
111 [self recordCallback
:@selector(debuggerStep
:) forTransaction
:tx
];
115 * Tells the debugger to step into the current command.
119 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"step_into"];
120 [self recordCallback
:@selector(debuggerStep
:) forTransaction
:tx
];
124 * Tells the debugger to step out of the current context
128 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"step_out"];
129 [self recordCallback
:@selector(debuggerStep
:) forTransaction
:tx
];
133 * Tells the debugger to step over the current function
137 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"step_over"];
138 [self recordCallback
:@selector(debuggerStep
:) forTransaction
:tx
];
142 * Halts execution of the script.
148 self.status
= @
"Stopped";
149 if ([delegate respondsToSelector
:@selector(debuggerDisconnected
)])
150 [delegate debuggerDisconnected
];
154 * Ends the current debugging session.
158 [connection_ sendCommandWithFormat
:@
"detach"];
160 self.status
= @
"Stopped";
161 if ([delegate respondsToSelector
:@selector(debuggerDisconnected
)])
162 [delegate debuggerDisconnected
];
166 * Tells the debugger engine to get a specifc property. This also takes in the NSXMLElement
167 * that requested it so that the child can be attached.
169 - (NSInteger
)getChildrenOfProperty
:(VariableNode
*)property atDepth
:(NSInteger
)depth
;
171 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"property_get -d %d -n %@", depth
, [property fullName
]];
172 [self recordCallback
:@selector(propertiesReceived
:) forTransaction
:tx
];
173 return [tx intValue
];
176 - (void)loadStackFrame
:(StackFrame
*)frame
181 NSNumber
* routingNumber
= [NSNumber numberWithInt
:frame.routingID
];
182 NSNumber
* transaction
= nil;
184 // Get the source code of the file. Escape % in URL chars.
185 if ([frame.filename length
]) {
186 NSString
* escapedFilename
= [frame.filename stringByReplacingOccurrencesOfString
:@
"%" withString
:@
"%%"];
187 transaction
= [connection_ sendCommandWithFormat
:@
"source -f %@", escapedFilename
];
188 [self recordCallback
:@selector(setSource
:) forTransaction
:transaction
];
189 [callbackContext_ setObject
:routingNumber forKey
:transaction
];
192 // Get the names of all the contexts.
193 transaction
= [connection_ sendCommandWithFormat
:@
"context_names -d %d", frame.index
];
194 [self recordCallback
:@selector(contextsReceived
:) forTransaction
:transaction
];
195 [callbackContext_ setObject
:routingNumber forKey
:transaction
];
197 // This frame will be fully loaded.
201 // Breakpoint Management ///////////////////////////////////////////////////////
202 #pragma mark Breakpoints
205 * Send an add breakpoint command
207 - (void)addBreakpoint
:(Breakpoint
*)bp
209 if (![connection_ connected
])
212 NSString
* file
= [connection_ escapedURIPath
:[bp transformedPath
]];
213 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"breakpoint_set -t line -f %@ -n %i", file
, [bp line
]];
214 [self recordCallback
:@selector(breakpointReceived
:) forTransaction
:tx
];
215 [callbackContext_ setObject
:bp forKey
:tx
];
219 * Removes a breakpoint
221 - (void)removeBreakpoint
:(Breakpoint
*)bp
223 if (![connection_ connected
])
226 [connection_ sendCommandWithFormat
:@
"breakpoint_remove -d %i", [bp debuggerId
]];
229 // Specific Response Handlers //////////////////////////////////////////////////
230 #pragma mark Response Handlers
232 - (void)errorEncountered
:(NSString
*)error
234 [delegate errorEncountered
:error
];
238 * Initial packet received. We've started a brand-new connection to the engine.
240 - (void)handleInitialResponse
:(NSXMLDocument
*)response
242 if (!self.attached
) {
243 [connection_ sendCommandWithFormat
:@
"detach"];
249 // Register any breakpoints that exist offline.
250 for (Breakpoint
* bp
in [[BreakpointManager sharedManager
] breakpoints
])
251 [self addBreakpoint
:bp
];
253 // Load the debugger to make it look active.
254 [delegate debuggerConnected
];
256 // TODO: update the status.
259 - (void)handleResponse
:(NSXMLDocument
*)response
261 NSInteger transactionID
= [connection_ transactionIDFromResponse
:response
];
262 NSNumber
* key
= [NSNumber numberWithInt
:transactionID
];
263 NSString
* callbackStr
= [callTable_ objectForKey
:key
];
266 SEL callback
= NSSelectorFromString(callbackStr
);
267 [self performSelector
:callback withObject
:response
];
269 [callTable_ removeObjectForKey
:key
];
273 * Receiver for status updates. This just freshens up the UI.
275 - (void)updateStatus
:(NSXMLDocument
*)response
277 self.status
= [[[[response rootElement
] attributeForName
:@
"status"] stringValue
] capitalizedString
];
279 if (!status ||
[status isEqualToString
:@
"Stopped"]) {
280 [delegate debuggerDisconnected
];
282 } else if ([status isEqualToString
:@
"Stopping"]) {
283 [connection_ sendCommandWithFormat
:@
"stop"];
289 * Step in/out/over and run all take this path. We first get the status of the
290 * debugger and then request fresh stack information.
292 - (void)debuggerStep
:(NSXMLDocument
*)response
294 [self updateStatus
:response
];
295 if (![self isConnected
])
298 // If this is the run command, tell the delegate that a bunch of updates
299 // are coming. Also remove all existing stack routes and request a new stack.
300 if ([delegate respondsToSelector
:@selector(clobberStack
)])
301 [delegate clobberStack
];
302 [stackFrames_ removeAllObjects
];
303 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"stack_depth"];
304 [self recordCallback
:@selector(rebuildStack
:) forTransaction
:tx
];
305 stackFirstTransactionID_
= [tx intValue
];
309 * We ask for the stack_depth and now we clobber the stack and start rebuilding
312 - (void)rebuildStack
:(NSXMLDocument
*)response
314 NSInteger depth
= [[[[response rootElement
] attributeForName
:@
"depth"] stringValue
] intValue
];
316 if (stackFirstTransactionID_
== [connection_ transactionIDFromResponse
:response
])
319 // We now need to alloc a bunch of stack frames and get the basic information
321 for (NSInteger i
= 0; i
< depth
; i
++)
323 // Use the transaction ID to create a routing path.
324 NSNumber
* routingID
= [connection_ sendCommandWithFormat
:@
"stack_get -d %d", i
];
325 [self recordCallback
:@selector(getStackFrame
:) forTransaction
:routingID
];
326 [stackFrames_ setObject
:[[StackFrame
new] autorelease
] forKey
:routingID
];
331 * The initial rebuild of the stack frame. We now have enough to initialize
332 * a StackFrame object.
334 - (void)getStackFrame
:(NSXMLDocument
*)response
336 // Get the routing information.
337 NSInteger routingID
= [connection_ transactionIDFromResponse
:response
];
338 if (routingID
< stackFirstTransactionID_
)
340 NSNumber
* routingNumber
= [NSNumber numberWithInt
:routingID
];
342 // Make sure we initialized this frame in our last |-rebuildStack:|.
343 StackFrame
* frame
= [stackFrames_ objectForKey
:routingNumber
];
347 NSXMLElement
* xmlframe
= [[[response rootElement
] children
] objectAtIndex
:0];
349 // Initialize the stack frame.
350 frame.index
= [[[xmlframe attributeForName
:@
"level"] stringValue
] intValue
];
351 frame.filename
= [[xmlframe attributeForName
:@
"filename"] stringValue
];
352 frame.lineNumber
= [[[xmlframe attributeForName
:@
"lineno"] stringValue
] intValue
];
353 frame.function
= [[xmlframe attributeForName
:@
"where"] stringValue
];
354 frame.routingID
= routingID
;
356 // Only get the complete frame for the first level. The other frames will get
357 // information loaded lazily when the user clicks on one.
358 if (frame.index
== 0) {
359 [self loadStackFrame
:frame
];
362 if ([delegate respondsToSelector
:@selector(newStackFrame
:)])
363 [delegate newStackFrame
:frame
];
367 * Callback for setting the source of a file while rebuilding a specific stack
370 - (void)setSource
:(NSXMLDocument
*)response
372 NSNumber
* transaction
= [NSNumber numberWithInt
:[connection_ transactionIDFromResponse
:response
]];
373 if ([transaction intValue
] < stackFirstTransactionID_
)
375 NSNumber
* routingNumber
= [callbackContext_ objectForKey
:transaction
];
379 [callbackContext_ removeObjectForKey
:transaction
];
380 StackFrame
* frame
= [stackFrames_ objectForKey
:routingNumber
];
384 frame.source
= [[response rootElement
] base64DecodedValue
];
386 if ([delegate respondsToSelector
:@selector(sourceUpdated
:)])
387 [delegate sourceUpdated
:frame
];
391 * Enumerates all the contexts of a given stack frame. We then in turn get the
392 * contents of each one of these contexts.
394 - (void)contextsReceived
:(NSXMLDocument
*)response
396 // Get the stack frame's routing ID and use it again.
397 NSNumber
* receivedTransaction
= [NSNumber numberWithInt
:[connection_ transactionIDFromResponse
:response
]];
398 if ([receivedTransaction intValue
] < stackFirstTransactionID_
)
400 NSNumber
* routingID
= [callbackContext_ objectForKey
:receivedTransaction
];
404 // Get the stack frame by the |routingID|.
405 StackFrame
* frame
= [stackFrames_ objectForKey
:routingID
];
407 NSXMLElement
* contextNames
= [response rootElement
];
408 for (NSXMLElement
* context
in [contextNames children
])
410 NSInteger cid
= [[[context attributeForName
:@
"id"] stringValue
] intValue
];
412 // Fetch each context's variables.
413 NSNumber
* tx
= [connection_ sendCommandWithFormat
:@
"context_get -d %d -c %d", frame.index
, cid
];
414 [self recordCallback
:@selector(variablesReceived
:) forTransaction
:tx
];
415 [callbackContext_ setObject
:routingID forKey
:tx
];
420 * Receives the variables from the context and attaches them to the stack frame.
422 - (void)variablesReceived
:(NSXMLDocument
*)response
424 // Get the stack frame's routing ID and use it again.
425 NSInteger transaction
= [connection_ transactionIDFromResponse
:response
];
426 if (transaction
< stackFirstTransactionID_
)
428 NSNumber
* receivedTransaction
= [NSNumber numberWithInt
:transaction
];
429 NSNumber
* routingID
= [callbackContext_ objectForKey
:receivedTransaction
];
433 // Get the stack frame by the |routingID|.
434 StackFrame
* frame
= [stackFrames_ objectForKey
:routingID
];
436 NSMutableArray
* variables
= [NSMutableArray array
];
438 // Merge the frame's existing variables.
440 [variables addObjectsFromArray
:frame.variables
];
442 // Add these new variables.
443 NSArray
* addVariables
= [[response rootElement
] children
];
445 for (NSXMLElement
* elm
in addVariables
) {
446 VariableNode
* node
= [[VariableNode alloc
] initWithXMLNode
:elm
];
447 [variables addObject
:[node autorelease
]];
451 frame.variables
= variables
;
455 * Callback from a |-getProperty:| request.
457 - (void)propertiesReceived
:(NSXMLDocument
*)response
459 NSInteger transaction
= [connection_ transactionIDFromResponse
:response
];
463 <property> <!-- this is the one we requested -->
464 <property ... /> <!-- these are what we want -->
469 // Detach all the children so we can insert them into another document.
470 NSXMLElement
* parent
= (NSXMLElement
*)[[response rootElement
] childAtIndex
:0];
471 NSArray
* children
= [parent children
];
472 [parent setChildren
:nil];
474 [delegate receivedProperties
:children forTransaction
:transaction
];
478 * Callback for setting a breakpoint.
480 - (void)breakpointReceived
:(NSXMLDocument
*)response
482 NSNumber
* transaction
= [NSNumber numberWithInt
:[connection_ transactionIDFromResponse
:response
]];
483 Breakpoint
* bp
= [callbackContext_ objectForKey
:transaction
];
487 [callbackContext_ removeObjectForKey
:callbackContext_
];
488 [bp setDebuggerId
:[[[[response rootElement
] attributeForName
:@
"id"] stringValue
] intValue
]];
491 // Private /////////////////////////////////////////////////////////////////////
493 - (void)recordCallback
:(SEL)callback forTransaction
:(NSNumber
*)txn
495 [callTable_ setObject
:NSStringFromSelector(callback
) forKey
:txn
];