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