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