1 /*
2 * Copyright 2008 Jacek Caban for CodeWeavers
3 *
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.
8 *
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.
13 *
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
17 */
18
19 #include <stdarg.h>
20 #include <stdio.h>
21
22 #define COBJMACROS
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
28 #include "dispex.h"
29 #include "activscp.h"
30
31 #include "wine/unicode.h"
32 #include "wine/list.h"
33
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;
37
38 typedef struct {
39 EXCEPINFO ei;
40 VARIANT var;
41 } jsexcept_t;
42
43 typedef struct {
44 void **blocks;
45 DWORD block_cnt;
46 DWORD last_block;
47 DWORD offset;
48 BOOL mark;
49 struct list custom_blocks;
50 } jsheap_t;
51
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*);
58
59 typedef struct DispatchEx DispatchEx;
60
61 #define PROPF_ARGMASK 0x00ff
62 #define PROPF_METHOD 0x0100
63 #define PROPF_ENUM 0x0200
64 #define PROPF_CONSTR 0x0400
65
66 typedef enum {
67 JSCLASS_NONE,
68 JSCLASS_ARRAY,
69 JSCLASS_BOOLEAN,
70 JSCLASS_FUNCTION,
71 JSCLASS_GLOBAL,
72 JSCLASS_MATH,
73 JSCLASS_NUMBER,
74 JSCLASS_OBJECT,
75 JSCLASS_REGEXP,
76 JSCLASS_STRING
77 } jsclass_t;
78
79 typedef HRESULT (*builtin_invoke_t)(DispatchEx*,LCID,WORD,DISPPARAMS*,VARIANT*,jsexcept_t*,IServiceProvider*);
80
81 typedef struct {
82 const WCHAR *name;
83 builtin_invoke_t invoke;
84 DWORD flags;
85 } builtin_prop_t;
86
87 typedef struct {
88 jsclass_t class;
89 builtin_prop_t value_prop;
90 DWORD props_cnt;
91 const builtin_prop_t *props;
92 void (*destructor)(DispatchEx*);
93 void (*on_put)(DispatchEx*,const WCHAR*);
94 } builtin_info_t;
95
96 struct DispatchEx {
97 const IDispatchExVtbl *lpIDispatchExVtbl;
98
99 LONG ref;
100
101 DWORD buf_size;
102 DWORD prop_cnt;
103 dispex_prop_t *props;
104 script_ctx_t *ctx;
105
106 DispatchEx *prototype;
107
108 const builtin_info_t *builtin_info;
109 };
110
111 #define _IDispatchEx_(x) ((IDispatchEx*) &(x)->lpIDispatchExVtbl)
112
113 static inline void jsdisp_release(DispatchEx *jsdisp)
114 {
115 IDispatchEx_Release(_IDispatchEx_(jsdisp));
116 }
117
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*);
122
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*);
129
130 HRESULT create_builtin_function(script_ctx_t*,builtin_invoke_t,DWORD,DispatchEx*,DispatchEx**);
131
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**);
137 HRESULT create_bool(script_ctx_t*,VARIANT_BOOL,DispatchEx**);
138 HRESULT create_number(script_ctx_t*,VARIANT*,DispatchEx**);
139
140 HRESULT to_primitive(script_ctx_t*,VARIANT*,jsexcept_t*,VARIANT*);
141 HRESULT to_boolean(VARIANT*,VARIANT_BOOL*);
142 HRESULT to_number(script_ctx_t*,VARIANT*,jsexcept_t*,VARIANT*);
143 HRESULT to_integer(script_ctx_t*,VARIANT*,jsexcept_t*,VARIANT*);
144 HRESULT to_int32(script_ctx_t*,VARIANT*,jsexcept_t*,INT*);
145 HRESULT to_uint32(script_ctx_t*,VARIANT*,jsexcept_t*,DWORD*);
146 HRESULT to_string(script_ctx_t*,VARIANT*,jsexcept_t*,BSTR*);
147 HRESULT to_object(exec_ctx_t*,VARIANT*,IDispatch**);
148
149 typedef struct named_item_t {
150 IDispatch *disp;
151 DWORD flags;
152
153 struct named_item_t *next;
154 } named_item_t;
155
156 struct _script_ctx_t {
157 LONG ref;
158
159 SCRIPTSTATE state;
160 exec_ctx_t *exec_ctx;
161 named_item_t *named_items;
162 LCID lcid;
163
164 jsheap_t tmp_heap;
165
166 DispatchEx *script_disp;
167 DispatchEx *global;
168 DispatchEx *function_constr;
169 DispatchEx *array_constr;
170 DispatchEx *bool_constr;
171 DispatchEx *number_constr;
172 DispatchEx *object_constr;
173 DispatchEx *regexp_constr;
174 DispatchEx *string_constr;
175 };
176
177 void script_release(script_ctx_t*);
178
179 static inline void script_addref(script_ctx_t *ctx)
180 {
181 ctx->ref++;
182 }
183
184 HRESULT init_global(script_ctx_t*);
185 HRESULT init_function_constr(script_ctx_t*);
186
187 HRESULT create_array_constr(script_ctx_t*,DispatchEx**);
188 HRESULT create_bool_constr(script_ctx_t*,DispatchEx**);
189 HRESULT create_number_constr(script_ctx_t*,DispatchEx**);
190 HRESULT create_object_constr(script_ctx_t*,DispatchEx**);
191 HRESULT create_regexp_constr(script_ctx_t*,DispatchEx**);
192 HRESULT create_string_constr(script_ctx_t*,DispatchEx**);
193
194 typedef struct {
195 const WCHAR *str;
196 DWORD len;
197 } match_result_t;
198
199 HRESULT regexp_match(DispatchEx*,const WCHAR*,DWORD,BOOL,match_result_t**,DWORD*);
200
201 static inline VARIANT *get_arg(DISPPARAMS *dp, DWORD i)
202 {
203 return dp->rgvarg + dp->cArgs-i-1;
204 }
205
206 static inline DWORD arg_cnt(const DISPPARAMS *dp)
207 {
208 return dp->cArgs - dp->cNamedArgs;
209 }
210
211 static inline void num_set_val(VARIANT *v, DOUBLE d)
212 {
213 if(d == (DOUBLE)(INT)d) {
214 V_VT(v) = VT_I4;
215 V_I4(v) = d;
216 }else {
217 V_VT(v) = VT_R8;
218 V_R8(v) = d;
219 }
220 }
221
222 const char *debugstr_variant(const VARIANT*);
223
224 HRESULT WINAPI JScriptFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**);
225
226 extern LONG module_ref;
227
228 static inline void lock_module(void)
229 {
230 InterlockedIncrement(&module_ref);
231 }
232
233 static inline void unlock_module(void)
234 {
235 InterlockedDecrement(&module_ref);
236 }
237
238 static inline void *heap_alloc(size_t len)
239 {
240 return HeapAlloc(GetProcessHeap(), 0, len);
241 }
242
243 static inline void *heap_alloc_zero(size_t len)
244 {
245 return HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
246 }
247
248 static inline void *heap_realloc(void *mem, size_t len)
249 {
250 return HeapReAlloc(GetProcessHeap(), 0, mem, len);
251 }
252
253 static inline BOOL heap_free(void *mem)
254 {
255 return HeapFree(GetProcessHeap(), 0, mem);
256 }
257
258 static inline LPWSTR heap_strdupW(LPCWSTR str)
259 {
260 LPWSTR ret = NULL;
261
262 if(str) {
263 DWORD size;
264
265 size = (strlenW(str)+1)*sizeof(WCHAR);
266 ret = heap_alloc(size);
267 memcpy(ret, str, size);
268 }
269
270 return ret;
271 }
272
273 #define DEFINE_THIS(cls,ifc,iface) ((cls*)((BYTE*)(iface)-offsetof(cls,lp ## ifc ## Vtbl)))
274
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.