1 /* 2 * Copyright 2008-2009 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 #pragma once 20 21 #include <stdarg.h> 22 #include <stdio.h> 23 24 #define COBJMACROS 25 26 #include "windef.h" 27 #include "winbase.h" 28 #include "winuser.h" 29 #include "ole2.h" 30 #include "dispex.h" 31 #include "activscp.h" 32 33 #include "resource.h" 34 35 #include "wine/unicode.h" 36 #include "wine/heap.h" 37 #include "wine/list.h" 38 39 /* 40 * This is Wine jscript extension for ES5 compatible mode. Native IE9+ implements 41 * a separated JavaScript enging in side MSHTML. We implement its features here 42 * and enable it when HTML flag is specified in SCRIPTPROP_INVOKEVERSIONING property. 43 */ 44 #define SCRIPTLANGUAGEVERSION_HTML 0x400 45 46 /* 47 * This is Wine jscript extension for ES5 compatible mode. Allowed only in HTML mode. 48 */ 49 #define SCRIPTLANGUAGEVERSION_ES5 0x102 50 51 typedef struct _jsval_t jsval_t; 52 typedef struct _jsstr_t jsstr_t; 53 typedef struct _script_ctx_t script_ctx_t; 54 typedef struct _dispex_prop_t dispex_prop_t; 55 typedef struct _property_desc_t property_desc_t; 56 57 typedef struct { 58 void **blocks; 59 DWORD block_cnt; 60 DWORD last_block; 61 DWORD offset; 62 BOOL mark; 63 struct list custom_blocks; 64 } heap_pool_t; 65 66 void heap_pool_init(heap_pool_t*) DECLSPEC_HIDDEN; 67 void *heap_pool_alloc(heap_pool_t*,DWORD) __WINE_ALLOC_SIZE(2) DECLSPEC_HIDDEN; 68 void *heap_pool_grow(heap_pool_t*,void*,DWORD,DWORD) DECLSPEC_HIDDEN; 69 void heap_pool_clear(heap_pool_t*) DECLSPEC_HIDDEN; 70 void heap_pool_free(heap_pool_t*) DECLSPEC_HIDDEN; 71 heap_pool_t *heap_pool_mark(heap_pool_t*) DECLSPEC_HIDDEN; 72 73 static inline LPWSTR heap_strdupW(LPCWSTR str) 74 { 75 LPWSTR ret = NULL; 76 77 if(str) { 78 DWORD size; 79 80 size = (strlenW(str)+1)*sizeof(WCHAR); 81 ret = heap_alloc(size); 82 if(ret) 83 memcpy(ret, str, size); 84 } 85 86 return ret; 87 } 88 89 typedef struct jsdisp_t jsdisp_t; 90 91 extern HINSTANCE jscript_hinstance DECLSPEC_HIDDEN; 92 93 #define PROPF_ARGMASK 0x00ff 94 #define PROPF_METHOD 0x0100 95 #define PROPF_CONSTR 0x0200 96 97 #define PROPF_ENUMERABLE 0x0400 98 #define PROPF_WRITABLE 0x0800 99 #define PROPF_CONFIGURABLE 0x1000 100 #define PROPF_ALL (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE) 101 102 #define PROPF_VERSION_MASK 0x01ff0000 103 #define PROPF_VERSION_SHIFT 16 104 #define PROPF_HTML (SCRIPTLANGUAGEVERSION_HTML << PROPF_VERSION_SHIFT) 105 #define PROPF_ES5 ((SCRIPTLANGUAGEVERSION_HTML|SCRIPTLANGUAGEVERSION_ES5) << PROPF_VERSION_SHIFT) 106 107 /* 108 * This is our internal dispatch flag informing calee that it's called directly from interpreter. 109 * If calee is executed as interpreted function, we may let already running interpreter to take 110 * of execution. 111 */ 112 #define DISPATCH_JSCRIPT_CALLEREXECSSOURCE 0x8000 113 #define DISPATCH_JSCRIPT_INTERNAL_MASK DISPATCH_JSCRIPT_CALLEREXECSSOURCE 114 115 /* NOTE: Keep in sync with names in Object.toString implementation */ 116 typedef enum { 117 JSCLASS_NONE, 118 JSCLASS_ARRAY, 119 JSCLASS_BOOLEAN, 120 JSCLASS_DATE, 121 JSCLASS_ERROR, 122 JSCLASS_FUNCTION, 123 JSCLASS_GLOBAL, 124 JSCLASS_MATH, 125 JSCLASS_NUMBER, 126 JSCLASS_OBJECT, 127 JSCLASS_REGEXP, 128 JSCLASS_STRING, 129 JSCLASS_ARGUMENTS, 130 JSCLASS_VBARRAY, 131 JSCLASS_JSON 132 } jsclass_t; 133 134 jsdisp_t *iface_to_jsdisp(IDispatch*) DECLSPEC_HIDDEN; 135 136 typedef struct { 137 union { 138 IDispatch *disp; 139 IDispatchEx *dispex; 140 jsdisp_t *jsdisp; 141 } u; 142 DWORD flags; 143 } vdisp_t; 144 145 #define VDISP_DISPEX 0x0001 146 #define VDISP_JSDISP 0x0002 147 148 static inline void vdisp_release(vdisp_t *vdisp) 149 { 150 IDispatch_Release(vdisp->u.disp); 151 } 152 153 static inline BOOL is_jsdisp(vdisp_t *vdisp) 154 { 155 return (vdisp->flags & VDISP_JSDISP) != 0; 156 } 157 158 static inline BOOL is_dispex(vdisp_t *vdisp) 159 { 160 return (vdisp->flags & VDISP_DISPEX) != 0; 161 } 162 163 static inline void set_jsdisp(vdisp_t *vdisp, jsdisp_t *jsdisp) 164 { 165 vdisp->u.jsdisp = jsdisp; 166 vdisp->flags = VDISP_JSDISP | VDISP_DISPEX; 167 IDispatch_AddRef(vdisp->u.disp); 168 } 169 170 static inline void set_disp(vdisp_t *vdisp, IDispatch *disp) 171 { 172 IDispatchEx *dispex; 173 jsdisp_t *jsdisp; 174 HRESULT hres; 175 176 jsdisp = iface_to_jsdisp(disp); 177 if(jsdisp) { 178 vdisp->u.jsdisp = jsdisp; 179 vdisp->flags = VDISP_JSDISP | VDISP_DISPEX; 180 return; 181 } 182 183 hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex); 184 if(SUCCEEDED(hres)) { 185 vdisp->u.dispex = dispex; 186 vdisp->flags = VDISP_DISPEX; 187 return; 188 } 189 190 IDispatch_AddRef(disp); 191 vdisp->u.disp = disp; 192 vdisp->flags = 0; 193 } 194 195 static inline jsdisp_t *get_jsdisp(vdisp_t *vdisp) 196 { 197 return is_jsdisp(vdisp) ? vdisp->u.jsdisp : NULL; 198 } 199 200 typedef HRESULT (*builtin_invoke_t)(script_ctx_t*,vdisp_t*,WORD,unsigned,jsval_t*,jsval_t*); 201 typedef HRESULT (*builtin_getter_t)(script_ctx_t*,jsdisp_t*,jsval_t*); 202 typedef HRESULT (*builtin_setter_t)(script_ctx_t*,jsdisp_t*,jsval_t); 203 204 HRESULT builtin_set_const(script_ctx_t*,jsdisp_t*,jsval_t) DECLSPEC_HIDDEN; 205 206 typedef struct { 207 const WCHAR *name; 208 builtin_invoke_t invoke; 209 DWORD flags; 210 builtin_getter_t getter; 211 builtin_setter_t setter; 212 } builtin_prop_t; 213 214 typedef struct { 215 jsclass_t class; 216 builtin_prop_t value_prop; 217 DWORD props_cnt; 218 const builtin_prop_t *props; 219 void (*destructor)(jsdisp_t*); 220 void (*on_put)(jsdisp_t*,const WCHAR*); 221 unsigned (*idx_length)(jsdisp_t*); 222 HRESULT (*idx_get)(jsdisp_t*,unsigned,jsval_t*); 223 HRESULT (*idx_put)(jsdisp_t*,unsigned,jsval_t); 224 } builtin_info_t; 225 226 struct jsdisp_t { 227 IDispatchEx IDispatchEx_iface; 228 229 LONG ref; 230 231 DWORD buf_size; 232 DWORD prop_cnt; 233 dispex_prop_t *props; 234 script_ctx_t *ctx; 235 236 jsdisp_t *prototype; 237 238 const builtin_info_t *builtin_info; 239 }; 240 241 static inline IDispatch *to_disp(jsdisp_t *jsdisp) 242 { 243 return (IDispatch*)&jsdisp->IDispatchEx_iface; 244 } 245 246 jsdisp_t *as_jsdisp(IDispatch*) DECLSPEC_HIDDEN; 247 jsdisp_t *to_jsdisp(IDispatch*) DECLSPEC_HIDDEN; 248 void jsdisp_free(jsdisp_t*) DECLSPEC_HIDDEN; 249 250 #ifndef TRACE_REFCNT 251 252 /* 253 * We do a lot of refcount calls during script execution, so having an inline 254 * version is a nice perf win. Define TRACE_REFCNT macro when debugging 255 * refcount bugs to have traces. Also, since jsdisp_t is not thread safe anyways, 256 * there is no point in using atomic operations. 257 */ 258 static inline jsdisp_t *jsdisp_addref(jsdisp_t *jsdisp) 259 { 260 jsdisp->ref++; 261 return jsdisp; 262 } 263 264 static inline void jsdisp_release(jsdisp_t *jsdisp) 265 { 266 if(!--jsdisp->ref) 267 jsdisp_free(jsdisp); 268 } 269 270 #else 271 272 jsdisp_t *jsdisp_addref(jsdisp_t*) DECLSPEC_HIDDEN; 273 void jsdisp_release(jsdisp_t*) DECLSPEC_HIDDEN; 274 275 #endif 276 277 HRESULT create_dispex(script_ctx_t*,const builtin_info_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 278 HRESULT init_dispex(jsdisp_t*,script_ctx_t*,const builtin_info_t*,jsdisp_t*) DECLSPEC_HIDDEN; 279 HRESULT init_dispex_from_constr(jsdisp_t*,script_ctx_t*,const builtin_info_t*,jsdisp_t*) DECLSPEC_HIDDEN; 280 281 HRESULT disp_call(script_ctx_t*,IDispatch*,DISPID,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 282 HRESULT disp_call_value(script_ctx_t*,IDispatch*,IDispatch*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 283 HRESULT jsdisp_call_value(jsdisp_t*,IDispatch*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 284 HRESULT jsdisp_call(jsdisp_t*,DISPID,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 285 HRESULT jsdisp_call_name(jsdisp_t*,const WCHAR*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 286 HRESULT disp_propget(script_ctx_t*,IDispatch*,DISPID,jsval_t*) DECLSPEC_HIDDEN; 287 HRESULT disp_propput(script_ctx_t*,IDispatch*,DISPID,jsval_t) DECLSPEC_HIDDEN; 288 HRESULT jsdisp_propget(jsdisp_t*,DISPID,jsval_t*) DECLSPEC_HIDDEN; 289 HRESULT jsdisp_propput(jsdisp_t*,const WCHAR*,DWORD,jsval_t) DECLSPEC_HIDDEN; 290 HRESULT jsdisp_propput_name(jsdisp_t*,const WCHAR*,jsval_t) DECLSPEC_HIDDEN; 291 HRESULT jsdisp_propput_idx(jsdisp_t*,DWORD,jsval_t) DECLSPEC_HIDDEN; 292 HRESULT jsdisp_propget_name(jsdisp_t*,LPCWSTR,jsval_t*) DECLSPEC_HIDDEN; 293 HRESULT jsdisp_get_idx(jsdisp_t*,DWORD,jsval_t*) DECLSPEC_HIDDEN; 294 HRESULT jsdisp_get_id(jsdisp_t*,const WCHAR*,DWORD,DISPID*) DECLSPEC_HIDDEN; 295 HRESULT disp_delete(IDispatch*,DISPID,BOOL*) DECLSPEC_HIDDEN; 296 HRESULT disp_delete_name(script_ctx_t*,IDispatch*,jsstr_t*,BOOL*) DECLSPEC_HIDDEN; 297 HRESULT jsdisp_delete_idx(jsdisp_t*,DWORD) DECLSPEC_HIDDEN; 298 HRESULT jsdisp_get_own_property(jsdisp_t*,const WCHAR*,BOOL,property_desc_t*) DECLSPEC_HIDDEN; 299 HRESULT jsdisp_define_property(jsdisp_t*,const WCHAR*,property_desc_t*) DECLSPEC_HIDDEN; 300 HRESULT jsdisp_define_data_property(jsdisp_t*,const WCHAR*,unsigned,jsval_t) DECLSPEC_HIDDEN; 301 302 HRESULT create_builtin_function(script_ctx_t*,builtin_invoke_t,const WCHAR*,const builtin_info_t*,DWORD, 303 jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 304 HRESULT create_builtin_constructor(script_ctx_t*,builtin_invoke_t,const WCHAR*,const builtin_info_t*,DWORD, 305 jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 306 HRESULT Function_invoke(jsdisp_t*,IDispatch*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 307 308 HRESULT Function_value(script_ctx_t*,vdisp_t*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 309 HRESULT Function_get_value(script_ctx_t*,jsdisp_t*,jsval_t*) DECLSPEC_HIDDEN; 310 #define DEFAULT_FUNCTION_VALUE {NULL, Function_value,0, Function_get_value} 311 312 HRESULT throw_eval_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 313 HRESULT throw_generic_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 314 HRESULT throw_range_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 315 HRESULT throw_reference_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 316 HRESULT throw_regexp_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 317 HRESULT throw_syntax_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 318 HRESULT throw_type_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 319 HRESULT throw_uri_error(script_ctx_t*,HRESULT,const WCHAR*) DECLSPEC_HIDDEN; 320 321 HRESULT create_object(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 322 HRESULT create_math(script_ctx_t*,jsdisp_t**) DECLSPEC_HIDDEN; 323 HRESULT create_array(script_ctx_t*,DWORD,jsdisp_t**) DECLSPEC_HIDDEN; 324 HRESULT create_regexp(script_ctx_t*,jsstr_t*,DWORD,jsdisp_t**) DECLSPEC_HIDDEN; 325 HRESULT create_regexp_var(script_ctx_t*,jsval_t,jsval_t*,jsdisp_t**) DECLSPEC_HIDDEN; 326 HRESULT create_string(script_ctx_t*,jsstr_t*,jsdisp_t**) DECLSPEC_HIDDEN; 327 HRESULT create_bool(script_ctx_t*,BOOL,jsdisp_t**) DECLSPEC_HIDDEN; 328 HRESULT create_number(script_ctx_t*,double,jsdisp_t**) DECLSPEC_HIDDEN; 329 HRESULT create_vbarray(script_ctx_t*,SAFEARRAY*,jsdisp_t**) DECLSPEC_HIDDEN; 330 HRESULT create_json(script_ctx_t*,jsdisp_t**) DECLSPEC_HIDDEN; 331 332 typedef enum { 333 NO_HINT, 334 HINT_STRING, 335 HINT_NUMBER 336 } hint_t; 337 338 HRESULT to_primitive(script_ctx_t*,jsval_t,jsval_t*, hint_t) DECLSPEC_HIDDEN; 339 HRESULT to_boolean(jsval_t,BOOL*) DECLSPEC_HIDDEN; 340 HRESULT to_number(script_ctx_t*,jsval_t,double*) DECLSPEC_HIDDEN; 341 HRESULT to_integer(script_ctx_t*,jsval_t,double*) DECLSPEC_HIDDEN; 342 HRESULT to_int32(script_ctx_t*,jsval_t,INT*) DECLSPEC_HIDDEN; 343 HRESULT to_uint32(script_ctx_t*,jsval_t,UINT32*) DECLSPEC_HIDDEN; 344 HRESULT to_string(script_ctx_t*,jsval_t,jsstr_t**) DECLSPEC_HIDDEN; 345 HRESULT to_flat_string(script_ctx_t*,jsval_t,jsstr_t**,const WCHAR**) DECLSPEC_HIDDEN; 346 HRESULT to_object(script_ctx_t*,jsval_t,IDispatch**) DECLSPEC_HIDDEN; 347 348 HRESULT jsval_strict_equal(jsval_t,jsval_t,BOOL*) DECLSPEC_HIDDEN; 349 350 HRESULT variant_change_type(script_ctx_t*,VARIANT*,VARIANT*,VARTYPE) DECLSPEC_HIDDEN; 351 352 HRESULT decode_source(WCHAR*) DECLSPEC_HIDDEN; 353 354 HRESULT double_to_string(double,jsstr_t**) DECLSPEC_HIDDEN; 355 BOOL is_finite(double) DECLSPEC_HIDDEN; 356 357 typedef struct named_item_t { 358 IDispatch *disp; 359 DWORD flags; 360 LPWSTR name; 361 362 struct named_item_t *next; 363 } named_item_t; 364 365 typedef struct _cc_var_t cc_var_t; 366 367 typedef struct { 368 cc_var_t *vars; 369 } cc_ctx_t; 370 371 void release_cc(cc_ctx_t*) DECLSPEC_HIDDEN; 372 373 typedef struct { 374 IServiceProvider IServiceProvider_iface; 375 376 LONG ref; 377 378 script_ctx_t *ctx; 379 } JSCaller; 380 381 #include "jsval.h" 382 383 struct _property_desc_t { 384 unsigned flags; 385 unsigned mask; 386 BOOL explicit_value; 387 jsval_t value; 388 BOOL explicit_getter; 389 jsdisp_t *getter; 390 BOOL explicit_setter; 391 jsdisp_t *setter; 392 }; 393 394 typedef struct { 395 EXCEPINFO ei; 396 jsval_t val; 397 } jsexcept_t; 398 399 typedef struct { 400 unsigned index; 401 unsigned length; 402 } match_result_t; 403 404 struct _script_ctx_t { 405 LONG ref; 406 407 SCRIPTSTATE state; 408 IActiveScript *active_script; 409 410 struct _call_frame_t *call_ctx; 411 named_item_t *named_items; 412 IActiveScriptSite *site; 413 IInternetHostSecurityManager *secmgr; 414 DWORD safeopt; 415 DWORD version; 416 BOOL html_mode; 417 LCID lcid; 418 cc_ctx_t *cc; 419 JSCaller *jscaller; 420 jsexcept_t ei; 421 422 heap_pool_t tmp_heap; 423 424 IDispatch *host_global; 425 426 jsval_t *stack; 427 unsigned stack_size; 428 unsigned stack_top; 429 jsval_t acc; 430 431 jsstr_t *last_match; 432 match_result_t match_parens[9]; 433 DWORD last_match_index; 434 DWORD last_match_length; 435 436 jsdisp_t *global; 437 jsdisp_t *function_constr; 438 jsdisp_t *array_constr; 439 jsdisp_t *bool_constr; 440 jsdisp_t *date_constr; 441 jsdisp_t *error_constr; 442 jsdisp_t *eval_error_constr; 443 jsdisp_t *range_error_constr; 444 jsdisp_t *reference_error_constr; 445 jsdisp_t *regexp_error_constr; 446 jsdisp_t *syntax_error_constr; 447 jsdisp_t *type_error_constr; 448 jsdisp_t *uri_error_constr; 449 jsdisp_t *number_constr; 450 jsdisp_t *object_constr; 451 jsdisp_t *regexp_constr; 452 jsdisp_t *string_constr; 453 jsdisp_t *vbarray_constr; 454 }; 455 456 void script_release(script_ctx_t*) DECLSPEC_HIDDEN; 457 void clear_ei(script_ctx_t*) DECLSPEC_HIDDEN; 458 459 static inline void script_addref(script_ctx_t *ctx) 460 { 461 ctx->ref++; 462 } 463 464 HRESULT init_global(script_ctx_t*) DECLSPEC_HIDDEN; 465 HRESULT init_function_constr(script_ctx_t*,jsdisp_t*) DECLSPEC_HIDDEN; 466 HRESULT create_object_prototype(script_ctx_t*,jsdisp_t**) DECLSPEC_HIDDEN; 467 468 HRESULT create_activex_constr(script_ctx_t*,jsdisp_t**) DECLSPEC_HIDDEN; 469 HRESULT create_array_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 470 HRESULT create_bool_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 471 HRESULT create_date_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 472 HRESULT init_error_constr(script_ctx_t*,jsdisp_t*) DECLSPEC_HIDDEN; 473 HRESULT create_number_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 474 HRESULT create_object_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 475 HRESULT create_regexp_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 476 HRESULT create_string_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 477 HRESULT create_vbarray_constr(script_ctx_t*,jsdisp_t*,jsdisp_t**) DECLSPEC_HIDDEN; 478 479 IUnknown *create_ax_site(script_ctx_t*) DECLSPEC_HIDDEN; 480 HRESULT create_jscaller(script_ctx_t*) DECLSPEC_HIDDEN; 481 482 #define REM_CHECK_GLOBAL 0x0001 483 #define REM_RESET_INDEX 0x0002 484 #define REM_NO_CTX_UPDATE 0x0004 485 #define REM_ALLOC_RESULT 0x0008 486 #define REM_NO_PARENS 0x0010 487 struct match_state_t; 488 HRESULT regexp_match_next(script_ctx_t*,jsdisp_t*,DWORD,jsstr_t*,struct match_state_t**) DECLSPEC_HIDDEN; 489 HRESULT parse_regexp_flags(const WCHAR*,DWORD,DWORD*) DECLSPEC_HIDDEN; 490 HRESULT regexp_string_match(script_ctx_t*,jsdisp_t*,jsstr_t*,jsval_t*) DECLSPEC_HIDDEN; 491 492 BOOL bool_obj_value(jsdisp_t*) DECLSPEC_HIDDEN; 493 unsigned array_get_length(jsdisp_t*) DECLSPEC_HIDDEN; 494 495 HRESULT JSGlobal_eval(script_ctx_t*,vdisp_t*,WORD,unsigned,jsval_t*,jsval_t*) DECLSPEC_HIDDEN; 496 497 static inline BOOL is_class(jsdisp_t *jsdisp, jsclass_t class) 498 { 499 return jsdisp->builtin_info->class == class; 500 } 501 502 static inline BOOL is_vclass(vdisp_t *vdisp, jsclass_t class) 503 { 504 return is_jsdisp(vdisp) && is_class(vdisp->u.jsdisp, class); 505 } 506 507 #ifndef INT32_MIN 508 #define INT32_MIN (-2147483647-1) 509 #endif 510 511 #ifndef INT32_MAX 512 #define INT32_MAX (2147483647) 513 #endif 514 515 static inline BOOL is_int32(double d) 516 { 517 return INT32_MIN <= d && d <= INT32_MAX && (double)(int)d == d; 518 } 519 520 static inline DWORD make_grfdex(script_ctx_t *ctx, DWORD flags) 521 { 522 return ((ctx->version & 0xff) << 28) | flags; 523 } 524 525 #define FACILITY_JSCRIPT 10 526 527 #define MAKE_JSERROR(code) MAKE_HRESULT(SEVERITY_ERROR, FACILITY_JSCRIPT, code) 528 529 #define JS_E_TO_PRIMITIVE MAKE_JSERROR(IDS_TO_PRIMITIVE) 530 #define JS_E_INVALIDARG MAKE_JSERROR(IDS_INVALID_CALL_ARG) 531 #define JS_E_SUBSCRIPT_OUT_OF_RANGE MAKE_JSERROR(IDS_SUBSCRIPT_OUT_OF_RANGE) 532 #define JS_E_OBJECT_REQUIRED MAKE_JSERROR(IDS_OBJECT_REQUIRED) 533 #define JS_E_CANNOT_CREATE_OBJ MAKE_JSERROR(IDS_CREATE_OBJ_ERROR) 534 #define JS_E_INVALID_PROPERTY MAKE_JSERROR(IDS_NO_PROPERTY) 535 #define JS_E_INVALID_ACTION MAKE_JSERROR(IDS_UNSUPPORTED_ACTION) 536 #define JS_E_MISSING_ARG MAKE_JSERROR(IDS_ARG_NOT_OPT) 537 #define JS_E_SYNTAX MAKE_JSERROR(IDS_SYNTAX_ERROR) 538 #define JS_E_MISSING_SEMICOLON MAKE_JSERROR(IDS_SEMICOLON) 539 #define JS_E_MISSING_LBRACKET MAKE_JSERROR(IDS_LBRACKET) 540 #define JS_E_MISSING_RBRACKET MAKE_JSERROR(IDS_RBRACKET) 541 #define JS_E_EXPECTED_IDENTIFIER MAKE_JSERROR(IDS_EXPECTED_IDENTIFIER) 542 #define JS_E_EXPECTED_ASSIGN MAKE_JSERROR(IDS_EXPECTED_ASSIGN) 543 #define JS_E_INVALID_CHAR MAKE_JSERROR(IDS_INVALID_CHAR) 544 #define JS_E_UNTERMINATED_STRING MAKE_JSERROR(IDS_UNTERMINATED_STR) 545 #define JS_E_MISPLACED_RETURN MAKE_JSERROR(IDS_MISPLACED_RETURN) 546 #define JS_E_INVALID_BREAK MAKE_JSERROR(IDS_INVALID_BREAK) 547 #define JS_E_INVALID_CONTINUE MAKE_JSERROR(IDS_INVALID_CONTINUE) 548 #define JS_E_LABEL_REDEFINED MAKE_JSERROR(IDS_LABEL_REDEFINED) 549 #define JS_E_LABEL_NOT_FOUND MAKE_JSERROR(IDS_LABEL_NOT_FOUND) 550 #define JS_E_EXPECTED_CCEND MAKE_JSERROR(IDS_EXPECTED_CCEND) 551 #define JS_E_DISABLED_CC MAKE_JSERROR(IDS_DISABLED_CC) 552 #define JS_E_EXPECTED_AT MAKE_JSERROR(IDS_EXPECTED_AT) 553 #define JS_E_FUNCTION_EXPECTED MAKE_JSERROR(IDS_NOT_FUNC) 554 #define JS_E_DATE_EXPECTED MAKE_JSERROR(IDS_NOT_DATE) 555 #define JS_E_NUMBER_EXPECTED MAKE_JSERROR(IDS_NOT_NUM) 556 #define JS_E_OBJECT_EXPECTED MAKE_JSERROR(IDS_OBJECT_EXPECTED) 557 #define JS_E_ILLEGAL_ASSIGN MAKE_JSERROR(IDS_ILLEGAL_ASSIGN) 558 #define JS_E_UNDEFINED_VARIABLE MAKE_JSERROR(IDS_UNDEFINED) 559 #define JS_E_BOOLEAN_EXPECTED MAKE_JSERROR(IDS_NOT_BOOL) 560 #define JS_E_VBARRAY_EXPECTED MAKE_JSERROR(IDS_NOT_VBARRAY) 561 #define JS_E_INVALID_DELETE MAKE_JSERROR(IDS_INVALID_DELETE) 562 #define JS_E_JSCRIPT_EXPECTED MAKE_JSERROR(IDS_JSCRIPT_EXPECTED) 563 #define JS_E_REGEXP_SYNTAX MAKE_JSERROR(IDS_REGEXP_SYNTAX_ERROR) 564 #define JS_E_INVALID_URI_CODING MAKE_JSERROR(IDS_URI_INVALID_CODING) 565 #define JS_E_INVALID_URI_CHAR MAKE_JSERROR(IDS_URI_INVALID_CHAR) 566 #define JS_E_FRACTION_DIGITS_OUT_OF_RANGE MAKE_JSERROR(IDS_FRACTION_DIGITS_OUT_OF_RANGE) 567 #define JS_E_PRECISION_OUT_OF_RANGE MAKE_JSERROR(IDS_PRECISION_OUT_OF_RANGE) 568 #define JS_E_INVALID_LENGTH MAKE_JSERROR(IDS_INVALID_LENGTH) 569 #define JS_E_ARRAY_EXPECTED MAKE_JSERROR(IDS_ARRAY_EXPECTED) 570 #define JS_E_NONCONFIGURABLE_REDEFINED MAKE_JSERROR(IDS_NONCONFIGURABLE_REDEFINED) 571 #define JS_E_NONWRITABLE_MODIFIED MAKE_JSERROR(IDS_NONWRITABLE_MODIFIED) 572 #define JS_E_PROP_DESC_MISMATCH MAKE_JSERROR(IDS_PROP_DESC_MISMATCH) 573 #define JS_E_INVALID_WRITABLE_PROP_DESC MAKE_JSERROR(IDS_INVALID_WRITABLE_PROP_DESC) 574 575 static inline BOOL is_jscript_error(HRESULT hres) 576 { 577 return HRESULT_FACILITY(hres) == FACILITY_JSCRIPT; 578 } 579 580 const char *debugstr_jsval(const jsval_t) DECLSPEC_HIDDEN; 581 582 HRESULT create_jscript_object(BOOL,REFIID,void**) DECLSPEC_HIDDEN; 583 584 extern LONG module_ref DECLSPEC_HIDDEN; 585 586 static inline void lock_module(void) 587 { 588 InterlockedIncrement(&module_ref); 589 } 590 591 static inline void unlock_module(void) 592 { 593 InterlockedDecrement(&module_ref); 594 } 595