ReactOS 0.4.17-dev-966-gf06eace
main.c File Reference
#include <stdarg.h>
#include <sys/types.h>
#include "windef.h"
#include "winbase.h"
#include "winsock2.h"
#include "ws2ipdef.h"
#include "ws2tcpip.h"
#include "winnls.h"
#include "wininet.h"
#include "ole2.h"
#include "dispex.h"
#include "activscp.h"
#include "wine/debug.h"
Include dependency graph for main.c:

Go to the source code of this file.

Classes

struct  pac_script
 

Macros

#define COBJMACROS
 
#define DISPID_GLOBAL_DNSRESOLVE   0x1000
 
#define IActiveScriptParse_Release   IActiveScriptParse32_Release
 
#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew
 
#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText
 

Functions

 WINE_DEFAULT_DEBUG_CHANNEL (jsproxy)
 
static WCHAR * strdupAW (const char *src, int len)
 
static char * strdupWA (const WCHAR *src)
 
BOOL WINAPI InternetDeInitializeAutoProxyDll (LPSTR mime, DWORD reserved)
 
static WCHAR * load_script (const char *filename)
 
BOOL WINAPI JSPROXY_InternetInitializeAutoProxyDll (DWORD version, LPSTR tmpfile, LPSTR mime, AutoProxyHelperFunctions *callbacks, LPAUTO_PROXY_SCRIPT_BUFFER buffer)
 
static HRESULT WINAPI dispex_QueryInterface (IDispatchEx *iface, REFIID riid, void **ppv)
 
static ULONG WINAPI dispex_AddRef (IDispatchEx *iface)
 
static ULONG WINAPI dispex_Release (IDispatchEx *iface)
 
static HRESULT WINAPI dispex_GetTypeInfoCount (IDispatchEx *iface, UINT *info)
 
static HRESULT WINAPI dispex_GetTypeInfo (IDispatchEx *iface, UINT info, LCID lcid, ITypeInfo **type_info)
 
static HRESULT WINAPI dispex_GetIDsOfNames (IDispatchEx *iface, REFIID riid, LPOLESTR *names, UINT count, LCID lcid, DISPID *id)
 
static HRESULT WINAPI dispex_Invoke (IDispatchEx *iface, DISPID member, REFIID riid, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result, EXCEPINFO *excep, UINT *err)
 
static HRESULT WINAPI dispex_DeleteMemberByName (IDispatchEx *iface, BSTR name, DWORD flags)
 
static HRESULT WINAPI dispex_DeleteMemberByDispID (IDispatchEx *iface, DISPID id)
 
static HRESULT WINAPI dispex_GetMemberProperties (IDispatchEx *iface, DISPID id, DWORD flags_fetch, DWORD *flags)
 
static HRESULT WINAPI dispex_GetMemberName (IDispatchEx *iface, DISPID id, BSTR *name)
 
static HRESULT WINAPI dispex_GetNextDispID (IDispatchEx *iface, DWORD flags, DISPID id, DISPID *next)
 
static HRESULT WINAPI dispex_GetNameSpaceParent (IDispatchEx *iface, IUnknown **unk)
 
static HRESULT WINAPI dispex_GetDispID (IDispatchEx *iface, BSTR name, DWORD flags, DISPID *id)
 
static char * get_computer_name (COMPUTER_NAME_FORMAT format)
 
static void printf_addr (const WCHAR *fmt, WCHAR *buf, SIZE_T size, struct sockaddr_in *addr)
 
static HRESULT dns_resolve (const WCHAR *hostname, VARIANT *result)
 
static HRESULT WINAPI dispex_InvokeEx (IDispatchEx *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result, EXCEPINFO *exep, IServiceProvider *caller)
 
static HRESULT WINAPI site_QueryInterface (IActiveScriptSite *iface, REFIID riid, void **ppv)
 
static ULONG WINAPI site_AddRef (IActiveScriptSite *iface)
 
static ULONG WINAPI site_Release (IActiveScriptSite *iface)
 
static HRESULT WINAPI site_GetLCID (IActiveScriptSite *iface, LCID *lcid)
 
static HRESULT WINAPI site_GetItemInfo (IActiveScriptSite *iface, LPCOLESTR name, DWORD mask, IUnknown **item, ITypeInfo **type_info)
 
static HRESULT WINAPI site_GetDocVersionString (IActiveScriptSite *iface, BSTR *version)
 
static HRESULT WINAPI site_OnScriptTerminate (IActiveScriptSite *iface, const VARIANT *result, const EXCEPINFO *info)
 
static HRESULT WINAPI site_OnStateChange (IActiveScriptSite *iface, SCRIPTSTATE state)
 
static HRESULT WINAPI site_OnScriptError (IActiveScriptSite *iface, IActiveScriptError *error)
 
static HRESULT WINAPI site_OnEnterScript (IActiveScriptSite *iface)
 
