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