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
19 #include <assert.h>
20
21 #include "jscript.h"
22 #include "engine.h"
23 #include "objsafe.h"
24
25 #include "wine/debug.h"
26
27 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
28
29 #ifdef _WIN64
30
31 #define CTXARG_T DWORDLONG
32 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
33 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_64Vtbl
34
35 #else
36
37 #define CTXARG_T DWORD
38 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
39 #define IActiveScriptParseProcedure2Vtbl IActiveScriptParseProcedure2_32Vtbl
40
41 #endif
42
43 typedef struct {
44 IActiveScript IActiveScript_iface;
45 IActiveScriptParse IActiveScriptParse_iface;
46 IActiveScriptParseProcedure2 IActiveScriptParseProcedure2_iface;
47 IActiveScriptProperty IActiveScriptProperty_iface;
48 IObjectSafety IObjectSafety_iface;
49
50 LONG ref;
51
52 DWORD safeopt;
53 script_ctx_t *ctx;
54 LONG thread_id;
55 LCID lcid;
56 DWORD version;
57
58 IActiveScriptSite *site;
59
60 parser_ctx_t *queue_head;
61 parser_ctx_t *queue_tail;
62 } JScript;
63
64 void script_release(script_ctx_t *ctx)
65 {
66 if(--ctx->ref)
67 return;
68
69 if(ctx->cc)
70 release_cc(ctx->cc);
71 jsheap_free(&ctx->tmp_heap);
72 SysFreeString(ctx->last_match);
73 heap_free(ctx);
74 }
75
76 static void change_state(JScript *This, SCRIPTSTATE state)
77 {
78 if(This->ctx->state == state)
79 return;
80
81 This->ctx->state = state;
82 if(This->site)
83 IActiveScriptSite_OnStateChange(This->site, state);
84 }
85
86 static 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
93 static HRESULT exec_global_code(JScript *This, parser_ctx_t *parser_ctx)
94 {
95 exec_ctx_t *exec_ctx;
96 jsexcept_t jsexcept;
97 HRESULT hres;
98
99 hres = create_exec_ctx(This->ctx, NULL, This->ctx->global, NULL, TRUE, &exec_ctx);
100 if(FAILED(hres))
101 return hres;
102
103 IActiveScriptSite_OnEnterScript(This->site);
104
105 memset(&jsexcept, 0, sizeof(jsexcept));
106 hres = exec_source(exec_ctx, parser_ctx, parser_ctx->source, FALSE, &jsexcept, NULL);
107 VariantClear(&jsexcept.var);
108 exec_release(exec_ctx);
109
110 IActiveScriptSite_OnLeaveScript(This->site);
111 return hres;
112 }
113
114 static 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
132 static 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
142 static HRESULT set_ctx_site(JScript *This)
143 {
144 HRESULT hres;
145
146 This->ctx->lcid = This->lcid;
147
148 hres = init_global(This->ctx);
149 if(FAILED(hres))
150 return hres;
151
152 IActiveScriptSite_AddRef(This->site);
153 This->ctx->site = This->site;
154
155 change_state(This, SCRIPTSTATE_INITIALIZED);
156 return S_OK;
157 }
158
159 static 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;
167 /* FALLTHROUGH */
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;
176 /* FALLTHROUGH */
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 }
214 /* FALLTHROUGH */
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
239 typedef struct {
240 IServiceProvider IServiceProvider_iface;
241
242 LONG ref;
243
244 IServiceProvider *sp;
245 } AXSite;
246
247 static inline AXSite *impl_from_IServiceProvider(IServiceProvider *iface)
248 {
249 return CONTAINING_RECORD(iface, AXSite, IServiceProvider_iface);
250 }
251
252 static HRESULT WINAPI AXSite_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
253 {
254 AXSite *This = impl_from_IServiceProvider(iface);
255
256 if(IsEqualGUID(&IID_IUnknown, riid)) {
257 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
258 *ppv = &This->IServiceProvider_iface;
259 }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
260 TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
261 *ppv = &This->IServiceProvider_iface;
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
272 static ULONG WINAPI AXSite_AddRef(IServiceProvider *iface)
273 {
274 AXSite *This = impl_from_IServiceProvider(iface);
275 LONG ref = InterlockedIncrement(&This->ref);
276
277 TRACE("(%p) ref=%d\n", This, ref);
278
279 return ref;
280 }
281
282 static ULONG WINAPI AXSite_Release(IServiceProvider *iface)
283 {
284 AXSite *This = impl_from_IServiceProvider(iface);
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
295 static HRESULT WINAPI AXSite_QueryService(IServiceProvider *iface,
296 REFGUID guidService, REFIID riid, void **ppv)
297 {
298 AXSite *This = impl_from_IServiceProvider(iface);
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
305 static IServiceProviderVtbl AXSiteVtbl = {
306 AXSite_QueryInterface,
307 AXSite_AddRef,
308 AXSite_Release,
309 AXSite_QueryService
310 };
311
312 IUnknown *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
330 ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
331 ret->ref = 1;
332 ret->sp = sp;
333
334 return (IUnknown*)&ret->IServiceProvider_iface;
335 }
336
337 static inline JScript *impl_from_IActiveScript(IActiveScript *iface)
338 {
339 return CONTAINING_RECORD(iface, JScript, IActiveScript_iface);
340 }
341
342 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
343 {
344 JScript *This = impl_from_IActiveScript(iface);
345
346 *ppv = NULL;
347
348 if(IsEqualGUID(riid, &IID_IUnknown)) {
349 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
350 *ppv = &This->IActiveScript_iface;
351 }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
352 TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
353 *ppv = &This->IActiveScript_iface;
354 }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
355 TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
356 *ppv = &This->IActiveScriptParse_iface;
357 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
358 TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
359 *ppv = &This->IActiveScriptParseProcedure2_iface;
360 }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
361 TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
362 *ppv = &This->IActiveScriptParseProcedure2_iface;
363 }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
364 TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
365 *ppv = &This->IActiveScriptProperty_iface;
366 }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
367 TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
368 *ppv = &This->IObjectSafety_iface;
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
380 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
381 {
382 JScript *This = impl_from_IActiveScript(iface);
383 LONG ref = InterlockedIncrement(&This->ref);
384
385 TRACE("(%p) ref=%d\n", This, ref);
386
387 return ref;
388 }
389
390 static ULONG WINAPI JScript_Release(IActiveScript *iface)
391 {
392 JScript *This = impl_from_IActiveScript(iface);
393 LONG ref = InterlockedDecrement(&This->ref);
394
395 TRACE("(%p) ref=%d\n", iface, ref);
396
397 if(!ref) {
398 if(This->ctx && This->ctx->state != SCRIPTSTATE_CLOSED)
399 IActiveScript_Close(&This->IActiveScript_iface);
400 if(This->ctx)
401 script_release(This->ctx);
402 heap_free(This);
403 unlock_module();
404 }
405
406 return ref;
407 }
408
409 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
410 IActiveScriptSite *pass)
411 {
412 JScript *This = impl_from_IActiveScript(iface);
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
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)
432 This->lcid = lcid;
433
434 return This->ctx ? set_ctx_site(This) : S_OK;
435 }
436
437 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
438 void **ppvObject)
439 {
440 JScript *This = impl_from_IActiveScript(iface);
441 FIXME("(%p)->()\n", This);
442 return E_NOTIMPL;
443 }
444
445 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
446 {
447 JScript *This = impl_from_IActiveScript(iface);
448
449 TRACE("(%p)->(%d)\n", This, ss);
450
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)
463 return E_UNEXPECTED;
464
465 switch(ss) {
466 case SCRIPTSTATE_STARTED:
467 case SCRIPTSTATE_CONNECTED: /* FIXME */
468 if(This->ctx->state == SCRIPTSTATE_CLOSED)
469 return E_UNEXPECTED;
470
471 exec_queued_code(This);
472 break;
473 case SCRIPTSTATE_INITIALIZED:
474 FIXME("unimplemented SCRIPTSTATE_INITIALIZED\n");
475 return S_OK;
476 default:
477 FIXME("unimplemented state %d\n", ss);
478 return E_NOTIMPL;
479 }
480
481 change_state(This, ss);
482 return S_OK;
483 }
484
485 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
486 {
487 JScript *This = impl_from_IActiveScript(iface);
488
489 TRACE("(%p)->(%p)\n", This, pssState);
490
491 if(!pssState)
492 return E_POINTER;
493
494 if(This->thread_id && This->thread_id != GetCurrentThreadId())
495 return E_UNEXPECTED;
496
497 *pssState = This->ctx ? This->ctx->state : SCRIPTSTATE_UNINITIALIZED;
498 return S_OK;
499 }
500
501 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
502 {
503 JScript *This = impl_from_IActiveScript(iface);
504
505 TRACE("(%p)->()\n", This);
506
507 if(This->thread_id && This->thread_id != GetCurrentThreadId())
508 return E_UNEXPECTED;
509
510 decrease_state(This, SCRIPTSTATE_CLOSED);
511 return S_OK;
512 }
513
514 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
515 LPCOLESTR pstrName, DWORD dwFlags)
516 {
517 JScript *This = impl_from_IActiveScript(iface);
518 named_item_t *item;
519 IDispatch *disp = NULL;
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
527 if(dwFlags & SCRIPTITEM_GLOBALMEMBERS) {
528 IUnknown *unk;
529
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 }
542
543 if(This->ctx->host_global)
544 IDispatch_Release(This->ctx->host_global);
545 IDispatch_AddRef(disp);
546 This->ctx->host_global = disp;
547 }
548
549 item = heap_alloc(sizeof(*item));
550 if(!item) {
551 if(disp)
552 IDispatch_Release(disp);
553 return E_OUTOFMEMORY;
554 }
555
556 item->disp = disp;
557 item->flags = dwFlags;
558 item->name = heap_strdupW(pstrName);
559 if(!item->name) {
560 if(disp)
561 IDispatch_Release(disp);
562 heap_free(item);
563 return E_OUTOFMEMORY;
564 }
565
566 item->next = This->ctx->named_items;
567 This->ctx->named_items = item;
568
569 return S_OK;
570 }
571
572 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
573 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
574 {
575 JScript *This = impl_from_IActiveScript(iface);
576 FIXME("(%p)->()\n", This);
577 return E_NOTIMPL;
578 }
579
580 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
581 IDispatch **ppdisp)
582 {
583 JScript *This = impl_from_IActiveScript(iface);
584
585 TRACE("(%p)->(%p)\n", This, ppdisp);
586
587 if(!ppdisp)
588 return E_POINTER;
589
590 if(This->thread_id != GetCurrentThreadId() || !This->ctx->global) {
591 *ppdisp = NULL;
592 return E_UNEXPECTED;
593 }
594
595 *ppdisp = to_disp(This->ctx->global);
596 IDispatch_AddRef(*ppdisp);
597 return S_OK;
598 }
599
600 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
601 SCRIPTTHREADID *pstridThread)
602 {
603 JScript *This = impl_from_IActiveScript(iface);
604 FIXME("(%p)->()\n", This);
605 return E_NOTIMPL;
606 }
607
608 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
609 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
610 {
611 JScript *This = impl_from_IActiveScript(iface);
612 FIXME("(%p)->()\n", This);
613 return E_NOTIMPL;
614 }
615
616 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
617 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
618 {
619 JScript *This = impl_from_IActiveScript(iface);
620 FIXME("(%p)->()\n", This);
621 return E_NOTIMPL;
622 }
623
624 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
625 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
626 {
627 JScript *This = impl_from_IActiveScript(iface);
628 FIXME("(%p)->()\n", This);
629 return E_NOTIMPL;
630 }
631
632 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
633 {
634 JScript *This = impl_from_IActiveScript(iface);
635 FIXME("(%p)->()\n", This);
636 return E_NOTIMPL;
637 }
638
639 static 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
658 static inline JScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
659 {
660 return CONTAINING_RECORD(iface, JScript, IActiveScriptParse_iface);
661 }
662
663 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
664 {
665 JScript *This = impl_from_IActiveScriptParse(iface);
666 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
667 }
668
669 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
670 {
671 JScript *This = impl_from_IActiveScriptParse(iface);
672 return IActiveScript_AddRef(&This->IActiveScript_iface);
673 }
674
675 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
676 {
677 JScript *This = impl_from_IActiveScriptParse(iface);
678 return IActiveScript_Release(&This->IActiveScript_iface);
679 }
680
681 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
682 {
683 JScript *This = impl_from_IActiveScriptParse(iface);
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;
697 ctx->safeopt = This->safeopt;
698 ctx->version = This->version;
699 jsheap_init(&ctx->tmp_heap);
700
701 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
702 if(ctx) {
703 script_release(ctx);
704 return E_UNEXPECTED;
705 }
706
707 return This->site ? set_ctx_site(This) : S_OK;
708 }
709
710 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
711 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
712 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
713 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
714 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
715 {
716 JScript *This = impl_from_IActiveScriptParse(iface);
717 FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
718 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
719 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
720 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
721 return E_NOTIMPL;
722 }
723
724 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
725 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
726 LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
727 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
728 {
729 JScript *This = impl_from_IActiveScriptParse(iface);
730 parser_ctx_t *parser_ctx;
731 HRESULT hres;
732
733 TRACE("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
734 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
735 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
736
737 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
738 return E_UNEXPECTED;
739
740 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
741 if(FAILED(hres))
742 return hres;
743
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);
753 parser_release(parser_ctx);
754
755 return hres;
756 }
757
758 static const IActiveScriptParseVtbl JScriptParseVtbl = {
759 JScriptParse_QueryInterface,
760 JScriptParse_AddRef,
761 JScriptParse_Release,
762 JScriptParse_InitNew,
763 JScriptParse_AddScriptlet,
764 JScriptParse_ParseScriptText
765 };
766
767 static inline JScript *impl_from_IActiveScriptParseProcedure2(IActiveScriptParseProcedure2 *iface)
768 {
769 return CONTAINING_RECORD(iface, JScript, IActiveScriptParseProcedure2_iface);
770 }
771
772 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
773 {
774 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
775 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
776 }
777
778 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
779 {
780 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
781 return IActiveScript_AddRef(&This->IActiveScript_iface);
782 }
783
784 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
785 {
786 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
787 return IActiveScript_Release(&This->IActiveScript_iface);
788 }
789
790 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
791 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
792 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
793 CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
794 {
795 JScript *This = impl_from_IActiveScriptParseProcedure2(iface);
796 parser_ctx_t *parser_ctx;
797 jsdisp_t *dispex;
798 HRESULT hres;
799
800 TRACE("(%p)->(%s %s %s %s %p %s %s %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
801 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
802 wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLineNumber, dwFlags, ppdisp);
803
804 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
805 return E_UNEXPECTED;
806
807 hres = script_parse(This->ctx, pstrCode, pstrDelimiter, &parser_ctx);
808 if(FAILED(hres)) {
809 WARN("Parse failed %08x\n", hres);
810 return hres;
811 }
812
813 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
814 parser_release(parser_ctx);
815 if(FAILED(hres))
816 return hres;
817
818 *ppdisp = to_disp(dispex);
819 return S_OK;
820 }
821
822 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
823 JScriptParseProcedure_QueryInterface,
824 JScriptParseProcedure_AddRef,
825 JScriptParseProcedure_Release,
826 JScriptParseProcedure_ParseProcedureText,
827 };
828
829 static inline JScript *impl_from_IActiveScriptProperty(IActiveScriptProperty *iface)
830 {
831 return CONTAINING_RECORD(iface, JScript, IActiveScriptProperty_iface);
832 }
833
834 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
835 {
836 JScript *This = impl_from_IActiveScriptProperty(iface);
837 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
838 }
839
840 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
841 {
842 JScript *This = impl_from_IActiveScriptProperty(iface);
843 return IActiveScript_AddRef(&This->IActiveScript_iface);
844 }
845
846 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
847 {
848 JScript *This = impl_from_IActiveScriptProperty(iface);
849 return IActiveScript_Release(&This->IActiveScript_iface);
850 }
851
852 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
853 VARIANT *pvarIndex, VARIANT *pvarValue)
854 {
855 JScript *This = impl_from_IActiveScriptProperty(iface);
856 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
857 return E_NOTIMPL;
858 }
859
860 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
861 VARIANT *pvarIndex, VARIANT *pvarValue)
862 {
863 JScript *This = impl_from_IActiveScriptProperty(iface);
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;
885 }
886
887 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
888 JScriptProperty_QueryInterface,
889 JScriptProperty_AddRef,
890 JScriptProperty_Release,
891 JScriptProperty_GetProperty,
892 JScriptProperty_SetProperty
893 };
894
895 static inline JScript *impl_from_IObjectSafety(IObjectSafety *iface)
896 {
897 return CONTAINING_RECORD(iface, JScript, IObjectSafety_iface);
898 }
899
900 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
901 {
902 JScript *This = impl_from_IObjectSafety(iface);
903 return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
904 }
905
906 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
907 {
908 JScript *This = impl_from_IObjectSafety(iface);
909 return IActiveScript_AddRef(&This->IActiveScript_iface);
910 }
911
912 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
913 {
914 JScript *This = impl_from_IObjectSafety(iface);
915 return IActiveScript_Release(&This->IActiveScript_iface);
916 }
917
918 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
919
920 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
921 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
922 {
923 JScript *This = impl_from_IObjectSafety(iface);
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;
934 }
935
936 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
937 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
938 {
939 JScript *This = impl_from_IObjectSafety(iface);
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
946 This->safeopt = dwEnabledOptions & dwEnabledOptions;
947 return S_OK;
948 }
949
950 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
951 JScriptSafety_QueryInterface,
952 JScriptSafety_AddRef,
953 JScriptSafety_Release,
954 JScriptSafety_GetInterfaceSafetyOptions,
955 JScriptSafety_SetInterfaceSafetyOptions
956 };
957
958 HRESULT 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
966 if(pUnkOuter) {
967 *ppv = NULL;
968 return CLASS_E_NOAGGREGATION;
969 }
970
971 lock_module();
972
973 ret = heap_alloc_zero(sizeof(*ret));
974 if(!ret)
975 return E_OUTOFMEMORY;
976
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;
982 ret->ref = 1;
983 ret->safeopt = INTERFACE_USES_DISPEX;
984
985 hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
986 IActiveScript_Release(&ret->IActiveScript_iface);
987 return hres;
988 }
989
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.