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
;
43 typedef struct DispatchEx DispatchEx
;
45 #define PROPF_ARGMASK 0x00ff
46 #define PROPF_METHOD 0x0100
47 #define PROPF_ENUM 0x0200
48 #define PROPF_CONSTR 0x0400
63 typedef HRESULT (*builtin_invoke_t
)(DispatchEx
*,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
67 builtin_invoke_t invoke
;
73 builtin_prop_t value_prop
;
75 const builtin_prop_t
*props
;
76 void (*destructor
)(DispatchEx
*);
77 void (*on_put
)(DispatchEx
*,const WCHAR
*);
81 const IDispatchExVtbl
*lpIDispatchExVtbl
;
90 DispatchEx
*prototype
;
92 const builtin_info_t
*builtin_info
;
95 #define _IDispatchEx_(x) ((IDispatchEx*) &(x)->lpIDispatchExVtbl)
97 static inline void jsdisp_release(DispatchEx
*jsdisp
)
99 IDispatchEx_Release(_IDispatchEx_(jsdisp
));
102 HRESULT
create_dispex(script_ctx_t
*,const builtin_info_t
*,DispatchEx
*,DispatchEx
**);
103 HRESULT
init_dispex(DispatchEx
*,script_ctx_t
*,const builtin_info_t
*,DispatchEx
*);
104 HRESULT
init_dispex_from_constr(DispatchEx
*,script_ctx_t
*,const builtin_info_t
*,DispatchEx
*);
105 DispatchEx
*iface_to_jsdisp(IUnknown
*);
107 HRESULT
disp_call(IDispatch
*,DISPID
,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
108 HRESULT
jsdisp_call_value(DispatchEx
*,LCID
,WORD
,DISPPARAMS
*,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
109 HRESULT
disp_propget(IDispatch
*,DISPID
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
110 HRESULT
disp_propput(IDispatch
*,DISPID
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
111 HRESULT
jsdisp_propput_name(DispatchEx
*,const WCHAR
*,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
112 HRESULT
jsdisp_propput_idx(DispatchEx
*,DWORD
,LCID
,VARIANT
*,jsexcept_t
*,IServiceProvider
*);
114 HRESULT
create_builtin_function(script_ctx_t
*,builtin_invoke_t
,DWORD
,DispatchEx
*,DispatchEx
**);
116 HRESULT
create_object(script_ctx_t
*,DispatchEx
*,DispatchEx
**);
117 HRESULT
create_math(script_ctx_t
*,DispatchEx
**);
118 HRESULT
create_array(script_ctx_t
*,DWORD
,DispatchEx
**);
120 HRESULT
to_primitive(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
121 HRESULT
to_boolean(VARIANT
*,VARIANT_BOOL
*);
122 HRESULT
to_number(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
123 HRESULT
to_string(script_ctx_t
*,VARIANT
*,jsexcept_t
*,BSTR
*);
124 HRESULT
to_object(exec_ctx_t
*,VARIANT
*,IDispatch
**);
126 typedef struct named_item_t
{
130 struct named_item_t
*next
;
133 struct _script_ctx_t
{
137 exec_ctx_t
*exec_ctx
;
138 named_item_t
*named_items
;
141 DispatchEx
*script_disp
;
143 DispatchEx
*array_constr
;
144 DispatchEx
*bool_constr
;
145 DispatchEx
*number_constr
;
146 DispatchEx
*object_constr
;
147 DispatchEx
*regexp_constr
;
148 DispatchEx
*string_constr
;
151 void script_release(script_ctx_t
*);
153 static inline void script_addref(script_ctx_t
*ctx
)
158 HRESULT
init_global(script_ctx_t
*);
160 HRESULT
create_array_constr(script_ctx_t
*,DispatchEx
**);
161 HRESULT
create_bool_constr(script_ctx_t
*,DispatchEx
**);
162 HRESULT
create_number_constr(script_ctx_t
*,DispatchEx
**);
163 HRESULT
create_object_constr(script_ctx_t
*,DispatchEx
**);
164 HRESULT
create_regexp_constr(script_ctx_t
*,DispatchEx
**);
165 HRESULT
create_string_constr(script_ctx_t
*,DispatchEx
**);
167 static inline VARIANT
*get_arg(DISPPARAMS
*dp
, DWORD i
)
169 return dp
->rgvarg
+ dp
->cArgs
-i
-1;
172 static inline DWORD
arg_cnt(const DISPPARAMS
*dp
)
174 return dp
->cArgs
- dp
->cNamedArgs
;
177 const char *debugstr_variant(const VARIANT
*);
179 HRESULT WINAPI
JScriptFactory_CreateInstance(IClassFactory
*,IUnknown
*,REFIID
,void**);
186 struct list custom_blocks
;
189 void jsheap_init(jsheap_t
*);
190 void *jsheap_alloc(jsheap_t
*,DWORD
);
191 void jsheap_clear(jsheap_t
*);
192 void jsheap_free(jsheap_t
*);
194 extern LONG module_ref
;
196 static inline void lock_module(void)
198 InterlockedIncrement(&module_ref
);
201 static inline void unlock_module(void)
203 InterlockedDecrement(&module_ref
);
206 static inline void *heap_alloc(size_t len
)
208 return HeapAlloc(GetProcessHeap(), 0, len
);
211 static inline void *heap_alloc_zero(size_t len
)
213 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, len
);
216 static inline void *heap_realloc(void *mem
, size_t len
)
218 return HeapReAlloc(GetProcessHeap(), 0, mem
, len
);
221 static inline BOOL
heap_free(void *mem
)
223 return HeapFree(GetProcessHeap(), 0, mem
);
226 static inline LPWSTR
heap_strdupW(LPCWSTR str
)
233 size
= (strlenW(str
)+1)*sizeof(WCHAR
);
234 ret
= heap_alloc(size
);
235 memcpy(ret
, str
, size
);
241 #define DEFINE_THIS(cls,ifc,iface) ((cls*)((BYTE*)(iface)-offsetof(cls,lp ## ifc ## Vtbl)))