static HRESULT WINAPI site_OnLeaveScript (IActiveScriptSite *iface)
 
static BSTR include_pac_utils (const WCHAR *script)
 
static BOOL run_script (const WCHAR *script, const WCHAR *url, const WCHAR *hostname, char **result_str, DWORD *result_len)
 
BOOL WINAPI InternetGetProxyInfo (LPCSTR url, DWORD len_url, LPCSTR hostname, DWORD len_hostname, LPSTR *proxy, LPDWORD len_proxy)
 

Variables

static CRITICAL_SECTION cs_jsproxy = { &critsect_debug, -1, 0, 0, 0, 0 }
 
static CRITICAL_SECTION_DEBUG critsect_debug
 
static struct pac_script pac_script
 
static struct pac_script * global_script = &pac_script
 
static const IDispatchExVtbl dispex_vtbl
 
static IDispatchEx global_dispex = { &dispex_vtbl }
 
static const IActiveScriptSiteVtbl site_vtbl
 
static IActiveScriptSite script_site = { &site_vtbl }
 

Macro Definition Documentation

◆ COBJMACROS

#define COBJMACROS

Definition at line 34 of file main.c.

◆ DISPID_GLOBAL_DNSRESOLVE

#define DISPID_GLOBAL_DNSRESOLVE   0x1000

Definition at line 251 of file main.c.

◆ IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 479 of file main.c.

◆ IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 480 of file main.c.

◆ IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 478 of file main.c.

Function Documentation

◆ dispex_AddRef()

static ULONG WINAPI dispex_AddRef ( IDispatchEx *  iface)
static

Definition at line 178 of file main.c.

180{
181 return 2;
182}

◆ dispex_DeleteMemberByDispID()

static HRESULT WINAPI dispex_DeleteMemberByDispID ( IDispatchEx *  iface,
DISPID  id 
)
static

Definition at line 221 of file main.c.

223{
224 return E_NOTIMPL;
225}
#define E_NOTIMPL
Definition: ddrawi.h:99

◆ dispex_DeleteMemberByName()

static HRESULT WINAPI dispex_DeleteMemberByName ( IDispatchEx *  iface,
BSTR  name,
DWORD  flags 
)
static

Definition at line 215 of file main.c.

217{
218 return E_NOTIMPL;
219}

◆ dispex_GetDispID()

static HRESULT WINAPI dispex_GetDispID ( IDispatchEx *  iface,
BSTR  name,
DWORD  flags,
DISPID *  id 
)
static

Definition at line 253 of file main.c.

255{
256 if (!lstrcmpW( name, L"dns_resolve" ))
257 {
259 return S_OK;
260 }
261 return DISP_E_UNKNOWNNAME;
262}
#define DISPID_GLOBAL_DNSRESOLVE
Definition: main.c:251
int WINAPI lstrcmpW(LPCWSTR str1, LPCWSTR str2)
Definition: locale.c:4152
#define L(x)
Definition: resources.c:13
#define S_OK
Definition: intsafe.h:52
Definition: name.c:39
#define DISP_E_UNKNOWNNAME
Definition: winerror.h:3618

◆ dispex_GetIDsOfNames()

static HRESULT WINAPI dispex_GetIDsOfNames ( IDispatchEx *  iface,
REFIID  riid,
LPOLESTR *  names,
UINT  count,
LCID  lcid,
DISPID *  id 
)
static

Definition at line 202 of file main.c.

204{
205 return E_NOTIMPL;
206}

◆ dispex_GetMemberName()

static HRESULT WINAPI dispex_GetMemberName ( IDispatchEx *  iface,
DISPID  id,
BSTR *  name 
)
static

Definition at line 233 of file main.c.

235{
236 return E_NOTIMPL;
237}

◆ dispex_GetMemberProperties()

static HRESULT WINAPI dispex_GetMemberProperties ( IDispatchEx *  iface,
DISPID  id,
DWORD  flags_fetch,
DWORD *  flags 
)
static

Definition at line 227 of file main.c.

229{
230 return E_NOTIMPL;
231}

◆ dispex_GetNameSpaceParent()

static HRESULT WINAPI dispex_GetNameSpaceParent ( IDispatchEx *  iface,
IUnknown **  unk 
)
static

Definition at line 245 of file main.c.

247{
248 return E_NOTIMPL;
249}

◆ dispex_GetNextDispID()

static HRESULT WINAPI dispex_GetNextDispID ( IDispatchEx *  iface,
DWORD  flags,
DISPID  id,
DISPID *  next 
)
static

Definition at line 239 of file main.c.

241{
242 return E_NOTIMPL;
243}

◆ dispex_GetTypeInfo()

static HRESULT WINAPI dispex_GetTypeInfo ( IDispatchEx *  iface,
UINT  info,
LCID  lcid,
ITypeInfo **  type_info 
)
static

Definition at line 196 of file main.c.

198{
199 return E_NOTIMPL;
200}

