dlls/vbscript/vbscript.c

   1 /*
   2  * Copyright 2011 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 "config.h"
  20
  21 #include <stdarg.h>
  22
  23 #define COBJMACROS
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "ole2.h"
  28
  29 #include "vbscript.h"
  30
  31 #include "wine/debug.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
  34
  35 #ifdef _WIN64
  36
  37 #define CTXARG_T DWORDLONG
  38 #define IActiveScriptParseVtbl IActiveScriptParse64Vtbl
  39
  40 #else
  41
  42 #define CTXARG_T DWORD
  43 #define IActiveScriptParseVtbl IActiveScriptParse32Vtbl
  44
  45 #endif
  46
  47 static inline VBScript *impl_from_IActiveScript(IActiveScript *iface)
  48 {
  49     return CONTAINING_RECORD(iface, VBScript, IActiveScript_iface);
  50 }
  51
  52 static HRESULT WINAPI VBScript_QueryInterface(IActiveScript *iface, REFIID riid, void **ppv)
  53 {
  54     VBScript *This = impl_from_IActiveScript(iface);
  55
  56     if(IsEqualGUID(riid, &IID_IUnknown)) {
  57         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  58         *ppv = &This->IActiveScript_iface;
  59     }else if(IsEqualGUID(riid, &IID_IActiveScript)) {
  60         TRACE("(%p)->(IID_IActiveScript %p)\n", This, ppv);
  61         *ppv = &This->IActiveScript_iface;
  62     }else if(IsEqualGUID(riid, &IID_IActiveScriptParse)) {
  63         TRACE("(%p)->(IID_IActiveScriptParse %p)\n", This, ppv);
  64         *ppv = &This->IActiveScriptParse_iface;
  65     }else {
  66         FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
  67         *ppv = NULL;
  68         return E_NOINTERFACE;
  69     }
  70
  71     IUnknown_AddRef((IUnknown*)*ppv);
  72     return S_OK;
  73 }
  74
  75 static ULONG WINAPI VBScript_AddRef(IActiveScript *iface)
  76 {
  77     VBScript *This = impl_from_IActiveScript(iface);
  78     LONG ref = InterlockedIncrement(&This->ref);
  79
  80     TRACE("(%p) ref=%d\n", This, ref);
  81
  82     return ref;
  83 }
  84
  85 static ULONG WINAPI VBScript_Release(IActiveScript *iface)
  86 {
  87     VBScript *This = impl_from_IActiveScript(iface);
  88     LONG ref = InterlockedDecrement(&This->ref);
  89
  90     TRACE("(%p) ref=%d\n", iface, ref);
  91
  92     if(!ref)
  93         heap_free(This);
  94
  95     return ref;
  96 }
  97
  98 static HRESULT WINAPI VBScript_SetScriptSite(IActiveScript *iface, IActiveScriptSite *pass)
  99 {
 100     VBScript *This = impl_from_IActiveScript(iface);
 101     FIXME("(%p)->(%p)\n", This, pass);
 102     return S_OK;
 103 }
 104
 105 static HRESULT WINAPI VBScript_GetScriptSite(IActiveScript *iface, REFIID riid,
 106                                             void **ppvObject)
 107 {
 108     VBScript *This = impl_from_IActiveScript(iface);
 109     FIXME("(%p)->()\n", This);
 110     return E_NOTIMPL;
 111 }
 112
 113 static HRESULT WINAPI VBScript_SetScriptState(IActiveScript *iface, SCRIPTSTATE ss)
 114 {
 115     VBScript *This = impl_from_IActiveScript(iface);
 116     FIXME("(%p)->(%d)\n", This, ss);
 117     return S_OK;
 118 }
 119
 120 static HRESULT WINAPI VBScript_GetScriptState(IActiveScript *iface, SCRIPTSTATE *pssState)
 121 {
 122     VBScript *This = impl_from_IActiveScript(iface);
 123     FIXME("(%p)->(%p)\n", This, pssState);
 124     return E_NOTIMPL;
 125 }
 126
 127 static HRESULT WINAPI VBScript_Close(IActiveScript *iface)
 128 {
 129     VBScript *This = impl_from_IActiveScript(iface);
 130     FIXME("(%p)->()\n", This);
 131     return E_NOTIMPL;
 132 }
 133
 134 static HRESULT WINAPI VBScript_AddNamedItem(IActiveScript *iface, LPCOLESTR pstrName, DWORD dwFlags)
 135 {
 136     VBScript *This = impl_from_IActiveScript(iface);
 137     FIXME("(%p)->(%s %x)\n", This, debugstr_w(pstrName), dwFlags);
 138     return S_OK;
 139 }
 140
 141 static HRESULT WINAPI VBScript_AddTypeLib(IActiveScript *iface, REFGUID rguidTypeLib,
 142         DWORD dwMajor, DWORD dwMinor, DWORD dwFlags)
 143 {
 144     VBScript *This = impl_from_IActiveScript(iface);
 145     FIXME("(%p)->()\n", This);
 146     return E_NOTIMPL;
 147 }
 148
 149 static HRESULT WINAPI VBScript_GetScriptDispatch(IActiveScript *iface, LPCOLESTR pstrItemName, IDispatch **ppdisp)
 150 {
 151     VBScript *This = impl_from_IActiveScript(iface);
 152     FIXME("(%p)->(%p)\n", This, ppdisp);
 153     return E_NOTIMPL;
 154 }
 155
 156 static HRESULT WINAPI VBScript_GetCurrentScriptThreadID(IActiveScript *iface,
 157                                                        SCRIPTTHREADID *pstridThread)
 158 {
 159     VBScript *This = impl_from_IActiveScript(iface);
 160     FIXME("(%p)->()\n", This);
 161     return E_NOTIMPL;
 162 }
 163
 164 static HRESULT WINAPI VBScript_GetScriptThreadID(IActiveScript *iface,
 165                                                 DWORD dwWin32ThreadId, SCRIPTTHREADID *pstidThread)
 166 {
 167     VBScript *This = impl_from_IActiveScript(iface);
 168     FIXME("(%p)->()\n", This);
 169     return E_NOTIMPL;
 170 }
 171
 172 static HRESULT WINAPI VBScript_GetScriptThreadState(IActiveScript *iface,
 173         SCRIPTTHREADID stidThread, SCRIPTTHREADSTATE *pstsState)
 174 {
 175     VBScript *This = impl_from_IActiveScript(iface);
 176     FIXME("(%p)->()\n", This);
 177     return E_NOTIMPL;
 178 }
 179
 180 static HRESULT WINAPI VBScript_InterruptScriptThread(IActiveScript *iface,
 181         SCRIPTTHREADID stidThread, const EXCEPINFO *pexcepinfo, DWORD dwFlags)
 182 {
 183     VBScript *This = impl_from_IActiveScript(iface);
 184     FIXME("(%p)->()\n", This);
 185     return E_NOTIMPL;
 186 }
 187
 188 static HRESULT WINAPI VBScript_Clone(IActiveScript *iface, IActiveScript **ppscript)
 189 {
 190     VBScript *This = impl_from_IActiveScript(iface);
 191     FIXME("(%p)->()\n", This);
 192     return E_NOTIMPL;
 193 }
 194
 195 static const IActiveScriptVtbl VBScriptVtbl = {
 196     VBScript_QueryInterface,
 197     VBScript_AddRef,
 198     VBScript_Release,
 199     VBScript_SetScriptSite,
 200     VBScript_GetScriptSite,
 201     VBScript_SetScriptState,
 202     VBScript_GetScriptState,
 203     VBScript_Close,
 204     VBScript_AddNamedItem,
 205     VBScript_AddTypeLib,
 206     VBScript_GetScriptDispatch,
 207     VBScript_GetCurrentScriptThreadID,
 208     VBScript_GetScriptThreadID,
 209     VBScript_GetScriptThreadState,
 210     VBScript_InterruptScriptThread,
 211     VBScript_Clone
 212 };
 213
 214 static inline VBScript *impl_from_IActiveScriptParse(IActiveScriptParse *iface)
 215 {
 216     return CONTAINING_RECORD(iface, VBScript, IActiveScriptParse_iface);
 217 }
 218
 219 static HRESULT WINAPI VBScriptParse_QueryInterface(IActiveScriptParse *iface, REFIID riid, void **ppv)
 220 {
 221     VBScript *This = impl_from_IActiveScriptParse(iface);
 222     return IActiveScript_QueryInterface(&This->IActiveScript_iface, riid, ppv);
 223 }
 224
 225 static ULONG WINAPI VBScriptParse_AddRef(IActiveScriptParse *iface)
 226 {
 227     VBScript *This = impl_from_IActiveScriptParse(iface);
 228     return IActiveScript_AddRef(&This->IActiveScript_iface);
 229 }
 230
 231 static ULONG WINAPI VBScriptParse_Release(IActiveScriptParse *iface)
 232 {
 233     VBScript *This = impl_from_IActiveScriptParse(iface);
 234     return IActiveScript_Release(&This->IActiveScript_iface);
 235 }
 236
 237 static HRESULT WINAPI VBScriptParse_InitNew(IActiveScriptParse *iface)
 238 {
 239     VBScript *This = impl_from_IActiveScriptParse(iface);
 240     FIXME("(%p)\n", This);
 241     return S_OK;
 242 }
 243
 244 static HRESULT WINAPI VBScriptParse_AddScriptlet(IActiveScriptParse *iface,
 245         LPCOLESTR pstrDefaultName, LPCOLESTR pstrCode, LPCOLESTR pstrItemName,
 246         LPCOLESTR pstrSubItemName, LPCOLESTR pstrEventName, LPCOLESTR pstrDelimiter,
 247         CTXARG_T dwSourceContextCookie, ULONG ulStartingLineNumber, DWORD dwFlags,
 248         BSTR *pbstrName, EXCEPINFO *pexcepinfo)
 249 {
 250     VBScript *This = impl_from_IActiveScriptParse(iface);
 251     FIXME("(%p)->(%s %s %s %s %s %s %s %u %x %p %p)\n", This, debugstr_w(pstrDefaultName),
 252           debugstr_w(pstrCode), debugstr_w(pstrItemName), debugstr_w(pstrSubItemName),
 253           debugstr_w(pstrEventName), debugstr_w(pstrDelimiter), wine_dbgstr_longlong(dwSourceContextCookie),
 254           ulStartingLineNumber, dwFlags, pbstrName, pexcepinfo);
 255     return E_NOTIMPL;
 256 }
 257
 258 static HRESULT WINAPI VBScriptParse_ParseScriptText(IActiveScriptParse *iface,
 259         LPCOLESTR pstrCode, LPCOLESTR pstrItemName, IUnknown *punkContext,
 260         LPCOLESTR pstrDelimiter, CTXARG_T dwSourceContextCookie, ULONG ulStartingLine,
 261         DWORD dwFlags, VARIANT *pvarResult, EXCEPINFO *pexcepinfo)
 262 {
 263     VBScript *This = impl_from_IActiveScriptParse(iface);
 264     FIXME("(%p)->(%s %s %p %s %s %u %x %p %p)\n", This, debugstr_w(pstrCode),
 265           debugstr_w(pstrItemName), punkContext, debugstr_w(pstrDelimiter),
 266           wine_dbgstr_longlong(dwSourceContextCookie), ulStartingLine, dwFlags, pvarResult, pexcepinfo);
 267     return E_NOTIMPL;
 268 }
 269
 270 static const IActiveScriptParseVtbl VBScriptParseVtbl = {
 271     VBScriptParse_QueryInterface,
 272     VBScriptParse_AddRef,
 273     VBScriptParse_Release,
 274     VBScriptParse_InitNew,
 275     VBScriptParse_AddScriptlet,
 276     VBScriptParse_ParseScriptText
 277 };
 278
 279 HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *pUnkOuter, REFIID riid, void **ppv)
 280 {
 281     VBScript *ret;
 282     HRESULT hres;
 283
 284     TRACE("(%p %s %p)\n", pUnkOuter, debugstr_guid(riid), ppv);
 285
 286     ret = heap_alloc_zero(sizeof(*ret));
 287     if(!ret)
 288         return E_OUTOFMEMORY;
 289
 290     ret->IActiveScript_iface.lpVtbl = &VBScriptVtbl;
 291     ret->IActiveScriptParse_iface.lpVtbl = &VBScriptParseVtbl;
 292
 293     ret->ref = 1;
 294
 295     hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
 296     IActiveScript_Release(&ret->IActiveScript_iface);
 297     return hres;
 298 }