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"
39 struct list custom_blocks
;
42 void vbsheap_init(vbsheap_t
*) DECLSPEC_HIDDEN
;
43 void *vbsheap_alloc(vbsheap_t
*,size_t) __WINE_ALLOC_SIZE(2) DECLSPEC_HIDDEN
;
44 void vbsheap_free(vbsheap_t
*) DECLSPEC_HIDDEN
;
46 typedef struct _function_t function_t
;
47 typedef struct _vbscode_t vbscode_t
;
48 typedef struct _script_ctx_t script_ctx_t
;
50 typedef struct named_item_t
{
63 } vbdisp_invoke_type_t
;
68 function_t
*entries
[VBDISP_ANY
];
69 } vbdisp_funcprop_desc_t
;
71 typedef struct _class_desc_t
{
75 vbdisp_funcprop_desc_t
*funcs
;
76 struct _class_desc_t
*next
;
80 IDispatchEx IDispatchEx_iface
;
84 const class_desc_t
*desc
;
87 HRESULT
create_vbdisp(const class_desc_t
*,vbdisp_t
**);
88 HRESULT
disp_get_id(IDispatch
*,BSTR
,BOOL
,DISPID
*);
89 HRESULT
disp_call(script_ctx_t
*,IDispatch
*,DISPID
,DISPPARAMS
*,VARIANT
*);
90 HRESULT
disp_propput(script_ctx_t
*,IDispatch
*,DISPID
,VARIANT
*);
92 static inline unsigned arg_cnt(const DISPPARAMS
*dp
)
94 return dp
->cArgs
- dp
->cNamedArgs
;
97 static inline VARIANT
*get_arg(DISPPARAMS
*dp
, DWORD i
)
99 return dp
->rgvarg
+ dp
->cArgs
-i
-1;
102 typedef struct _dynamic_var_t
{
103 struct _dynamic_var_t
*next
;
108 struct _script_ctx_t
{
109 IActiveScriptSite
*site
;
112 IDispatch
*host_global
;
114 class_desc_t script_desc
;
115 vbdisp_t
*script_obj
;
117 dynamic_var_t
*global_vars
;
118 function_t
*global_funcs
;
119 class_desc_t
*classes
;
121 struct list code_list
;
122 struct list named_items
;
125 HRESULT
init_global(script_ctx_t
*);
140 X(assign_ident, 1, ARG_BSTR, 0) \
141 X(assign_member, 1, ARG_BSTR, 0) \
142 X(bool, 1, ARG_INT, 0) \
145 X(double, 1, ARG_DOUBLE, 0) \
150 X(icall, 1, ARG_BSTR, ARG_UINT) \
151 X(icallv, 1, ARG_BSTR, ARG_UINT) \
154 X(jmp, 0, ARG_ADDR, 0) \
155 X(jmp_false, 0, ARG_ADDR, 0) \
156 X(long, 1, ARG_INT, 0) \
157 X(mcall, 1, ARG_BSTR, ARG_UINT) \
158 X(mcallv, 1, ARG_BSTR, ARG_UINT) \
163 X(new, 1, ARG_STR, 0) \
165 X(nothing, 1, 0, 0) \
169 X(set_ident, 1, ARG_BSTR, 0) \
170 X(set_member, 1, ARG_BSTR, 0) \
171 X(short, 1, ARG_INT, 0) \
173 X(string, 1, ARG_STR, 0) \
178 #define X(x,n,a,b) OP_##x,
214 function_type_t type
;
230 BOOL option_explicit
;
232 BOOL global_executed
;
233 function_t global_code
;
236 unsigned bstr_pool_size
;
243 void release_vbscode(vbscode_t
*) DECLSPEC_HIDDEN
;
244 HRESULT
compile_script(script_ctx_t
*,const WCHAR
*,vbscode_t
**) DECLSPEC_HIDDEN
;
245 HRESULT
exec_script(script_ctx_t
*,function_t
*,IDispatch
*,DISPPARAMS
*,VARIANT
*) DECLSPEC_HIDDEN
;
247 HRESULT WINAPI
VBScriptFactory_CreateInstance(IClassFactory
*,IUnknown
*,REFIID
,void**);
249 const char *debugstr_variant(const VARIANT
*) DECLSPEC_HIDDEN
;
251 static inline void *heap_alloc(size_t len
)
253 return HeapAlloc(GetProcessHeap(), 0, len
);
256 static inline void *heap_alloc_zero(size_t len
)
258 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, len
);
261 static inline void *heap_realloc(void *mem
, size_t len
)
263 return HeapReAlloc(GetProcessHeap(), 0, mem
, len
);
266 static inline BOOL
heap_free(void *mem
)
268 return HeapFree(GetProcessHeap(), 0, mem
);
271 static inline LPWSTR
heap_strdupW(LPCWSTR str
)
278 size
= (strlenW(str
)+1)*sizeof(WCHAR
);
279 ret
= heap_alloc(size
);
281 memcpy(ret
, str
, size
);