◆ dispex_GetTypeInfoCount()

static HRESULT WINAPI dispex_GetTypeInfoCount ( IDispatchEx *  iface,
UINT *  info 
)
static

Definition at line 190 of file main.c.

192{
193 return E_NOTIMPL;
194}

◆ dispex_Invoke()

static HRESULT WINAPI dispex_Invoke ( IDispatchEx *  iface,
DISPID  member,
REFIID  riid,
LCID  lcid,
WORD  flags,
DISPPARAMS *  params,
VARIANT *  result,
EXCEPINFO *  excep,
UINT *  err 
)
static

Definition at line 208 of file main.c.

211{
212 return E_NOTIMPL;
213}

◆ dispex_InvokeEx()

static HRESULT WINAPI dispex_InvokeEx ( IDispatchEx *  iface,
DISPID  id,
LCID  lcid,
WORD  flags,
DISPPARAMS *  params,
VARIANT *  result,
EXCEPINFO *  exep,
IServiceProvider *  caller 
)
static

Definition at line 320 of file main.c.

323{
324 if (id == DISPID_GLOBAL_DNSRESOLVE)
325 {
326 if (params->cArgs != 1) return DISP_E_BADPARAMCOUNT;
327 if (V_VT(&params->rgvarg[0]) != VT_BSTR) return DISP_E_BADVARTYPE;
328 return dns_resolve( V_BSTR(&params->rgvarg[0]), result );
329 }
331}
@ VT_BSTR
Definition: compat.h:2303
static HRESULT dns_resolve(const WCHAR *hostname, VARIANT *result)
Definition: main.c:289
GLenum const GLfloat * params
Definition: glext.h:5645
GLuint64EXT * result
Definition: glext.h:11304
#define V_VT(A)
Definition: oleauto.h:211
#define V_BSTR(A)
Definition: oleauto.h:226
#define DISP_E_BADVARTYPE
Definition: winerror.h:3620
#define DISP_E_BADPARAMCOUNT
Definition: winerror.h:3626
#define DISP_E_MEMBERNOTFOUND
Definition: winerror.h:3615

◆ dispex_QueryInterface()

static HRESULT WINAPI dispex_QueryInterface ( IDispatchEx *  iface,
REFIID  riid,
void **  ppv 
)
static

Definition at line 163 of file main.c.

165{
166 *ppv = NULL;
167
168 if (IsEqualGUID( riid, &IID_IUnknown ) ||
170 IsEqualGUID( riid, &IID_IDispatchEx ))
171 *ppv = iface;
172 else
173 return E_NOINTERFACE;
174
175 return S_OK;
176}
const GUID IID_IUnknown
#define NULL
Definition: types.h:112
REFIID riid
Definition: atlbase.h:39
REFIID LPVOID * ppv
Definition: atlbase.h:39
const GUID IID_IDispatch
#define IsEqualGUID(rguid1, rguid2)
Definition: guiddef.h:147
#define E_NOINTERFACE
Definition: winerror.h:3479

◆ dispex_Release()

static ULONG WINAPI dispex_Release ( IDispatchEx *  iface)
static

Definition at line 184 of file main.c.

186{
187 return 1;
188}

◆ dns_resolve()

static HRESULT dns_resolve ( const WCHAR *  hostname,
VARIANT *  result 
)
static

Definition at line 289 of file main.c.

290{
291 WCHAR addr[16];
292 struct addrinfo *ai, *elem;
293 char *hostnameA;
294 int res;
295
296 if (hostname[0])
297 hostnameA = strdupWA( hostname );
298 else
299 hostnameA = get_computer_name( ComputerNamePhysicalDnsFullyQualified );
300
301 if (!hostnameA) return E_OUTOFMEMORY;
302 res = getaddrinfo( hostnameA, NULL, NULL, &ai );
303 free( hostnameA );
304 if (res) return S_FALSE;
305
306 elem = ai;
307 while (elem && elem->ai_family != AF_INET) elem = elem->ai_next;
308 if (!elem)
309 {
310 freeaddrinfo( ai );
311 return S_FALSE;
312 }
313 printf_addr( L"%u.%u.%u.%u", addr, ARRAY_SIZE(addr), (struct sockaddr_in *)elem->ai_addr );
314 freeaddrinfo( ai );
315 V_VT( result ) = VT_BSTR;
317 return S_OK;
318}
char * hostname
Definition: ftp.c:88
#define ARRAY_SIZE(A)
Definition: main.h:20
#define E_OUTOFMEMORY
Definition: ddrawi.h:100
#define free
Definition: debug_ros.c:5
static char * strdupWA(const WCHAR *src)
Definition: main.c:67
static void printf_addr(const WCHAR *fmt, WCHAR *buf, SIZE_T size, struct sockaddr_in *addr)
Definition: main.c:280
static char * get_computer_name(COMPUTER_NAME_FORMAT format)
Definition: main.c:264
#define AF_INET
Definition: tcpip.h:117
GLuint res
Definition: glext.h:9613
GLenum const GLvoid * addr
Definition: glext.h:9621
static size_t elem
Definition: string.c:71
BSTR WINAPI SysAllocString(LPCOLESTR str)
Definition: oleaut.c:240
short WCHAR
Definition: pedump.c:58
#define S_FALSE
Definition: winerror.h:3451
#define getaddrinfo
Definition: wspiapi.h:44
#define freeaddrinfo
Definition: wspiapi.h:46

