92d8f34be5f36886a9a99db060026eaff16ac6fa
[WebKit-https.git] / WebKitTools / Drosera / DebuggerDocument.m
1 /*
2  * Copyright (C) 2006 Apple Computer, Inc.  All rights reserved.
3  *
4  * Redistribution and use in source and binary forms, with or without
5  * modification, are permitted provided that the following conditions
6  * are met:
7  *
8  * 1.  Redistributions of source code must retain the above copyright
9  *     notice, this list of conditions and the following disclaimer. 
10  * 2.  Redistributions in binary form must reproduce the above copyright
11  *     notice, this list of conditions and the following disclaimer in the
12  *     documentation and/or other materials provided with the distribution. 
13  * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
14  *     its contributors may be used to endorse or promote products derived
15  *     from this software without specific prior written permission. 
16  *
17  * THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
18  * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
20  * DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
21  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
22  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
23  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
24  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27  */
28
29 #import "DebuggerDocument.h"
30
31 static NSString *DebuggerContinueToolbarItem = @"DebuggerContinueToolbarItem";
32 static NSString *DebuggerPauseToolbarItem = @"DebuggerPauseToolbarItem";
33 static NSString *DebuggerStepIntoToolbarItem = @"DebuggerStepIntoToolbarItem";
34
35 @implementation DebuggerDocument
36 + (BOOL)isSelectorExcludedFromWebScript:(SEL)aSelector
37 {
38     return NO;
39 }
40
41 + (BOOL)isKeyExcludedFromWebScript:(const char *)name
42 {
43     return NO;
44 }
45
46 #pragma mark -
47
48 - (id)initWithServerName:(NSString *)serverName
49 {
50     if ((self = [super init]))
51         [self switchToServerNamed:serverName];
52     return self;
53 }
54
55 - (void)dealloc
56 {
57     [server release];
58     [currentServerName release];
59     [super dealloc];
60 }
61
62 #pragma mark -
63 #pragma mark Stack & Variables
64
65 - (WebScriptCallFrame *)currentFrame
66 {
67     return currentFrame;
68 }
69
70 - (NSString *)currentFrameFunctionName
71 {
72     return [currentFrame functionName];
73 }
74
75 - (NSArray *)currentFunctionStack
76 {
77     NSMutableArray *result = [[NSMutableArray alloc] init];
78     WebScriptCallFrame *frame = currentFrame;
79     while (frame) {
80         if ([frame functionName])
81             [result addObject:[frame functionName]];
82         frame = [frame caller];
83     }
84     return [result autorelease];
85 }
86
87 #pragma mark -
88 #pragma mark Pause & Step
89
90 - (BOOL)isPaused
91 {
92     return paused;
93 }
94
95 - (void)pause
96 {
97     paused = YES;
98     if ([[(NSDistantObject *)server connectionForProxy] isValid])
99         [server pause];
100     [[NSApplication sharedApplication] activateIgnoringOtherApps:YES];
101 }
102
103 - (void)resume
104 {
105     paused = NO;
106     if ([[(NSDistantObject *)server connectionForProxy] isValid])
107         [server resume];
108 }
109
110 - (void)stepInto
111 {
112     if ([[(NSDistantObject *)server connectionForProxy] isValid])
113         [server step];
114 }
115
116 - (void)log:(NSString *)msg
117 {
118     NSLog(@"%@", msg);
119 }
120
121 #pragma mark -
122 #pragma mark Interface Actions
123
124 - (IBAction)pause:(id)sender
125 {
126     [[webView windowScriptObject] callWebScriptMethod:@"pause" withArguments:nil];
127 }
128
129 - (IBAction)resume:(id)sender
130 {
131     [[webView windowScriptObject] callWebScriptMethod:@"resume" withArguments:nil];
132 }
133
134 - (IBAction)stepInto:(id)sender
135 {
136     [[webView windowScriptObject] callWebScriptMethod:@"stepInto" withArguments:nil];
137 }
138
139 #pragma mark -
140 #pragma mark Window Controller Overrides
141
142 - (NSString *)windowNibName
143 {
144     return @"Debugger";
145 }
146
147 - (void)windowDidLoad
148 {
149     [super windowDidLoad];
150
151     [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(applicationTerminating:) name:NSApplicationWillTerminateNotification object:nil];
152
153     NSString *path = [[NSBundle bundleForClass:[self class]] pathForResource:@"debugger" ofType:@"html" inDirectory:nil];
154     [[webView mainFrame] loadRequest:[[[NSURLRequest alloc] initWithURL:[NSURL fileURLWithPath:path]] autorelease]];
155
156     NSToolbar *toolbar = [[NSToolbar alloc] initWithIdentifier:@"debugger"];
157     [toolbar setDelegate:self];
158     [toolbar setAllowsUserCustomization:YES];
159     [toolbar setAutosavesConfiguration:YES];
160     [[self window] setToolbar:toolbar];
161     [toolbar release];
162 }
163
164 - (void)windowWillClose:(NSNotification *)notification
165 {
166     [[webView windowScriptObject] removeWebScriptKey:@"DebuggerDocument"];
167
168     [[NSNotificationCenter defaultCenter] removeObserver:self name:NSApplicationWillTerminateNotification object:nil];
169     [[NSDistributedNotificationCenter defaultCenter] removeObserver:self name:WebScriptDebugServerQueryReplyNotification object:nil];
170     [[NSDistributedNotificationCenter defaultCenter] removeObserver:self name:WebScriptDebugServerWillUnloadNotification object:nil];
171
172     [self switchToServerNamed:nil];
173
174     [self autorelease]; // DebuggerApplication expects us to release on close
175 }
176
177 #pragma mark -
178 #pragma mark Connection Handling
179
180 - (void)switchToServerNamed:(NSString *)name
181 {
182     if (server) {
183         [[NSNotificationCenter defaultCenter] removeObserver:self name:NSConnectionDidDieNotification object:[(NSDistantObject *)server connectionForProxy]];
184         if ([[(NSDistantObject *)server connectionForProxy] isValid]) {
185             [self resume];
186             [server removeListener:self];
187         }
188     }
189
190     id old = server;
191     server = ([name length] ? [[NSConnection rootProxyForConnectionWithRegisteredName:name host:nil] retain] : nil);
192     [old release];
193
194     old = currentServerName;
195     currentServerName = [name copy];
196     [old release];
197
198     if (server) {
199         @try {
200             [(NSDistantObject *)server setProtocolForProxy:@protocol(WebScriptDebugServer)];
201             [server addListener:self];
202         } @catch (NSException *exception) {
203             [currentServerName release];
204             currentServerName = nil;
205             [server release];
206             server = nil;
207         }
208
209         if (server)
210             [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(serverConnectionDidDie:) name:NSConnectionDidDieNotification object:[(NSDistantObject *)server connectionForProxy]];  
211     }
212 }
213
214 - (void)applicationTerminating:(NSNotification *)notifiction
215 {
216     if (server && [[(NSDistantObject *)server connectionForProxy] isValid]) {
217         if ([[(NSDistantObject *)server connectionForProxy] isValid])
218             [server removeListener:self];
219         // call the runloop for a while to make sure our removeListener: is sent to the server
220         [[NSRunLoop currentRunLoop] runUntilDate:[NSDate dateWithTimeIntervalSinceNow:0.25]];
221     }
222 }
223
224 - (void)serverConnectionDidDie:(NSNotification *)notifiction
225 {
226     [self switchToServerNamed:nil];
227 }
228
229 #pragma mark -
230 #pragma mark Toolbar Delegate
231
232 - (NSToolbarItem *)toolbar:(NSToolbar *)toolbar itemForItemIdentifier:(NSString *)itemIdentifier willBeInsertedIntoToolbar:(BOOL)flag
233 {
234     if ([itemIdentifier isEqualToString:DebuggerContinueToolbarItem]) {
235         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
236
237         [item setLabel:@"Continue"];
238         [item setPaletteLabel:@"Continue"];
239
240         [item setToolTip:@"Continue script execution"];
241         [item setImage:[NSImage imageNamed:@"continue"]];
242
243         [item setTarget:self];
244         [item setAction:@selector(resume:)];
245
246         return [item autorelease];
247     } else if ([itemIdentifier isEqualToString:DebuggerPauseToolbarItem]) {
248         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
249
250         [item setLabel:@"Pause"];
251         [item setPaletteLabel:@"Pause"];
252
253         [item setToolTip:@"Pause script execution"];
254         [item setImage:[NSImage imageNamed:@"pause"]];
255
256         [item setTarget:self];
257         [item setAction:@selector(pause:)];
258
259         return [item autorelease];
260     } else if ([itemIdentifier isEqualToString:DebuggerStepIntoToolbarItem]) {
261         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
262
263         [item setLabel:@"Step Into"];
264         [item setPaletteLabel:@"Step Into"];
265
266         [item setToolTip:@"Step into function call"];
267         [item setImage:[NSImage imageNamed:@"step"]];
268
269         [item setTarget:self];
270         [item setAction:@selector(stepInto:)];
271
272         return [item autorelease];
273     }
274
275     return nil;
276 }
277
278 - (NSArray *)toolbarDefaultItemIdentifiers:(NSToolbar*)toolbar
279 {
280     return [NSArray arrayWithObjects:DebuggerContinueToolbarItem, DebuggerPauseToolbarItem,
281         NSToolbarSeparatorItemIdentifier, DebuggerStepIntoToolbarItem, nil];
282 }
283
284 - (NSArray *)toolbarAllowedItemIdentifiers:(NSToolbar*)toolbar
285 {
286     return [NSArray arrayWithObjects:DebuggerContinueToolbarItem, DebuggerPauseToolbarItem, DebuggerStepIntoToolbarItem,
287         NSToolbarCustomizeToolbarItemIdentifier, NSToolbarFlexibleSpaceItemIdentifier,
288         NSToolbarSpaceItemIdentifier, NSToolbarSeparatorItemIdentifier, nil];
289 }
290
291 - (BOOL)validateUserInterfaceItem:(id <NSValidatedUserInterfaceItem>)interfaceItem
292 {
293     if ([interfaceItem action] == @selector(pause:))
294         return ![self isPaused];
295     if ([interfaceItem action] == @selector(resume:))
296         return [self isPaused];
297     if ([interfaceItem action] == @selector(stepInto:))
298         return [self isPaused];
299     return YES;
300 }
301
302 #pragma mark -
303 #pragma mark WebView Frame Load Delegate
304
305 - (void)webView:(WebView *)sender windowScriptObjectAvailable:(WebScriptObject *)windowScriptObject
306 {
307     // note: this is the Debuggers's own WebView, not the one being debugged
308     [[sender windowScriptObject] setValue:self forKey:@"DebuggerDocument"];
309 }
310
311 - (void)webView:(WebView *)sender didFinishLoadForFrame:(WebFrame *)frame
312 {
313     // note: this is the Debuggers's own WebView, not the one being debugged
314     webViewLoaded = YES;
315 }
316
317 #pragma mark -
318 #pragma mark Debug Listener Callbacks
319
320 - (void)webView:(WebView *)view didLoadMainResourceForDataSource:(WebDataSource *)dataSource
321 {
322     NSString *documentSourceCopy = nil;
323     id <WebDocumentRepresentation> rep = [dataSource representation];
324     if ([rep canProvideDocumentSource])
325         documentSourceCopy = [[rep documentSource] copy];
326
327     if (!documentSourceCopy)
328         return;
329
330     NSString *urlCopy = [[[[dataSource response] URL] absoluteString] copy];
331     NSArray *args = [NSArray arrayWithObjects:(documentSourceCopy ? documentSourceCopy : @""), (urlCopy ? urlCopy : @""), [NSNumber numberWithBool:NO], nil];
332     [[webView windowScriptObject] callWebScriptMethod:@"updateFileSource" withArguments:args];
333
334     [documentSourceCopy release];
335     [urlCopy release];
336 }
337
338 - (void)webView:(WebView *)view didParseSource:(NSString *)source baseLineNumber:(unsigned)baseLine fromURL:(NSURL *)url sourceId:(int)sid forWebFrame:(WebFrame *)webFrame
339 {
340     if (!webViewLoaded)
341         return;
342
343     NSString *sourceCopy = [source copy];
344     if (!sourceCopy)
345         return;
346
347     NSString *documentSourceCopy = nil;
348     NSString *urlCopy = [[url absoluteString] copy];
349
350     WebDataSource *dataSource = [webFrame dataSource];
351     if (!url || [[[dataSource response] URL] isEqual:url]) {
352         id <WebDocumentRepresentation> rep = [dataSource representation];
353         if ([rep canProvideDocumentSource])
354             documentSourceCopy = [[rep documentSource] copy];
355         if (!urlCopy)
356             urlCopy = [[[[dataSource response] URL] absoluteString] copy];
357     }
358
359     NSArray *args = [NSArray arrayWithObjects:sourceCopy, (documentSourceCopy ? documentSourceCopy : @""), (urlCopy ? urlCopy : @""), [NSNumber numberWithInt:sid], [NSNumber numberWithUnsignedInt:baseLine], nil];
360     [[webView windowScriptObject] callWebScriptMethod:@"didParseScript" withArguments:args];
361
362     [sourceCopy release];
363     [documentSourceCopy release];
364     [urlCopy release];
365 }
366
367 - (void)webView:(WebView *)view failedToParseSource:(NSString *)source baseLineNumber:(unsigned)baseLine fromURL:(NSURL *)url withError:(NSError *)error forWebFrame:(WebFrame *)webFrame
368 {
369 }
370
371 - (void)webView:(WebView *)view didEnterCallFrame:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
372 {
373     if (!webViewLoaded)
374         return;
375
376     id old = currentFrame;
377     currentFrame = [frame retain];
378     [old release];
379
380     NSArray *args = [NSArray arrayWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
381     [[webView windowScriptObject] callWebScriptMethod:@"didEnterCallFrame" withArguments:args];
382 }
383
384 - (void)webView:(WebView *)view willExecuteStatement:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
385 {
386     if (!webViewLoaded)
387         return;
388
389     NSArray *args = [NSArray arrayWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
390     [[webView windowScriptObject] callWebScriptMethod:@"willExecuteStatement" withArguments:args];
391 }
392
393 - (void)webView:(WebView *)view willLeaveCallFrame:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
394 {
395     if (!webViewLoaded)
396         return;
397
398     NSArray *args = [NSArray arrayWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
399     [[webView windowScriptObject] callWebScriptMethod:@"willLeaveCallFrame" withArguments:args];
400
401     id old = currentFrame;
402     currentFrame = [[frame caller] retain];
403     [old release];
404 }
405 @end