wined3d: Make the device parameter to wined3d_device_get_ps_consts_i() const.
[wine] / dlls / jscript / jscript.c
CommitLineData
0750bfbb
JC
1/*
2 * Copyright 2008 Jacek Caban for CodeWeavers
3 *
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
8 *
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17 */
18
244a6951
JC
19#include <assert.h>
20
0750bfbb 21#include "jscript.h"
9ebdd111 22#include "engine.h"
cd0213bc 23#include "objsafe.h"
0750bfbb
JC
24
25#include "wine/debug.h"
26
27WINE_DEFAULT_DEBUG_CHANNEL(jscript);
28
0194b8f0
JC
29#ifdef _WIN64
30
31#define CTXARG_T DWORDLONG
32#define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
2e29c7d5 33#define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
0194b8f0
JC
34
35#else
36
37#define CTXARG_T DWORD
38#define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
2e29c7d5 39#define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
0194b8f0
JC
40
41#endif
42
0750bfbb 43typedef struct {
3b1d9d43
MS
44 IActiveScript IActiveScript_iface;
45 IActiveScriptParse IActiveScriptParse_iface;
46 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface;
47 IActiveScriptProperty IActiveScriptProperty_iface;
48 IObjectSafety IObjectSafety_iface;
0750bfbb
JC
49
50 LONG ref;
7d95c210
JC
51
52 DWORD safeopt;
d19cdef8 53 script_ctx_t *ctx;
268a92be 54 LONG thread_id;
89327655 55 LCID lcid;
3b2d5ecd 56 DWORD version;
268a92be
JC
57
58 IActiveScriptSite *site;
69f8b4b9
JC
59
60 parser_ctx_t *queue_head;
61 parser_ctx_t *queue_tail;
0750bfbb
JC
62} JScript;
63
d19cdef8
JC
64void script_release(script_ctx_t *ctx)
65{
66 if(--ctx->ref)
67 return;
68
45e33ec2
JC
69 if(ctx->cc)
70 release_cc(ctx->cc);
4ac24dc2 71 jsheap_free(&ctx->tmp_heap);
32c61c50 72 SysFreeString(ctx->last_match);
d19cdef8
JC
73 heap_free(ctx);
74}
75
268a92be
JC
76static void change_state(JScript *This, SCRIPTSTATE state)
77{
78 if(This->ctx->state == state)
79 return;
80
81 This->ctx->state = state;
244a6951
JC
82 if(This->site)
83 IActiveScriptSite_OnStateChange(This->site, state);
268a92be
JC
84}
85
69f8b4b9
JC
86static inline BOOL is_started(script_ctx_t *ctx)
87{
88 return ctx->state == SCRIPTSTATE_STARTED
89 || ctx->state == SCRIPTSTATE_CONNECTED
90 || ctx->state == SCRIPTSTATE_DISCONNECTED;
91}
92
93static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
94{
95 exec_ctx_t *exec_ctx;
96 jsexcept_t jsexcept;
69f8b4b9
JC
97 HRESULT hres;
98
35968b97 99 hres = create_exec_ctx(This->ctx, NULL, This->ctx->global, NULL, TRUE, &exec_ctx);
69f8b4b9
JC
100 if(FAILED(hres))
101 return hres;
102
103 IActiveScriptSite_OnEnterScript(This->site);
104
105 memset(&jsexcept, 0, sizeof(jsexcept));
35968b97 106 hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, FALSE, &jsexcept, NULL);
69f8b4b9
JC
107 VariantClear(&jsexcept.var);
108 exec_release(exec_ctx);
69f8b4b9
JC
109
110 IActiveScriptSite_OnLeaveScript(This->site);
69f8b4b9
JC
111 return hres;
112}
113
114static void clear_script_queue(JScript *This)
115{
116 parser_ctx_t *iter, *iter2;
117
118 if(!This->queue_head)
119 return;
120
121 iter = This->queue_head;
122 while(iter) {
123 iter2 = iter->next;
124 iter->next = NULL;
125 parser_release(iter);
126 iter = iter2;
127 }
128
129 This->queue_head = This->queue_tail = NULL;
130}
131
51a2ccb4
JC
132static void exec_queued_code(JScript *This)
133{
134 parser_ctx_t *iter;
135
136 for(iter = This->queue_head; iter; iter = iter->next)
137 exec_global_code(This, iter);
138
139 clear_script_queue(This);
140}
141
89327655
JC
142static HRESULT set_ctx_site(JScript *This)
143{
144 HRESULT hres;
145
146 This->ctx->lcid = This->lcid;
147
89327655
JC
148 hres = init_global(This->ctx);
149 if(FAILED(hres))
150 return hres;
151
4eb80d8d
JC
152 IActiveScriptSite_AddRef(This->site);
153 This->ctx->site = This->site;
154
89327655
JC
155 change_state(This, SCRIPTSTATE_INITIALIZED);
156 return S_OK;
157}
158
244a6951
JC
159static void decrease_state(JScript *This, SCRIPTSTATE state)
160{
161 if(This->ctx) {
162 switch(This->ctx->state) {
163 case SCRIPTSTATE_CONNECTED:
164 change_state(This, SCRIPTSTATE_DISCONNECTED);
165 if(state == SCRIPTSTATE_DISCONNECTED)
166 return;
7e7b4488 167 /* FALLTHROUGH */
244a6951
JC
168 case SCRIPTSTATE_STARTED:
169 case SCRIPTSTATE_DISCONNECTED:
170 clear_script_queue(This);
171
172 if(This->ctx->state == SCRIPTSTATE_DISCONNECTED)
173 change_state(This, SCRIPTSTATE_INITIALIZED);
174 if(state == SCRIPTSTATE_INITIALIZED)
175 return;
7e7b4488 176 /* FALLTHROUGH */
244a6951
JC
177 case SCRIPTSTATE_INITIALIZED:
178 if(This->ctx->host_global) {
179 IDispatch_Release(This->ctx->host_global);
180 This->ctx->host_global = NULL;
181 }
182
183 if(This->ctx->named_items) {
184 named_item_t *iter, *iter2;
185
186 iter = This->ctx->named_items;
187 while(iter) {
188 iter2 = iter->next;
189
190 if(iter->disp)
191 IDispatch_Release(iter->disp);
192 heap_free(iter->name);
193 heap_free(iter);
194 iter = iter2;
195 }
196
197 This->ctx->named_items = NULL;
198 }
199
200 if(This->ctx->secmgr) {
201 IInternetHostSecurityManager_Release(This->ctx->secmgr);
202 This->ctx->secmgr = NULL;
203 }
204
205 if(This->ctx->site) {
206 IActiveScriptSite_Release(This->ctx->site);
207 This->ctx->site = NULL;
208 }
209
210 if(This->ctx->global) {
211 jsdisp_release(This->ctx->global);
212 This->ctx->global = NULL;
213 }
7e7b4488 214 /* FALLTHROUGH */
244a6951
JC
215 case SCRIPTSTATE_UNINITIALIZED:
216 change_state(This, state);
217 break;
218 default:
219 assert(0);
220 }
221
222 change_state(This, state);
223 }else if(state == SCRIPTSTATE_UNINITIALIZED) {
224 if(This->site)
225 IActiveScriptSite_OnStateChange(This->site, state);
226 }else {
227 FIXME("NULL ctx\n");
228 }
229
230 if(state == SCRIPTSTATE_UNINITIALIZED)
231 This->thread_id = 0;
232
233 if(This->site) {
234 IActiveScriptSite_Release(This->site);
235 This->site = NULL;
236 }
237}
238
06f26f53 239typedef struct {
568b0d5c 240 IServiceProvider IServiceProvider_iface;
06f26f53
JC
241
242 LONG ref;
243
244 IServiceProvider *sp;
245} AXSite;
246
568b0d5c
MS
247static inline AXSite *impl_from_IServiceProvider(IServiceProvider *iface)
248{
249 return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
250}
06f26f53
JC
251
252static HRESULT WINAPI AXSite_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
253{
568b0d5c 254 AXSite *This = impl_from_IServiceProvider(iface);
06f26f53
JC
255
256 if(IsEqualGUID(&IID_IUnknown, riid)) {
257 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
568b0d5c 258 *ppv = &This->IServiceProvider_iface;
06f26f53
JC
259 }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
260 TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
568b0d5c 261 *ppv = &This->IServiceProvider_iface;
06f26f53
JC
262 }else {
263 TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
264 *ppv = NULL;
265 return E_NOINTERFACE;
266 }
267
268 IUnknown_AddRef((IUnknown*)*ppv);
269 return S_OK;
270}
271
272static ULONG WINAPI AXSite_AddRef(IServiceProvider *iface)
273{
568b0d5c 274 AXSite *This = impl_from_IServiceProvider(iface);
06f26f53
JC
275 LONG ref = InterlockedIncrement(&This->ref);
276
277 TRACE("(%p) ref=%d\n", This, ref);
278
279 return ref;
280}
281
282static ULONG WINAPI AXSite_Release(IServiceProvider *iface)
283{
568b0d5c 284 AXSite *This = impl_from_IServiceProvider(iface);
06f26f53
JC
285 LONG ref = InterlockedDecrement(&This->ref);
286
287 TRACE("(%p) ref=%d\n", This, ref);
288
289 if(!ref)
290 heap_free(This);
291
292 return ref;
293}
294
295static HRESULT WINAPI AXSite_QueryService(IServiceProvider *iface,
296 REFGUID guidService, REFIID riid, void **ppv)
297{
568b0d5c 298 AXSite *This = impl_from_IServiceProvider(iface);
06f26f53
JC
299
300 TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
301
302 return IServiceProvider_QueryService(This->sp, guidService, riid, ppv);
303}
304
06f26f53
JC
305static IServiceProviderVtbl AXSiteVtbl = {
306 AXSite_QueryInterface,
307 AXSite_AddRef,
308 AXSite_Release,
309 AXSite_QueryService
310};
311
312IUnknown *create_ax_site(script_ctx_t *ctx)
313{
314 IServiceProvider *sp;
315 AXSite *ret;
316 HRESULT hres;
317
318 hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
319 if(FAILED(hres)) {
320 ERR("Could not get IServiceProvider iface: %08x\n", hres);
321 return NULL;
322 }
323
324 ret = heap_alloc(sizeof(AXSite));
325 if(!ret) {
326 IServiceProvider_Release(sp);
327 return NULL;
328 }
329
568b0d5c 330 ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
06f26f53
JC
331 ret->ref = 1;
332 ret->sp = sp;
333
568b0d5c 334 return (IUnknown*)&ret->IServiceProvider_iface;
06f26f53
JC
335}
336
3b1d9d43
MS
337static inline JScript *impl_from_IActiveScript(IActiveScript *iface)
338{
339 return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
340}
0750bfbb
JC
341
342static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
343{
3b1d9d43 344 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
345
346 *ppv = NULL;
347
348 if(IsEqualGUID(riid, &IID_IUnknown)) {
349 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
3b1d9d43 350 *ppv = &This->IActiveScript_iface;
0750bfbb
JC
351 }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
352 TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
3b1d9d43 353 *ppv = &This->IActiveScript_iface;
12a58984
JC
354 }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
355 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
3b1d9d43 356 *ppv = &This->IActiveScriptParse_iface;
a0d8cbc6
JC
357 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
358 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
3b1d9d43 359 *ppv = &This->IActiveScriptParseProcedure2_iface;
a0d8cbc6
JC
360 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
361 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
3b1d9d43 362 *ppv = &This->IActiveScriptParseProcedure2_iface;
9ff3c395
JC
363 }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
364 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
3b1d9d43 365 *ppv = &This->IActiveScriptProperty_iface;
cd0213bc
JC
366 }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
367 TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
3b1d9d43 368 *ppv = &This->IObjectSafety_iface;
0750bfbb
JC
369 }
370
371 if(*ppv) {
372 IUnknown_AddRef((IUnknown*)*ppv);
373 return S_OK;
374 }
375
376 FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
377 return E_NOINTERFACE;
378}
379
380static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
381{
3b1d9d43 382 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
383 LONG ref = InterlockedIncrement(&This->ref);
384
385 TRACE("(%p) ref=%d\n", This, ref);
386
387 return ref;
388}
389
390static ULONG WINAPI JScript_Release(IActiveScript *iface)
391{
3b1d9d43 392 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
393 LONG ref = InterlockedDecrement(&This->ref);
394
395 TRACE("(%p) ref=%d\n", iface, ref);
396
8d4aa7de 397 if(!ref) {
9efb87ea 398 if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
3b1d9d43 399 IActiveScript_Close(&This->IActiveScript_iface);
d19cdef8
JC
400 if(This->ctx)
401 script_release(This->ctx);
0750bfbb 402 heap_free(This);
8d4aa7de
JC
403 unlock_module();
404 }
0750bfbb
JC
405
406 return ref;
407}
408
409static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
410 IActiveScriptSite *pass)
411{
3b1d9d43 412 JScript *This = impl_from_IActiveScript(iface);
268a92be
JC
413 LCID lcid;
414 HRESULT hres;
415
416 TRACE("(%p)->(%p)\n", This, pass);
417
418 if(!pass)
419 return E_POINTER;
420
421 if(This->site)
422 return E_UNEXPECTED;
423
268a92be
JC
424 if(InterlockedCompareExchange(&This->thread_id, GetCurrentThreadId(), 0))
425 return E_UNEXPECTED;
426
427 This->site = pass;
428 IActiveScriptSite_AddRef(This->site);
429
430 hres = IActiveScriptSite_GetLCID(This->site, &lcid);
431 if(hres == S_OK)
849c36ba 432 This->lcid = lcid;
268a92be 433
89327655 434 return This->ctx ? set_ctx_site(This) : S_OK;
0750bfbb
JC
435}
436
437static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
438 void **ppvObject)
439{
3b1d9d43 440 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
441 FIXME("(%p)->()\n", This);
442 return E_NOTIMPL;
443}
444
445static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
446{
3b1d9d43 447 JScript *This = impl_from_IActiveScript(iface);
51a2ccb4
JC
448
449 TRACE("(%p)->(%d)\n", This, ss);
450
244a6951
JC
451 if(This->thread_id && GetCurrentThreadId() != This->thread_id)
452 return E_UNEXPECTED;
453
454 if(ss == SCRIPTSTATE_UNINITIALIZED) {
455 if(This->ctx && This->ctx->state == SCRIPTSTATE_CLOSED)
456 return E_UNEXPECTED;
457
458 decrease_state(This, SCRIPTSTATE_UNINITIALIZED);
459 return S_OK;
460 }
461
462 if(!This->ctx)
51a2ccb4
JC
463 return E_UNEXPECTED;
464
465 switch(ss) {
466 case SCRIPTSTATE_STARTED:
73658a8b 467 case SCRIPTSTATE_CONNECTED: /* FIXME */
51a2ccb4
JC
468 if(This->ctx->state == SCRIPTSTATE_CLOSED)
469 return E_UNEXPECTED;
470
471 exec_queued_code(This);
472 break;
c2106186
JC
473 case SCRIPTSTATE_INITIALIZED:
474 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
475 return S_OK;
51a2ccb4
JC
476 default:
477 FIXME("unimplemented state %d\n", ss);
478 return E_NOTIMPL;
479 }
480
481 change_state(This, ss);
482 return S_OK;
0750bfbb
JC
483}
484
485static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
486{
3b1d9d43 487 JScript *This = impl_from_IActiveScript(iface);
db21502d
JC
488
489 TRACE("(%p)->(%p)\n", This, pssState);
490
491 if(!pssState)
492 return E_POINTER;
493
244a6951 494 if(This->thread_id && This->thread_id != GetCurrentThreadId())
db21502d
JC
495 return E_UNEXPECTED;
496
497 *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
498 return S_OK;
0750bfbb
JC
499}
500
501static HRESULT WINAPI JScript_Close(IActiveScript *iface)
502{
3b1d9d43 503 JScript *This = impl_from_IActiveScript(iface);
9efb87ea
JC
504
505 TRACE("(%p)->()\n", This);
506
244a6951 507 if(This->thread_id && This->thread_id != GetCurrentThreadId())
9efb87ea
JC
508 return E_UNEXPECTED;
509
244a6951 510 decrease_state(This, SCRIPTSTATE_CLOSED);
9efb87ea 511 return S_OK;
0750bfbb
JC
512}
513
514static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
515 LPCOLESTR pstrName, DWORD dwFlags)
516{
3b1d9d43 517 JScript *This = impl_from_IActiveScript(iface);
2bbd9d41 518 named_item_t *item;
4eb80d8d 519 IDispatch *disp = NULL;
2bbd9d41
JC
520 HRESULT hres;
521
522 TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
523
524 if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
525 return E_UNEXPECTED;
526
4eb80d8d
JC
527 if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
528 IUnknown *unk;
2bbd9d41 529
4eb80d8d
JC
530 hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
531 if(FAILED(hres)) {
532 WARN("GetItemInfo failed: %08x\n", hres);
533 return hres;
534 }
535
536 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
537 IUnknown_Release(unk);
538 if(FAILED(hres)) {
539 WARN("object does not implement IDispatch\n");
540 return hres;
541 }
d833314c
JC
542
543 if(This->ctx->host_global)
544 IDispatch_Release(This->ctx->host_global);
545 IDispatch_AddRef(disp);
546 This->ctx->host_global = disp;
2bbd9d41
JC
547 }
548
549 item = heap_alloc(sizeof(*item));
550 if(!item) {
4eb80d8d
JC
551 if(disp)
552 IDispatch_Release(disp);
2bbd9d41
JC
553 return E_OUTOFMEMORY;
554 }
555
556 item->disp = disp;
557 item->flags = dwFlags;
1b51a43a
JC
558 item->name = heap_strdupW(pstrName);
559 if(!item->name) {
020245bb
JC
560 if(disp)
561 IDispatch_Release(disp);
1b51a43a
JC
562 heap_free(item);
563 return E_OUTOFMEMORY;
564 }
565
2bbd9d41
JC
566 item->next = This->ctx->named_items;
567 This->ctx->named_items = item;
568
569 return S_OK;
0750bfbb
JC
570}
571
572static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
573 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
574{
3b1d9d43 575 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
576 FIXME("(%p)->()\n", This);
577 return E_NOTIMPL;
578}
579
580static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
581 IDispatch **ppdisp)
582{
3b1d9d43 583 JScript *This = impl_from_IActiveScript(iface);
c62c4f89
JC
584
585 TRACE("(%p)->(%p)\n", This, ppdisp);
586
587 if(!ppdisp)
588 return E_POINTER;
589
d833314c 590 if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
c62c4f89
JC
591 *ppdisp = NULL;
592 return E_UNEXPECTED;
593 }
594
ac8d2f1f 595 *ppdisp = to_disp(This->ctx->global);
c62c4f89
JC
596 IDispatch_AddRef(*ppdisp);
597 return S_OK;
0750bfbb
JC
598}
599
600static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
601 SCRIPTTHREADID *pstridThread)
602{
3b1d9d43 603 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
604 FIXME("(%p)->()\n", This);
605 return E_NOTIMPL;
606}
607
608static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
609 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
610{
3b1d9d43 611 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
612 FIXME("(%p)->()\n", This);
613 return E_NOTIMPL;
614}
615
616static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
617 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
618{
3b1d9d43 619 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
620 FIXME("(%p)->()\n", This);
621 return E_NOTIMPL;
622}
623
624static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
625 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
626{
3b1d9d43 627 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
628 FIXME("(%p)->()\n", This);
629 return E_NOTIMPL;
630}
631
632static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
633{
3b1d9d43 634 JScript *This = impl_from_IActiveScript(iface);
0750bfbb
JC
635 FIXME("(%p)->()\n", This);
636 return E_NOTIMPL;
637}
638
0750bfbb
JC
639static const IActiveScriptVtbl JScriptVtbl = {
640 JScript_QueryInterface,
641 JScript_AddRef,
642 JScript_Release,
643 JScript_SetScriptSite,
644 JScript_GetScriptSite,
645 JScript_SetScriptState,
646 JScript_GetScriptState,
647 JScript_Close,
648 JScript_AddNamedItem,
649 JScript_AddTypeLib,
650 JScript_GetScriptDispatch,
651 JScript_GetCurrentScriptThreadID,
652 JScript_GetScriptThreadID,
653 JScript_GetScriptThreadState,
654 JScript_InterruptScriptThread,
655 JScript_Clone
656};
657
3b1d9d43
MS
658static inline JScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
659{
660 return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
661}
12a58984
JC
662
663static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
664{
3b1d9d43
MS
665 JScript *This = impl_from_IActiveScriptParse(iface);
666 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
12a58984
JC
667}
668
669static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
670{
3b1d9d43
MS
671 JScript *This = impl_from_IActiveScriptParse(iface);
672 return IActiveScript_AddRef(&This->IActiveScript_iface);
12a58984
JC
673}
674
675static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
676{
3b1d9d43
MS
677 JScript *This = impl_from_IActiveScriptParse(iface);
678 return IActiveScript_Release(&This->IActiveScript_iface);
12a58984
JC
679}
680
681static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
682{
3b1d9d43 683 JScript *This = impl_from_IActiveScriptParse(iface);
d19cdef8
JC
684 script_ctx_t *ctx;
685
686 TRACE("(%p)\n", This);
687
688 if(This->ctx)
689 return E_UNEXPECTED;
690
691 ctx = heap_alloc_zero(sizeof(script_ctx_t));
692 if(!ctx)
693 return E_OUTOFMEMORY;
694
695 ctx->ref = 1;
696 ctx->state = SCRIPTSTATE_UNINITIALIZED;
6d4533a8 697 ctx->safeopt = This->safeopt;
3b2d5ecd 698 ctx->version = This->version;
4ac24dc2 699 jsheap_init(&ctx->tmp_heap);
d19cdef8
JC
700
701 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
702 if(ctx) {
703 script_release(ctx);
704 return E_UNEXPECTED;
705 }
706
89327655 707 return This->site ? set_ctx_site(This) : S_OK;
12a58984
JC
708}
709
710static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
711 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
712 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
0194b8f0 713 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
12a58984
JC
714 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
715{
3b1d9d43 716 JScript *This = impl_from_IActiveScriptParse(iface);
0194b8f0 717 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
12a58984 718 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
0194b8f0 719 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
12a58984
JC
720 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
721 return E_NOTIMPL;
722}
723
724static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
725 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
0194b8f0 726 LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
12a58984
JC
727 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
728{
3b1d9d43 729 JScript *This = impl_from_IActiveScriptParse(iface);
9ebdd111
JC
730 parser_ctx_t *parser_ctx;
731 HRESULT hres;
732
0194b8f0 733 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
12a58984 734 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
0194b8f0 735 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
9ebdd111 736
69f8b4b9
JC
737 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
738 return E_UNEXPECTED;
739
84ef7ece 740 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
9ebdd111
JC
741 if(FAILED(hres))
742 return hres;
743
69f8b4b9
JC
744 if(!is_started(This->ctx)) {
745 if(This->queue_tail)
746 This->queue_tail = This->queue_tail->next = parser_ctx;
747 else
748 This->queue_head = This->queue_tail = parser_ctx;
749 return S_OK;
750 }
751
752 hres = exec_global_code(This, parser_ctx);
9ebdd111 753 parser_release(parser_ctx);
69f8b4b9
JC
754
755 return hres;
12a58984
JC
756}
757
12a58984
JC
758static const IActiveScriptParseVtbl JScriptParseVtbl = {
759 JScriptParse_QueryInterface,
760 JScriptParse_AddRef,
761 JScriptParse_Release,
762 JScriptParse_InitNew,
763 JScriptParse_AddScriptlet,
764 JScriptParse_ParseScriptText
765};
766
3b1d9d43
MS
767static inline JScript *impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2 *iface)
768{
769 return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
770}
a0d8cbc6
JC
771
772static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
773{
3b1d9d43
MS
774 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
775 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
a0d8cbc6
JC
776}
777
778static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
779{
3b1d9d43
MS
780 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
781 return IActiveScript_AddRef(&This->IActiveScript_iface);
a0d8cbc6
JC
782}
783
784static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
785{
3b1d9d43
MS
786 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
787 return IActiveScript_Release(&This->IActiveScript_iface);
a0d8cbc6
JC
788}
789
790static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
791 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
792 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
2e29c7d5 793 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
a0d8cbc6 794{
3b1d9d43 795 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
eedc6dc7 796 parser_ctx_t *parser_ctx;
8c2a548b 797 jsdisp_t *dispex;
eedc6dc7
JC
798 HRESULT hres;
799
2e29c7d5 800 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
eedc6dc7 801 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
2e29c7d5 802 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
eedc6dc7
JC
803
804 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
805 return E_UNEXPECTED;
806
84ef7ece 807 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
eedc6dc7
JC
808 if(FAILED(hres)) {
809 WARN("Parse failed %08x\n", hres);
810 return hres;
811 }
812
5760eb80 813 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
eedc6dc7
JC
814 parser_release(parser_ctx);
815 if(FAILED(hres))
816 return hres;
817
ac8d2f1f 818 *ppdisp = to_disp(dispex);
eedc6dc7 819 return S_OK;
a0d8cbc6
JC
820}
821
a0d8cbc6
JC
822static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
823 JScriptParseProcedure_QueryInterface,
824 JScriptParseProcedure_AddRef,
825 JScriptParseProcedure_Release,
826 JScriptParseProcedure_ParseProcedureText,
827};
828
3b1d9d43
MS
829static inline JScript *impl_from_IActiveScriptProperty(IActiveScriptProperty *iface)
830{
831 return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
832}
9ff3c395
JC
833
834static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
835{
3b1d9d43
MS
836 JScript *This = impl_from_IActiveScriptProperty(iface);
837 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
9ff3c395
JC
838}
839
840static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
841{
3b1d9d43
MS
842 JScript *This = impl_from_IActiveScriptProperty(iface);
843 return IActiveScript_AddRef(&This->IActiveScript_iface);
9ff3c395
JC
844}
845
846static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
847{
3b1d9d43
MS
848 JScript *This = impl_from_IActiveScriptProperty(iface);
849 return IActiveScript_Release(&This->IActiveScript_iface);
9ff3c395
JC
850}
851
852static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
853 VARIANT *pvarIndex, VARIANT *pvarValue)
854{
3b1d9d43 855 JScript *This = impl_from_IActiveScriptProperty(iface);
9ff3c395
JC
856 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
857 return E_NOTIMPL;
858}
859
860static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
861 VARIANT *pvarIndex, VARIANT *pvarValue)
862{
3b1d9d43 863 JScript *This = impl_from_IActiveScriptProperty(iface);
3b2d5ecd
JC
864
865 TRACE("(%p)->(%x %s %s)\n", This, dwProperty, debugstr_variant(pvarIndex), debugstr_variant(pvarValue));
866
867 if(pvarIndex)
868 FIXME("unsupported pvarIndex\n");
869
870 switch(dwProperty) {
871 case SCRIPTPROP_INVOKEVERSIONING:
872 if(V_VT(pvarValue) != VT_I4 || V_I4(pvarValue) < 0 || V_I4(pvarValue) > 15) {
873 WARN("invalid value %s\n", debugstr_variant(pvarValue));
874 return E_INVALIDARG;
875 }
876
877 This->version = V_I4(pvarValue);
878 break;
879 default:
880 FIXME("Unimplemented property %x\n", dwProperty);
881 return E_NOTIMPL;
882 }
883
884 return S_OK;
9ff3c395
JC
885}
886
9ff3c395
JC
887static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
888 JScriptProperty_QueryInterface,
889 JScriptProperty_AddRef,
890 JScriptProperty_Release,
891 JScriptProperty_GetProperty,
892 JScriptProperty_SetProperty
893};
894
3b1d9d43
MS
895static inline JScript *impl_from_IObjectSafety(IObjectSafety *iface)
896{
897 return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
898}
cd0213bc
JC
899
900static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
901{
3b1d9d43
MS
902 JScript *This = impl_from_IObjectSafety(iface);
903 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
cd0213bc
JC
904}
905
906static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
907{
3b1d9d43
MS
908 JScript *This = impl_from_IObjectSafety(iface);
909 return IActiveScript_AddRef(&This->IActiveScript_iface);
cd0213bc
JC
910}
911
912static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
913{
3b1d9d43
MS
914 JScript *This = impl_from_IObjectSafety(iface);
915 return IActiveScript_Release(&This->IActiveScript_iface);
cd0213bc
JC
916}
917
7d95c210
JC
918#define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
919
cd0213bc
JC
920static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
921 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
922{
3b1d9d43 923 JScript *This = impl_from_IObjectSafety(iface);
7d95c210
JC
924
925 TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
926
927 if(!pdwSupportedOptions || !pdwEnabledOptions)
928 return E_POINTER;
929
930 *pdwSupportedOptions = SUPPORTED_OPTIONS;
931 *pdwEnabledOptions = This->safeopt;
932
933 return S_OK;
cd0213bc
JC
934}
935
936static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
937 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
938{
3b1d9d43 939 JScript *This = impl_from_IObjectSafety(iface);
7d95c210
JC
940
941 TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
942
943 if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
944 return E_FAIL;
945
ff0cea33 946 This->safeopt = (dwEnabledOptions & dwOptionSetMask) | (This->safeopt & ~dwOptionSetMask) | INTERFACE_USES_DISPEX;
cd0213bc
JC
947 return S_OK;
948}
949
cd0213bc
JC
950static const IObjectSafetyVtbl JScriptSafetyVtbl = {
951 JScriptSafety_QueryInterface,
952 JScriptSafety_AddRef,
953 JScriptSafety_Release,
954 JScriptSafety_GetInterfaceSafetyOptions,
955 JScriptSafety_SetInterfaceSafetyOptions
956};
957
0750bfbb
JC
958HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
959 REFIID riid, void **ppv)
960{
961 JScript *ret;
962 HRESULT hres;
963
964 TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
965
5b16e6e0
JC
966 if(pUnkOuter) {
967 *ppv = NULL;
968 return CLASS_E_NOAGGREGATION;
969 }
970
8d4aa7de
JC
971 lock_module();
972
d19cdef8 973 ret = heap_alloc_zero(sizeof(*ret));
ec35d3ab
JC
974 if(!ret)
975 return E_OUTOFMEMORY;
0750bfbb 976
3b1d9d43
MS
977 ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
978 ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
979 ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
980 ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
981 ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
0750bfbb 982 ret->ref = 1;
7d95c210 983 ret->safeopt = INTERFACE_USES_DISPEX;
0750bfbb 984
3b1d9d43
MS
985 hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
986 IActiveScript_Release(&ret->IActiveScript_iface);
0750bfbb
JC
987 return hres;
988}