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