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