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 }
219
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.