dlls/jscript/jscript_main.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 "initguid.h"
  20
  21 #include "jscript.h"
  22
  23 #include "winreg.h"
  24 #include "advpub.h"
  25 #include "activaut.h"
  26 #include "objsafe.h"
  27 #include "mshtmhst.h"
  28 #include "rpcproxy.h"
  29 #include "jscript_classes.h"
  30
  31 #include "wine/debug.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
  34
  35 LONG module_ref = 0;
  36
  37 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
  38
  39 HINSTANCE jscript_hinstance;
  40 static ITypeInfo *dispatch_typeinfo;
  41
  42 HRESULT get_dispatch_typeinfo(ITypeInfo **out)
  43 {
  44     ITypeInfo *typeinfo;
  45     ITypeLib *typelib;
  46     HRESULT hr;
  47
  48     if (!dispatch_typeinfo)
  49     {
  50         hr = LoadRegTypeLib(&IID_StdOle, STDOLE_MAJORVERNUM, STDOLE_MINORVERNUM, STDOLE_LCID, &typelib);
  51         if (FAILED(hr)) return hr;
  52
  53         hr = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IDispatch, &typeinfo);
  54         ITypeLib_Release(typelib);
  55         if (FAILED(hr)) return hr;
  56
  57         if (InterlockedCompareExchangePointer((void**)&dispatch_typeinfo, typeinfo, NULL))
  58             ITypeInfo_Release(typeinfo);
  59     }
  60
  61     *out = dispatch_typeinfo;
  62     return S_OK;
  63 }
  64
  65 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
  66 {
  67     *ppv = NULL;
  68
  69     if(IsEqualGUID(&IID_IUnknown, riid)) {
  70         TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
  71         *ppv = iface;
  72     }else if(IsEqualGUID(&IID_IClassFactory, riid)) {
  73         TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
  74         *ppv = iface;
  75     }
  76
  77     if(*ppv) {
  78         IUnknown_AddRef((IUnknown*)*ppv);
  79         return S_OK;
  80     }
  81
  82     FIXME("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
  83     return E_NOINTERFACE;
  84 }
  85
  86 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
  87 {
  88     TRACE("(%p)\n", iface);
  89     return 2;
  90 }
  91
  92 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
  93 {
  94     TRACE("(%p)\n", iface);
  95     return 1;
  96 }
  97
  98 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
  99 {
 100     TRACE("(%p)->(%x)\n", iface, fLock);
 101
 102     if(fLock)
 103         lock_module();
 104     else
 105         unlock_module();
 106
 107     return S_OK;
 108 }
 109
 110 static HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory *iface, IUnknown *outer,
 111         REFIID riid, void **ppv)
 112 {
 113     TRACE("(%p %s %p)\n", outer, debugstr_guid(riid), ppv);
 114
 115     if(outer) {
 116         *ppv = NULL;
 117         return CLASS_E_NOAGGREGATION;
 118     }
 119
 120     return create_jscript_object(FALSE, riid, ppv);
 121 }
 122
 123 static const IClassFactoryVtbl JScriptFactoryVtbl = {
 124     ClassFactory_QueryInterface,
 125     ClassFactory_AddRef,
 126     ClassFactory_Release,
 127     JScriptFactory_CreateInstance,
 128     ClassFactory_LockServer
 129 };
 130
 131 static IClassFactory JScriptFactory = { &JScriptFactoryVtbl };
 132
 133 static HRESULT WINAPI JScriptEncodeFactory_CreateInstance(IClassFactory *iface, IUnknown *outer,
 134         REFIID riid, void **ppv)
 135 {
 136     TRACE("(%p %s %p)\n", outer, debugstr_guid(riid), ppv);
 137
 138     if(outer) {
 139         *ppv = NULL;
 140         return CLASS_E_NOAGGREGATION;
 141     }
 142
 143     return create_jscript_object(TRUE, riid, ppv);
 144 }
 145
 146 static const IClassFactoryVtbl JScriptEncodeFactoryVtbl = {
 147     ClassFactory_QueryInterface,
 148     ClassFactory_AddRef,
 149     ClassFactory_Release,
 150     JScriptEncodeFactory_CreateInstance,
 151     ClassFactory_LockServer
 152 };
 153
 154 static IClassFactory JScriptEncodeFactory = { &JScriptEncodeFactoryVtbl };
 155
 156 /******************************************************************
 157  *              DllMain (jscript.@)
 158  */
 159 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
 160 {
 161     TRACE("(%p %ld %p)\n", hInstDLL, fdwReason, lpv);
 162
 163     switch(fdwReason) {
 164     case DLL_PROCESS_ATTACH:
 165         DisableThreadLibraryCalls(hInstDLL);
 166         jscript_hinstance = hInstDLL;
 167         if(!init_strings())
 168             return FALSE;
 169         break;
 170     case DLL_PROCESS_DETACH:
 171         if (lpv) break;
 172         if (dispatch_typeinfo) ITypeInfo_Release(dispatch_typeinfo);
 173         free_strings();
 174     }
 175
 176     return TRUE;
 177 }
 178
 179 /***********************************************************************
 180  *              DllGetClassObject       (jscript.@)
 181  */
 182 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
 183 {
 184     if(IsEqualGUID(&CLSID_JScript, rclsid)) {
 185         TRACE("(CLSID_JScript %s %p)\n", debugstr_guid(riid), ppv);
 186         return IClassFactory_QueryInterface(&JScriptFactory, riid, ppv);
 187     }
 188
 189     if(IsEqualGUID(&CLSID_JScriptEncode, rclsid)) {
 190         TRACE("(CLSID_JScriptEncode %s %p)\n", debugstr_guid(riid), ppv);
 191         return IClassFactory_QueryInterface(&JScriptEncodeFactory, riid, ppv);
 192     }
 193
 194     FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 195     return CLASS_E_CLASSNOTAVAILABLE;
 196 }
 197
 198 /***********************************************************************
 199  *          DllCanUnloadNow (jscript.@)
 200  */
 201 HRESULT WINAPI DllCanUnloadNow(void)
 202 {
 203     TRACE("() ref=%ld\n", module_ref);
 204
 205     return module_ref ? S_FALSE : S_OK;
 206 }