Remove -enteredFrame:, -leavingFrame:, and -exceptionRaised: from WebScriptDe...
[WebKit-https.git] / WebKit / mac / WebView / WebCoreScriptDebuggerImp.mm
1 /*
2  * Copyright (C) 2008 Apple 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 // FIXME: This file and class should be renamed WebScriptDebugger
30
31 #include "WebCoreScriptDebuggerImp.h"
32
33 #include "WebFrameInternal.h"
34 #include "WebViewInternal.h"
35 #include "WebScriptDebugDelegatePrivate.h"
36 #include "WebScriptDebugServerPrivate.h"
37 #include <JavaScriptCore/JSGlobalObject.h>
38 #include <WebCore/KURL.h>
39
40 using namespace KJS;
41 using namespace WebCore;
42
43 // convert UString to NSString
44 NSString *toNSString(const UString& s)
45 {
46     if (s.isEmpty())
47         return nil;
48     return [NSString stringWithCharacters:reinterpret_cast<const unichar*>(s.data()) length:s.size()];
49 }
50
51 // convert UString to NSURL
52 static NSURL *toNSURL(const UString& s)
53 {
54     if (s.isEmpty())
55         return nil;
56     return KURL(s);
57 }
58
59 WebCoreScriptDebuggerImp::WebCoreScriptDebuggerImp(WebScriptDebugger *debugger, JSGlobalObject* globalObject)
60     : m_debugger(debugger)
61     , m_callingDelegate(false)
62     , m_topCallFrame(nil)
63 {
64     attach(globalObject);
65     List emptyList;
66     callEvent(globalObject->globalExec(), -1, -1, 0, emptyList);
67 }
68
69 // callbacks - relay to delegate
70 bool WebCoreScriptDebuggerImp::sourceParsed(ExecState* state, int sourceID, const UString& url, const UString& source, int lineNumber, int errorLine, const UString& errorMsg)
71 {
72     if (m_callingDelegate)
73         return true;
74
75     m_callingDelegate = true;
76     [m_debugger parsedSource:toNSString(source) fromURL:toNSURL(url) sourceId:sourceID startLine:lineNumber errorLine:errorLine errorMessage:toNSString(errorMsg)];
77     m_callingDelegate = false;
78
79     return true;
80 }
81
82 bool WebCoreScriptDebuggerImp::callEvent(ExecState* state, int sourceID, int lineNumber, JSObject*, const List&)
83 {
84     if (m_callingDelegate)
85         return true;
86
87     m_callingDelegate = true;
88     m_topCallFrame = [m_debugger enterFrame:state];
89
90     WebFrame *webFrame = [m_debugger webFrame];
91     WebView *webView = [webFrame webView];
92     [[webView _scriptDebugDelegateForwarder] webView:webView didEnterCallFrame:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
93     if ([WebScriptDebugServer listenerCount])
94         [[WebScriptDebugServer sharedScriptDebugServer] webView:webView didEnterCallFrame:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
95
96     m_callingDelegate = false;
97
98     return true;
99 }
100
101 bool WebCoreScriptDebuggerImp::atStatement(ExecState* state, int sourceID, int lineNumber, int)
102 {
103     if (m_callingDelegate)
104         return true;
105
106     m_callingDelegate = true;
107
108     WebFrame *webFrame = [m_debugger webFrame];
109     WebView *webView = [webFrame webView];
110     [[webView _scriptDebugDelegateForwarder] webView:webView willExecuteStatement:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
111     if ([WebScriptDebugServer listenerCount])
112         [[WebScriptDebugServer sharedScriptDebugServer] webView:webView willExecuteStatement:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
113
114     m_callingDelegate = false;
115
116     return true;
117 }
118
119 bool WebCoreScriptDebuggerImp::returnEvent(ExecState* state, int sourceID, int lineNumber, JSObject*)
120 {
121     if (m_callingDelegate)
122         return true;
123
124     m_callingDelegate = true;
125
126     WebFrame *webFrame = [m_debugger webFrame];
127     WebView *webView = [webFrame webView];
128     [[webView _scriptDebugDelegateForwarder] webView:webView willLeaveCallFrame:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
129     if ([WebScriptDebugServer listenerCount])
130         [[WebScriptDebugServer sharedScriptDebugServer] webView:webView willLeaveCallFrame:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
131
132     m_topCallFrame = [m_debugger leaveFrame];
133     m_callingDelegate = false;
134
135     return true;
136 }
137
138 bool WebCoreScriptDebuggerImp::exception(ExecState* state, int sourceID, int lineNumber, JSValue*)
139 {
140     if (m_callingDelegate)
141         return true;
142
143     m_callingDelegate = true;
144
145     WebFrame *webFrame = [m_debugger webFrame];
146     WebView *webView = [webFrame webView];
147     [[webView _scriptDebugDelegateForwarder] webView:webView exceptionWasRaised:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
148     if ([WebScriptDebugServer listenerCount])
149         [[WebScriptDebugServer sharedScriptDebugServer] webView:webView exceptionWasRaised:m_topCallFrame sourceId:sourceID line:lineNumber forWebFrame:webFrame];
150
151     m_callingDelegate = false;
152
153     return true;
154 }