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