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