2006-12-21 Mark Rowe <bdash@webkit.org>
[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 #import "DebuggerApplication.h"
31 #import <Carbon/Carbon.h>
32
33 static NSString *DebuggerConsoleToolbarItem = @"DebuggerConsoleToolbarItem";
34 static NSString *DebuggerContinueToolbarItem = @"DebuggerContinueToolbarItem";
35 static NSString *DebuggerPauseToolbarItem = @"DebuggerPauseToolbarItem";
36 static NSString *DebuggerStepIntoToolbarItem = @"DebuggerStepIntoToolbarItem";
37 static NSString *DebuggerStepOverToolbarItem = @"DebuggerStepOverToolbarItem";
38 static NSString *DebuggerStepOutToolbarItem = @"DebuggerStepOutToolbarItem";
39
40 @interface WebScriptObject (WebScriptObjectPrivate)
41 - (unsigned int)count;
42 @end
43
44 @implementation DebuggerDocument
45 + (BOOL)isSelectorExcludedFromWebScript:(SEL)aSelector
46 {
47     return NO;
48 }
49
50 + (BOOL)isKeyExcludedFromWebScript:(const char *)name
51 {
52     return NO;
53 }
54
55 #pragma mark -
56
57 - (id)initWithServerName:(NSString *)serverName
58 {
59     if ((self = [super init]))
60         [self switchToServerNamed:serverName];
61     return self;
62 }
63
64 - (void)dealloc
65 {
66     [server release];
67     [currentServerName release];
68     [super dealloc];
69 }
70
71 #pragma mark -
72 #pragma mark Stack & Variables
73
74 - (WebScriptCallFrame *)currentFrame
75 {
76     return currentFrame;
77 }
78
79 - (NSString *)currentFrameFunctionName
80 {
81     return [currentFrame functionName];
82 }
83
84 - (NSArray *)currentFunctionStack
85 {
86     NSMutableArray *result = [[NSMutableArray alloc] init];
87     WebScriptCallFrame *frame = currentFrame;
88     while (frame) {
89         if ([frame functionName])
90             [result addObject:[frame functionName]];
91         else if ([frame caller])
92             [result addObject:@"(anonymous function)"];
93         else
94             [result addObject:@"(global scope)"];
95         frame = [frame caller];
96     }
97     return [result autorelease];
98 }
99
100 - (id)evaluateScript:(NSString *)script inCallFrame:(int)frame
101 {
102     WebScriptCallFrame *cframe = currentFrame;
103     for (unsigned count = 0; count < frame; count++)
104         cframe = [cframe caller];
105     if (!cframe)
106         return nil;
107
108     id result = [cframe evaluateWebScript:script];
109     if ([result isKindOfClass:NSClassFromString(@"WebScriptObject")])
110         return [result callWebScriptMethod:@"toString" withArguments:nil];
111     return result;
112 }
113
114 - (NSArray *)webScriptAttributeKeysForScriptObject:(WebScriptObject *)object
115 {
116     WebScriptObject *enumerateAttributes = [object evaluateWebScript:@"(function () { var result = new Array(); for (var x in this) { result.push(x); } return result; })"];
117
118     NSMutableArray *result = [[NSMutableArray alloc] init];
119     WebScriptObject *variables = [enumerateAttributes callWebScriptMethod:@"call" withArguments:[NSArray arrayWithObject:object]];
120     unsigned length = [variables count];
121     for (unsigned i = 0; i < length; i++) {
122         NSString *key = [variables webScriptValueAtIndex:i];
123         [result addObject:key];
124     }
125
126     [result sortUsingSelector:@selector(compare:)];
127     return [result autorelease];
128 }
129
130 - (NSArray *)localScopeVariableNamesForCallFrame:(int)frame
131 {
132     WebScriptCallFrame *cframe = currentFrame;
133     for (unsigned count = 0; count < frame; count++)
134         cframe = [cframe caller];
135
136     if (![[cframe scopeChain] count])
137         return nil;
138
139     WebScriptObject *scope = [[cframe scopeChain] objectAtIndex:0]; // local is always first
140     return [self webScriptAttributeKeysForScriptObject:scope];
141 }
142
143 - (NSString *)valueForScopeVariableNamed:(NSString *)key inCallFrame:(int)frame
144 {
145     WebScriptCallFrame *cframe = currentFrame;
146     for (unsigned count = 0; count < frame; count++)
147         cframe = [cframe caller];
148
149     if (![[cframe scopeChain] count])
150         return nil;
151
152     unsigned scopeCount = [[cframe scopeChain] count];
153     for (unsigned i = 0; i < scopeCount; i++) {
154         WebScriptObject *scope = [[cframe scopeChain] objectAtIndex:i];
155         id value = [scope valueForKey:key];
156         if ([value isKindOfClass:NSClassFromString(@"WebScriptObject")])
157             return [value callWebScriptMethod:@"toString" withArguments:nil];
158         if (value && ![value isKindOfClass:[NSString class]])
159             return [NSString stringWithFormat:@"%@", value];
160         if (value)
161             return value;
162     }
163
164     return nil;
165 }
166
167 #pragma mark -
168 #pragma mark System Information
169
170 - (int)doubleClickMilliseconds
171 {
172     // GetDblTime() returns values in 1/60ths of a second
173     return ((double)GetDblTime() / 60.0) * 1000;
174 }
175
176 #pragma mark -
177 #pragma mark File Loading
178
179 - (NSString *)breakpointEditorHTML
180 {
181     return [NSString stringWithContentsOfFile:[[NSBundle mainBundle] pathForResource:@"breakpointEditor" ofType:@"html"]];
182 }
183
184 #pragma mark -
185 #pragma mark Pause & Step
186
187 - (BOOL)isPaused
188 {
189     return paused;
190 }
191
192 - (void)pause
193 {
194     paused = YES;
195     if ([[(NSDistantObject *)server connectionForProxy] isValid])
196         [server pause];
197     [[NSApplication sharedApplication] activateIgnoringOtherApps:YES];
198 }
199
200 - (void)resume
201 {
202     paused = NO;
203     if ([[(NSDistantObject *)server connectionForProxy] isValid])
204         [server resume];
205 }
206
207 - (void)stepInto
208 {
209     if ([[(NSDistantObject *)server connectionForProxy] isValid])
210         [server step];
211 }
212
213 - (void)log:(NSString *)msg
214 {
215     NSLog(@"%@", msg);
216 }
217
218 #pragma mark -
219 #pragma mark Interface Actions
220
221 - (IBAction)pause:(id)sender
222 {
223     [[webView windowScriptObject] callWebScriptMethod:@"pause" withArguments:nil];
224 }
225
226 - (IBAction)resume:(id)sender
227 {
228     [[webView windowScriptObject] callWebScriptMethod:@"resume" withArguments:nil];
229 }
230
231 - (IBAction)stepInto:(id)sender
232 {
233     [[webView windowScriptObject] callWebScriptMethod:@"stepInto" withArguments:nil];
234 }
235
236 - (IBAction)stepOver:(id)sender
237 {
238     [[webView windowScriptObject] callWebScriptMethod:@"stepOver" withArguments:nil];
239 }
240
241 - (IBAction)stepOut:(id)sender
242 {
243     [[webView windowScriptObject] callWebScriptMethod:@"stepOut" withArguments:nil];
244 }
245
246 - (IBAction)showConsole:(id)sender
247 {
248     [[webView windowScriptObject] callWebScriptMethod:@"showConsoleWindow" withArguments:nil];
249 }
250
251 #pragma mark -
252 #pragma mark Window Controller Overrides
253
254 - (NSString *)windowNibName
255 {
256     return @"Debugger";
257 }
258
259 - (void)windowDidLoad
260 {
261     [super windowDidLoad];
262
263     [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(applicationTerminating:) name:NSApplicationWillTerminateNotification object:nil];
264
265     NSString *path = [[NSBundle mainBundle] pathForResource:@"debugger" ofType:@"html" inDirectory:nil];
266     [[webView mainFrame] loadRequest:[[[NSURLRequest alloc] initWithURL:[NSURL fileURLWithPath:path]] autorelease]];
267
268     NSToolbar *toolbar = [[NSToolbar alloc] initWithIdentifier:@"debugger"];
269     [toolbar setDelegate:self];
270     [toolbar setAllowsUserCustomization:YES];
271     [toolbar setAutosavesConfiguration:YES];
272     [[self window] setToolbar:toolbar];
273     [toolbar release];
274 }
275
276 - (void)windowWillClose:(NSNotification *)notification
277 {
278     [[webView windowScriptObject] removeWebScriptKey:@"DebuggerDocument"];
279
280     [[NSNotificationCenter defaultCenter] removeObserver:self name:NSApplicationWillTerminateNotification object:nil];
281
282     [self switchToServerNamed:nil];
283
284     [self autorelease]; // DebuggerApplication expects us to release on close
285 }
286
287 #pragma mark -
288 #pragma mark Connection Handling
289
290 - (void)switchToServerNamed:(NSString *)name
291 {
292     if (server) {
293         [[NSNotificationCenter defaultCenter] removeObserver:self name:NSConnectionDidDieNotification object:[(NSDistantObject *)server connectionForProxy]];
294         if ([[(NSDistantObject *)server connectionForProxy] isValid]) {
295             [server removeListener:self];
296             [self resume];
297         }
298     }
299
300     id old = server;
301     server = ([name length] ? [[NSConnection rootProxyForConnectionWithRegisteredName:name host:nil] retain] : nil);
302     [old release];
303
304     old = currentServerName;
305     currentServerName = [name copy];
306     [old release];
307
308     if (server) {
309         @try {
310             [(NSDistantObject *)server setProtocolForProxy:@protocol(WebScriptDebugServer)];
311             [server addListener:self];
312         } @catch (NSException *exception) {
313             [currentServerName release];
314             currentServerName = nil;
315             [server release];
316             server = nil;
317         }
318
319         if (server)
320             [[NSNotificationCenter defaultCenter] addObserver:self selector:@selector(serverConnectionDidDie:) name:NSConnectionDidDieNotification object:[(NSDistantObject *)server connectionForProxy]];  
321     }
322 }
323
324 - (void)applicationTerminating:(NSNotification *)notifiction
325 {
326     if (server && [[(NSDistantObject *)server connectionForProxy] isValid]) {
327         [self switchToServerNamed:nil];
328         // call the runloop for a while to make sure our removeListener: is sent to the server
329         [[NSRunLoop currentRunLoop] runUntilDate:[NSDate dateWithTimeIntervalSinceNow:0.25]];
330     }
331 }
332
333 - (void)serverConnectionDidDie:(NSNotification *)notifiction
334 {
335     [self switchToServerNamed:nil];
336 }
337
338 #pragma mark -
339 #pragma mark Toolbar Delegate
340
341 - (NSToolbarItem *)toolbar:(NSToolbar *)toolbar itemForItemIdentifier:(NSString *)itemIdentifier willBeInsertedIntoToolbar:(BOOL)flag
342 {
343     if ([itemIdentifier isEqualToString:DebuggerContinueToolbarItem]) {
344         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
345
346         [item setLabel:@"Continue"];
347         [item setPaletteLabel:@"Continue"];
348
349         [item setToolTip:@"Continue script execution"];
350         [item setImage:[NSImage imageNamed:@"continue"]];
351
352         [item setTarget:self];
353         [item setAction:@selector(resume:)];
354
355         return [item autorelease];
356     } else if ([itemIdentifier isEqualToString:DebuggerConsoleToolbarItem]) {
357         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
358
359         [item setLabel:@"Console"];
360         [item setPaletteLabel:@"Console"];
361
362         [item setToolTip:@"Console"];
363         [item setImage:[NSImage imageNamed:@"console"]];
364
365         [item setTarget:self];
366         [item setAction:@selector(showConsole:)];
367
368         return [item autorelease];
369     } else if ([itemIdentifier isEqualToString:DebuggerPauseToolbarItem]) {
370         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
371
372         [item setLabel:@"Pause"];
373         [item setPaletteLabel:@"Pause"];
374
375         [item setToolTip:@"Pause script execution"];
376         [item setImage:[NSImage imageNamed:@"pause"]];
377
378         [item setTarget:self];
379         [item setAction:@selector(pause:)];
380
381         return [item autorelease];
382     } else if ([itemIdentifier isEqualToString:DebuggerStepIntoToolbarItem]) {
383         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
384
385         [item setLabel:@"Step Into"];
386         [item setPaletteLabel:@"Step Into"];
387
388         [item setToolTip:@"Step into function call"];
389         [item setImage:[NSImage imageNamed:@"step"]];
390
391         [item setTarget:self];
392         [item setAction:@selector(stepInto:)];
393
394         return [item autorelease];
395     } else if ([itemIdentifier isEqualToString:DebuggerStepOverToolbarItem]) {
396         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
397
398         [item setLabel:@"Step Over"];
399         [item setPaletteLabel:@"Step Over"];
400
401         [item setToolTip:@"Step over function call"];
402         [item setImage:[NSImage imageNamed:@"stepOver"]];
403
404         [item setTarget:self];
405         [item setAction:@selector(stepOver:)];
406
407         return [item autorelease];
408     } else if ([itemIdentifier isEqualToString:DebuggerStepOutToolbarItem]) {
409         NSToolbarItem *item = [[NSToolbarItem alloc] initWithItemIdentifier:itemIdentifier];
410
411         [item setLabel:@"Step Out"];
412         [item setPaletteLabel:@"Step Over"];
413
414         [item setToolTip:@"Step out of current function"];
415         [item setImage:[NSImage imageNamed:@"stepOut"]];
416
417         [item setTarget:self];
418         [item setAction:@selector(stepOut:)];
419
420         return [item autorelease];
421     }
422
423     return nil;
424 }
425
426 - (NSArray *)toolbarDefaultItemIdentifiers:(NSToolbar*)toolbar
427 {
428     return [NSArray arrayWithObjects:DebuggerContinueToolbarItem, DebuggerPauseToolbarItem,
429         NSToolbarSeparatorItemIdentifier, DebuggerStepIntoToolbarItem, DebuggerStepOutToolbarItem,
430         DebuggerStepOverToolbarItem, NSToolbarFlexibleSpaceItemIdentifier, DebuggerConsoleToolbarItem, nil];
431 }
432
433 - (NSArray *)toolbarAllowedItemIdentifiers:(NSToolbar*)toolbar
434 {
435     return [NSArray arrayWithObjects:DebuggerConsoleToolbarItem, DebuggerContinueToolbarItem, DebuggerPauseToolbarItem,
436         DebuggerStepIntoToolbarItem, DebuggerStepOutToolbarItem, DebuggerStepOverToolbarItem, NSToolbarCustomizeToolbarItemIdentifier,
437         NSToolbarFlexibleSpaceItemIdentifier, NSToolbarSpaceItemIdentifier, NSToolbarSeparatorItemIdentifier, nil];
438 }
439
440 - (BOOL)validateUserInterfaceItem:(id <NSValidatedUserInterfaceItem>)interfaceItem
441 {
442     SEL action = [interfaceItem action];
443     if (action == @selector(pause:))
444         return ![self isPaused];
445     if (action == @selector(resume:) ||
446         action == @selector(stepOver:) ||
447         action == @selector(stepOut:) ||
448         action == @selector(stepInto:))
449         return [self isPaused];
450     return YES;
451 }
452
453 #pragma mark -
454 #pragma mark WebView UI Delegate
455
456 - (WebView *)webView:(WebView *)sender createWebViewWithRequest:(NSURLRequest *)request
457 {
458     WebView *newWebView = [[WebView alloc] initWithFrame:NSZeroRect frameName:nil groupName:nil];
459     [newWebView setAutoresizingMask:(NSViewWidthSizable | NSViewHeightSizable)];
460     [newWebView setUIDelegate:self];
461     [newWebView setPolicyDelegate:self];
462     [newWebView setFrameLoadDelegate:self];
463     if (request)
464         [[newWebView mainFrame] loadRequest:request];
465
466     NSWindow *window = [[NSWindow alloc] initWithContentRect:NSZeroRect styleMask:(NSTitledWindowMask | NSClosableWindowMask | NSMiniaturizableWindowMask | NSResizableWindowMask | NSUnifiedTitleAndToolbarWindowMask) backing:NSBackingStoreBuffered defer:NO screen:[[webView window] screen]];
467     [window setReleasedWhenClosed:YES];
468     [newWebView setFrame:[[window contentView] frame]];
469     [[window contentView] addSubview:newWebView];
470     [newWebView release];
471
472     return newWebView;
473 }
474
475 - (void)webViewShow:(WebView *)sender
476 {
477     [[sender window] makeKeyAndOrderFront:sender];
478 }
479
480 - (BOOL)webViewAreToolbarsVisible:(WebView *)sender
481 {
482     return [[[sender window] toolbar] isVisible];
483 }
484
485 - (void)webView:(WebView *)sender setToolbarsVisible:(BOOL)visible
486 {
487     [[[sender window] toolbar] setVisible:visible];
488 }
489
490 - (void)webView:(WebView *)sender setResizable:(BOOL)resizable
491 {
492     [[sender window] setShowsResizeIndicator:resizable];
493     [[[sender window] standardWindowButton:NSWindowZoomButton] setEnabled:resizable];
494 }
495
496 - (void)webView:(WebView *)sender runJavaScriptAlertPanelWithMessage:(NSString *)message initiatedByFrame:(WebFrame *)frame
497 {
498     NSRange range = [message rangeOfString:@"\t"];
499     NSString *title = @"Alert";
500     if (range.location != NSNotFound) {
501         title = [message substringToIndex:range.location];
502         message = [message substringFromIndex:(range.location + range.length)];
503     }
504
505     NSBeginInformationalAlertSheet(title, nil, nil, nil, [sender window], nil, NULL, NULL, NULL, message);
506 }
507
508 - (void)scriptConfirmSheetDidEnd:(NSWindow *)sheet returnCode:(int)returnCode contextInfo:(int *)contextInfo
509 {
510     *contextInfo = returnCode;
511 }
512
513 - (BOOL)webView:(WebView *)sender runJavaScriptConfirmPanelWithMessage:(NSString *)message initiatedByFrame:(WebFrame *)frame
514 {
515     NSRange range = [message rangeOfString:@"\t"];
516     NSString *title = @"Alert";
517     if (range.location != NSNotFound) {
518         title = [message substringToIndex:range.location];
519         message = [message substringFromIndex:(range.location + range.length)];
520     }
521
522     int result = NSNotFound;
523     NSBeginInformationalAlertSheet(title, nil, @"Cancel", nil, [sender window], self, @selector(scriptConfirmSheetDidEnd:returnCode:contextInfo:), NULL, &result, message);
524
525     while (result == NSNotFound) {
526         NSEvent *nextEvent = [[NSApplication sharedApplication] nextEventMatchingMask:NSAnyEventMask untilDate:[NSDate distantFuture] inMode:NSDefaultRunLoopMode dequeue:YES];
527         [[NSApplication sharedApplication] sendEvent:nextEvent];
528     }
529
530     return result;
531 }
532
533 #pragma mark -
534 #pragma mark WebView Frame Load Delegate
535
536 - (void)webView:(WebView *)sender windowScriptObjectAvailable:(WebScriptObject *)windowScriptObject
537 {
538     // note: this is the Debuggers's own WebView, not the one being debugged
539     if ([[sender window] isEqual:[self window]])
540         [[sender windowScriptObject] setValue:self forKey:@"DebuggerDocument"];
541 }
542
543 - (void)webView:(WebView *)sender didFinishLoadForFrame:(WebFrame *)frame
544 {
545     // note: this is the Debuggers's own WebView, not the one being debugged
546     if ([[sender window] isEqual:[self window]])
547         webViewLoaded = YES;
548 }
549
550 - (void)webView:(WebView *)sender didReceiveTitle:(NSString *)title forFrame:(WebFrame *)frame
551 {
552     // note: this is the Debuggers's own WebViews, not the one being debugged
553     if ([frame isEqual:[sender mainFrame]]) {
554         NSDictionary *info = [[(DebuggerApplication *)[[NSApplication sharedApplication] delegate] knownServers] objectForKey:currentServerName];
555         NSString *processName = [info objectForKey:WebScriptDebugServerProcessNameKey];
556         if (info && [processName length]) {
557             NSMutableString *newTitle = [[NSMutableString alloc] initWithString:processName];
558             [newTitle appendString:@" - "];
559             [newTitle appendString:title];
560             [[sender window] setTitle:newTitle];
561             [newTitle release];
562         } else 
563             [[sender window] setTitle:title];
564     }
565 }
566
567 #pragma mark -
568 #pragma mark Debug Listener Callbacks
569
570 - (void)webView:(WebView *)view didLoadMainResourceForDataSource:(WebDataSource *)dataSource
571 {
572     NSString *documentSourceCopy = nil;
573     id <WebDocumentRepresentation> rep = [dataSource representation];
574     if ([rep canProvideDocumentSource])
575         documentSourceCopy = [[rep documentSource] copy];
576
577     if (!documentSourceCopy)
578         return;
579
580     NSString *urlCopy = [[[[dataSource response] URL] absoluteString] copy];
581     NSArray *args = [[NSArray alloc] initWithObjects:(documentSourceCopy ? documentSourceCopy : @""), (urlCopy ? urlCopy : @""), [NSNumber numberWithBool:NO], nil];
582     [[webView windowScriptObject] callWebScriptMethod:@"updateFileSource" withArguments:args];
583
584     [args release];
585     [documentSourceCopy release];
586     [urlCopy release];
587 }
588
589 - (void)webView:(WebView *)view didParseSource:(NSString *)source baseLineNumber:(unsigned)baseLine fromURL:(NSURL *)url sourceId:(int)sid forWebFrame:(WebFrame *)webFrame
590 {
591     if (!webViewLoaded)
592         return;
593
594     NSString *sourceCopy = [source copy];
595     if (!sourceCopy)
596         return;
597
598     NSString *documentSourceCopy = nil;
599     NSString *urlCopy = [[url absoluteString] copy];
600
601     WebDataSource *dataSource = [webFrame dataSource];
602     if (!url || [[[dataSource response] URL] isEqual:url]) {
603         id <WebDocumentRepresentation> rep = [dataSource representation];
604         if ([rep canProvideDocumentSource])
605             documentSourceCopy = [[rep documentSource] copy];
606         if (!urlCopy)
607             urlCopy = [[[[dataSource response] URL] absoluteString] copy];
608     }
609
610     NSArray *args = [[NSArray alloc] initWithObjects:sourceCopy, (documentSourceCopy ? documentSourceCopy : @""), (urlCopy ? urlCopy : @""), [NSNumber numberWithInt:sid], [NSNumber numberWithUnsignedInt:baseLine], nil];
611     [[webView windowScriptObject] callWebScriptMethod:@"didParseScript" withArguments:args];
612
613     [args release];
614     [sourceCopy release];
615     [documentSourceCopy release];
616     [urlCopy release];
617 }
618
619 - (void)webView:(WebView *)view failedToParseSource:(NSString *)source baseLineNumber:(unsigned)baseLine fromURL:(NSURL *)url withError:(NSError *)error forWebFrame:(WebFrame *)webFrame
620 {
621 }
622
623 - (void)webView:(WebView *)view didEnterCallFrame:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
624 {
625     if (!webViewLoaded)
626         return;
627
628     id old = currentFrame;
629     currentFrame = [frame retain];
630     [old release];
631
632     NSArray *args = [[NSArray alloc] initWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
633     [[webView windowScriptObject] callWebScriptMethod:@"didEnterCallFrame" withArguments:args];
634     [args release];
635 }
636
637 - (void)webView:(WebView *)view willExecuteStatement:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
638 {
639     if (!webViewLoaded)
640         return;
641
642     NSArray *args = [[NSArray alloc] initWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
643     [[webView windowScriptObject] callWebScriptMethod:@"willExecuteStatement" withArguments:args];
644     [args release];
645 }
646
647 - (void)webView:(WebView *)view willLeaveCallFrame:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
648 {
649     if (!webViewLoaded)
650         return;
651
652     NSArray *args = [[NSArray alloc] initWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
653     [[webView windowScriptObject] callWebScriptMethod:@"willLeaveCallFrame" withArguments:args];
654     [args release];
655
656     id old = currentFrame;
657     currentFrame = [[frame caller] retain];
658     [old release];
659 }
660
661 - (void)webView:(WebView *)view exceptionWasRaised:(WebScriptCallFrame *)frame sourceId:(int)sid line:(int)lineno forWebFrame:(WebFrame *)webFrame
662 {
663     if (!webViewLoaded)
664         return;
665
666     NSArray *args = [[NSArray alloc] initWithObjects:[NSNumber numberWithInt:sid], [NSNumber numberWithInt:lineno], nil];
667     [[webView windowScriptObject] callWebScriptMethod:@"exceptionWasRaised" withArguments:args];
668     [args release];
669 }
670 @end