Referenced by dispex_InvokeEx().

◆ get_computer_name()

static char * get_computer_name ( COMPUTER_NAME_FORMAT  format)
static

Definition at line 264 of file main.c.

265{
266 char *ret;
267 DWORD size = 0;
268
270 if (GetLastError() != ERROR_MORE_DATA) return NULL;
271 if (!(ret = malloc( size ))) return NULL;
273 {
274 free( ret );
275 return NULL;
276 }
277 return ret;
278}
#define ERROR_MORE_DATA
Definition: dderror.h:13
#define malloc
Definition: debug_ros.c:4
return ret
Definition: mutex.c:147
unsigned long DWORD
Definition: ntddk_ex.h:95
GLsizeiptr size
Definition: glext.h:5919
BOOL WINAPI GetComputerNameExA(COMPUTER_NAME_FORMAT, LPSTR, LPDWORD)
Definition: compname.c:376
DWORD WINAPI GetLastError(void)
Definition: except.c:1042

Referenced by dns_resolve().

◆ include_pac_utils()

static BSTR include_pac_utils ( const WCHAR *  script)
static

Definition at line 453 of file main.c.

454{
455 HMODULE hmod = GetModuleHandleA( "jsproxy.dll" );
456 HRSRC rsrc;
457 DWORD size;
458 const char *data;
459 BSTR ret;
460 int len;
461
462 if (!(rsrc = FindResourceW( hmod, L"pac.js", (LPCWSTR)40 ))) return NULL;
463 size = SizeofResource( hmod, rsrc );
464 data = LoadResource( hmod, rsrc );
465
467 if (!(ret = SysAllocStringLen( NULL, len + lstrlenW( script ) + 1 ))) return NULL;
469 lstrcpyW( ret + len, script );
470 return ret;
471}
#define CP_ACP
Definition: compat.h:109
OLECHAR * BSTR
Definition: compat.h:2293
#define lstrcpyW
Definition: compat.h:749
#define MultiByteToWideChar
Definition: compat.h:110
#define lstrlenW
Definition: compat.h:750
HMODULE WINAPI DECLSPEC_HOTPATCH GetModuleHandleA(LPCSTR lpModuleName)
Definition: loader.c:812
HRSRC WINAPI FindResourceW(HINSTANCE hModule, LPCWSTR name, LPCWSTR type)
Definition: res.c:176
DWORD WINAPI SizeofResource(HINSTANCE hModule, HRSRC hRsrc)
Definition: res.c:568
HGLOBAL WINAPI LoadResource(HINSTANCE hModule, HRSRC hRsrc)
Definition: res.c:532
GLint GLenum GLsizei GLsizei GLsizei GLint GLsizei const GLvoid * data
Definition: gl.h:1950
GLenum GLsizei len
Definition: glext.h:6722
static NTSTATUS *static PWSTR CURDIR *static HMODULE hmod
Definition: security.c:104
script
Definition: msipriv.h:396
BSTR WINAPI SysAllocStringLen(const OLECHAR *str, unsigned int len)
Definition: oleaut.c:341
const uint16_t * LPCWSTR
Definition: typedefs.h:57

Referenced by run_script().

◆ InternetDeInitializeAutoProxyDll()

BOOL WINAPI InternetDeInitializeAutoProxyDll ( LPSTR  mime,
DWORD  reserved 
)

Definition at line 87 of file main.c.

88{
89 TRACE( "%s, %lu\n", debugstr_a(mime), reserved );
90
92
93 free( global_script->text );
94 global_script->text = NULL;
95
97 return TRUE;
98}
#define TRUE
Definition: types.h:120
static CRITICAL_SECTION cs_jsproxy
Definition: main.c:43
static struct pac_script * global_script
Definition: main.c:82
r reserved
Definition: btrfs.c:3006
#define debugstr_a
Definition: kernel32.h:31
const WCHAR * mime
Definition: mimefilter.c:487
#define TRACE(s)
Definition: solgame.cpp:4
void WINAPI LeaveCriticalSection(LPCRITICAL_SECTION)
void WINAPI EnterCriticalSection(LPCRITICAL_SECTION)

Referenced by run_script().

◆ InternetGetProxyInfo()

BOOL WINAPI InternetGetProxyInfo ( LPCSTR  url,
DWORD  len_url,
LPCSTR  hostname,
DWORD  len_hostname,
LPSTR *  proxy,
LPDWORD  len_proxy 
)

