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