2 * Copyright 2010 Jacek Caban for CodeWeavers
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.
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.
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
33 #include <wine/debug.h>
37 #define IActiveScriptParse_Release IActiveScriptParse64_Release
38 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
39 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
43 #define IActiveScriptParse_Release IActiveScriptParse32_Release
44 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
45 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
49 WINE_DEFAULT_DEBUG_CHANNEL(wscript
);
51 static const WCHAR wscriptW
[] = {'W','S','c','r','i','p','t',0};
52 static const WCHAR wshW
[] = {'W','S','H',0};
53 WCHAR scriptFullName
[MAX_PATH
];
56 ITypeInfo
*arguments_ti
;
58 static HRESULT
query_interface(REFIID
,void**);
60 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
,
61 REFIID riid
, void **ppv
)
63 return query_interface(riid
, ppv
);
66 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
71 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
76 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
80 *plcid
= GetUserDefaultLCID();
84 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
,
85 LPCOLESTR pstrName
, DWORD dwReturnMask
, IUnknown
**ppunkItem
, ITypeInfo
**ppti
)
87 WINE_TRACE("(%s %x %p %p)\n", wine_dbgstr_w(pstrName
), dwReturnMask
, ppunkItem
, ppti
);
89 if(lstrcmpW(pstrName
, wshW
) && lstrcmpW(pstrName
, wscriptW
))
92 if(dwReturnMask
& SCRIPTINFO_ITYPEINFO
) {
93 ITypeInfo_AddRef(host_ti
);
97 if(dwReturnMask
& SCRIPTINFO_IUNKNOWN
) {
98 IHost_AddRef(&host_obj
);
99 *ppunkItem
= (IUnknown
*)&host_obj
;
105 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
,
112 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
113 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
119 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
,
120 SCRIPTSTATE ssScriptState
)
122 WINE_TRACE("(%x)\n", ssScriptState
);
126 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
,
127 IActiveScriptError
*pscripterror
)
133 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
139 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
145 static IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
146 ActiveScriptSite_QueryInterface
,
147 ActiveScriptSite_AddRef
,
148 ActiveScriptSite_Release
,
149 ActiveScriptSite_GetLCID
,
150 ActiveScriptSite_GetItemInfo
,
151 ActiveScriptSite_GetDocVersionString
,
152 ActiveScriptSite_OnScriptTerminate
,
153 ActiveScriptSite_OnStateChange
,
154 ActiveScriptSite_OnScriptError
,
155 ActiveScriptSite_OnEnterScript
,
156 ActiveScriptSite_OnLeaveScript
159 static IActiveScriptSite script_site
= { &ActiveScriptSiteVtbl
};
161 static HRESULT WINAPI
ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow
*iface
, REFIID riid
, void **ppv
)
163 return query_interface(riid
, ppv
);
166 static ULONG WINAPI
ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow
*iface
)
171 static ULONG WINAPI
ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow
*iface
)
176 static HRESULT WINAPI
ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow
*iface
, HWND
*phwnd
)
178 TRACE("(%p)\n", phwnd
);
184 static HRESULT WINAPI
ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow
*iface
, BOOL fEnable
)
186 TRACE("(%x)\n", fEnable
);
190 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl
= {
191 ActiveScriptSiteWindow_QueryInterface
,
192 ActiveScriptSiteWindow_AddRef
,
193 ActiveScriptSiteWindow_Release
,
194 ActiveScriptSiteWindow_GetWindow
,
195 ActiveScriptSiteWindow_EnableModeless
198 static IActiveScriptSiteWindow script_site_window
= { &ActiveScriptSiteWindowVtbl
};
200 static HRESULT
query_interface(REFIID riid
, void **ppv
)
202 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
203 TRACE("(IID_IUnknown %p)\n", ppv
);
205 }else if(IsEqualGUID(riid
, &IID_IActiveScriptSite
)) {
206 TRACE("(IID_IActiveScriptSite %p)\n", ppv
);
208 }else if(IsEqualGUID(riid
, &IID_IActiveScriptSiteWindow
)) {
209 TRACE("(IID_IActiveScriptSiteWindow %p)\n", ppv
);
210 *ppv
= &script_site_window
;
213 TRACE("(%s %p)\n", wine_dbgstr_guid(riid
), ppv
);
214 return E_NOINTERFACE
;
217 IUnknown_AddRef((IUnknown
*)*ppv
);
221 static BOOL
load_typelib(void)
226 static const WCHAR wscript_exeW
[] = {'w','s','c','r','i','p','t','.','e','x','e',0};
228 hres
= LoadTypeLib(wscript_exeW
, &typelib
);
232 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
, &IID_IHost
, &host_ti
);
234 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
, &IID_IArguments2
, &arguments_ti
);
236 ITypeLib_Release(typelib
);
237 return SUCCEEDED(hres
);
240 static BOOL
get_engine_clsid(const WCHAR
*ext
, CLSID
*clsid
)
242 WCHAR fileid
[64], progid
[64];
248 static const WCHAR script_engineW
[] =
249 {'\\','S','c','r','i','p','t','E','n','g','i','n','e',0};
251 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, ext
, &hkey
);
252 if(res
!= ERROR_SUCCESS
)
255 size
= ARRAY_SIZE(fileid
);
256 res
= RegQueryValueW(hkey
, NULL
, fileid
, &size
);
258 if(res
!= ERROR_SUCCESS
)
261 WINE_TRACE("fileid is %s\n", wine_dbgstr_w(fileid
));
263 lstrcatW(fileid
, script_engineW
);
264 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, fileid
, &hkey
);
265 if(res
!= ERROR_SUCCESS
)
268 size
= ARRAY_SIZE(progid
);
269 res
= RegQueryValueW(hkey
, NULL
, progid
, &size
);
271 if(res
!= ERROR_SUCCESS
)
274 WINE_TRACE("ProgID is %s\n", wine_dbgstr_w(progid
));
276 hres
= CLSIDFromProgID(progid
, clsid
);
277 return SUCCEEDED(hres
);
280 static BOOL
create_engine(CLSID
*clsid
, IActiveScript
**script_ret
,
281 IActiveScriptParse
**parser
)
283 IActiveScript
*script
;
287 hres
= CoCreateInstance(clsid
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
288 &IID_IUnknown
, (void**)&unk
);
292 hres
= IUnknown_QueryInterface(unk
, &IID_IActiveScript
, (void**)&script
);
293 IUnknown_Release(unk
);
297 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)parser
);
299 IActiveScript_Release(script
);
303 *script_ret
= script
;
307 static BOOL
init_engine(IActiveScript
*script
, IActiveScriptParse
*parser
)
314 hres
= IActiveScript_SetScriptSite(script
, &script_site
);
318 hres
= IActiveScriptParse_InitNew(parser
);
322 hres
= IActiveScript_AddNamedItem(script
, wscriptW
, SCRIPTITEM_ISVISIBLE
);
326 hres
= IActiveScript_AddNamedItem(script
, wshW
, SCRIPTITEM_ISVISIBLE
);
330 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_INITIALIZED
);
331 return SUCCEEDED(hres
);
334 static BSTR
get_script_str(const WCHAR
*filename
)
336 const char *file_map
;
341 file
= CreateFileW(filename
, GENERIC_READ
, 0, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_READONLY
, NULL
);
342 if(file
== INVALID_HANDLE_VALUE
)
345 size
= GetFileSize(file
, NULL
);
346 map
= CreateFileMappingW(file
, NULL
, PAGE_READONLY
, 0, 0, NULL
);
348 if(map
== INVALID_HANDLE_VALUE
)
351 file_map
= MapViewOfFile(map
, FILE_MAP_READ
, 0, 0, 0);
356 len
= MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, NULL
, 0);
357 ret
= SysAllocStringLen(NULL
, len
);
358 MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, ret
, len
);
360 UnmapViewOfFile(file_map
);
364 static void run_script(const WCHAR
*filename
, IActiveScript
*script
, IActiveScriptParse
*parser
)
369 text
= get_script_str(filename
);
371 WINE_FIXME("Could not get script text\n");
375 hres
= IActiveScriptParse_ParseScriptText(parser
, text
, NULL
, NULL
, NULL
, 1, 1,
376 SCRIPTTEXT_HOSTMANAGESSOURCE
|SCRIPTITEM_ISVISIBLE
, NULL
, NULL
);
379 WINE_FIXME("ParseScriptText failed: %08x\n", hres
);
383 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_STARTED
);
385 WINE_FIXME("SetScriptState failed: %08x\n", hres
);
388 static BOOL
set_host_properties(const WCHAR
*prop
)
390 static const WCHAR nologoW
[] = {'n','o','l','o','g','o',0};
391 static const WCHAR iactive
[] = {'i',0};
392 static const WCHAR batch
[] = {'b',0};
402 if(wcsicmp(prop
, iactive
) == 0)
403 wshInteractive
= VARIANT_TRUE
;
404 else if(wcsicmp(prop
, batch
) == 0)
405 wshInteractive
= VARIANT_FALSE
;
406 else if(wcsicmp(prop
, nologoW
) == 0)
407 WINE_FIXME("ignored %s switch\n", debugstr_w(nologoW
));
410 WINE_FIXME("unsupported switch %s\n", debugstr_w(prop
));
416 int WINAPI
wWinMain(HINSTANCE hInst
, HINSTANCE hPrevInst
, LPWSTR cmdline
, int cmdshow
)
418 WCHAR
*ext
, *filepart
, *filename
= NULL
;
419 IActiveScriptParse
*parser
;
420 IActiveScript
*script
;
426 WINE_TRACE("(%p %p %s %x)\n", hInst
, hPrevInst
, wine_dbgstr_w(cmdline
), cmdshow
);
428 argv
= CommandLineToArgvW(GetCommandLineW(), &argc
);
432 for(i
=1; i
<argc
; i
++) {
433 if(*argv
[i
] == '/' || *argv
[i
] == '-') {
434 if(!set_host_properties(argv
[i
]))
439 numOfArgs
= argc
-i
-1;
445 WINE_FIXME("No file name specified\n");
448 res
= GetFullPathNameW(filename
, ARRAY_SIZE(scriptFullName
), scriptFullName
, &filepart
);
449 if(!res
|| res
> ARRAY_SIZE(scriptFullName
))
452 ext
= wcsrchr(filepart
, '.');
453 if(!ext
|| !get_engine_clsid(ext
, &clsid
)) {
454 WINE_FIXME("Could not find engine for %s\n", wine_dbgstr_w(ext
));
460 if(!create_engine(&clsid
, &script
, &parser
)) {
461 WINE_FIXME("Could not create script engine\n");
466 if(init_engine(script
, parser
)) {
467 run_script(filename
, script
, parser
);
468 IActiveScript_Close(script
);
469 ITypeInfo_Release(host_ti
);
471 WINE_FIXME("Script initialization failed\n");
474 IActiveScript_Release(script
);
475 IActiveScriptParse_Release(parser
);