Definition at line 570 of file main.c.

572{
573 WCHAR *urlW = NULL, *hostnameW = NULL;
574 BOOL ret = FALSE;
575
576 TRACE( "%s, %lu, %s, %lu, %p, %p\n", debugstr_a(url), len_url, hostname, len_hostname, proxy, len_proxy );
577
579
580 if (!global_script->text)
581 {
583 goto done;
584 }
585 if (!(urlW = strdupAW( url, len_url ))) goto done;
586 if (hostname && !(hostnameW = strdupAW( hostname, len_hostname ))) goto done;
587
588 TRACE( "%s\n", debugstr_w(global_script->text) );
589 ret = run_script( global_script->text, urlW, hostnameW, proxy, len_proxy );
590
591done:
592 free( hostnameW );
593 free( urlW );
595 return ret;
596}
int proxy
Definition: main.c:67
#define FALSE
Definition: types.h:117
static WCHAR * strdupAW(const char *src)
Definition: main.c:31
#define SetLastError(x)
Definition: compat.h:752
unsigned int BOOL
Definition: ntddk_ex.h:94
#define debugstr_w
Definition: kernel32.h:32
static const WCHAR url[]
Definition: encode.c:1384
#define run_script(a)
Definition: run.c:2699
#define ERROR_CAN_NOT_COMPLETE
Definition: winerror.h:906

◆ JSPROXY_InternetInitializeAutoProxyDll()

BOOL WINAPI JSPROXY_InternetInitializeAutoProxyDll ( DWORD  version,
LPSTR  tmpfile,
LPSTR  mime,
AutoProxyHelperFunctions *  callbacks,
LPAUTO_PROXY_SCRIPT_BUFFER  buffer 
)

Definition at line 129 of file main.c.

132{
133 BOOL ret = FALSE;
134
135 TRACE( "%lu, %s, %s, %p, %p\n", version, debugstr_a(tmpfile), debugstr_a(mime), callbacks, buffer );
136
137 if (callbacks) FIXME( "callbacks not supported\n" );
138
140
141 if (buffer && buffer->dwStructSize == sizeof(*buffer) && buffer->lpszScriptBuffer)
142 {
143 if (!buffer->dwScriptBufferSize)
144 {
147 return FALSE;
148 }
149 free( global_script->text );
150 if ((global_script->text = strdupAW( buffer->lpszScriptBuffer,
151 buffer->dwScriptBufferSize ))) ret = TRUE;
152 }
153 else
154 {
155 free( global_script->text );
156 if ((global_script->text = load_script( tmpfile ))) ret = TRUE;
157 }
158
160 return ret;
161}
#define FIXME(fmt,...)
Definition: precomp.h:53
#define ERROR_INVALID_PARAMETER
Definition: compat.h:101
static const WCHAR version[]
Definition: asmname.c:66
static WCHAR * load_script(const char *filename)
Definition: main.c:100
FILE *CDECL tmpfile(void)
Definition: file.c:5199
GLuint buffer
Definition: glext.h:5915

◆ load_script()

static WCHAR * load_script ( const char *  filename)
static

Definition at line 100 of file main.c.

101{
103 DWORD size, bytes_read;
104 char *buffer;
105 int len;
106 WCHAR *script = NULL;
107
109 if (handle == INVALID_HANDLE_VALUE) return NULL;
110
112 if (!(buffer = malloc( size ))) goto done;
113 if (!ReadFile( handle, buffer, size, &bytes_read, NULL ) || bytes_read != size) goto done;
114
116 if (!(script = malloc( (len + 1) * sizeof(WCHAR) ))) goto done;
118 script[len] = 0;
119
120done:
122 free( buffer );
123 return script;
124}
#define CloseHandle
Definition: compat.h:739
#define OPEN_EXISTING
Definition: compat.h:775
#define ReadFile(a, b, c, d, e)
Definition: compat.h:742
#define INVALID_HANDLE_VALUE
Definition: compat.h:731
#define CreateFileA(a, b, c, d, e, f, g)
Definition: compat.h:740
#define GENERIC_READ
Definition: compat.h:135
#define FILE_SHARE_READ
Definition: compat.h:136
DWORD WINAPI GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh)
Definition: fileinfo.c:331
const char * filename
Definition: ioapi.h:137

Referenced by JSPROXY_InternetInitializeAutoProxyDll().

◆ printf_addr()

static void printf_addr ( const WCHAR *  fmt,
WCHAR *  buf,
SIZE_T  size,
struct sockaddr_in *  addr 
)
static

Definition at line 280 of file main.c.

281{
282 swprintf( buf, size, fmt,
283 (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 24 & 0xff),
284 (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 16 & 0xff),
285 (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 8 & 0xff),
286 (unsigned int)(ntohl( addr->sin_addr.s_addr ) & 0xff) );
287}
#define swprintf
Definition: precomp.h:40
GLenum GLuint GLenum GLsizei const GLchar * buf
Definition: glext.h:7751
#define ntohl(x)
Definition: module.h:205
Definition: dsound.c:943

