wined3d: Explicitly pass the draw rect to device_clear_render_targets().
[wine] / 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
29 #include "wine/debug.h"
30
31 WINE_DEFAULT_DEBUG_CHANNEL(jscript);
32
33 LONG module_ref = 0;
34
35 static const CLSID CLSID_JScript =
36     {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
37 static const CLSID CLSID_JScriptAuthor =
38     {0xf414c261,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
39 static const CLSID CLSID_JScriptEncode =
40     {0xf414c262,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
41
42 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
43
44 HINSTANCE jscript_hinstance;
45
46 static HRESULT WINAPI ClassFactory_QueryInterface(IClassFactory *iface, REFIID riid, void **ppv)
47 {
48     *ppv = NULL;
49
50     if(IsEqualGUID(&IID_IUnknown, riid)) {
51         TRACE("(%p)->(IID_IUnknown %p)\n", iface, ppv);
52         *ppv = iface;
53     }else if(IsEqualGUID(&IID_IClassFactory, riid)) {
54         TRACE("(%p)->(IID_IClassFactory %p)\n", iface, ppv);
55         *ppv = iface;
56     }
57
58     if(*ppv) {
59         IUnknown_AddRef((IUnknown*)*ppv);
60         return S_OK;
61     }
62
63     FIXME("(%p)->(%s %p)\n", iface, debugstr_guid(riid), ppv);
64     return E_NOINTERFACE;
65 }
66
67 static ULONG WINAPI ClassFactory_AddRef(IClassFactory *iface)
68 {
69     TRACE("(%p)\n", iface);
70     return 2;
71 }
72
73 static ULONG WINAPI ClassFactory_Release(IClassFactory *iface)
74 {
75     TRACE("(%p)\n", iface);
76     return 1;
77 }
78
79 static HRESULT WINAPI ClassFactory_LockServer(IClassFactory *iface, BOOL fLock)
80 {
81     TRACE("(%p)->(%x)\n", iface, fLock);
82
83     if(fLock)
84         lock_module();
85     else
86         unlock_module();
87
88     return S_OK;
89 }
90
91 static const IClassFactoryVtbl JScriptFactoryVtbl = {
92     ClassFactory_QueryInterface,
93     ClassFactory_AddRef,
94     ClassFactory_Release,
95     JScriptFactory_CreateInstance,
96     ClassFactory_LockServer
97 };
98
99 static IClassFactory JScriptFactory = { &JScriptFactoryVtbl };
100
101 /******************************************************************
102  *              DllMain (jscript.@)
103  */
104 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
105 {
106     TRACE("(%p %d %p)\n", hInstDLL, fdwReason, lpv);
107
108     switch(fdwReason)
109     {
110     case DLL_WINE_PREATTACH:
111         return FALSE;  /* prefer native version */
112     case DLL_PROCESS_ATTACH:
113         DisableThreadLibraryCalls(hInstDLL);
114         jscript_hinstance = hInstDLL;
115         break;
116     }
117
118     return TRUE;
119 }
120
121 /***********************************************************************
122  *              DllGetClassObject       (jscript.@)
123  */
124 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
125 {
126     if(IsEqualGUID(&CLSID_JScript, rclsid)) {
127         TRACE("(CLSID_JScript %s %p)\n", debugstr_guid(riid), ppv);
128         return IClassFactory_QueryInterface(&JScriptFactory, riid, ppv);
129     }
130
131     FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
132     return CLASS_E_CLASSNOTAVAILABLE;
133 }
134
135 /***********************************************************************
136  *          DllCanUnloadNow (jscript.@)
137  */
138 HRESULT WINAPI DllCanUnloadNow(void)
139 {
140     TRACE("() ref=%d\n", module_ref);
141
142     return module_ref ? S_FALSE : S_OK;
143 }
144
145 /***********************************************************************
146  *              register_inf
147  */
148
149 #define INF_SET_ID(id)             \
150     do                             \
151     {                              \
152         static CHAR name[] = #id;  \
153                                    \
154         pse[i].pszName = name;     \
155         clsids[i++] = &id;         \
156     } while (0)
157
158 static HRESULT register_inf(BOOL doregister)
159 {
160     HRESULT hres;
161     HMODULE hAdvpack;
162     HRESULT (WINAPI *pRegInstall)(HMODULE hm, LPCSTR pszSection, const STRTABLEA* pstTable);
163     STRTABLEA strtable;
164     STRENTRYA pse[7];
165     static CLSID const *clsids[7];
166     unsigned int i = 0;
167
168     static const WCHAR advpackW[] = {'a','d','v','p','a','c','k','.','d','l','l',0};
169
170     INF_SET_ID(CLSID_JScript);
171     INF_SET_ID(CLSID_JScriptAuthor);
172     INF_SET_ID(CLSID_JScriptEncode);
173     INF_SET_ID(CATID_ActiveScript);
174     INF_SET_ID(CATID_ActiveScriptParse);
175     INF_SET_ID(CATID_ActiveScriptEncode);
176     INF_SET_ID(CATID_ActiveScriptAuthor);
177
178     for(i = 0; i < sizeof(pse)/sizeof(pse[0]); i++) {
179         pse[i].pszValue = HeapAlloc(GetProcessHeap(), 0, 39);
180         sprintf(pse[i].pszValue, "{%08x-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}",
181                 clsids[i]->Data1, clsids[i]->Data2, clsids[i]->Data3, clsids[i]->Data4[0],
182                 clsids[i]->Data4[1], clsids[i]->Data4[2], clsids[i]->Data4[3], clsids[i]->Data4[4],
183                 clsids[i]->Data4[5], clsids[i]->Data4[6], clsids[i]->Data4[7]);
184     }
185
186     strtable.cEntries = sizeof(pse)/sizeof(pse[0]);
187     strtable.pse = pse;
188
189     hAdvpack = LoadLibraryW(advpackW);
190     pRegInstall = (void *)GetProcAddress(hAdvpack, "RegInstall");
191
192     hres = pRegInstall(jscript_hinstance, doregister ? "RegisterDll" : "UnregisterDll", &strtable);
193
194     for(i=0; i < sizeof(pse)/sizeof(pse[0]); i++)
195         HeapFree(GetProcessHeap(), 0, pse[i].pszValue);
196
197     return hres;
198 }
199
200 #undef INF_SET_CLSID
201
202 /***********************************************************************
203  *          DllRegisterServer (jscript.@)
204  */
205 HRESULT WINAPI DllRegisterServer(void)
206 {
207     TRACE("()\n");
208     return register_inf(TRUE);
209 }
210
211 /***********************************************************************
212  *          DllUnregisterServer (jscript.@)
213  */
214 HRESULT WINAPI DllUnregisterServer(void)
215 {
216     TRACE("()\n");
217     return register_inf(FALSE);
218 }