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
36 #include <wine/debug.h>
40 #define IActiveScriptParse_Release IActiveScriptParse64_Release
41 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
42 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
46 #define IActiveScriptParse_Release IActiveScriptParse32_Release
47 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
48 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
52 WINE_DEFAULT_DEBUG_CHANNEL(wscript
);
54 static const WCHAR wscriptW
[] = {'W','S','c','r','i','p','t',0};
55 static const WCHAR wshW
[] = {'W','S','H',0};
56 WCHAR scriptFullName
[MAX_PATH
];
59 ITypeInfo
*arguments_ti
;
61 static HRESULT
query_interface(REFIID
,void**);
63 static HRESULT WINAPI
ActiveScriptSite_QueryInterface(IActiveScriptSite
*iface
,
64 REFIID riid
, void **ppv
)
66 return query_interface(riid
, ppv
);
69 static ULONG WINAPI
ActiveScriptSite_AddRef(IActiveScriptSite
*iface
)
74 static ULONG WINAPI
ActiveScriptSite_Release(IActiveScriptSite
*iface
)
79 static HRESULT WINAPI
ActiveScriptSite_GetLCID(IActiveScriptSite
*iface
, LCID
*plcid
)
83 *plcid
= GetUserDefaultLCID();
87 static HRESULT WINAPI
ActiveScriptSite_GetItemInfo(IActiveScriptSite
*iface
,
88 LPCOLESTR pstrName
, DWORD dwReturnMask
, IUnknown
**ppunkItem
, ITypeInfo
**ppti
)
90 WINE_TRACE("(%s %x %p %p)\n", wine_dbgstr_w(pstrName
), dwReturnMask
, ppunkItem
, ppti
);
92 if(lstrcmpW(pstrName
, wshW
) && lstrcmpW(pstrName
, wscriptW
))
95 if(dwReturnMask
& SCRIPTINFO_ITYPEINFO
) {
96 ITypeInfo_AddRef(host_ti
);
100 if(dwReturnMask
& SCRIPTINFO_IUNKNOWN
) {
101 IHost_AddRef(&host_obj
);
102 *ppunkItem
= (IUnknown
*)&host_obj
;
108 static HRESULT WINAPI
ActiveScriptSite_GetDocVersionString(IActiveScriptSite
*iface
,
115 static HRESULT WINAPI
ActiveScriptSite_OnScriptTerminate(IActiveScriptSite
*iface
,
116 const VARIANT
*pvarResult
, const EXCEPINFO
*pexcepinfo
)
122 static HRESULT WINAPI
ActiveScriptSite_OnStateChange(IActiveScriptSite
*iface
,
123 SCRIPTSTATE ssScriptState
)
125 WINE_TRACE("(%x)\n", ssScriptState
);
129 static HRESULT WINAPI
ActiveScriptSite_OnScriptError(IActiveScriptSite
*iface
,
130 IActiveScriptError
*pscripterror
)
136 static HRESULT WINAPI
ActiveScriptSite_OnEnterScript(IActiveScriptSite
*iface
)
142 static HRESULT WINAPI
ActiveScriptSite_OnLeaveScript(IActiveScriptSite
*iface
)
148 static IActiveScriptSiteVtbl ActiveScriptSiteVtbl
= {
149 ActiveScriptSite_QueryInterface
,
150 ActiveScriptSite_AddRef
,
151 ActiveScriptSite_Release
,
152 ActiveScriptSite_GetLCID
,
153 ActiveScriptSite_GetItemInfo
,
154 ActiveScriptSite_GetDocVersionString
,
155 ActiveScriptSite_OnScriptTerminate
,
156 ActiveScriptSite_OnStateChange
,
157 ActiveScriptSite_OnScriptError
,
158 ActiveScriptSite_OnEnterScript
,
159 ActiveScriptSite_OnLeaveScript
162 static IActiveScriptSite script_site
= { &ActiveScriptSiteVtbl
};
164 static HRESULT WINAPI
ActiveScriptSiteWindow_QueryInterface(IActiveScriptSiteWindow
*iface
, REFIID riid
, void **ppv
)
166 return query_interface(riid
, ppv
);
169 static ULONG WINAPI
ActiveScriptSiteWindow_AddRef(IActiveScriptSiteWindow
*iface
)
174 static ULONG WINAPI
ActiveScriptSiteWindow_Release(IActiveScriptSiteWindow
*iface
)
179 static HRESULT WINAPI
ActiveScriptSiteWindow_GetWindow(IActiveScriptSiteWindow
*iface
, HWND
*phwnd
)
181 TRACE("(%p)\n", phwnd
);
187 static HRESULT WINAPI
ActiveScriptSiteWindow_EnableModeless(IActiveScriptSiteWindow
*iface
, BOOL fEnable
)
189 TRACE("(%x)\n", fEnable
);
193 static const IActiveScriptSiteWindowVtbl ActiveScriptSiteWindowVtbl
= {
194 ActiveScriptSiteWindow_QueryInterface
,
195 ActiveScriptSiteWindow_AddRef
,
196 ActiveScriptSiteWindow_Release
,
197 ActiveScriptSiteWindow_GetWindow
,
198 ActiveScriptSiteWindow_EnableModeless
201 static IActiveScriptSiteWindow script_site_window
= { &ActiveScriptSiteWindowVtbl
};
203 static HRESULT
query_interface(REFIID riid
, void **ppv
)
205 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
206 TRACE("(IID_IUnknown %p)\n", ppv
);
208 }else if(IsEqualGUID(riid
, &IID_IActiveScriptSite
)) {
209 TRACE("(IID_IActiveScriptSite %p)\n", ppv
);
211 }else if(IsEqualGUID(riid
, &IID_IActiveScriptSiteWindow
)) {
212 TRACE("(IID_IActiveScriptSiteWindow %p)\n", ppv
);
213 *ppv
= &script_site_window
;
216 TRACE("(%s %p)\n", wine_dbgstr_guid(riid
), ppv
);
217 return E_NOINTERFACE
;
220 IUnknown_AddRef((IUnknown
*)*ppv
);
224 static BOOL
load_typelib(void)
229 static const WCHAR wscript_exeW
[] = {'w','s','c','r','i','p','t','.','e','x','e',0};
231 hres
= LoadTypeLib(wscript_exeW
, &typelib
);
235 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
, &IID_IHost
, &host_ti
);
237 hres
= ITypeLib_GetTypeInfoOfGuid(typelib
, &IID_IArguments2
, &arguments_ti
);
239 ITypeLib_Release(typelib
);
240 return SUCCEEDED(hres
);
243 static BOOL
get_engine_clsid(const WCHAR
*ext
, CLSID
*clsid
)
245 WCHAR fileid
[64], progid
[64];
251 static const WCHAR script_engineW
[] =
252 {'\\','S','c','r','i','p','t','E','n','g','i','n','e',0};
254 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, ext
, &hkey
);
255 if(res
!= ERROR_SUCCESS
)
258 size
= ARRAY_SIZE(fileid
);
259 res
= RegQueryValueW(hkey
, NULL
, fileid
, &size
);
261 if(res
!= ERROR_SUCCESS
)
264 WINE_TRACE("fileid is %s\n", wine_dbgstr_w(fileid
));
266 lstrcatW(fileid
, script_engineW
);
267 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, fileid
, &hkey
);
268 if(res
!= ERROR_SUCCESS
)
271 size
= ARRAY_SIZE(progid
);
272 res
= RegQueryValueW(hkey
, NULL
, progid
, &size
);
274 if(res
!= ERROR_SUCCESS
)
277 WINE_TRACE("ProgID is %s\n", wine_dbgstr_w(progid
));
279 hres
= CLSIDFromProgID(progid
, clsid
);
280 return SUCCEEDED(hres
);
283 static BOOL
create_engine(CLSID
*clsid
, IActiveScript
**script_ret
,
284 IActiveScriptParse
**parser
)
286 IActiveScript
*script
;
290 hres
= CoCreateInstance(clsid
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
291 &IID_IUnknown
, (void**)&unk
);
295 hres
= IUnknown_QueryInterface(unk
, &IID_IActiveScript
, (void**)&script
);
296 IUnknown_Release(unk
);
300 hres
= IActiveScript_QueryInterface(script
, &IID_IActiveScriptParse
, (void**)parser
);
302 IActiveScript_Release(script
);
306 *script_ret
= script
;
310 static BOOL
init_engine(IActiveScript
*script
, IActiveScriptParse
*parser
)
317 hres
= IActiveScript_SetScriptSite(script
, &script_site
);
321 hres
= IActiveScriptParse_InitNew(parser
);
325 hres
= IActiveScript_AddNamedItem(script
, wscriptW
, SCRIPTITEM_ISVISIBLE
);
329 hres
= IActiveScript_AddNamedItem(script
, wshW
, SCRIPTITEM_ISVISIBLE
);
333 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_INITIALIZED
);
334 return SUCCEEDED(hres
);
337 static BSTR
get_script_str(const WCHAR
*filename
)
339 const char *file_map
;
344 file
= CreateFileW(filename
, GENERIC_READ
, 0, NULL
, OPEN_EXISTING
, FILE_ATTRIBUTE_READONLY
, NULL
);
345 if(file
== INVALID_HANDLE_VALUE
)
348 size
= GetFileSize(file
, NULL
);
349 map
= CreateFileMappingW(file
, NULL
, PAGE_READONLY
, 0, 0, NULL
);
351 if(map
== INVALID_HANDLE_VALUE
)
354 file_map
= MapViewOfFile(map
, FILE_MAP_READ
, 0, 0, 0);
359 len
= MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, NULL
, 0);
360 ret
= SysAllocStringLen(NULL
, len
);
361 MultiByteToWideChar(CP_ACP
, 0, file_map
, size
, ret
, len
);
363 UnmapViewOfFile(file_map
);
367 static void run_script(const WCHAR
*filename
, IActiveScript
*script
, IActiveScriptParse
*parser
)
372 text
= get_script_str(filename
);
374 WINE_FIXME("Could not get script text\n");
378 hres
= IActiveScriptParse_ParseScriptText(parser
, text
, NULL
, NULL
, NULL
, 1, 1,
379 SCRIPTTEXT_HOSTMANAGESSOURCE
|SCRIPTITEM_ISVISIBLE
, NULL
, NULL
);
382 WINE_FIXME("ParseScriptText failed: %08x\n", hres
);
386 hres
= IActiveScript_SetScriptState(script
, SCRIPTSTATE_STARTED
);
388 WINE_FIXME("SetScriptState failed: %08x\n", hres
);
391 static BOOL
set_host_properties(const WCHAR
*prop
)
393 static const WCHAR nologoW
[] = {'n','o','l','o','g','o',0};
394 static const WCHAR iactive
[] = {'i',0};
395 static const WCHAR batch
[] = {'b',0};
405 if(wcsicmp(prop
, iactive
) == 0)
406 wshInteractive
= VARIANT_TRUE
;
407 else if(wcsicmp(prop
, batch
) == 0)
408 wshInteractive
= VARIANT_FALSE
;
409 else if(wcsicmp(prop
, nologoW
) == 0)
410 WINE_FIXME("ignored %s switch\n", debugstr_w(nologoW
));
413 WINE_FIXME("unsupported switch %s\n", debugstr_w(prop
));
419 int WINAPI
wWinMain(HINSTANCE hInst
, HINSTANCE hPrevInst
, LPWSTR cmdline
, int cmdshow
)
421 WCHAR
*ext
, *filepart
, *filename
= NULL
;
422 IActiveScriptParse
*parser
;
423 IActiveScript
*script
;
429 WINE_TRACE("(%p %p %s %x)\n", hInst
, hPrevInst
, wine_dbgstr_w(cmdline
), cmdshow
);
431 argv
= CommandLineToArgvW(GetCommandLineW(), &argc
);
435 for(i
=1; i
<argc
; i
++) {
436 if(*argv
[i
] == '/' || *argv
[i
] == '-') {
437 if(!set_host_properties(argv
[i
]))
442 numOfArgs
= argc
-i
-1;
448 WINE_FIXME("No file name specified\n");
451 res
= GetFullPathNameW(filename
, ARRAY_SIZE(scriptFullName
), scriptFullName
, &filepart
);
452 if(!res
|| res
> ARRAY_SIZE(scriptFullName
))
455 ext
= wcsrchr(filepart
, '.');
456 if(!ext
|| !get_engine_clsid(ext
, &clsid
)) {
457 WINE_FIXME("Could not find engine for %s\n", wine_dbgstr_w(ext
));
463 if(!create_engine(&clsid
, &script
, &parser
)) {
464 WINE_FIXME("Could not create script engine\n");
469 if(init_engine(script
, parser
)) {
470 run_script(filename
, script
, parser
);
471 IActiveScript_Close(script
);
472 ITypeInfo_Release(host_ti
);
474 WINE_FIXME("Script initialization failed\n");
477 IActiveScript_Release(script
);
478 IActiveScriptParse_Release(parser
);