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
**);
119 HRESULT
to_primitive(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
120 HRESULT
to_boolean(VARIANT
*,VARIANT_BOOL
*);
121 HRESULT
to_number(script_ctx_t
*,VARIANT
*,jsexcept_t
*,VARIANT
*);
122 HRESULT
to_string(script_ctx_t
*,VARIANT
*,jsexcept_t
*,BSTR
*);
123 HRESULT
to_object(exec_ctx_t
*,VARIANT
*,IDispatch
**);
125 typedef struct named_item_t
{
129 struct named_item_t
*next
;
132 struct _script_ctx_t
{
136 exec_ctx_t
*exec_ctx
;
137 named_item_t
*named_items
;
140 DispatchEx
*script_disp
;
142 DispatchEx
*array_constr
;
143 DispatchEx
*bool_constr
;
144 DispatchEx
*number_constr
;
145 DispatchEx
*object_constr
;
146 DispatchEx
*regexp_constr
;
147 DispatchEx
*string_constr
;
150 void script_release(script_ctx_t
*);
152 static inline void script_addref(script_ctx_t
*ctx
)
157 HRESULT
init_global(script_ctx_t
*);
159 HRESULT
create_array_constr(script_ctx_t
*,DispatchEx
**);
160 HRESULT
create_bool_constr(script_ctx_t
*,DispatchEx
**);
161 HRESULT
create_number_constr(script_ctx_t
*,DispatchEx
**);
162 HRESULT
create_object_constr(script_ctx_t
*,DispatchEx
**);
163 HRESULT
create_regexp_constr(script_ctx_t
*,DispatchEx
**);
164 HRESULT
create_string_constr(script_ctx_t
*,DispatchEx
**);
166 const char *debugstr_variant(const VARIANT
*);
168 HRESULT WINAPI
JScriptFactory_CreateInstance(IClassFactory
*,IUnknown
*,REFIID
,void**);
175 struct list custom_blocks
;
178 void jsheap_init(jsheap_t
*);
179 void *jsheap_alloc(jsheap_t
*,DWORD
);
180 void jsheap_clear(jsheap_t
*);
181 void jsheap_free(jsheap_t
*);
183 extern LONG module_ref
;
185 static inline void lock_module(void)
187 InterlockedIncrement(&module_ref
);
190 static inline void unlock_module(void)
192 InterlockedDecrement(&module_ref
);
195 static inline void *heap_alloc(size_t len
)
197 return HeapAlloc(GetProcessHeap(), 0, len
);
200 static inline void *heap_alloc_zero(size_t len
)
202 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, len
);
205 static inline void *heap_realloc(void *mem
, size_t len
)
207 return HeapReAlloc(GetProcessHeap(), 0, mem
, len
);
210 static inline BOOL
heap_free(void *mem
)
212 return HeapFree(GetProcessHeap(), 0, mem
);
215 static inline LPWSTR
heap_strdupW(LPCWSTR str
)
222 size
= (strlenW(str
)+1)*sizeof(WCHAR
);
223 ret
= heap_alloc(size
);
224 memcpy(ret
, str
, size
);
230 #define DEFINE_THIS(cls,ifc,iface) ((cls*)((BYTE*)(iface)-offsetof(cls,lp ## ifc ## Vtbl)))