2 * Copyright 2008 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
31 #include "wine/unicode.h"
32 #include "wine/list.h"
34 typedef struct _script_ctx_t script_ctx_t
;
35 typedef struct _exec_ctx_t exec_ctx_t
;
36 typedef struct _dispex_prop_t dispex_prop_t
;
49 struct list custom_blocks
;
52 void jsheap_init(jsheap_t
*);
53 void *jsheap_alloc(jsheap_t
*,DWORD
);
54 void *jsheap_grow(jsheap_t
*,void*,DWORD
,DWORD
);
55 void jsheap_clear(jsheap_t
*);
56 void jsheap_free(jsheap_t
*);
57 jsheap_t
*jsheap_mark(jsheap_t
*);
59 typedef struct DispatchEx DispatchEx
;
61 #define PROPF_ARGMASK 0x00ff
62 #define PROPF_METHOD 0x0100
63 #define PROPF_ENUM 0x0200
64 #define PROPF_CONSTR 0x0400
79 typedef HRESULT (*builtin_invoke_t
)(DispatchEx
*,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
83 builtin_invoke_t invoke
;
89 builtin_prop_t value_prop
;
91 const builtin_prop_t
*props
;
92 void (*destructor
)(DispatchEx
*);
93 void (*on_put
)(DispatchEx
*,const WCHAR
*);
97 const IDispatchExVtbl
*lpIDispatchExVtbl
;
103 dispex_prop_t
*props
;
106 DispatchEx
*prototype
;
108 const builtin_info_t
*builtin_info
;
111 #define _IDispatchEx_(x) ((IDispatchEx*) &(x)->lpIDispatchExVtbl)
113 static inline void jsdisp_release(DispatchEx
*jsdisp
)
115 IDispatchEx_Release(_IDispatchEx_(jsdisp
));
118 HRESULT
create_dispex(script_ctx_t
*,const builtin_info_t
*,DispatchEx
*,DispatchEx
**);
119 HRESULT
init_dispex(DispatchEx
*,script_ctx_t
*,const builtin_info_t
*,DispatchEx
*);
120 HRESULT
init_dispex_from_constr(DispatchEx
*,script_ctx_t
*,const builtin_info_t
*,DispatchEx
*);
121 DispatchEx
*iface_to_jsdisp(IUnknown
*);
123 HRESULT
disp_call(IDispatch
*,DISPID
,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
124 HRESULT
jsdisp_call_value(DispatchEx
*,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
125 HRESULT
disp_propget(IDispatch
*,DISPID
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
126 HRESULT
disp_propput(IDispatch
*,DISPID
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
127 HRESULT
jsdisp_propput_name(DispatchEx
*,const WCHAR
*,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
128 HRESULT
jsdisp_propput_idx(DispatchEx
*,DWORD
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
130 HRESULT
create_builtin_function(script_ctx_t
*,builtin_invoke_t
,DWORD
,DispatchEx
*,DispatchEx
**);
132 HRESULT
create_object(script_ctx_t
*,DispatchEx
*,DispatchEx
**);
133 HRESULT
create_math(script_ctx_t
*,DispatchEx
**);
134 HRESULT
create_array(script_ctx_t
*,DWORD
,DispatchEx
**);
135 HRESULT
create_regexp_str(script_ctx_t
*,const WCHAR
*,DWORD
,const WCHAR
*,DWORD
,DispatchEx
**);
136 HRESULT
create_string(script_ctx_t
*,const WCHAR
*,DWORD
,DispatchEx
**);
138 HRESULT
to_primitive(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
139 HRESULT
to_boolean(VARIANT
*,VARIANT_BOOL
*);
140 HRESULT
to_number(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
141 HRESULT
to_string(script_ctx_t
*,VARIANT
*,jsexcept_t
*,BSTR
*);
142 HRESULT
to_object(exec_ctx_t
*,VARIANT
*,IDispatch
**);
144 typedef struct named_item_t
{
148 struct named_item_t
*next
;
151 struct _script_ctx_t
{
155 exec_ctx_t
*exec_ctx
;
156 named_item_t
*named_items
;
161 DispatchEx
*script_disp
;
163 DispatchEx
*array_constr
;
164 DispatchEx
*bool_constr
;
165 DispatchEx
*number_constr
;
166 DispatchEx
*object_constr
;
167 DispatchEx
*regexp_constr
;
168 DispatchEx
*string_constr
;
171 void script_release(script_ctx_t
*);
173 static inline void script_addref(script_ctx_t
*ctx
)
178 HRESULT
init_global(script_ctx_t
*);
180 HRESULT
create_array_constr(script_ctx_t
*,DispatchEx
**);
181 HRESULT
create_bool_constr(script_ctx_t
*,DispatchEx
**);
182 HRESULT
create_number_constr(script_ctx_t
*,DispatchEx
**);
183 HRESULT
create_object_constr(script_ctx_t
*,DispatchEx
**);
184 HRESULT
create_regexp_constr(script_ctx_t
*,DispatchEx
**);
185 HRESULT
create_string_constr(script_ctx_t
*,DispatchEx
**);
192 HRESULT
regexp_match(DispatchEx
*,const WCHAR
*,DWORD
,BOOL
,match_result_t
**,DWORD
*);
194 static inline VARIANT
*get_arg(DISPPARAMS
*dp
, DWORD i
)
196 return dp
->rgvarg
+ dp
->cArgs
-i
-1;
199 static inline DWORD
arg_cnt(const DISPPARAMS
*dp
)
201 return dp
->cArgs
- dp
->cNamedArgs
;
204 const char *debugstr_variant(const VARIANT
*);
206 HRESULT WINAPI
JScriptFactory_CreateInstance(IClassFactory
*,IUnknown
*,REFIID
,void**);
208 extern LONG module_ref
;
210 static inline void lock_module(void)
212 InterlockedIncrement(&module_ref
);
215 static inline void unlock_module(void)
217 InterlockedDecrement(&module_ref
);
220 static inline void *heap_alloc(size_t len
)
222 return HeapAlloc(GetProcessHeap(), 0, len
);
225 static inline void *heap_alloc_zero(size_t len
)
227 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, len
);
230 static inline void *heap_realloc(void *mem
, size_t len
)
232 return HeapReAlloc(GetProcessHeap(), 0, mem
, len
);
235 static inline BOOL
heap_free(void *mem
)
237 return HeapFree(GetProcessHeap(), 0, mem
);
240 static inline LPWSTR
heap_strdupW(LPCWSTR str
)
247 size
= (strlenW(str
)+1)*sizeof(WCHAR
);
248 ret
= heap_alloc(size
);
249 memcpy(ret
, str
, size
);
255 #define DEFINE_THIS(cls,ifc,iface) ((cls*)((BYTE*)(iface)-offsetof(cls,lp ## ifc ## Vtbl)))