Referenced by dns_resolve().

◆ run_script()

static BOOL run_script ( const WCHAR *  script,
const WCHAR *  url,
const WCHAR *  hostname,
char **  result_str,
DWORD *  result_len 
)
static

Definition at line 483 of file main.c.

484{
485 IActiveScriptParse *parser = NULL;
486 IActiveScript *engine = NULL;
488 BOOL ret = FALSE;
489 CLSID clsid;
490 DISPID dispid;
491 BSTR func = NULL, full_script = NULL;
492 VARIANT args[2], retval;
494 HRESULT hr, init;
495
497 hr = CLSIDFromProgID( L"JScript", &clsid );
498 if (hr != S_OK) goto done;
499
500 hr = CoCreateInstance( &clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
501 &IID_IActiveScript, (void **)&engine );
502 if (hr != S_OK) goto done;
503
504 hr = IActiveScript_QueryInterface( engine, &IID_IActiveScriptParse, (void **)&parser );
505 if (hr != S_OK) goto done;
506
508 if (hr != S_OK) goto done;
509
510 hr = IActiveScript_SetScriptSite( engine, &script_site );
511 if (hr != S_OK) goto done;
512
513 hr = IActiveScript_AddNamedItem( engine, L"global_funcs", SCRIPTITEM_GLOBALMEMBERS );
514 if (hr != S_OK) goto done;
515
516 if (!(full_script = include_pac_utils( script ))) goto done;
517
518 hr = IActiveScriptParse_ParseScriptText( parser, full_script, NULL, NULL, NULL, 0, 0, 0, NULL, NULL );
519 if (hr != S_OK) goto done;
520
521 hr = IActiveScript_SetScriptState( engine, SCRIPTSTATE_STARTED );
522 if (hr != S_OK) goto done;
523
524 hr = IActiveScript_GetScriptDispatch( engine, NULL, &dispatch );
525 if (hr != S_OK) goto done;
526
527 if (!(func = SysAllocString( L"FindProxyForURL" ))) goto done;
528 hr = IDispatch_GetIDsOfNames( dispatch, &IID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispid );
529 if (hr != S_OK) goto done;
530
531 V_VT( &args[0] ) = VT_BSTR;
533 V_VT( &args[1] ) = VT_BSTR;
534 V_BSTR( &args[1] ) = SysAllocString( url );
535
536 params.rgvarg = args;
537 params.rgdispidNamedArgs = NULL;
538 params.cArgs = 2;
539 params.cNamedArgs = 0;
540 hr = IDispatch_Invoke( dispatch, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD,
541 &params, &retval, NULL, NULL );
542 VariantClear( &args[0] );
543 VariantClear( &args[1] );
544 if (hr != S_OK)
545 {
546 WARN("script failed 0x%08lx\n", hr);
547 goto done;
548 }
549 if ((*result_str = strdupWA( V_BSTR( &retval ) )))
550 {
551 TRACE( "result: %s\n", debugstr_a(*result_str) );
552 *result_len = strlen( *result_str ) + 1;
553 ret = TRUE;
554 }
556
557done:
558 SysFreeString( full_script );
560 if (dispatch) IDispatch_Release( dispatch );
562 if (engine) IActiveScript_Release( engine );
563 if (SUCCEEDED( init )) CoUninitialize();
564 return ret;
565}
@ SCRIPTSTATE_STARTED
Definition: activscp.idl:58
#define IActiveScriptParse_InitNew
Definition: main.c:48
#define IActiveScriptParse_ParseScriptText
Definition: main.c:49
#define IActiveScriptParse_Release
Definition: main.c:47
void dispatch(HANDLE hStopEvent)
Definition: dispatch.c:70
#define WARN(fmt,...)
Definition: precomp.h:61
HRESULT hr
Definition: delayimp.cpp:582
HRESULT WINAPI DECLSPEC_HOTPATCH CLSIDFromProgID(LPCOLESTR progid, CLSID *clsid)
Definition: combase.c:1437
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
Definition: combase.c:2842
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, IUnknown *outer, DWORD cls_context, REFIID riid, void **obj)
Definition: combase.c:1685
static BSTR include_pac_utils(const WCHAR *script)
Definition: main.c:453
_ACRTIMP size_t __cdecl strlen(const char *)
Definition: string.c:1597
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
Definition: compobj.c:531
GLenum func
Definition: glext.h:6028
#define SUCCEEDED(hr)
Definition: intsafe.h:50
static VARIANTARG static DISPID
Definition: ordinal.c:49
const CLSID * clsid
Definition: msctf.cpp:50
struct stdole::DISPPARAMS DISPPARAMS
#define LOCALE_SYSTEM_DEFAULT
void WINAPI DECLSPEC_HOTPATCH SysFreeString(BSTR str)
Definition: oleaut.c:273
#define DISPATCH_METHOD
Definition: oleauto.h:1006
#define IID_NULL
Definition: guiddef.h:98
#define args
Definition: format.c:66
Definition: match.c:390
Definition: import.c:81
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
Definition: variant.c:626
int retval
Definition: wcstombs.cpp:91
static int init
Definition: wintirpc.c:33

