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