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 "activscp.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 } JScript;
  38
  39 #define ACTSCRIPT(x)    ((IActiveScript*)                 &(x)->lpIActiveScriptVtbl)
  40 #define ASPARSE(x)      ((IActiveScriptParse*)            &(x)->lpIActiveScriptParseVtbl)
  41 #define ASPARSEPROC(x)  ((IActiveScriptParseProcedure2*)  &(x)->lpIActiveScriptParseProcedure2Vtbl)
  42 #define ACTSCPPROP(x)   ((IActiveScriptProperty*)         &(x)->lpIActiveScriptPropertyVtbl)
  43 #define OBJSAFETY(x)    ((IObjectSafety*)                 &(x)->lpIObjectSafetyVtbl)
  44
  45 #define ACTSCRIPT_THIS(iface) DEFINE_THIS(JScript, IActiveScript, iface)
  46
  47 static HRESULT WINAPI JScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
  48 {
  49     JScript *This = ACTSCRIPT_THIS(iface);
  50
  51     *ppv = NULL;
  52
  53     if(IsEqualGUID(riid, &IID_IUnknown)) {
  54         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  55         *ppv = ACTSCRIPT(This);
  56     }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
  57         TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
  58         *ppv = ACTSCRIPT(This);
  59     }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
  60         TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
  61         *ppv = ASPARSE(This);
  62     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure)) {
  63         TRACE("(%p)->(IID_IActiveScriptParseProcedure %p)\n", This, ppv);
  64         *ppv = ASPARSEPROC(This);
  65     }else if(IsEqualGUID(riid, &IID_IActiveScriptParseProcedure2)) {
  66         TRACE("(%p)->(IID_IActiveScriptParseProcedure2 %p)\n", This, ppv);
  67         *ppv = ASPARSEPROC(This);
  68     }else if(IsEqualGUID(riid, &IID_IActiveScriptProperty)) {
  69         TRACE("(%p)->(IID_IActiveScriptProperty %p)\n", This, ppv);
  70         *ppv = ACTSCPPROP(This);
  71     }else if(IsEqualGUID(riid, &IID_IObjectSafety)) {
  72         TRACE("(%p)->(IID_IObjectSafety %p)\n", This, ppv);
  73         *ppv = OBJSAFETY(This);
  74     }
  75
  76     if(*ppv) {
  77         IUnknown_AddRef((IUnknown*)*ppv);
  78         return S_OK;
  79     }
  80
  81     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
  82     return E_NOINTERFACE;
  83 }
  84
  85 static ULONG WINAPI JScript_AddRef(IActiveScript *iface)
  86 {
  87     JScript *This = ACTSCRIPT_THIS(iface);
  88     LONG ref = InterlockedIncrement(&This->ref);
  89
  90     TRACE("(%p) ref=%d\n", This, ref);
  91
  92     return ref;
  93 }
  94
  95 static ULONG WINAPI JScript_Release(IActiveScript *iface)
  96 {
  97     JScript *This = ACTSCRIPT_THIS(iface);
  98     LONG ref = InterlockedDecrement(&This->ref);
  99
 100     TRACE("(%p) ref=%d\n", iface, ref);
 101
 102     if(!ref) {
 103         heap_free(This);
 104         unlock_module();
 105     }
 106
 107     return ref;
 108 }
 109
 110 static HRESULT WINAPI JScript_SetScriptSite(IActiveScript *iface,
 111                                             IActiveScriptSite *pass)
 112 {
 113     JScript *This = ACTSCRIPT_THIS(iface);
 114     FIXME("(%p)->(%p)\n", This, pass);
 115     return E_NOTIMPL;
 116 }
 117
 118 static HRESULT WINAPI JScript_GetScriptSite(IActiveScript *iface, REFIID riid,
 119                                             void **ppvObject)
 120 {
 121     JScript *This = ACTSCRIPT_THIS(iface);
 122     FIXME("(%p)->()\n", This);
 123     return E_NOTIMPL;
 124 }
 125
 126 static HRESULT WINAPI JScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
 127 {
 128     JScript *This = ACTSCRIPT_THIS(iface);
 129     FIXME("(%p)->(%d)\n", This, ss);
 130     return E_NOTIMPL;
 131 }
 132
 133 static HRESULT WINAPI JScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
 134 {
 135     JScript *This = ACTSCRIPT_THIS(iface);
 136     FIXME("(%p)->(%p)\n", This, pssState);
 137     return E_NOTIMPL;
 138 }
 139
 140 static HRESULT WINAPI JScript_Close(IActiveScript *iface)
 141 {
 142     JScript *This = ACTSCRIPT_THIS(iface);
 143     FIXME("(%p)->()\n", This);
 144     return E_NOTIMPL;
 145 }
 146
 147 static HRESULT WINAPI JScript_AddNamedItem(IActiveScript *iface,
 148                                            LPCOLESTR pstrName, DWORD dwFlags)
 149 {
 150     JScript *This = ACTSCRIPT_THIS(iface);
 151     FIXME("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
 152     return E_NOTIMPL;
 153 }
 154
 155 static HRESULT WINAPI JScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
 156                                          DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
 157 {
 158     JScript *This = ACTSCRIPT_THIS(iface);
 159     FIXME("(%p)->()\n", This);
 160     return E_NOTIMPL;
 161 }
 162
 163 static HRESULT WINAPI JScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName,
 164                                                 IDispatch **ppdisp)
 165 {
 166     JScript *This = ACTSCRIPT_THIS(iface);
 167     FIXME("(%p)->()\n", This);
 168     return E_NOTIMPL;
 169 }
 170
 171 static HRESULT WINAPI JScript_GetCurrentScriptThreadID(IActiveScript *iface,
 172                                                        SCRIPTTHREADID *pstridThread)
 173 {
 174     JScript *This = ACTSCRIPT_THIS(iface);
 175     FIXME("(%p)->()\n", This);
 176     return E_NOTIMPL;
 177 }
 178
 179 static HRESULT WINAPI JScript_GetScriptThreadID(IActiveScript *iface,
 180                                                 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
 181 {
 182     JScript *This = ACTSCRIPT_THIS(iface);
 183     FIXME("(%p)->()\n", This);
 184     return E_NOTIMPL;
 185 }
 186
 187 static HRESULT WINAPI JScript_GetScriptThreadState(IActiveScript *iface,
 188         SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
 189 {
 190     JScript *This = ACTSCRIPT_THIS(iface);
 191     FIXME("(%p)->()\n", This);
 192     return E_NOTIMPL;
 193 }
 194
 195 static HRESULT WINAPI JScript_InterruptScriptThread(IActiveScript *iface,
 196         SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
 197 {
 198     JScript *This = ACTSCRIPT_THIS(iface);
 199     FIXME("(%p)->()\n", This);
 200     return E_NOTIMPL;
 201 }
 202
 203 static HRESULT WINAPI JScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
 204 {
 205     JScript *This = ACTSCRIPT_THIS(iface);
 206     FIXME("(%p)->()\n", This);
 207     return E_NOTIMPL;
 208 }
 209
 210 #undef ACTSCRIPT_THIS
 211
 212 static const IActiveScriptVtbl JScriptVtbl = {
 213     JScript_QueryInterface,
 214     JScript_AddRef,
 215     JScript_Release,
 216     JScript_SetScriptSite,
 217     JScript_GetScriptSite,
 218     JScript_SetScriptState,
 219     JScript_GetScriptState,
 220     JScript_Close,
 221     JScript_AddNamedItem,
 222     JScript_AddTypeLib,
 223     JScript_GetScriptDispatch,
 224     JScript_GetCurrentScriptThreadID,
 225     JScript_GetScriptThreadID,
 226     JScript_GetScriptThreadState,
 227     JScript_InterruptScriptThread,
 228     JScript_Clone
 229 };
 230
 231 #define ASPARSE_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
 232
 233 static HRESULT WINAPI JScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
 234 {
 235     JScript *This = ASPARSE_THIS(iface);
 236     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 237 }
 238
 239 static ULONG WINAPI JScriptParse_AddRef(IActiveScriptParse *iface)
 240 {
 241     JScript *This = ASPARSE_THIS(iface);
 242     return IActiveScript_AddRef(ACTSCRIPT(This));
 243 }
 244
 245 static ULONG WINAPI JScriptParse_Release(IActiveScriptParse *iface)
 246 {
 247     JScript *This = ASPARSE_THIS(iface);
 248     return IActiveScript_Release(ACTSCRIPT(This));
 249 }
 250
 251 static HRESULT WINAPI JScriptParse_InitNew(IActiveScriptParse *iface)
 252 {
 253     JScript *This = ASPARSE_THIS(iface);
 254     FIXME("(%p)\n", This);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI JScriptParse_AddScriptlet(IActiveScriptParse *iface,
 259         LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
 260         LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
 261         DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
 262         BSTR *pbstrName, EXCEPINFO *pexcepinfo)
 263 {
 264     JScript *This = ASPARSE_THIS(iface);
 265     FIXME("(%p)->(%s %s %s %s %s %s %x %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
 266           debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
 267           debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), dwSourceContextCookie,
 268           ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
 269     return E_NOTIMPL;
 270 }
 271
 272 static HRESULT WINAPI JScriptParse_ParseScriptText(IActiveScriptParse *iface,
 273         LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
 274         LPCOLESTR pstrDelimiter, DWORD dwSourceContextCookie, ULONG ulStartingLine,
 275         DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
 276 {
 277     JScript *This = ASPARSE_THIS(iface);
 278     FIXME("(%p)->(%s %s %p %s %x %u %x %p %p)\n", This, debugstr_w(pstrCode),
 279           debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 280           dwSourceContextCookie, ulStartingLine, dwFlags, pvarResult, pexcepinfo);
 281     return E_NOTIMPL;
 282 }
 283
 284 #undef ASPARSE_THIS
 285
 286 static const IActiveScriptParseVtbl JScriptParseVtbl = {
 287     JScriptParse_QueryInterface,
 288     JScriptParse_AddRef,
 289     JScriptParse_Release,
 290     JScriptParse_InitNew,
 291     JScriptParse_AddScriptlet,
 292     JScriptParse_ParseScriptText
 293 };
 294
 295 #define ASPARSEPROC_THIS(iface) DEFINE_THIS(JScript, IActiveScriptParse, iface)
 296
 297 static HRESULT WINAPI JScriptParseProcedure_QueryInterface(IActiveScriptParseProcedure2 *iface, REFIID riid, void **ppv)
 298 {
 299     JScript *This = ASPARSEPROC_THIS(iface);
 300     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 301 }
 302
 303 static ULONG WINAPI JScriptParseProcedure_AddRef(IActiveScriptParseProcedure2 *iface)
 304 {
 305     JScript *This = ASPARSEPROC_THIS(iface);
 306     return IActiveScript_AddRef(ACTSCRIPT(This));
 307 }
 308
 309 static ULONG WINAPI JScriptParseProcedure_Release(IActiveScriptParseProcedure2 *iface)
 310 {
 311     JScript *This = ASPARSEPROC_THIS(iface);
 312     return IActiveScript_Release(ACTSCRIPT(This));
 313 }
 314
 315 static HRESULT WINAPI JScriptParseProcedure_ParseProcedureText(IActiveScriptParseProcedure2 *iface,
 316         LPCOLESTR pstrCode, LPCOLESTR pstrFormalParams, LPCOLESTR pstrProcedureName,
 317         LPCOLESTR pstrItemName, IUnknown *punkContext, LPCOLESTR pstrDelimiter,
 318         DWORD dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags, IDispatch **ppdisp)
 319 {
 320     JScript *This = ASPARSEPROC_THIS(iface);
 321     FIXME("(%p)->()\n", This);
 322     return E_NOTIMPL;
 323 }
 324
 325 #undef ASPARSEPROC_THIS
 326
 327 static const IActiveScriptParseProcedure2Vtbl JScriptParseProcedureVtbl = {
 328     JScriptParseProcedure_QueryInterface,
 329     JScriptParseProcedure_AddRef,
 330     JScriptParseProcedure_Release,
 331     JScriptParseProcedure_ParseProcedureText,
 332 };
 333
 334 #define ACTSCPPROP_THIS(iface) DEFINE_THIS(JScript, IActiveScriptProperty, iface)
 335
 336 static HRESULT WINAPI JScriptProperty_QueryInterface(IActiveScriptProperty *iface, REFIID riid, void **ppv)
 337 {
 338     JScript *This = ACTSCPPROP_THIS(iface);
 339     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 340 }
 341
 342 static ULONG WINAPI JScriptProperty_AddRef(IActiveScriptProperty *iface)
 343 {
 344     JScript *This = ACTSCPPROP_THIS(iface);
 345     return IActiveScript_AddRef(ACTSCRIPT(This));
 346 }
 347
 348 static ULONG WINAPI JScriptProperty_Release(IActiveScriptProperty *iface)
 349 {
 350     JScript *This = ACTSCPPROP_THIS(iface);
 351     return IActiveScript_Release(ACTSCRIPT(This));
 352 }
 353
 354 static HRESULT WINAPI JScriptProperty_GetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 355         VARIANT *pvarIndex, VARIANT *pvarValue)
 356 {
 357     JScript *This = ACTSCPPROP_THIS(iface);
 358     FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
 359     return E_NOTIMPL;
 360 }
 361
 362 static HRESULT WINAPI JScriptProperty_SetProperty(IActiveScriptProperty *iface, DWORD dwProperty,
 363         VARIANT *pvarIndex, VARIANT *pvarValue)
 364 {
 365     JScript *This = ACTSCPPROP_THIS(iface);
 366     FIXME("(%p)->(%x %p %p)\n", This, dwProperty, pvarIndex, pvarValue);
 367     return E_NOTIMPL;
 368 }
 369
 370 #undef ACTSCPPROP_THIS
 371
 372 static const IActiveScriptPropertyVtbl JScriptPropertyVtbl = {
 373     JScriptProperty_QueryInterface,
 374     JScriptProperty_AddRef,
 375     JScriptProperty_Release,
 376     JScriptProperty_GetProperty,
 377     JScriptProperty_SetProperty
 378 };
 379
 380 #define OBJSAFETY_THIS(iface) DEFINE_THIS(JScript, IObjectSafety, iface)
 381
 382 static HRESULT WINAPI JScriptSafety_QueryInterface(IObjectSafety *iface, REFIID riid, void **ppv)
 383 {
 384     JScript *This = OBJSAFETY_THIS(iface);
 385     return IActiveScript_QueryInterface(ACTSCRIPT(This), riid, ppv);
 386 }
 387
 388 static ULONG WINAPI JScriptSafety_AddRef(IObjectSafety *iface)
 389 {
 390     JScript *This = OBJSAFETY_THIS(iface);
 391     return IActiveScript_AddRef(ACTSCRIPT(This));
 392 }
 393
 394 static ULONG WINAPI JScriptSafety_Release(IObjectSafety *iface)
 395 {
 396     JScript *This = OBJSAFETY_THIS(iface);
 397     return IActiveScript_Release(ACTSCRIPT(This));
 398 }
 399
 400 #define SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_DISPEX|INTERFACE_USES_SECURITY_MANAGER)
 401
 402 static HRESULT WINAPI JScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 403         DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
 404 {
 405     JScript *This = OBJSAFETY_THIS(iface);
 406
 407     TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
 408
 409     if(!pdwSupportedOptions || !pdwEnabledOptions)
 410         return E_POINTER;
 411
 412     *pdwSupportedOptions = SUPPORTED_OPTIONS;
 413     *pdwEnabledOptions = This->safeopt;
 414
 415     return S_OK;
 416 }
 417
 418 static HRESULT WINAPI JScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,
 419         DWORD dwOptionSetMask, DWORD dwEnabledOptions)
 420 {
 421     JScript *This = OBJSAFETY_THIS(iface);
 422
 423     TRACE("(%p)->(%s %x %x)\n", This, debugstr_guid(riid), dwOptionSetMask, dwEnabledOptions);
 424
 425     if(dwOptionSetMask & ~SUPPORTED_OPTIONS)
 426         return E_FAIL;
 427
 428     This->safeopt = dwEnabledOptions & dwEnabledOptions;
 429     return S_OK;
 430 }
 431
 432 #undef OBJSAFETY_THIS
 433
 434 static const IObjectSafetyVtbl JScriptSafetyVtbl = {
 435     JScriptSafety_QueryInterface,
 436     JScriptSafety_AddRef,
 437     JScriptSafety_Release,
 438     JScriptSafety_GetInterfaceSafetyOptions,
 439     JScriptSafety_SetInterfaceSafetyOptions
 440 };
 441
 442 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter,
 443                                              REFIID riid, void **ppv)
 444 {
 445     JScript *ret;
 446     HRESULT hres;
 447
 448     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
 449
 450     lock_module();
 451
 452     ret = heap_alloc(sizeof(*ret));
 453
 454     ret->lpIActiveScriptVtbl                 = &JScriptVtbl;
 455     ret->lpIActiveScriptParseVtbl            = &JScriptParseVtbl;
 456     ret->lpIActiveScriptParseProcedure2Vtbl  = &JScriptParseProcedureVtbl;
 457     ret->lpIActiveScriptPropertyVtbl         = &JScriptPropertyVtbl;
 458     ret->lpIObjectSafetyVtbl                 = &JScriptSafetyVtbl;
 459     ret->ref = 1;
 460     ret->safeopt = INTERFACE_USES_DISPEX;
 461
 462     hres = IActiveScript_QueryInterface(ACTSCRIPT(ret), riid, ppv);
 463     IActiveScript_Release(ACTSCRIPT(ret));
 464     return hres;
 465 }