◆ site_AddRef()

static ULONG WINAPI site_AddRef ( IActiveScriptSite *  iface)
static

Definition at line 370 of file main.c.

372{
373 return 2;
374}

◆ site_GetDocVersionString()

static HRESULT WINAPI site_GetDocVersionString ( IActiveScriptSite *  iface,
BSTR *  version 
)
static

Definition at line 400 of file main.c.

402{
403 return E_NOTIMPL;
404}

◆ site_GetItemInfo()

static HRESULT WINAPI site_GetItemInfo ( IActiveScriptSite *  iface,
LPCOLESTR  name,
DWORD  mask,
IUnknown **  item,
ITypeInfo **  type_info 
)
static

Definition at line 388 of file main.c.

391{
392 if (!lstrcmpW( name, L"global_funcs" ) && mask == SCRIPTINFO_IUNKNOWN)
393 {
395 return S_OK;
396 }
397 return E_NOTIMPL;
398}
static IDispatchEx global_dispex
Definition: main.c:352
GLenum GLint GLuint mask
Definition: glext.h:6028

◆ site_GetLCID()

static HRESULT WINAPI site_GetLCID ( IActiveScriptSite *  iface,
LCID *  lcid 
)
static

Definition at line 382 of file main.c.

384{
385 return E_NOTIMPL;
386}

◆ site_OnEnterScript()

static HRESULT WINAPI site_OnEnterScript ( IActiveScriptSite *  iface)
static

Definition at line 424 of file main.c.

426{
427 return E_NOTIMPL;
428}

◆ site_OnLeaveScript()

static HRESULT WINAPI site_OnLeaveScript ( IActiveScriptSite *  iface)
static

Definition at line 430 of file main.c.

432{
433 return E_NOTIMPL;
434}

◆ site_OnScriptError()

static HRESULT WINAPI site_OnScriptError ( IActiveScriptSite *  iface,
IActiveScriptError *  error 
)
static

Definition at line 418 of file main.c.

420{
421 return E_NOTIMPL;
422}

◆ site_OnScriptTerminate()

static HRESULT WINAPI site_OnScriptTerminate ( IActiveScriptSite *  iface,
const VARIANT *  result,
const EXCEPINFO *  info 
)
static

Definition at line 406 of file main.c.

408{
409 return E_NOTIMPL;
410}

◆ site_OnStateChange()

static HRESULT WINAPI site_OnStateChange ( IActiveScriptSite *  iface,
SCRIPTSTATE  state 
)
static

Definition at line 412 of file main.c.

414{
415 return E_NOTIMPL;
416}

◆ site_QueryInterface()

static HRESULT WINAPI site_QueryInterface ( IActiveScriptSite *  iface,
REFIID  riid,
void **  ppv 
)
static

Definition at line 354 of file main.c.

356{
357 *ppv = NULL;
358
360 *ppv = iface;
361 else if (IsEqualGUID( &IID_IActiveScriptSite, riid ))
362 *ppv = iface;
363 else
364 return E_NOINTERFACE;
365
366 IUnknown_AddRef( (IUnknown *)*ppv );
367 return S_OK;
368}

◆ site_Release()

static ULONG WINAPI site_Release ( IActiveScriptSite *  iface)
static

Definition at line 376 of file main.c.

378{
379 return 1;
380}

◆ strdupAW()

static WCHAR * strdupAW ( const char *  src,
int  len 
)
inlinestatic

Definition at line 52 of file main.c.

53{
54 WCHAR *dst = NULL;
55 if (src)
56 {
57 int dst_len = MultiByteToWideChar( CP_ACP, 0, src, len, NULL, 0 );
58 if ((dst = malloc( (dst_len + 1) * sizeof(WCHAR) )))
59 {
60 len = MultiByteToWideChar( CP_ACP, 0, src, len, dst, dst_len );
61 dst[dst_len] = 0;
62 }
63 }
64 return dst;
65}
GLenum src
Definition: glext.h:6340
GLenum GLenum dst
Definition: glext.h:6340

◆ strdupWA()

static char * strdupWA ( const WCHAR *  src)
inlinestatic

Definition at line 67 of file main.c.

68{
69 char *dst = NULL;
70 if (src)
71 {
72 int len = WideCharToMultiByte( CP_ACP, 0, src, -1, NULL, 0, NULL, NULL );
73 if ((dst = malloc( len ))) WideCharToMultiByte( CP_ACP, 0, src, -1, dst, len, NULL, NULL );
74 }
75 return dst;
76}
#define WideCharToMultiByte
Definition: compat.h:111

