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