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) \
80 X(icall, 1, ARG_BSTR, ARG_UINT) \
81 X(icallv, 1, ARG_BSTR, ARG_UINT) \
84 X(string, 1, ARG_STR, 0)
87 #define X(x,n,a,b) OP_##x,
115 BOOL option_explicit;
117 BOOL global_executed;
118 function_t global_code;
121 unsigned bstr_pool_size;
127 void release_vbscode(vbscode_t*) DECLSPEC_HIDDEN;
128 HRESULT compile_script(script_ctx_t*,const WCHAR*,vbscode_t**) DECLSPEC_HIDDEN;
129 HRESULT exec_script(script_ctx_t*,function_t*) DECLSPEC_HIDDEN;
131 HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**);
133 static inline void *heap_alloc(size_t len)
135 return HeapAlloc(GetProcessHeap(), 0, len);
138 static inline void *heap_alloc_zero(size_t len)
140 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
143 static inline void *heap_realloc(void *mem, size_t len)
145 return HeapReAlloc(GetProcessHeap(), 0, mem, len);
148 static inline BOOL heap_free(void *mem)
150 return HeapFree(GetProcessHeap(), 0, mem);
153 static inline LPWSTR heap_strdupW(LPCWSTR str)
160 size = (strlenW(str)+1)*sizeof(WCHAR);
161 ret = heap_alloc(size);
163 memcpy(ret, str, size);