Referenced by dns_resolve(), run_script(), and secure_proxy_connect().

◆ WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL ( jsproxy  )

Variable Documentation

◆ critsect_debug

CRITICAL_SECTION_DEBUG critsect_debug
static
Initial value:
=
{
0, 0, &cs_jsproxy,
0, 0, { (DWORD_PTR)(__FILE__ ": cs_jsproxy") }
}
static CRITICAL_SECTION_DEBUG critsect_debug
Definition: main.c:44
#define DWORD_PTR
Definition: treelist.c:76

Definition at line 44 of file main.c.

◆ cs_jsproxy

static CRITICAL_SECTION cs_jsproxy = { &critsect_debug, -1, 0, 0, 0, 0 }
static

◆ dispex_vtbl

const IDispatchExVtbl dispex_vtbl
static
Initial value:
=
{
}
static HRESULT WINAPI dispex_InvokeEx(IDispatchEx *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result, EXCEPINFO *exep, IServiceProvider *caller)
Definition: main.c:320
static HRESULT WINAPI dispex_DeleteMemberByDispID(IDispatchEx *iface, DISPID id)
Definition: main.c:221
static HRESULT WINAPI dispex_GetTypeInfoCount(IDispatchEx *iface, UINT *info)
Definition: main.c:190
static ULONG WINAPI dispex_Release(IDispatchEx *iface)
Definition: main.c:184
static HRESULT WINAPI dispex_Invoke(IDispatchEx *iface, DISPID member, REFIID riid, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *result, EXCEPINFO *excep, UINT *err)
Definition: main.c:208
static HRESULT WINAPI dispex_GetIDsOfNames(IDispatchEx *iface, REFIID riid, LPOLESTR *names, UINT count, LCID lcid, DISPID *id)
Definition: main.c:202
static HRESULT WINAPI dispex_DeleteMemberByName(IDispatchEx *iface, BSTR name, DWORD flags)
Definition: main.c:215
static HRESULT WINAPI dispex_QueryInterface(IDispatchEx *iface, REFIID riid, void **ppv)
Definition: main.c:163
static ULONG WINAPI dispex_AddRef(IDispatchEx *iface)
Definition: main.c:178
static HRESULT WINAPI dispex_GetDispID(IDispatchEx *iface, BSTR name, DWORD flags, DISPID *id)
Definition: main.c:253
static HRESULT WINAPI dispex_GetTypeInfo(IDispatchEx *iface, UINT info, LCID lcid, ITypeInfo **type_info)
Definition: main.c:196
static HRESULT WINAPI dispex_GetMemberName(IDispatchEx *iface, DISPID id, BSTR *name)
Definition: main.c:233
static HRESULT WINAPI dispex_GetNextDispID(IDispatchEx *iface, DWORD flags, DISPID id, DISPID *next)
Definition: main.c:239
static HRESULT WINAPI dispex_GetMemberProperties(IDispatchEx *iface, DISPID id, DWORD flags_fetch, DWORD *flags)
Definition: main.c:227
static HRESULT WINAPI dispex_GetNameSpaceParent(IDispatchEx *iface, IUnknown **unk)
Definition: main.c:245

Definition at line 333 of file main.c.

◆ global_dispex

IDispatchEx global_dispex = { &dispex_vtbl }
static

Definition at line 352 of file main.c.

Referenced by site_GetItemInfo().

◆ global_script

◆ pac_script

◆ script_site

Definition at line 451 of file main.c.

◆ site_vtbl

const IActiveScriptSiteVtbl site_vtbl
static
Initial value:
=
{
}
static HRESULT WINAPI site_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE state)
Definition: main.c:412
static HRESULT WINAPI site_OnLeaveScript(IActiveScriptSite *iface)
Definition: main.c:430
static HRESULT WINAPI site_GetLCID(IActiveScriptSite *iface, LCID *lcid)
Definition: main.c:382
static HRESULT WINAPI site_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **ppv)
Definition: main.c:354
static ULONG WINAPI site_AddRef(IActiveScriptSite *iface)
Definition: main.c:370
static HRESULT WINAPI site_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *error)
Definition: main.c:418
static ULONG WINAPI site_Release(IActiveScriptSite *iface)
Definition: main.c:376
static HRESULT WINAPI site_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *result, const EXCEPINFO *info)
Definition: main.c:406
static HRESULT WINAPI site_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR name, DWORD mask, IUnknown **item, ITypeInfo **type_info)
Definition: main.c:388
static HRESULT WINAPI site_OnEnterScript(IActiveScriptSite *iface)
Definition: main.c:424
static HRESULT WINAPI site_GetDocVersionString(IActiveScriptSite *iface, BSTR *version)
Definition: main.c:400

Definition at line 436 of file main.c.