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