2 * Copyright 2011 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
29 #include "vbscript_classes.h"
31 #include "wine/list.h"
32 #include "wine/unicode.h"
34 typedef struct _function_t function_t;
35 typedef struct _vbscode_t vbscode_t;
36 typedef struct _script_ctx_t script_ctx_t;
38 typedef struct named_item_t {
47 IDispatchEx IDispatchEx_iface;
52 HRESULT disp_get_id(IDispatch*,BSTR,DISPID*);
53 HRESULT disp_call(script_ctx_t*,IDispatch*,DISPID,DISPPARAMS*,VARIANT*);
55 struct _script_ctx_t {
56 IActiveScriptSite *site;
59 IDispatch *host_global;
63 struct list code_list;
64 struct list named_items;
67 HRESULT init_global(script_ctx_t*);
78 X(bool, 1, ARG_INT, 0) \
81 X(icall, 1, ARG_BSTR, ARG_UINT) \
82 X(icallv, 1, ARG_BSTR, ARG_UINT) \
86 X(string, 1, ARG_STR, 0)
89 #define X(x,n,a,b) OP_##x,
117 BOOL option_explicit;
119 BOOL global_executed;
120 function_t global_code;
123 unsigned bstr_pool_size;
129 void release_vbscode(vbscode_t*) DECLSPEC_HIDDEN;
130 HRESULT compile_script(script_ctx_t*,const WCHAR*,vbscode_t**) DECLSPEC_HIDDEN;
131 HRESULT exec_script(script_ctx_t*,function_t*) DECLSPEC_HIDDEN;
133 HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**);
135 static inline void *heap_alloc(size_t len)
137 return HeapAlloc(GetProcessHeap(), 0, len);
140 static inline void *heap_alloc_zero(size_t len)
142 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
145 static inline void *heap_realloc(void *mem, size_t len)
147 return HeapReAlloc(GetProcessHeap(), 0, mem, len);
150 static inline BOOL heap_free(void *mem)
152 return HeapFree(GetProcessHeap(), 0, mem);
155 static inline LPWSTR heap_strdupW(LPCWSTR str)
162 size = (strlenW(str)+1)*sizeof(WCHAR);
163 ret = heap_alloc(size);
165 memcpy(ret, str, size);