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->named_items) {
310 named_item_t *iter, *iter2;
311
312 iter = This->ctx->named_items;
313 while(iter) {
314 iter2 = iter->next;
315
316 IDispatch_Release(iter->disp);
317 heap_free(iter);
318 iter = iter2;
319 }
320
321 This->ctx->named_items = NULL;
322 }
323
324 if(This->ctx) {
325 change_state(This, SCRIPTSTATE_CLOSED);
326
327 if(This->ctx->script_disp) {
328 IDispatchEx_Release(_IDispatchEx_(This->ctx->script_disp));
329 This->ctx->script_disp = NULL;
330 }
331
332 if(This->ctx->global) {
333 IDispatchEx_Release(_IDispatchEx_(This->ctx->global));
334 This->ctx->global = NULL;
335 }
336 }
337
338 if(This->site) {
339 IActiveScriptSite_Release(This->site);
340 This->site = NULL;
341 }
342
343 return S_OK;
344 }
345
346 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
347 LPCOLESTR pstrName, DWORD dwFlags)
348 {
349 JScript *This = ACTSCRIPT_THIS(iface);
350 named_item_t *item;
351 IDispatch *disp;
352 IUnknown *unk;
353 HRESULT hres;
354
355 TRACE("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
356
357 if(This->thread_id != GetCurrentThreadId() || !This->ctx || This->ctx->state == SCRIPTSTATE_CLOSED)
358 return E_UNEXPECTED;
359
360 hres = IActiveScriptSite_GetItemInfo(This->site, pstrName, SCRIPTINFO_IUNKNOWN, &unk, NULL);
361 if(FAILED(hres)) {
362 WARN("GetItemInfo failed: %08x\n", hres);
363 return hres;
364 }
365
366 hres = IUnknown_QueryInterface(unk, &IID_IDispatch, (void**)&disp);
367 IUnknown_Release(unk);
368 if(FAILED(hres)) {
369 WARN("object does not implement IDispatch\n");
370 return hres;
371 }
372
373 item = heap_alloc(sizeof(*item));
374 if(!item) {
375 IDispatch_Release(disp);
376 return E_OUTOFMEMORY;
377 }
378
379 item->disp = disp;
380 item->flags = dwFlags;
381 item->next = This->ctx->named_items;
382 This->ctx->named_items = item;
383
384 return S_OK;
385 }
386
387 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
388 DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
389 {
390 JScript *This = ACTSCRIPT_THIS(iface);
391 FIXME("(%p)->()\n", This);
392 return E_NOTIMPL;
393 }
394
395 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
396 IDispatch **ppdisp)
397 {
398 JScript *This = ACTSCRIPT_THIS(iface);
399
400 TRACE("(%p)->(%p)\n", This, ppdisp);
401
402 if(!ppdisp)
403 return E_POINTER;
404
405 if(This->thread_id != GetCurrentThreadId() || !This->ctx->script_disp) {
406 *ppdisp = NULL;
407 return E_UNEXPECTED;
408 }
409
410 *ppdisp = (IDispatch*)_IDispatchEx_(This->ctx->script_disp);
411 IDispatch_AddRef(*ppdisp);
412 return S_OK;
413 }
414
415 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
416 SCRIPTTHREADID *pstridThread)
417 {
418 JScript *This = ACTSCRIPT_THIS(iface);
419 FIXME("(%p)->()\n", This);
420 return E_NOTIMPL;
421 }
422
423 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
424 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
425 {
426 JScript *This = ACTSCRIPT_THIS(iface);
427 FIXME("(%p)->()\n", This);
428 return E_NOTIMPL;
429 }
430
431 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
432 SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
433 {
434 JScript *This = ACTSCRIPT_THIS(iface);
435 FIXME("(%p)->()\n", This);
436 return E_NOTIMPL;
437 }
438
439 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
440 SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
441 {
442 JScript *This = ACTSCRIPT_THIS(iface);
443 FIXME("(%p)->()\n", This);
444 return E_NOTIMPL;
445 }
446
447 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
448 {
449 JScript *This = ACTSCRIPT_THIS(iface);
450 FIXME("(%p)->()\n", This);
451 return E_NOTIMPL;
452 }
453
454 #undef ACTSCRIPT_THIS
455
456 static const IActiveScriptVtbl JScriptVtbl = {
457 JScript_QueryInterface,
458 JScript_AddRef,
459 JScript_Release,
460 JScript_SetScriptSite,
461 JScript_GetScriptSite,
462 JScript_SetScriptState,
463 JScript_GetScriptState,
464 JScript_Close,
465 JScript_AddNamedItem,
466 JScript_AddTypeLib,
467 JScript_GetScriptDispatch,
468 JScript_GetCurrentScriptThreadID,
469 JScript_GetScriptThreadID,
470 JScript_GetScriptThreadState,
471 JScript_InterruptScriptThread,
472 JScript_Clone
473 };
474
475 #define ASPARSE_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
476
477 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
478 {
479 JScript *This = ASPARSE_THIS(iface);
480 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
481 }
482
483 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
484 {
485 JScript *This = ASPARSE_THIS(iface);
486 return IActiveScript_AddRef(ACTSCRIPT(This));
487 }
488
489 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
490 {
491 JScript *This = ASPARSE_THIS(iface);
492 return IActiveScript_Release(ACTSCRIPT(This));
493 }
494
495 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
496 {
497 JScript *This = ASPARSE_THIS(iface);
498 script_ctx_t *ctx;
499
500 TRACE("(%p)\n", This);
501
502 if(This->ctx)
503 return E_UNEXPECTED;
504
505 ctx = heap_alloc_zero(sizeof(script_ctx_t));
506 if(!ctx)
507 return E_OUTOFMEMORY;
508
509 ctx->ref = 1;
510 ctx->state = SCRIPTSTATE_UNINITIALIZED;
511 jsheap_init(&ctx->tmp_heap);
512
513 ctx = InterlockedCompareExchangePointer((void**)&This->ctx, ctx, NULL);
514 if(ctx) {
515 script_release(ctx);
516 return E_UNEXPECTED;
517 }
518
519 return S_OK;
520 }
521
522 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
523 LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
524 LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
525 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
526 BSTR *pbstrName, EXCEPINFO *pexcepinfo)
527 {
528 JScript *This = ASPARSE_THIS(iface);
529 FIXME("(%p)->(%s %s %s %s %s %s %x %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
530 debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
531 debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), dwSourceContextCookie,
532 ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
533 return E_NOTIMPL;
534 }
535
536 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
537 LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
538 LPCOLESTR pstrDelimiter, DWORD dwSourceContextCookie, ULONG ulStartingLine,
539 DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
540 {
541 JScript *This = ASPARSE_THIS(iface);
542 parser_ctx_t *parser_ctx;
543 HRESULT hres;
544
545 TRACE("(%p)->(%s %s %p %s %x %u %x %p %p)\n", This, debugstr_w(pstrCode),
546 debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
547 dwSourceContextCookie, ulStartingLine, dwFlags, pvarResult, pexcepinfo);
548
549 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
550 return E_UNEXPECTED;
551
552 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
553 if(FAILED(hres))
554 return hres;
555
556 if(!is_started(This->ctx)) {
557 if(This->queue_tail)
558 This->queue_tail = This->queue_tail->next = parser_ctx;
559 else
560 This->queue_head = This->queue_tail = parser_ctx;
561 return S_OK;
562 }
563
564 hres = exec_global_code(This, parser_ctx);
565 parser_release(parser_ctx);
566
567 return hres;
568 }
569
570 #undef ASPARSE_THIS
571
572 static const IActiveScriptParseVtbl JScriptParseVtbl = {
573 JScriptParse_QueryInterface,
574 JScriptParse_AddRef,
575 JScriptParse_Release,
576 JScriptParse_InitNew,
577 JScriptParse_AddScriptlet,
578 JScriptParse_ParseScriptText
579 };
580
581 #define ASPARSEPROC_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParseProcedure2, iface)
582
583 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
584 {
585 JScript *This = ASPARSEPROC_THIS(iface);
586 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
587 }
588
589 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
590 {
591 JScript *This = ASPARSEPROC_THIS(iface);
592 return IActiveScript_AddRef(ACTSCRIPT(This));
593 }
594
595 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
596 {
597 JScript *This = ASPARSEPROC_THIS(iface);
598 return IActiveScript_Release(ACTSCRIPT(This));
599 }
600
601 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
602 LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
603 LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
604 DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
605 {
606 JScript *This = ASPARSEPROC_THIS(iface);
607 parser_ctx_t *parser_ctx;
608 DispatchEx *dispex;
609 HRESULT hres;
610
611 TRACE("(%p)->(%s %s %s %s %p %s %x %u %x %p)\n", This, debugstr_w(pstrCode), debugstr_w(pstrFormalParams),
612 debugstr_w(pstrProcedureName), debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
613 dwSourceContextCookie, ulStartingLineNumber, dwFlags, ppdisp);
614
615 if(This->thread_id != GetCurrentThreadId() || This->ctx->state == SCRIPTSTATE_CLOSED)
616 return E_UNEXPECTED;
617
618 hres = script_parse(This->ctx, pstrCode, &parser_ctx);
619 if(FAILED(hres)) {
620 WARN("Parse failed %08x\n", hres);
621 return hres;
622 }
623
624 hres = create_source_function(parser_ctx, NULL, parser_ctx->source, NULL, NULL, 0, &dispex);
625 parser_release(parser_ctx);
626 if(FAILED(hres))
627 return hres;
628
629 *ppdisp = (IDispatch*)_IDispatchEx_(dispex);
630 return S_OK;
631 }
632
633 #undef ASPARSEPROC_THIS
634
635 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
636 JScriptParseProcedure_QueryInterface,
637 JScriptParseProcedure_AddRef,
638 JScriptParseProcedure_Release,
639 JScriptParseProcedure_ParseProcedureText,
640 };
641
642 #define ACTSCPPROP_THIS(iface) DEFINE_THIS(JScript, IActiveScriptProperty, iface)
643
644 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
645 {
646 JScript *This = ACTSCPPROP_THIS(iface);
647 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
648 }
649
650 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
651 {
652 JScript *This = ACTSCPPROP_THIS(iface);
653 return IActiveScript_AddRef(ACTSCRIPT(This));
654 }
655
656 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
657 {
658 JScript *This = ACTSCPPROP_THIS(iface);
659 return IActiveScript_Release(ACTSCRIPT(This));
660 }
661
662 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
663 VARIANT *pvarIndex, VARIANT *pvarValue)
664 {
665 JScript *This = ACTSCPPROP_THIS(iface);
666 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
667 return E_NOTIMPL;
668 }
669
670 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
671 VARIANT *pvarIndex, VARIANT *pvarValue)
672 {
673 JScript *This = ACTSCPPROP_THIS(iface);
674 FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
675 return E_NOTIMPL;
676 }
677
678 #undef ACTSCPPROP_THIS
679
680 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
681 JScriptProperty_QueryInterface,
682 JScriptProperty_AddRef,
683 JScriptProperty_Release,
684 JScriptProperty_GetProperty,
685 JScriptProperty_SetProperty
686 };
687
688 #define OBJSAFETY_THIS(iface) DEFINE_THIS(JScript, IObjectSafety, iface)
689
690 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
691 {
692 JScript *This = OBJSAFETY_THIS(iface);
693 return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
694 }
695
696 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
697 {
698 JScript *This = OBJSAFETY_THIS(iface);
699 return IActiveScript_AddRef(ACTSCRIPT(This));
700 }
701
702 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
703 {
704 JScript *This = OBJSAFETY_THIS(iface);
705 return IActiveScript_Release(ACTSCRIPT(This));
706 }
707
708 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
709
710 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
711 DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
712 {
713 JScript *This = OBJSAFETY_THIS(iface);
714
715 TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
716
717 if(!pdwSupportedOptions || !pdwEnabledOptions)
718 return E_POINTER;
719
720 *pdwSupportedOptions = SUPPORTED_OPTIONS;
721 *pdwEnabledOptions = This->safeopt;
722
723 return S_OK;
724 }
725
726 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
727 DWORD dwOptionSetMask, DWORD dwEnabledOptions)
728 {
729 JScript *This = OBJSAFETY_THIS(iface);
730
731 TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
732
733 if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
734 return E_FAIL;
735
736 This->safeopt = dwEnabledOptions & dwEnabledOptions;
737 return S_OK;
738 }
739
740 #undef OBJSAFETY_THIS
741
742 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
743 JScriptSafety_QueryInterface,
744 JScriptSafety_AddRef,
745 JScriptSafety_Release,
746 JScriptSafety_GetInterfaceSafetyOptions,
747 JScriptSafety_SetInterfaceSafetyOptions
748 };
749
750 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
751 REFIID riid, void **ppv)
752 {
753 JScript *ret;
754 HRESULT hres;
755
756 TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
757
758 lock_module();
759
760 ret = heap_alloc_zero(sizeof(*ret));
761 if(!ret)
762 return E_OUTOFMEMORY;
763
764 ret->lpIActiveScriptVtbl = &JScriptVtbl;
765 ret->lpIActiveScriptParseVtbl = &JScriptParseVtbl;
766 ret->lpIActiveScriptParseProcedure2Vtbl = &JScriptParseProcedureVtbl;
767 ret->lpIActiveScriptPropertyVtbl = &JScriptPropertyVtbl;
768 ret->lpIObjectSafetyVtbl = &JScriptSafetyVtbl;
769 ret->ref = 1;
770 ret->safeopt = INTERFACE_USES_DISPEX;
771
772 hres = IActiveScript_QueryInterface(ACTSCRIPT(ret), riid, ppv);
773 IActiveScript_Release(ACTSCRIPT(ret));
774 return hres;
775 }
776
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.