3 * Copyright (c) 2002 - 2007, 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 "DebuggerConnection.h"
18 #import "AppDelegate.h"
20 @interface DebuggerConnection (Private
)
22 - (NSString
*)createCommand
:(NSString
*)cmd
;
26 @implementation DebuggerConnection
29 * Creates a new DebuggerConnection and initializes the socket from the given connection
32 - (id)initWithWindowController
:(DebuggerWindowController
*)wc port
:(int)aPort session
:(NSString
*)aSession
;
34 if (self = [super init
])
37 session
= [aSession retain
];
40 windowController
= [wc retain
];
42 // now that we have our host information, open the socket
43 socket
= [[SocketWrapper alloc
] initWithPort
:port
];
44 [socket setDelegate
:self];
45 [windowController setStatus
:@
"Connecting"];
52 * Releases all of the object's data members and closes the streams
58 [windowController release
];
64 * Gets the port number
72 * Gets the session name
80 * Returns the name of the remote host
82 - (NSString
*)remoteHost
86 return @
"(DISCONNECTED)";
88 return [socket remoteHost
];
92 * Returns whether or not we have an active connection
100 * SocketWrapper delegate method that is called whenever new data is received
102 - (void)dataReceived
:(NSData
*)response deliverTo
:(SEL)selector
104 NSXMLDocument
*doc
= [[NSXMLDocument alloc
] initWithData
:response options
:NSXMLDocumentTidyXML error
:nil];
106 // check and see if there's an error
107 NSArray
*error
= [[doc rootElement
] elementsForName
:@
"error"];
108 if ([error count
] > 0)
110 [windowController setError
:[[[[error objectAtIndex
:0] children
] objectAtIndex
:0] stringValue
]];
114 // if the caller of [_socket receive:] specified a deliverTo, just forward the message to them
117 [self performSelector
:selector withObject
:doc
];
124 * SocketWrapper delegate method that is called after data is sent. This really
125 * isn't useful for much.
127 - (void)dataSent
:(NSString
*)data
131 * Called by SocketWrapper after the connection is successful. This immediately calls
132 * -[SocketWrapper receive] to clear the way for communication
134 - (void)socketDidAccept
137 [socket receive
:@selector(handshake
:)];
141 * Receives errors from the SocketWrapper and updates the display
143 - (void)errorEncountered
:(NSError
*)error
145 [windowController setError
:[error domain
]];
149 * The initial packet handshake. This allows us to set things like the title of the window
150 * and glean information about hte server we are debugging
152 - (void)handshake
:(NSXMLDocument
*)doc
154 [self refreshStatus
];
158 * Handler used by dataReceived:deliverTo: for anytime the status command is issued. It sets
159 * the window controller's status text
161 - (void)updateStatus
:(NSXMLDocument
*)doc
163 NSString
*status
= [[[doc rootElement
] attributeForName
:@
"status"] stringValue
];
164 [windowController setStatus
:[status capitalizedString
]];
166 if ([status isEqualToString
:@
"break"])
168 [self updateStackTraceAndRegisters
];
173 * Tells the debugger to continue running the script
177 [socket send
:[self createCommand
:@
"run"]];
178 [self refreshStatus
];
182 * Method that runs tells the debugger to give us its status. This will call _updateStatus
183 * and will update the status text on the window
185 - (void)refreshStatus
187 [socket send
:[self createCommand
:@
"status"]];
188 [socket receive
:@selector(updateStatus
:)];
192 * Tells the debugger to step into the current command.
196 [socket send
:[self createCommand
:@
"step_into"]];
197 [socket receive
:nil];
198 [self refreshStatus
];
202 * Tells the debugger to step out of the current context
206 [socket send
:[self createCommand
:@
"step_out"]];
207 [socket receive
:nil];
208 [self refreshStatus
];
212 * Tells the debugger to step over the current function
216 [socket send
:[self createCommand
:@
"step_over"]];
217 [socket receive
:nil];
218 [self refreshStatus
];
222 * This function queries the debug server for the current stacktrace and all the registers on
223 * level one. If a user then tries to expand past level one... TOOD: HOLY CRAP WHAT DO WE DO PAST LEVEL 1?
225 - (void)updateStackTraceAndRegisters
227 [socket send
:[self createCommand
:@
"stack_get"]];
228 [socket receive
:@selector(stackReceived
:)];
230 [socket send
:[self createCommand
:@
"context_get"]];
231 [socket receive
:@selector(registerReceived
:)];
235 * Called by the dataReceived delivery delegate. This updates the window controller's data
236 * for the stack trace
238 - (void)stackReceived
:(NSXMLDocument
*)doc
240 NSArray
*children
= [[doc rootElement
] children
];
241 NSMutableArray
*stack
= [NSMutableArray array
];
242 NSMutableDictionary
*dict
= [NSMutableDictionary dictionary
];
243 for (int i
= 0; i
< [children count
]; i
++)
245 NSArray
*attrs
= [[children objectAtIndex
:i
] attributes
];
246 for (int j
= 0; j
< [attrs count
]; j
++)
248 [dict setValue
:[[attrs objectAtIndex
:j
] stringValue
] forKey
:[[attrs objectAtIndex
:j
] name
]];
250 [stack addObject
:dict
];
251 dict
= [NSMutableDictionary dictionary
];
253 [windowController setStack
:stack
];
257 * Called when we have a new register to display
259 - (void)registerReceived
:(NSXMLDocument
*)doc
261 [windowController setRegister
:doc
];
265 * Tells the debugger engine to get a specifc property. This also takes in the NSXMLElement
266 * that requested it so that the child can be attached in the delivery.
268 - (void)getProperty
:(NSString
*)property forElement
:(NSXMLElement
*)elm
270 [socket send
:[self createCommand
:[NSString stringWithFormat
:@
"property_get -n \"%@\"", property
]]];
271 depthFetchElement
= elm
;
272 [socket receive
:@selector(propertyReceived
:)];
276 * Called when a property is received. This then adds the result as children to the passed object
278 - (void)propertyReceived
:(NSXMLDocument
*)doc
282 <property> <!-- this is the one we requested -->
283 <property ... /> <!-- these are what we want -->
288 // we now have to detach all the children so we can insert them into another document
289 NSXMLElement
*parent
= (NSXMLElement
*)[[doc rootElement
] childAtIndex
:0];
290 NSArray
*children
= [parent children
];
291 [parent setChildren
:nil];
292 [windowController addChildren
:children toNode
:depthFetchElement
];
293 depthFetchElement
= nil;
297 * Helper method to create a string command with the -i <session> automatically tacked on
299 - (NSString
*)createCommand
:(NSString
*)cmd
301 return [NSString stringWithFormat
:@
"%@ -i %@", cmd
, session
];