jscript.h File Reference

#include <stdarg.h>
#include <stdio.h>
#include <stdint.h>
#include "windef.h"
#include "winbase.h"
#include "winuser.h"
#include "ole2.h"
#include "dispex.h"
#include "activscp.h"
#include "jsdisp.h"
#include "resource.h"
#include "wine/list.h"
#include "wine/rbtree.h"
#include "jsval.h"

Include dependency graph for jscript.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes
struct	heap_pool_t
struct	thread_data
struct	named_item_t
struct	builtin_prop_t
struct	builtin_info_t
struct	jsdisp_t
struct	cc_ctx_t
struct	JSCaller
struct	_property_desc_t
struct	match_result_t
struct	weak_refs_entry
struct	_script_ctx_t
struct	weakmap_entry

Macros
#define	COBJMACROS
#define	SCRIPTLANGUAGEVERSION_HTML   0x400
#define	SCRIPTLANGUAGEVERSION_ES5   0x102
#define	SCRIPTLANGUAGEVERSION_ES6   0x103
#define	PROPF_ALL   (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE)
#define	PROPF_ARGMASK   0x000000ff
#define	PROPF_VERSION_MASK   0x01ff0000
#define	PROPF_VERSION_SHIFT   16
#define	PROPF_HTML   (SCRIPTLANGUAGEVERSION_HTML << PROPF_VERSION_SHIFT)
#define	PROPF_ES5   ((SCRIPTLANGUAGEVERSION_HTML|SCRIPTLANGUAGEVERSION_ES5) << PROPF_VERSION_SHIFT)
#define	PROPF_ES6   ((SCRIPTLANGUAGEVERSION_HTML|SCRIPTLANGUAGEVERSION_ES6) << PROPF_VERSION_SHIFT)
#define	DISPATCH_JSCRIPT_CALLEREXECSSOURCE   0x8000
#define	DISPATCH_JSCRIPT_INTERNAL_MASK   DISPATCH_JSCRIPT_CALLEREXECSSOURCE
#define	SP_CALLER_UNINITIALIZED   ((IServiceProvider*)IntToPtr(-1))
#define	REM_CHECK_GLOBAL   0x0001
#define	REM_RESET_INDEX   0x0002
#define	REM_NO_CTX_UPDATE   0x0004
#define	REM_ALLOC_RESULT   0x0008
#define	REM_NO_PARENS   0x0010
#define	MAKE_JSERROR(code)   MAKE_HRESULT(SEVERITY_ERROR, FACILITY_CONTROL, code)
#define	JS_E_TO_PRIMITIVE   MAKE_JSERROR(IDS_TO_PRIMITIVE)
#define	JS_E_INVALIDARG   MAKE_JSERROR(IDS_INVALID_CALL_ARG)
#define	JS_E_SUBSCRIPT_OUT_OF_RANGE   MAKE_JSERROR(IDS_SUBSCRIPT_OUT_OF_RANGE)
#define	JS_E_STACK_OVERFLOW   MAKE_JSERROR(IDS_STACK_OVERFLOW)
#define	JS_E_OBJECT_REQUIRED   MAKE_JSERROR(IDS_OBJECT_REQUIRED)
#define	JS_E_CANNOT_CREATE_OBJ   MAKE_JSERROR(IDS_CREATE_OBJ_ERROR)
#define	JS_E_INVALID_PROPERTY   MAKE_JSERROR(IDS_NO_PROPERTY)
#define	JS_E_INVALID_ACTION   MAKE_JSERROR(IDS_UNSUPPORTED_ACTION)
#define	JS_E_MISSING_ARG   MAKE_JSERROR(IDS_ARG_NOT_OPT)
#define	JS_E_OBJECT_NOT_COLLECTION   MAKE_JSERROR(IDS_OBJECT_NOT_COLLECTION)
#define	JS_E_SYNTAX   MAKE_JSERROR(IDS_SYNTAX_ERROR)
#define	JS_E_MISSING_SEMICOLON   MAKE_JSERROR(IDS_SEMICOLON)
#define	JS_E_MISSING_LBRACKET   MAKE_JSERROR(IDS_LBRACKET)
#define	JS_E_MISSING_RBRACKET   MAKE_JSERROR(IDS_RBRACKET)
#define	JS_E_EXPECTED_IDENTIFIER   MAKE_JSERROR(IDS_EXPECTED_IDENTIFIER)
#define	JS_E_EXPECTED_ASSIGN   MAKE_JSERROR(IDS_EXPECTED_ASSIGN)
#define	JS_E_INVALID_CHAR   MAKE_JSERROR(IDS_INVALID_CHAR)
#define	JS_E_UNTERMINATED_STRING   MAKE_JSERROR(IDS_UNTERMINATED_STR)
#define	JS_E_MISPLACED_RETURN   MAKE_JSERROR(IDS_MISPLACED_RETURN)
#define	JS_E_INVALID_BREAK   MAKE_JSERROR(IDS_INVALID_BREAK)
#define	JS_E_INVALID_CONTINUE   MAKE_JSERROR(IDS_INVALID_CONTINUE)
#define	JS_E_LABEL_REDEFINED   MAKE_JSERROR(IDS_LABEL_REDEFINED)
#define	JS_E_LABEL_NOT_FOUND   MAKE_JSERROR(IDS_LABEL_NOT_FOUND)
#define	JS_E_EXPECTED_CCEND   MAKE_JSERROR(IDS_EXPECTED_CCEND)
#define	JS_E_DISABLED_CC   MAKE_JSERROR(IDS_DISABLED_CC)
#define	JS_E_EXPECTED_AT   MAKE_JSERROR(IDS_EXPECTED_AT)
#define	JS_E_FUNCTION_EXPECTED   MAKE_JSERROR(IDS_NOT_FUNC)
#define	JS_E_DATE_EXPECTED   MAKE_JSERROR(IDS_NOT_DATE)
#define	JS_E_NUMBER_EXPECTED   MAKE_JSERROR(IDS_NOT_NUM)
#define	JS_E_OBJECT_EXPECTED   MAKE_JSERROR(IDS_OBJECT_EXPECTED)
#define	JS_E_ILLEGAL_ASSIGN   MAKE_JSERROR(IDS_ILLEGAL_ASSIGN)
#define	JS_E_UNDEFINED_VARIABLE   MAKE_JSERROR(IDS_UNDEFINED)
#define	JS_E_BOOLEAN_EXPECTED   MAKE_JSERROR(IDS_NOT_BOOL)
#define	JS_E_VBARRAY_EXPECTED   MAKE_JSERROR(IDS_NOT_VBARRAY)
#define	JS_E_INVALID_DELETE   MAKE_JSERROR(IDS_INVALID_DELETE)
#define	JS_E_JSCRIPT_EXPECTED   MAKE_JSERROR(IDS_JSCRIPT_EXPECTED)
#define	JS_E_ENUMERATOR_EXPECTED   MAKE_JSERROR(IDS_ENUMERATOR_EXPECTED)
#define	JS_E_REGEXP_EXPECTED   MAKE_JSERROR(IDS_REGEXP_EXPECTED)
#define	JS_E_REGEXP_SYNTAX   MAKE_JSERROR(IDS_REGEXP_SYNTAX_ERROR)
#define	JS_E_UNEXPECTED_QUANTIFIER   MAKE_JSERROR(IDS_UNEXPECTED_QUANTIFIER)
#define	JS_E_EXCEPTION_THROWN   MAKE_JSERROR(IDS_EXCEPTION_THROWN)
#define	JS_E_INVALID_URI_CODING   MAKE_JSERROR(IDS_URI_INVALID_CODING)
#define	JS_E_INVALID_URI_CHAR   MAKE_JSERROR(IDS_URI_INVALID_CHAR)
#define	JS_E_FRACTION_DIGITS_OUT_OF_RANGE   MAKE_JSERROR(IDS_FRACTION_DIGITS_OUT_OF_RANGE)
#define	JS_E_PRECISION_OUT_OF_RANGE   MAKE_JSERROR(IDS_PRECISION_OUT_OF_RANGE)
#define	JS_E_INVALID_LENGTH   MAKE_JSERROR(IDS_INVALID_LENGTH)
#define	JS_E_ARRAY_EXPECTED   MAKE_JSERROR(IDS_ARRAY_EXPECTED)
#define	JS_E_CYCLIC_PROTO_VALUE   MAKE_JSERROR(IDS_CYCLIC_PROTO_VALUE)
#define	JS_E_CANNOT_CREATE_FOR_NONEXTENSIBLE   MAKE_JSERROR(IDS_CREATE_FOR_NONEXTENSIBLE)
#define	JS_E_OBJECT_NONEXTENSIBLE   MAKE_JSERROR(IDS_OBJECT_NONEXTENSIBLE)
#define	JS_E_NONCONFIGURABLE_REDEFINED   MAKE_JSERROR(IDS_NONCONFIGURABLE_REDEFINED)
#define	JS_E_NONWRITABLE_MODIFIED   MAKE_JSERROR(IDS_NONWRITABLE_MODIFIED)
#define	JS_E_NOT_DATAVIEW   MAKE_JSERROR(IDS_NOT_DATAVIEW)
#define	JS_E_DATAVIEW_NO_ARGUMENT   MAKE_JSERROR(IDS_DATAVIEW_NO_ARGUMENT)
#define	JS_E_DATAVIEW_INVALID_ACCESS   MAKE_JSERROR(IDS_DATAVIEW_INVALID_ACCESS)
#define	JS_E_DATAVIEW_INVALID_OFFSET   MAKE_JSERROR(IDS_DATAVIEW_INVALID_OFFSET)
#define	JS_E_WRONG_THIS   MAKE_JSERROR(IDS_WRONG_THIS)
#define	JS_E_KEY_NOT_OBJECT   MAKE_JSERROR(IDS_KEY_NOT_OBJECT)
#define	JS_E_ARRAYBUFFER_EXPECTED   MAKE_JSERROR(IDS_ARRAYBUFFER_EXPECTED)
#define	JS_E_PROP_DESC_MISMATCH   MAKE_JSERROR(IDS_PROP_DESC_MISMATCH)
#define	JS_E_INVALID_WRITABLE_PROP_DESC   MAKE_JSERROR(IDS_INVALID_WRITABLE_PROP_DESC)

Typedefs
typedef struct _jsval_t	jsval_t
typedef struct _jsstr_t	jsstr_t
typedef struct _jsexcept_t	jsexcept_t
typedef struct _script_ctx_t	script_ctx_t
typedef struct _dispex_prop_t	dispex_prop_t
typedef struct _property_desc_t	property_desc_t
typedef struct jsdisp_t	jsdisp_t
typedef HRESULT(*	builtin_invoke_t) (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
typedef HRESULT(*	builtin_getter_t) (script_ctx_t *, jsdisp_t *, jsval_t *)
typedef HRESULT(*	builtin_setter_t) (script_ctx_t *, jsdisp_t *, jsval_t)
typedef struct named_item_t	named_item_t
typedef struct _cc_var_t	cc_var_t

Enumerations
enum	jsclass_t {   JSCLASS_NONE , JSCLASS_ARRAY , JSCLASS_BOOLEAN , JSCLASS_DATE ,   JSCLASS_ENUMERATOR , JSCLASS_ERROR , JSCLASS_FUNCTION , JSCLASS_GLOBAL ,   JSCLASS_MATH , JSCLASS_NUMBER , JSCLASS_OBJECT , JSCLASS_REGEXP ,   JSCLASS_STRING , JSCLASS_ARGUMENTS , JSCLASS_VBARRAY , JSCLASS_JSON ,   JSCLASS_ARRAYBUFFER , JSCLASS_DATAVIEW , JSCLASS_MAP , JSCLASS_SET ,   JSCLASS_WEAKMAP , JSCLASS_HOST }
enum	gc_traverse_op { GC_TRAVERSE_UNLINK , GC_TRAVERSE_SPECULATIVELY , GC_TRAVERSE }
enum	jsdisp_enum_type { JSDISP_ENUM_ALL , JSDISP_ENUM_OWN , JSDISP_ENUM_OWN_ENUMERABLE }
enum	hint_t { NO_HINT , HINT_STRING , HINT_NUMBER }

Functions
void	heap_pool_init (heap_pool_t *)
void *	heap_pool_alloc (heap_pool_t *, DWORD) __WINE_ALLOC_SIZE(2)
void *	heap_pool_grow (heap_pool_t *, void *, DWORD, DWORD)
void	heap_pool_clear (heap_pool_t *)
void	heap_pool_free (heap_pool_t *)
heap_pool_t *	heap_pool_mark (heap_pool_t *)
HRESULT	get_dispatch_typeinfo (ITypeInfo **)
jsdisp_t *	iface_to_jsdisp (IDispatch *)
HRESULT	builtin_set_const (script_ctx_t *, jsdisp_t *, jsval_t)
struct thread_data *	get_thread_data (void)
void	release_thread_data (struct thread_data *)
HRESULT	create_named_item_script_obj (script_ctx_t *, named_item_t *)
named_item_t *	lookup_named_item (script_ctx_t *, const WCHAR *, unsigned)
void	release_named_item (named_item_t *)
HRESULT	gc_run (script_ctx_t *)
HRESULT	gc_process_linked_obj (struct gc_ctx *, enum gc_traverse_op, jsdisp_t *, jsdisp_t *, void **)
HRESULT	gc_process_linked_val (struct gc_ctx *, enum gc_traverse_op, jsdisp_t *, jsval_t *)
static IDispatch *	to_disp (jsdisp_t *jsdisp)
static IDispatchEx *	to_dispex (jsdisp_t *jsdisp)
jsdisp_t *	as_jsdisp (IDispatch *)
jsdisp_t *	to_jsdisp (IDispatch *)
IWineJSDispatchHost *	get_host_dispatch (IDispatch *)
jsdisp_t *	jsdisp_addref (jsdisp_t *)
ULONG	jsdisp_release (jsdisp_t *)
HRESULT	create_dispex (script_ctx_t *, const builtin_info_t *, jsdisp_t *, jsdisp_t **)
HRESULT	init_dispex (jsdisp_t *, script_ctx_t *, const builtin_info_t *, jsdisp_t *)
HRESULT	init_dispex_from_constr (jsdisp_t *, script_ctx_t *, const builtin_info_t *, jsdisp_t *)
HRESULT	init_host_object (script_ctx_t *, IWineJSDispatchHost *, IWineJSDispatch *, UINT32, IWineJSDispatch **)
HRESULT	init_host_constructor (script_ctx_t *, IWineJSDispatchHost *, IWineJSDispatch *, IWineJSDispatch **)
HRESULT	disp_call (script_ctx_t *, IDispatch *, DISPID, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	disp_call_name (script_ctx_t *, IDispatch *, const WCHAR *, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	disp_call_value_with_caller (script_ctx_t *, IDispatch *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *, IServiceProvider *)
HRESULT	jsdisp_call_value (jsdisp_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	jsdisp_call (jsdisp_t *, DISPID, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	jsdisp_call_name (jsdisp_t *, const WCHAR *, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	disp_propget (script_ctx_t *, IDispatch *, DISPID, jsval_t *)
HRESULT	disp_propput (script_ctx_t *, IDispatch *, DISPID, jsval_t)
HRESULT	disp_propput_name (script_ctx_t *, IDispatch *, const WCHAR *, jsval_t)
HRESULT	jsdisp_propget (jsdisp_t *, DISPID, jsval_t *)
HRESULT	jsdisp_propput (jsdisp_t *, const WCHAR *, DWORD, BOOL, jsval_t)
HRESULT	jsdisp_propput_name (jsdisp_t *, const WCHAR *, jsval_t)
HRESULT	jsdisp_propput_idx (jsdisp_t *, DWORD, jsval_t)
HRESULT	jsdisp_propget_name (jsdisp_t *, LPCWSTR, jsval_t *)
HRESULT	jsdisp_get_idx (jsdisp_t *, DWORD, jsval_t *)
HRESULT	jsdisp_get_id (jsdisp_t *, const WCHAR *, DWORD, DISPID *)
HRESULT	jsdisp_get_idx_id (jsdisp_t *, DWORD, DISPID *)
HRESULT	disp_delete (IDispatch *, DISPID, BOOL *)
HRESULT	disp_delete_name (script_ctx_t *, IDispatch *, jsstr_t *, BOOL *)
HRESULT	jsdisp_index_lookup (jsdisp_t *, const WCHAR *, unsigned, struct property_info *)
HRESULT	jsdisp_next_index (jsdisp_t *, unsigned, unsigned, struct property_info *)
HRESULT	jsdisp_delete_idx (jsdisp_t *, DWORD)
HRESULT	jsdisp_get_own_property (jsdisp_t *, const WCHAR *, BOOL, property_desc_t *)
HRESULT	jsdisp_define_property (jsdisp_t *, const WCHAR *, property_desc_t *)
HRESULT	jsdisp_define_data_property (jsdisp_t *, const WCHAR *, unsigned, jsval_t)
HRESULT	jsdisp_next_prop (jsdisp_t *, DISPID, enum jsdisp_enum_type, DISPID *)
HRESULT	jsdisp_get_prop_name (jsdisp_t *, DISPID, jsstr_t **)
HRESULT	jsdisp_change_prototype (jsdisp_t *, jsdisp_t *)
void	jsdisp_freeze (jsdisp_t *, BOOL)
BOOL	jsdisp_is_frozen (jsdisp_t *, BOOL)
HRESULT	create_builtin_function (script_ctx_t *, builtin_invoke_t, const WCHAR *, const builtin_info_t *, DWORD, jsdisp_t *, jsdisp_t **)
HRESULT	create_builtin_constructor (script_ctx_t *, builtin_invoke_t, const WCHAR *, const builtin_info_t *, DWORD, jsdisp_t *, jsdisp_t **)
HRESULT	create_host_function (script_ctx_t *, const struct property_info *, DWORD, jsdisp_t **)
HRESULT	Function_invoke (jsdisp_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	Function_value (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	Function_get_value (script_ctx_t *, jsdisp_t *, jsval_t *)
struct _function_code_t *	Function_get_code (jsdisp_t *)
HRESULT	throw_error (script_ctx_t *, HRESULT, const WCHAR *)
jsdisp_t *	create_builtin_error (script_ctx_t *ctx)
void	handle_dispatch_exception (script_ctx_t *ctx, EXCEPINFO *ei)
HRESULT	create_object (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_math (script_ctx_t *, jsdisp_t **)
HRESULT	create_array (script_ctx_t *, DWORD, jsdisp_t **)
HRESULT	create_regexp (script_ctx_t *, jsstr_t *, DWORD, jsdisp_t **)
HRESULT	create_regexp_var (script_ctx_t *, jsval_t, jsval_t *, jsdisp_t **)
HRESULT	create_string (script_ctx_t *, jsstr_t *, jsdisp_t **)
HRESULT	create_bool (script_ctx_t *, BOOL, jsdisp_t **)
HRESULT	create_number (script_ctx_t *, double, jsdisp_t **)
HRESULT	create_vbarray (script_ctx_t *, SAFEARRAY *, jsdisp_t **)
HRESULT	create_json (script_ctx_t *, jsdisp_t **)
HRESULT	to_primitive (script_ctx_t *, jsval_t, jsval_t *, hint_t)
HRESULT	to_boolean (jsval_t, BOOL *)
HRESULT	to_number (script_ctx_t *, jsval_t, double *)
HRESULT	to_integer (script_ctx_t *, jsval_t, double *)
HRESULT	to_int32 (script_ctx_t *, jsval_t, INT *)
HRESULT	to_long (script_ctx_t *, jsval_t, LONG *)
HRESULT	to_uint32 (script_ctx_t *, jsval_t, UINT32 *)
HRESULT	to_string (script_ctx_t *, jsval_t, jsstr_t **)
HRESULT	to_flat_string (script_ctx_t *, jsval_t, jsstr_t **, const WCHAR **)
HRESULT	to_object (script_ctx_t *, jsval_t, IDispatch **)
HRESULT	jsval_strict_equal (jsval_t, jsval_t, BOOL *)
HRESULT	variant_change_type (script_ctx_t *, VARIANT *, VARIANT *, VARTYPE)
HRESULT	variant_date_to_number (double, double *)
HRESULT	variant_date_to_string (script_ctx_t *, double, jsstr_t **)
HRESULT	decode_source (WCHAR *)
HRESULT	double_to_string (double, jsstr_t **)
WCHAR *	idx_to_str (DWORD, WCHAR *)
static BOOL	is_digit (WCHAR c)
void	release_cc (cc_ctx_t *)
	C_ASSERT (RTL_SIZEOF_THROUGH_FIELD(script_ctx_t, weakmap_prototype)==RTL_SIZEOF_THROUGH_FIELD(script_ctx_t, global_objects))
void	remove_weakmap_entry (struct weakmap_entry *)
void	script_release (script_ctx_t *)
static void	script_addref (script_ctx_t *ctx)
HRESULT	init_global (script_ctx_t *)
HRESULT	init_function_constr (script_ctx_t *, jsdisp_t *)
HRESULT	create_object_prototype (script_ctx_t *, jsdisp_t **)
HRESULT	init_set_constructor (script_ctx_t *)
HRESULT	init_arraybuf_constructors (script_ctx_t *)
HRESULT	create_activex_constr (script_ctx_t *, jsdisp_t **)
HRESULT	create_array_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_bool_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_date_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	init_error_constr (script_ctx_t *, jsdisp_t *)
HRESULT	create_enumerator_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_number_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_object_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_regexp_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_string_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
HRESULT	create_vbarray_constr (script_ctx_t *, jsdisp_t *, jsdisp_t **)
IUnknown *	create_ax_site (script_ctx_t *)
HRESULT	create_jscaller (script_ctx_t *)
HRESULT	regexp_match_next (script_ctx_t *, jsdisp_t *, DWORD, jsstr_t *, struct match_state_t **)
HRESULT	parse_regexp_flags (const WCHAR *, DWORD, DWORD *)
HRESULT	regexp_string_match (script_ctx_t *, jsdisp_t *, jsstr_t *, jsval_t *)
BOOL	bool_obj_value (jsdisp_t *)
unsigned	array_get_length (jsdisp_t *)
HRESULT	localize_number (script_ctx_t *, DOUBLE, BOOL, jsstr_t **)
BOOL	is_builtin_eval_func (jsdisp_t *)
HRESULT	builtin_eval (script_ctx_t *, struct _call_frame_t *, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	JSGlobal_eval (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	Object_get_proto_ (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
HRESULT	Object_set_proto_ (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)
static BOOL	is_class (jsdisp_t *jsdisp, jsclass_t class)
static BOOL	is_int32 (double d)
static DWORD	make_grfdex (script_ctx_t *ctx, DWORD flags)
static HRESULT	disp_call_value (script_ctx_t *ctx, IDispatch *disp, jsval_t vthis, WORD flags, unsigned argc, jsval_t *argv, jsval_t *r)
static BOOL	is_jscript_error (HRESULT hres)
const char *	debugstr_jsval (const jsval_t)
HRESULT	create_jscript_object (BOOL, REFIID, void **)
static void	lock_module (void)
static void	unlock_module (void)

Variables
HINSTANCE	jscript_hinstance
LONG	module_ref

Macro Definition Documentation

COBJMACROS

#define COBJMACROS

Definition at line 25 of file jscript.h.

DISPATCH_JSCRIPT_CALLEREXECSSOURCE

#define DISPATCH_JSCRIPT_CALLEREXECSSOURCE   0x8000

Definition at line 98 of file jscript.h.

DISPATCH_JSCRIPT_INTERNAL_MASK

#define DISPATCH_JSCRIPT_INTERNAL_MASK   DISPATCH_JSCRIPT_CALLEREXECSSOURCE

Definition at line 99 of file jscript.h.

JS_E_ARRAY_EXPECTED

#define JS_E_ARRAY_EXPECTED   MAKE_JSERROR(IDS_ARRAY_EXPECTED)

Definition at line 572 of file jscript.h.

JS_E_ARRAYBUFFER_EXPECTED

#define JS_E_ARRAYBUFFER_EXPECTED   MAKE_JSERROR(IDS_ARRAYBUFFER_EXPECTED)

Definition at line 584 of file jscript.h.

JS_E_BOOLEAN_EXPECTED

#define JS_E_BOOLEAN_EXPECTED   MAKE_JSERROR(IDS_NOT_BOOL)

Definition at line 558 of file jscript.h.

JS_E_CANNOT_CREATE_FOR_NONEXTENSIBLE

#define JS_E_CANNOT_CREATE_FOR_NONEXTENSIBLE   MAKE_JSERROR(IDS_CREATE_FOR_NONEXTENSIBLE)

Definition at line 574 of file jscript.h.

JS_E_CANNOT_CREATE_OBJ

#define JS_E_CANNOT_CREATE_OBJ   MAKE_JSERROR(IDS_CREATE_OBJ_ERROR)

Definition at line 531 of file jscript.h.

JS_E_CYCLIC_PROTO_VALUE

#define JS_E_CYCLIC_PROTO_VALUE   MAKE_JSERROR(IDS_CYCLIC_PROTO_VALUE)

Definition at line 573 of file jscript.h.

JS_E_DATAVIEW_INVALID_ACCESS

#define JS_E_DATAVIEW_INVALID_ACCESS   MAKE_JSERROR(IDS_DATAVIEW_INVALID_ACCESS)

Definition at line 580 of file jscript.h.

JS_E_DATAVIEW_INVALID_OFFSET

#define JS_E_DATAVIEW_INVALID_OFFSET   MAKE_JSERROR(IDS_DATAVIEW_INVALID_OFFSET)

Definition at line 581 of file jscript.h.

JS_E_DATAVIEW_NO_ARGUMENT

#define JS_E_DATAVIEW_NO_ARGUMENT   MAKE_JSERROR(IDS_DATAVIEW_NO_ARGUMENT)

Definition at line 579 of file jscript.h.

JS_E_DATE_EXPECTED

#define JS_E_DATE_EXPECTED   MAKE_JSERROR(IDS_NOT_DATE)

Definition at line 553 of file jscript.h.

JS_E_DISABLED_CC

#define JS_E_DISABLED_CC   MAKE_JSERROR(IDS_DISABLED_CC)

Definition at line 550 of file jscript.h.

JS_E_ENUMERATOR_EXPECTED

#define JS_E_ENUMERATOR_EXPECTED   MAKE_JSERROR(IDS_ENUMERATOR_EXPECTED)

Definition at line 562 of file jscript.h.

JS_E_EXCEPTION_THROWN

#define JS_E_EXCEPTION_THROWN   MAKE_JSERROR(IDS_EXCEPTION_THROWN)

Definition at line 566 of file jscript.h.

JS_E_EXPECTED_ASSIGN

#define JS_E_EXPECTED_ASSIGN   MAKE_JSERROR(IDS_EXPECTED_ASSIGN)

Definition at line 541 of file jscript.h.

JS_E_EXPECTED_AT

#define JS_E_EXPECTED_AT   MAKE_JSERROR(IDS_EXPECTED_AT)

Definition at line 551 of file jscript.h.

JS_E_EXPECTED_CCEND

#define JS_E_EXPECTED_CCEND   MAKE_JSERROR(IDS_EXPECTED_CCEND)

Definition at line 549 of file jscript.h.

JS_E_EXPECTED_IDENTIFIER

#define JS_E_EXPECTED_IDENTIFIER   MAKE_JSERROR(IDS_EXPECTED_IDENTIFIER)

Definition at line 540 of file jscript.h.

JS_E_FRACTION_DIGITS_OUT_OF_RANGE

#define JS_E_FRACTION_DIGITS_OUT_OF_RANGE   MAKE_JSERROR(IDS_FRACTION_DIGITS_OUT_OF_RANGE)

Definition at line 569 of file jscript.h.

JS_E_FUNCTION_EXPECTED

#define JS_E_FUNCTION_EXPECTED   MAKE_JSERROR(IDS_NOT_FUNC)

Definition at line 552 of file jscript.h.

JS_E_ILLEGAL_ASSIGN

#define JS_E_ILLEGAL_ASSIGN   MAKE_JSERROR(IDS_ILLEGAL_ASSIGN)

Definition at line 556 of file jscript.h.

JS_E_INVALID_ACTION

#define JS_E_INVALID_ACTION   MAKE_JSERROR(IDS_UNSUPPORTED_ACTION)

Definition at line 533 of file jscript.h.

JS_E_INVALID_BREAK

#define JS_E_INVALID_BREAK   MAKE_JSERROR(IDS_INVALID_BREAK)

Definition at line 545 of file jscript.h.

JS_E_INVALID_CHAR

#define JS_E_INVALID_CHAR   MAKE_JSERROR(IDS_INVALID_CHAR)

Definition at line 542 of file jscript.h.

JS_E_INVALID_CONTINUE

#define JS_E_INVALID_CONTINUE   MAKE_JSERROR(IDS_INVALID_CONTINUE)

Definition at line 546 of file jscript.h.

JS_E_INVALID_DELETE

#define JS_E_INVALID_DELETE   MAKE_JSERROR(IDS_INVALID_DELETE)

Definition at line 560 of file jscript.h.

JS_E_INVALID_LENGTH

#define JS_E_INVALID_LENGTH   MAKE_JSERROR(IDS_INVALID_LENGTH)

Definition at line 571 of file jscript.h.

JS_E_INVALID_PROPERTY

#define JS_E_INVALID_PROPERTY   MAKE_JSERROR(IDS_NO_PROPERTY)

Definition at line 532 of file jscript.h.

JS_E_INVALID_URI_CHAR

#define JS_E_INVALID_URI_CHAR   MAKE_JSERROR(IDS_URI_INVALID_CHAR)

Definition at line 568 of file jscript.h.

JS_E_INVALID_URI_CODING

#define JS_E_INVALID_URI_CODING   MAKE_JSERROR(IDS_URI_INVALID_CODING)

Definition at line 567 of file jscript.h.

JS_E_INVALID_WRITABLE_PROP_DESC

#define JS_E_INVALID_WRITABLE_PROP_DESC   MAKE_JSERROR(IDS_INVALID_WRITABLE_PROP_DESC)

Definition at line 586 of file jscript.h.

JS_E_INVALIDARG

#define JS_E_INVALIDARG   MAKE_JSERROR(IDS_INVALID_CALL_ARG)

Definition at line 527 of file jscript.h.

JS_E_JSCRIPT_EXPECTED

#define JS_E_JSCRIPT_EXPECTED   MAKE_JSERROR(IDS_JSCRIPT_EXPECTED)

Definition at line 561 of file jscript.h.

JS_E_KEY_NOT_OBJECT

#define JS_E_KEY_NOT_OBJECT   MAKE_JSERROR(IDS_KEY_NOT_OBJECT)

Definition at line 583 of file jscript.h.

JS_E_LABEL_NOT_FOUND

#define JS_E_LABEL_NOT_FOUND   MAKE_JSERROR(IDS_LABEL_NOT_FOUND)

Definition at line 548 of file jscript.h.

JS_E_LABEL_REDEFINED

#define JS_E_LABEL_REDEFINED   MAKE_JSERROR(IDS_LABEL_REDEFINED)

Definition at line 547 of file jscript.h.

JS_E_MISPLACED_RETURN

#define JS_E_MISPLACED_RETURN   MAKE_JSERROR(IDS_MISPLACED_RETURN)

Definition at line 544 of file jscript.h.

JS_E_MISSING_ARG

#define JS_E_MISSING_ARG   MAKE_JSERROR(IDS_ARG_NOT_OPT)

Definition at line 534 of file jscript.h.

JS_E_MISSING_LBRACKET

#define JS_E_MISSING_LBRACKET   MAKE_JSERROR(IDS_LBRACKET)

Definition at line 538 of file jscript.h.

JS_E_MISSING_RBRACKET

#define JS_E_MISSING_RBRACKET   MAKE_JSERROR(IDS_RBRACKET)

Definition at line 539 of file jscript.h.

JS_E_MISSING_SEMICOLON

#define JS_E_MISSING_SEMICOLON   MAKE_JSERROR(IDS_SEMICOLON)

Definition at line 537 of file jscript.h.

JS_E_NONCONFIGURABLE_REDEFINED

#define JS_E_NONCONFIGURABLE_REDEFINED   MAKE_JSERROR(IDS_NONCONFIGURABLE_REDEFINED)

Definition at line 576 of file jscript.h.

JS_E_NONWRITABLE_MODIFIED

#define JS_E_NONWRITABLE_MODIFIED   MAKE_JSERROR(IDS_NONWRITABLE_MODIFIED)

Definition at line 577 of file jscript.h.

JS_E_NOT_DATAVIEW

#define JS_E_NOT_DATAVIEW   MAKE_JSERROR(IDS_NOT_DATAVIEW)

Definition at line 578 of file jscript.h.

JS_E_NUMBER_EXPECTED

#define JS_E_NUMBER_EXPECTED   MAKE_JSERROR(IDS_NOT_NUM)

Definition at line 554 of file jscript.h.

JS_E_OBJECT_EXPECTED

#define JS_E_OBJECT_EXPECTED   MAKE_JSERROR(IDS_OBJECT_EXPECTED)

Definition at line 555 of file jscript.h.

JS_E_OBJECT_NONEXTENSIBLE

#define JS_E_OBJECT_NONEXTENSIBLE   MAKE_JSERROR(IDS_OBJECT_NONEXTENSIBLE)

Definition at line 575 of file jscript.h.

JS_E_OBJECT_NOT_COLLECTION

#define JS_E_OBJECT_NOT_COLLECTION   MAKE_JSERROR(IDS_OBJECT_NOT_COLLECTION)

Definition at line 535 of file jscript.h.

JS_E_OBJECT_REQUIRED

#define JS_E_OBJECT_REQUIRED   MAKE_JSERROR(IDS_OBJECT_REQUIRED)

Definition at line 530 of file jscript.h.

JS_E_PRECISION_OUT_OF_RANGE

#define JS_E_PRECISION_OUT_OF_RANGE   MAKE_JSERROR(IDS_PRECISION_OUT_OF_RANGE)

Definition at line 570 of file jscript.h.

JS_E_PROP_DESC_MISMATCH

#define JS_E_PROP_DESC_MISMATCH   MAKE_JSERROR(IDS_PROP_DESC_MISMATCH)

Definition at line 585 of file jscript.h.

JS_E_REGEXP_EXPECTED

#define JS_E_REGEXP_EXPECTED   MAKE_JSERROR(IDS_REGEXP_EXPECTED)

Definition at line 563 of file jscript.h.

JS_E_REGEXP_SYNTAX

#define JS_E_REGEXP_SYNTAX   MAKE_JSERROR(IDS_REGEXP_SYNTAX_ERROR)

Definition at line 564 of file jscript.h.

JS_E_STACK_OVERFLOW

#define JS_E_STACK_OVERFLOW   MAKE_JSERROR(IDS_STACK_OVERFLOW)

Definition at line 529 of file jscript.h.

JS_E_SUBSCRIPT_OUT_OF_RANGE

#define JS_E_SUBSCRIPT_OUT_OF_RANGE   MAKE_JSERROR(IDS_SUBSCRIPT_OUT_OF_RANGE)

Definition at line 528 of file jscript.h.

JS_E_SYNTAX

#define JS_E_SYNTAX   MAKE_JSERROR(IDS_SYNTAX_ERROR)

Definition at line 536 of file jscript.h.

JS_E_TO_PRIMITIVE

#define JS_E_TO_PRIMITIVE   MAKE_JSERROR(IDS_TO_PRIMITIVE)

Definition at line 526 of file jscript.h.

JS_E_UNDEFINED_VARIABLE

#define JS_E_UNDEFINED_VARIABLE   MAKE_JSERROR(IDS_UNDEFINED)

Definition at line 557 of file jscript.h.

JS_E_UNEXPECTED_QUANTIFIER

#define JS_E_UNEXPECTED_QUANTIFIER   MAKE_JSERROR(IDS_UNEXPECTED_QUANTIFIER)

Definition at line 565 of file jscript.h.

JS_E_UNTERMINATED_STRING

#define JS_E_UNTERMINATED_STRING   MAKE_JSERROR(IDS_UNTERMINATED_STR)

Definition at line 543 of file jscript.h.

JS_E_VBARRAY_EXPECTED

#define JS_E_VBARRAY_EXPECTED   MAKE_JSERROR(IDS_NOT_VBARRAY)

Definition at line 559 of file jscript.h.

JS_E_WRONG_THIS

#define JS_E_WRONG_THIS   MAKE_JSERROR(IDS_WRONG_THIS)

Definition at line 582 of file jscript.h.

MAKE_JSERROR

#define MAKE_JSERROR

(

code

)

MAKE_HRESULT(SEVERITY_ERROR, FACILITY_CONTROL, code)

Definition at line 524 of file jscript.h.

PROPF_ALL

#define PROPF_ALL   (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE)

Definition at line 84 of file jscript.h.

PROPF_ARGMASK

#define PROPF_ARGMASK   0x000000ff

Definition at line 86 of file jscript.h.

PROPF_ES5

#define PROPF_ES5   ((SCRIPTLANGUAGEVERSION_HTML|SCRIPTLANGUAGEVERSION_ES5) << PROPF_VERSION_SHIFT)

Definition at line 90 of file jscript.h.

PROPF_ES6

#define PROPF_ES6   ((SCRIPTLANGUAGEVERSION_HTML|SCRIPTLANGUAGEVERSION_ES6) << PROPF_VERSION_SHIFT)

Definition at line 91 of file jscript.h.

PROPF_HTML

#define PROPF_HTML   (SCRIPTLANGUAGEVERSION_HTML << PROPF_VERSION_SHIFT)

Definition at line 89 of file jscript.h.

PROPF_VERSION_MASK

#define PROPF_VERSION_MASK   0x01ff0000

Definition at line 87 of file jscript.h.

PROPF_VERSION_SHIFT

#define PROPF_VERSION_SHIFT   16

Definition at line 88 of file jscript.h.

REM_ALLOC_RESULT

#define REM_ALLOC_RESULT   0x0008

Definition at line 486 of file jscript.h.

REM_CHECK_GLOBAL

#define REM_CHECK_GLOBAL   0x0001

Definition at line 483 of file jscript.h.

REM_NO_CTX_UPDATE

#define REM_NO_CTX_UPDATE   0x0004

Definition at line 485 of file jscript.h.

REM_NO_PARENS

#define REM_NO_PARENS   0x0010

Definition at line 487 of file jscript.h.

REM_RESET_INDEX

#define REM_RESET_INDEX   0x0002

Definition at line 484 of file jscript.h.

SCRIPTLANGUAGEVERSION_ES5

#define SCRIPTLANGUAGEVERSION_ES5   0x102

Definition at line 53 of file jscript.h.

SCRIPTLANGUAGEVERSION_ES6

#define SCRIPTLANGUAGEVERSION_ES6   0x103

Definition at line 54 of file jscript.h.

SCRIPTLANGUAGEVERSION_HTML

#define SCRIPTLANGUAGEVERSION_HTML   0x400

Definition at line 48 of file jscript.h.

SP_CALLER_UNINITIALIZED

#define SP_CALLER_UNINITIALIZED   ((IServiceProvider*)IntToPtr(-1))

Definition at line 349 of file jscript.h.

Typedef Documentation

builtin_getter_t

typedef HRESULT(* builtin_getter_t) (script_ctx_t *, jsdisp_t *, jsval_t *)

Definition at line 130 of file jscript.h.

builtin_invoke_t

typedef HRESULT(* builtin_invoke_t) (script_ctx_t *, jsval_t, WORD, unsigned, jsval_t *, jsval_t *)

Definition at line 129 of file jscript.h.

builtin_setter_t

typedef HRESULT(* builtin_setter_t) (script_ctx_t *, jsdisp_t *, jsval_t)

Definition at line 131 of file jscript.h.

cc_var_t

typedef struct _cc_var_t cc_var_t

Definition at line 341 of file jscript.h.

dispex_prop_t

typedef struct _dispex_prop_t dispex_prop_t

Definition at line 60 of file jscript.h.

jsdisp_t

typedef struct jsdisp_t jsdisp_t

Definition at line 79 of file jscript.h.

jsexcept_t

typedef struct _jsexcept_t jsexcept_t

Definition at line 58 of file jscript.h.

jsstr_t

typedef struct _jsstr_t jsstr_t

Definition at line 57 of file jscript.h.

jsval_t

typedef struct _jsval_t jsval_t

Definition at line 56 of file jscript.h.

named_item_t

typedef struct named_item_t named_item_t

property_desc_t

typedef struct _property_desc_t property_desc_t

Definition at line 61 of file jscript.h.

script_ctx_t

typedef struct _script_ctx_t script_ctx_t

Definition at line 59 of file jscript.h.

Enumeration Type Documentation

gc_traverse_op

enum gc_traverse_op

Enumerator
GC_TRAVERSE_UNLINK
GC_TRAVERSE_SPECULATIVELY
GC_TRAVERSE

Definition at line 161 of file jscript.h.

                    {
    GC_TRAVERSE_UNLINK,
    GC_TRAVERSE_SPECULATIVELY,
    GC_TRAVERSE
};

hint_t

enum hint_t

Enumerator
NO_HINT
HINT_STRING
HINT_NUMBER

Definition at line 308 of file jscript.h.

             {
    NO_HINT,
    HINT_STRING,
    HINT_NUMBER
} hint_t;

jsclass_t

enum jsclass_t

Enumerator
JSCLASS_NONE
JSCLASS_ARRAY
JSCLASS_BOOLEAN
JSCLASS_DATE
JSCLASS_ENUMERATOR
JSCLASS_ERROR
JSCLASS_FUNCTION
JSCLASS_GLOBAL
JSCLASS_MATH
JSCLASS_NUMBER
JSCLASS_OBJECT
JSCLASS_REGEXP
JSCLASS_STRING
JSCLASS_ARGUMENTS
JSCLASS_VBARRAY
JSCLASS_JSON
JSCLASS_ARRAYBUFFER
JSCLASS_DATAVIEW
JSCLASS_MAP
JSCLASS_SET
JSCLASS_WEAKMAP
JSCLASS_HOST

Definition at line 102 of file jscript.h.

             {
    JSCLASS_NONE,
    JSCLASS_ARRAY,
    JSCLASS_BOOLEAN,
    JSCLASS_DATE,
    JSCLASS_ENUMERATOR,
    JSCLASS_ERROR,
    JSCLASS_FUNCTION,
    JSCLASS_GLOBAL,
    JSCLASS_MATH,
    JSCLASS_NUMBER,
    JSCLASS_OBJECT,
    JSCLASS_REGEXP,
    JSCLASS_STRING,
    JSCLASS_ARGUMENTS,
    JSCLASS_VBARRAY,
    JSCLASS_JSON,
    JSCLASS_ARRAYBUFFER,
    JSCLASS_DATAVIEW,
    JSCLASS_MAP,
    JSCLASS_SET,
    JSCLASS_WEAKMAP,
    JSCLASS_HOST,
} jsclass_t;

jsdisp_enum_type

enum jsdisp_enum_type

Enumerator
JSDISP_ENUM_ALL
JSDISP_ENUM_OWN
JSDISP_ENUM_OWN_ENUMERABLE

Definition at line 239 of file jscript.h.

                      {
    JSDISP_ENUM_ALL,
    JSDISP_ENUM_OWN,
    JSDISP_ENUM_OWN_ENUMERABLE
};

Function Documentation

array_get_length()

unsigned array_get_length

(

jsdisp_t *

array

)

Definition at line 50 of file array.c.

{
    assert(is_class(array, JSCLASS_ARRAY));
    return array_from_jsdisp(array)->length;
}

Referenced by stringify_array(), and transform_json_object().

as_jsdisp()

jsdisp_t * as_jsdisp

(

IDispatch *

disp

)

Definition at line 2441 of file dispex.c.

{
    assert(disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl);
    return impl_from_IWineJSDispatch((IWineJSDispatch*)disp);
}

Referenced by detach_arguments_object(), detach_scope(), DispatchEx_GetTypeInfo(), interp_obj_prop(), scope_init_locals(), setup_arguments_object(), and to_locale_string().

bool_obj_value()

BOOL bool_obj_value

(

jsdisp_t *

obj

)

Definition at line 51 of file bool.c.

{
    assert(is_class(obj, JSCLASS_BOOLEAN));
    return bool_from_jsdisp(obj)->val;
}

Referenced by maybe_to_primitive().

builtin_eval()

HRESULT builtin_eval	(	script_ctx_t *	ctx,
		struct _call_frame_t *	frame,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 137 of file global.c.

{
    DWORD exec_flags = EXEC_EVAL;
    bytecode_t *code;
    const WCHAR *src;
    HRESULT hres;
 
    TRACE("\n");
 
    if(!argc) {
        if(r)
            *r = jsval_undefined();
        return S_OK;
    }
 
    if(!is_string(argv[0])) {
        if(r)
            return jsval_copy(argv[0], r);
        return S_OK;
    }
 
    src = jsstr_flatten(get_string(argv[0]));
    if(!src)
        return E_OUTOFMEMORY;
 
    TRACE("parsing %s\n", debugstr_jsval(argv[0]));
    hres = compile_script(ctx, src, 0, 0, NULL, NULL, TRUE, FALSE, frame ? frame->bytecode->named_item : NULL, &code);
    if(FAILED(hres)) {
        WARN("parse (%s) failed: %08lx\n", debugstr_jsval(argv[0]), hres);
        return hres;
    }
 
    if(!frame || (frame->flags & EXEC_GLOBAL))
        exec_flags |= EXEC_GLOBAL;
    if(flags & DISPATCH_JSCRIPT_CALLEREXECSSOURCE)
        exec_flags |= EXEC_RETURN_TO_INTERP;
    hres = exec_source(ctx, exec_flags, code, &code->global_code, frame ? frame->scope : NULL,
            frame ? frame->this_obj : NULL, NULL, 0, NULL, r);
    release_bytecode(code);
    return hres;
}

Referenced by interp_call_eval(), and JSGlobal_eval().

builtin_set_const()

HRESULT builtin_set_const	(	script_ctx_t *	ctx,
		jsdisp_t *	jsthis,
		jsval_t	value
	)

Definition at line 741 of file dispex.c.

{
    TRACE("%p %s\n", jsthis, debugstr_jsval(value));
    return S_OK;
}

C_ASSERT()

C_ASSERT

(

RTL_SIZEOF_THROUGH_FIELD(script_ctx_t, weakmap_prototype)

= =RTL_SIZEOF_THROUGH_FIELD(script_ctx_t, global_objects)

)

create_activex_constr()

HRESULT create_activex_constr	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 189 of file activex.c.

{
    jsdisp_t *prototype;
    HRESULT hres;
 
    hres = create_object(ctx, NULL, &prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_function(ctx, ActiveXObject_value, L"ActiveXObject", NULL,
            PROPF_CONSTR|1, prototype, ret);
 
    jsdisp_release(prototype);
    return hres;
}

Referenced by init_global().

create_array()

HRESULT create_array	(	script_ctx_t *	ctx,
		DWORD	length,
		jsdisp_t **	ret
	)

Definition at line 1780 of file array.c.

{
    ArrayInstance *array;
    HRESULT hres;
 
    hres = alloc_array(ctx, NULL, &array);
    if(FAILED(hres))
        return hres;
 
    array->length = length;
 
    *ret = &array->dispex;
    return S_OK;
}

Referenced by Array_concat(), Array_filter(), Array_map(), Array_slice(), Array_splice(), ArrayConstr_value(), create_match_array(), interp_carray(), object_keys(), parse_json_value(), regexp_string_match(), String_split(), and VBArray_toArray().

create_array_constr()

HRESULT create_array_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 1765 of file array.c.

{
    ArrayInstance *array;
    HRESULT hres;
 
    hres = alloc_array(ctx, object_prototype, &array);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, ArrayConstr_value, L"Array", &ArrayConstr_info, PROPF_CONSTR|1, &array->dispex, ret);
 
    jsdisp_release(&array->dispex);
    return hres;
}

Referenced by init_constructors().

create_ax_site()

IUnknown * create_ax_site

(

script_ctx_t *

ctx

)

Definition at line 614 of file jscript.c.

{
    IServiceProvider *sp = NULL;
    AXSite *ret;
    HRESULT hres;
 
    hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
    if(FAILED(hres)) {
        TRACE("Could not get IServiceProvider iface: %08lx\n", hres);
    }
 
    ret = malloc(sizeof(AXSite));
    if(!ret) {
        IServiceProvider_Release(sp);
        return NULL;
    }
 
    ret->IServiceProvider_iface.lpVtbl = &AXSiteVtbl;
    ret->ref = 1;
    ret->sp = sp;
 
    return (IUnknown*)&ret->IServiceProvider_iface;
}

create_bool()

HRESULT create_bool	(	script_ctx_t *	ctx,
		BOOL	bval,
		jsdisp_t **	ret
	)

Definition at line 212 of file bool.c.

{
    BoolInstance *b;
    HRESULT hres;
 
    hres = alloc_bool(ctx, NULL, &b);
    if(FAILED(hres))
        return hres;
 
    b->val = bval;
 
    *ret = &b->dispex;
    return S_OK;
}

Referenced by BoolConstr_value(), and to_object().

create_bool_constr()

HRESULT create_bool_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 196 of file bool.c.

{
    BoolInstance *b;
    HRESULT hres;
 
    hres = alloc_bool(ctx, object_prototype, &b);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, BoolConstr_value, L"Boolean", NULL,
            PROPF_CONSTR|1, &b->dispex, ret);
 
    jsdisp_release(&b->dispex);
    return hres;
}

Referenced by init_constructors().

create_builtin_constructor()

HRESULT create_builtin_constructor	(	script_ctx_t *	ctx,
		builtin_invoke_t	value_proc,
		const WCHAR *	name,
		const builtin_info_t *	builtin_info,
		DWORD	flags,
		jsdisp_t *	prototype,
		jsdisp_t **	ret
	)

Definition at line 809 of file function.c.

{
    jsdisp_t *constr;
    HRESULT hres;
 
    hres = create_builtin_function(ctx, value_proc, name, builtin_info, flags, prototype, &constr);
    if(FAILED(hres))
        return hres;
 
    hres = set_constructor_prop(ctx, constr, prototype);
    if(FAILED(hres)) {
        jsdisp_release(constr);
        return hres;
    }
 
    *ret = constr;
    return S_OK;
}

Referenced by create_array_constr(), create_bool_constr(), create_date_constr(), create_enumerator_constr(), create_number_constr(), create_object_constr(), create_regexp_constr(), create_string_constr(), create_vbarray_constr(), init_arraybuf_constructors(), init_error_constr(), and init_set_constructor().

create_builtin_error()

jsdisp_t * create_builtin_error

(

script_ctx_t *

ctx

)

Definition at line 448 of file error.c.

{
    jsdisp_t *constr = ctx->error_constr, *r;
    jsexcept_t *ei = ctx->ei;
    HRESULT hres;
 
    assert(FAILED(ei->error) && ei->error != DISP_E_EXCEPTION);
 
    if(is_jscript_error(ei->error)) {
        switch(ei->error) {
        case JS_E_SYNTAX:
        case JS_E_MISSING_SEMICOLON:
        case JS_E_MISSING_LBRACKET:
        case JS_E_MISSING_RBRACKET:
        case JS_E_EXPECTED_IDENTIFIER:
        case JS_E_EXPECTED_ASSIGN:
        case JS_E_INVALID_CHAR:
        case JS_E_UNTERMINATED_STRING:
        case JS_E_MISPLACED_RETURN:
        case JS_E_INVALID_BREAK:
        case JS_E_INVALID_CONTINUE:
        case JS_E_LABEL_REDEFINED:
        case JS_E_LABEL_NOT_FOUND:
        case JS_E_EXPECTED_CCEND:
        case JS_E_DISABLED_CC:
        case JS_E_EXPECTED_AT:
        case JS_E_UNEXPECTED_QUANTIFIER:
            constr = ctx->syntax_error_constr;
            break;
 
        case JS_E_TO_PRIMITIVE:
        case JS_E_INVALIDARG:
        case JS_E_OBJECT_REQUIRED:
        case JS_E_INVALID_PROPERTY:
        case JS_E_INVALID_ACTION:
        case JS_E_MISSING_ARG:
        case JS_E_OBJECT_NOT_COLLECTION:
        case JS_E_FUNCTION_EXPECTED:
        case JS_E_DATE_EXPECTED:
        case JS_E_NUMBER_EXPECTED:
        case JS_E_OBJECT_EXPECTED:
        case JS_E_UNDEFINED_VARIABLE:
        case JS_E_BOOLEAN_EXPECTED:
        case JS_E_VBARRAY_EXPECTED:
        case JS_E_INVALID_DELETE:
        case JS_E_JSCRIPT_EXPECTED:
        case JS_E_ENUMERATOR_EXPECTED:
        case JS_E_REGEXP_EXPECTED:
        case JS_E_ARRAY_EXPECTED:
        case JS_E_CYCLIC_PROTO_VALUE:
        case JS_E_CANNOT_CREATE_FOR_NONEXTENSIBLE:
        case JS_E_OBJECT_NONEXTENSIBLE:
        case JS_E_NONCONFIGURABLE_REDEFINED:
        case JS_E_NONWRITABLE_MODIFIED:
        case JS_E_NOT_DATAVIEW:
        case JS_E_DATAVIEW_NO_ARGUMENT:
        case JS_E_WRONG_THIS:
        case JS_E_KEY_NOT_OBJECT:
        case JS_E_ARRAYBUFFER_EXPECTED:
        case JS_E_PROP_DESC_MISMATCH:
        case JS_E_INVALID_WRITABLE_PROP_DESC:
            constr = ctx->type_error_constr;
            break;
 
        case JS_E_SUBSCRIPT_OUT_OF_RANGE:
        case JS_E_FRACTION_DIGITS_OUT_OF_RANGE:
        case JS_E_PRECISION_OUT_OF_RANGE:
        case JS_E_INVALID_LENGTH:
        case JS_E_DATAVIEW_INVALID_ACCESS:
        case JS_E_DATAVIEW_INVALID_OFFSET:
            constr = ctx->range_error_constr;
            break;
 
        case JS_E_ILLEGAL_ASSIGN:
            constr = ctx->reference_error_constr;
            break;
 
        case JS_E_REGEXP_SYNTAX:
            constr = ctx->regexp_error_constr;
            break;
 
        case JS_E_INVALID_URI_CODING:
        case JS_E_INVALID_URI_CHAR:
            constr = ctx->uri_error_constr;
            break;
        }
    }
 
    hres = create_error(ctx, constr, ei->error, ei->message ? ei->message : jsstr_empty(), &r);
    return SUCCEEDED(hres) ? r : NULL;
}

Referenced by unwind_exception().

create_builtin_function()

HRESULT create_builtin_function	(	script_ctx_t *	ctx,
		builtin_invoke_t	value_proc,
		const WCHAR *	name,
		const builtin_info_t *	builtin_info,
		DWORD	flags,
		jsdisp_t *	prototype,
		jsdisp_t **	ret
	)

Definition at line 773 of file function.c.

{
    NativeFunction *function;
    HRESULT hres;
 
    if(!ctx->function_constr)
        return E_UNEXPECTED;
 
    hres = create_function(ctx, builtin_info, &NativeFunctionVtbl, sizeof(NativeFunction), flags, FALSE, NULL, (void**)&function);
    if(FAILED(hres))
        return hres;
 
    if(builtin_info)
        hres = jsdisp_define_data_property(&function->function.dispex, L"length", 0,
                                           jsval_number(function->function.length));
    if(SUCCEEDED(hres))
        hres = jsdisp_define_data_property(&function->function.dispex, L"prototype", 0, prototype ? jsval_obj(prototype) : jsval_null());
    if(FAILED(hres)) {
        jsdisp_release(&function->function.dispex);
        return hres;
    }
 
    function->proc = value_proc;
    function->name = name;
 
    *ret = &function->function.dispex;
    return S_OK;
}

Referenced by create_activex_constr(), create_builtin_constructor(), find_prop_name(), init_arraybuf_constructors(), and init_object_prototype_accessors().

create_date_constr()

HRESULT create_date_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 2442 of file date.c.

{
    DateInstance *date;
    HRESULT hres;
 
    hres = create_date(ctx, object_prototype, 0.0, &date);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, DateConstr_value, L"Date", &DateConstr_info,
            PROPF_CONSTR|7, &date->dispex, ret);
 
    jsdisp_release(&date->dispex);
    return hres;
}

Referenced by init_constructors().

create_dispex()

HRESULT create_dispex	(	script_ctx_t *	ctx,
		const builtin_info_t *	builtin_info,
		jsdisp_t *	prototype,
		jsdisp_t **	dispex
	)

Definition at line 2493 of file dispex.c.

{
    jsdisp_t *ret;
    HRESULT hres;
 
    ret = calloc(1, sizeof(jsdisp_t));
    if(!ret)
        return E_OUTOFMEMORY;
 
    hres = init_dispex(ret, ctx, builtin_info ? builtin_info : &dispex_info, prototype);
    if(FAILED(hres)) {
        free(ret);
        return hres;
    }
 
    *dispex = ret;
    return S_OK;
}

Referenced by create_named_item_script_obj(), create_object_prototype(), detach_scope(), exec_source(), init_global(), init_set_constructor(), interp_enter_catch(), Object_create(), and scope_init_locals().

create_enumerator_constr()

HRESULT create_enumerator_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 320 of file enumerator.c.

{
    EnumeratorInstance *enumerator;
    HRESULT hres;
 
    hres = alloc_enumerator(ctx, object_prototype, &enumerator);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, EnumeratorConstr_value, L"Enumerator",
            &EnumeratorConstr_info, PROPF_CONSTR|7, &enumerator->dispex, ret);
    jsdisp_release(&enumerator->dispex);
 
    return hres;
}

Referenced by init_constructors().

create_host_function()

HRESULT create_host_function	(	script_ctx_t *	ctx,
		const struct property_info *	desc,
		DWORD	flags,
		jsdisp_t **	ret
	)

Definition at line 1072 of file function.c.

{
    HostFunction *function;
    HRESULT hres;
 
    if(!ctx->function_constr)
        return E_UNEXPECTED;
 
    hres = create_function(ctx, &HostFunction_info, &HostFunctionVtbl, sizeof(HostFunction), PROPF_METHOD,
                           FALSE, NULL, (void**)&function);
    if(FAILED(hres))
        return hres;
 
    function->name = desc->name;
    function->id = desc->id;
    function->iid = desc->iid;
    function->flags = flags;
    *ret = &function->function.dispex;
    return S_OK;
}

Referenced by update_external_prop().

create_jscaller()

HRESULT create_jscaller

(

script_ctx_t *

ctx

)

Definition at line 1109 of file jsutils.c.

{
    JSCaller *ret;
 
    ret = malloc(sizeof(*ret));
    if(!ret)
        return E_OUTOFMEMORY;
 
    ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
    ret->ref = 1;
    ret->ctx = ctx;
    ret->caller = SP_CALLER_UNINITIALIZED;
 
    ctx->jscaller = ret;
    return S_OK;
}

Referenced by JScript_SetScriptSite().

create_jscript_object()

HRESULT create_jscript_object	(	BOOL	is_encode,
		REFIID	riid,
		void **	ppv
	)

Definition at line 1476 of file jscript.c.

{
    JScript *ret;
    HRESULT hres;
 
    ret = calloc(1, sizeof(*ret));
    if(!ret)
        return E_OUTOFMEMORY;
 
    lock_module();
 
    ret->IActiveScript_iface.lpVtbl = &JScriptVtbl;
    ret->IActiveScriptParse_iface.lpVtbl = &JScriptParseVtbl;
    ret->IActiveScriptParseProcedure2_iface.lpVtbl = &JScriptParseProcedureVtbl;
    ret->IActiveScriptProperty_iface.lpVtbl = &JScriptPropertyVtbl;
    ret->IObjectSafety_iface.lpVtbl = &JScriptSafetyVtbl;
    ret->IVariantChangeType_iface.lpVtbl = &VariantChangeTypeVtbl;
    ret->IWineJScript_iface.lpVtbl = &WineJScriptVtbl;
    ret->ref = 1;
    ret->safeopt = INTERFACE_USES_DISPEX;
    ret->is_encode = is_encode;
    list_init(&ret->persistent_code);
    list_init(&ret->queued_code);
 
    hres = IActiveScript_QueryInterface(&ret->IActiveScript_iface, riid, ppv);
    IActiveScript_Release(&ret->IActiveScript_iface);
    return hres;
}

Referenced by JScriptEncodeFactory_CreateInstance(), and JScriptFactory_CreateInstance().

create_json()

HRESULT create_json	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 1032 of file json.c.

{
    jsdisp_t *json;
    HRESULT hres;
 
    json = calloc(1, sizeof(*json));
    if(!json)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(json, ctx, &JSON_info, ctx->object_constr);
    if(FAILED(hres)) {
        free(json);
        return hres;
    }
 
    *ret = json;
    return S_OK;
}

Referenced by init_global().

create_math()

HRESULT create_math	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 503 of file math.c.

{
    jsdisp_t *math;
    unsigned i;
    HRESULT hres;
 
    struct {
        const WCHAR *name;
        DOUBLE val;
    }constants[] = {
        {L"E",        M_E},        /* ECMA-262 3rd Edition    15.8.1.1 */
        {L"LN10",     M_LN10},     /* ECMA-262 3rd Edition    15.8.1.2 */
        {L"LN2",      M_LN2},      /* ECMA-262 3rd Edition    15.8.1.3 */
        {L"LOG2E",    M_LOG2E},    /* ECMA-262 3rd Edition    15.8.1.4 */
        {L"LOG10E",   M_LOG10E},   /* ECMA-262 3rd Edition    15.8.1.5 */
        {L"PI",       M_PI},       /* ECMA-262 3rd Edition    15.8.1.6 */
        {L"SQRT1_2",  M_SQRT1_2},  /* ECMA-262 3rd Edition    15.8.1.7 */
        {L"SQRT2",    M_SQRT2},    /* ECMA-262 3rd Edition    15.8.1.8 */
    };
 
    math = calloc(1, sizeof(jsdisp_t));
    if(!math)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(math, ctx, &Math_info, ctx->object_constr);
    if(FAILED(hres)) {
        free(math);
        return hres;
    }
 
    for(i=0; i < ARRAY_SIZE(constants); i++) {
        hres = jsdisp_define_data_property(math, constants[i].name, 0,
                                           jsval_number(constants[i].val));
        if(FAILED(hres)) {
            jsdisp_release(math);
            return hres;
        }
    }
 
    *ret = math;
    return S_OK;
}

Referenced by init_global().

create_named_item_script_obj()

HRESULT create_named_item_script_obj	(	script_ctx_t *	ctx,
		named_item_t *	item
	)

Definition at line 124 of file jscript.c.

{
    static const builtin_info_t disp_info = { .class = JSCLASS_GLOBAL };
    return create_dispex(ctx, &disp_info, NULL, &item->script_obj);
}

Referenced by exec_source(), and lookup_named_item().

create_number()

HRESULT create_number	(	script_ctx_t *	ctx,
		double	value,
		jsdisp_t **	ret
	)

Definition at line 699 of file number.c.

{
    NumberInstance *number;
    HRESULT hres;
 
    hres = alloc_number(ctx, NULL, &number);
    if(FAILED(hres))
        return hres;
 
    number->value = value;
 
    *ret = &number->dispex;
    return S_OK;
}

Referenced by NumberConstr_value(), and to_object().

create_number_constr()

HRESULT create_number_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 682 of file number.c.

{
    NumberInstance *number;
    HRESULT hres;
 
    hres = alloc_number(ctx, object_prototype, &number);
    if(FAILED(hres))
        return hres;
 
    number->value = 0;
    hres = create_builtin_constructor(ctx, NumberConstr_value, L"Number", NULL,
            PROPF_CONSTR|1, &number->dispex, ret);
 
    jsdisp_release(&number->dispex);
    return hres;
}

Referenced by init_constructors().

create_object()

HRESULT create_object	(	script_ctx_t *	ctx,
		jsdisp_t *	constr,
		jsdisp_t **	ret
	)

Definition at line 1131 of file object.c.

{
    jsdisp_t *object;
    HRESULT hres;
 
    object = calloc(1, sizeof(jsdisp_t));
    if(!object)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(object, ctx, &ObjectInst_info, constr ? constr : ctx->object_constr);
    if(FAILED(hres)) {
        free(object);
        return hres;
    }
 
    *ret = object;
    return S_OK;
}

Referenced by create_activex_constr(), d3drm3_CreateObject(), interp_new_obj(), InterpretedFunction_call(), InterpretedFunction_get_prototype(), JSON_parse(), JSON_stringify(), Object_getOwnPropertyDescriptor(), ObjectConstr_value(), and parse_json_value().

create_object_constr()

HRESULT create_object_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 1120 of file object.c.

{
    return create_builtin_constructor(ctx, ObjectConstr_value, L"Object", &ObjectConstr_info, PROPF_CONSTR,
            object_prototype, ret);
}

Referenced by init_constructors().

create_object_prototype()

HRESULT create_object_prototype	(	script_ctx_t *	ctx,
		jsdisp_t **	ret
	)

Definition at line 1126 of file object.c.

{
    return create_dispex(ctx, &Object_info, NULL, ret);
}

Referenced by init_global().

create_regexp()

HRESULT create_regexp	(	script_ctx_t *	ctx,
		jsstr_t *	src,
		DWORD	flags,
		jsdisp_t **	ret
	)

Definition at line 626 of file jsregexp.c.

{
    RegExpInstance *regexp;
    const WCHAR *str;
    HRESULT hres;
 
    str = jsstr_flatten(src);
    if(!str)
        return E_OUTOFMEMORY;
 
    TRACE("%s %lx\n", debugstr_wn(str, jsstr_length(src)), flags);
 
    hres = alloc_regexp(ctx, src, NULL, &regexp);
    if(FAILED(hres))
        return hres;
 
    regexp->jsregexp = regexp_new(ctx, &ctx->tmp_heap, str, jsstr_length(regexp->str), flags, FALSE);
    if(!regexp->jsregexp) {
        WARN("regexp_new failed\n");
        jsdisp_release(&regexp->dispex);
        return DISP_E_EXCEPTION;
    }
 
    *ret = &regexp->dispex;
    return S_OK;
}

Referenced by create_regexp_var(), interp_new(), interp_regexp(), and String_match().

create_regexp_constr()

HRESULT create_regexp_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 964 of file jsregexp.c.

{
    jsstr_t *str = jsstr_empty();
    RegExpInstance *regexp;
    HRESULT hres;
 
    hres = alloc_regexp(ctx, str, object_prototype, &regexp);
    jsstr_release(str);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, RegExpConstr_value, L"RegExp", &RegExpConstr_info,
            PROPF_CONSTR|2, &regexp->dispex, ret);
 
    jsdisp_release(&regexp->dispex);
    return hres;
}

Referenced by init_constructors().

create_regexp_var()

HRESULT create_regexp_var	(	script_ctx_t *	ctx,
		jsval_t	src_arg,
		jsval_t *	flags_arg,
		jsdisp_t **	ret
	)

Definition at line 653 of file jsregexp.c.

{
    DWORD flags = 0;
    const WCHAR *opt = NULL;
    jsstr_t *src;
    HRESULT hres = S_OK;
 
    if(is_object_instance(src_arg)) {
        jsdisp_t *obj;
 
        obj = to_jsdisp(get_object(src_arg));
        if(obj) {
            if(is_class(obj, JSCLASS_REGEXP)) {
                RegExpInstance *regexp = regexp_from_jsdisp(obj);
 
                hres = create_regexp(ctx, regexp->str, regexp->jsregexp->flags, ret);
                return hres;
            }
        }
    }
 
    if(is_undefined(src_arg))
        src = jsstr_empty();
    else
        hres = to_string(ctx, src_arg, &src);
    if(FAILED(hres))
        return hres;
 
    if(flags_arg && !is_undefined(*flags_arg)) {
        jsstr_t *opt_str;
 
        hres = to_string(ctx, *flags_arg, &opt_str);
        if(SUCCEEDED(hres)) {
            opt = jsstr_flatten(opt_str);
            if(opt)
                hres = parse_regexp_flags(opt, jsstr_length(opt_str), &flags);
            else
                hres = E_OUTOFMEMORY;
            jsstr_release(opt_str);
        }
    }
 
    if(SUCCEEDED(hres))
        hres = create_regexp(ctx, src, flags, ret);
    jsstr_release(src);
    return hres;
}

Referenced by RegExpConstr_value(), and String_search().

create_string()

HRESULT create_string	(	script_ctx_t *	ctx,
		jsstr_t *	str,
		jsdisp_t **	ret
	)

Definition at line 1736 of file string.c.

{
    StringInstance *string;
    HRESULT hres;
 
    hres = string_alloc(ctx, NULL, str, &string);
    if(FAILED(hres))
        return hres;
 
    *ret = &string->dispex;
    return S_OK;
 
}

Referenced by StringConstr_value(), and to_object().

create_string_constr()

HRESULT create_string_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 1720 of file string.c.

{
    StringInstance *string;
    HRESULT hres;
 
    hres = string_alloc(ctx, object_prototype, jsstr_empty(), &string);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, StringConstr_value, L"String", &StringConstr_info,
            PROPF_CONSTR|1, &string->dispex, ret);
 
    jsdisp_release(&string->dispex);
    return hres;
}

Referenced by init_constructors().

create_vbarray()

HRESULT create_vbarray	(	script_ctx_t *	ctx,
		SAFEARRAY *	sa,
		jsdisp_t **	ret
	)

Definition at line 336 of file vbarray.c.

{
    VBArrayInstance *vbarray;
    HRESULT hres;
 
    hres = alloc_vbarray(ctx, NULL, &vbarray);
    if(FAILED(hres))
        return hres;
 
    hres = SafeArrayCopy(sa, &vbarray->safearray);
    if(FAILED(hres)) {
        jsdisp_release(&vbarray->dispex);
        return hres;
    }
 
    *ret = &vbarray->dispex;
    return S_OK;
}

Referenced by to_object().

create_vbarray_constr()

HRESULT create_vbarray_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype,
		jsdisp_t **	ret
	)

Definition at line 321 of file vbarray.c.

{
    VBArrayInstance *vbarray;
    HRESULT hres;
 
    hres = alloc_vbarray(ctx, object_prototype, &vbarray);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, VBArrayConstr_value, L"VBArray", NULL, PROPF_CONSTR|1, &vbarray->dispex, ret);
 
    jsdisp_release(&vbarray->dispex);
    return hres;
}

Referenced by init_constructors().

debugstr_jsval()

const char * debugstr_jsval

(

const

jsval_t

)

Definition at line 35 of file jsutils.c.

{
    switch(jsval_type(v)) {
    case JSV_UNDEFINED:
        return "undefined";
    case JSV_NULL:
        return "null";
    case JSV_OBJECT:
        return wine_dbg_sprintf("obj(%p)", get_object(v));
    case JSV_STRING:
        return wine_dbg_sprintf("str(%s)", debugstr_jsstr(get_string(v)));
    case JSV_NUMBER:
        return wine_dbg_sprintf("%lf", get_number(v));
    case JSV_BOOL:
        return get_bool(v) ? "true" : "false";
    case JSV_VARIANT:
        return debugstr_variant(get_variant(v));
    }
 
    assert(0);
    return NULL;
}

Referenced by Arguments_prop_put(), Array_every(), Array_filter(), Array_forEach(), Array_map(), Array_reduce(), Array_some(), Array_sort(), bind_event_target(), builtin_eval(), builtin_set_const(), exprval_call(), Function_invoke(), interp_add(), interp_carray_set(), interp_eq(), interp_eq2(), interp_gt(), interp_gteq(), interp_local(), interp_lt(), interp_lteq(), interp_neq(), interp_set_member(), interp_to_string(), invoke_prop_func(), iterate_map(), jsdisp_define_property(), JSGlobal_parseFloat(), Map_delete(), Map_forEach(), Map_get(), Map_has(), Map_set(), Object_create(), Object_freeze(), Object_get_proto_(), Object_getOwnPropertyNames(), Object_getPrototypeOf(), Object_isExtensible(), Object_isFrozen(), Object_isSealed(), Object_keys(), Object_preventExtensions(), Object_seal(), Object_set_proto_(), print_backtrace(), prop_get(), prop_put(), Set_add(), Set_delete(), Set_forEach(), Set_has(), unwind_exception(), and WeakMap_set().

decode_source()

HRESULT decode_source

(

WCHAR *

code

)

Definition at line 111 of file decode.c.

{
    const WCHAR *src = code;
    WCHAR *dst = code;
 
    static const WCHAR decode_beginW[] = L"#@~^";
    static const WCHAR decode_endW[] = L"^#~@";
 
    while(*src) {
        if(!wcsncmp(src, decode_beginW, ARRAY_SIZE(decode_beginW)-1)) {
            DWORD len, i, j=0, csum, s=0;
 
            src += ARRAY_SIZE(decode_beginW) - 1;
 
            if(!decode_dword(src, &len))
                return JS_E_INVALID_CHAR;
 
            src += 8;
 
            for(i=0; i<len; i++) {
                if (src[i] == '@') {
                    switch(src[++i]) {
                    case '#':
                        s += dst[j++] = '\r';
                        break;
                    case '&':
                        s += dst[j++] = '\n';
                        break;
                    case '!':
                        s += dst[j++] = '<';
                        break;
                    case '*':
                        s += dst[j++] = '>';
                        break;
                    case '$':
                        s += dst[j++] = '@';
                        break;
                    default:
                        FIXME("unescape %c\n", src[i]);
                        return E_FAIL;
                    }
                }else if (src[i] < 128) {
                    s += dst[j] = dictionary[src[i]][pick_encoding[j%64]];
                    j++;
                }else {
                    FIXME("Unsupported char %c\n", src[i]);
                    return E_FAIL;
                }
            }
 
            src += len;
            dst += j;
 
            if(!decode_dword(src, &csum) || s != csum)
                return JS_E_INVALID_CHAR;
            src += 8;
 
            if(wcsncmp(src, decode_endW, ARRAY_SIZE(decode_endW)-1))
                return JS_E_INVALID_CHAR;
            src += ARRAY_SIZE(decode_endW) - 1;
        }else {
            *dst++ = *src++;
        }
    }
 
    *dst = 0;
 
    TRACE("decoded %s\n", debugstr_w(code));
    return S_OK;
}

Referenced by compile_script().

disp_call()

HRESULT disp_call	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		DISPID	id,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	ret
	)

Definition at line 2666 of file dispex.c.

{
    VARIANT buf[6], retv;
    jsdisp_t *jsdisp;
    DISPPARAMS dp;
    unsigned i;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp && jsdisp->ctx == ctx) {
        if(flags & DISPATCH_PROPERTYPUT) {
            FIXME("disp_call(propput) on builtin object\n");
            jsdisp_release(jsdisp);
            return E_FAIL;
        }
 
        if(ctx != jsdisp->ctx)
            flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
        hres = jsdisp_call(jsdisp, id, flags, argc, argv, ret);
        jsdisp_release(jsdisp);
        return hres;
    }
    if(jsdisp)
        jsdisp_release(jsdisp);
 
    flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
    if(ret && argc)
        flags |= DISPATCH_PROPERTYGET;
 
    dp.cArgs = argc;
 
    if(flags & DISPATCH_PROPERTYPUT) {
        static DISPID propput_dispid = DISPID_PROPERTYPUT;
 
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &propput_dispid;
    }else {
        dp.cNamedArgs = 0;
        dp.rgdispidNamedArgs = NULL;
    }
 
    if(dp.cArgs > ARRAY_SIZE(buf)) {
        dp.rgvarg = malloc(argc * sizeof(VARIANT));
        if(!dp.rgvarg)
            return E_OUTOFMEMORY;
    }else {
        dp.rgvarg = buf;
    }
 
    for(i=0; i<argc; i++) {
        hres = jsval_to_variant(argv[i], dp.rgvarg+argc-i-1);
        if(FAILED(hres)) {
            while(i--)
                VariantClear(dp.rgvarg+argc-i-1);
            if(dp.rgvarg != buf)
                free(dp.rgvarg);
            return hres;
        }
    }
 
    V_VT(&retv) = VT_EMPTY;
    hres = disp_invoke(ctx, disp, id, flags, &dp, ret ? &retv : NULL, &ctx->jscaller->IServiceProvider_iface);
 
    for(i=0; i<argc; i++)
        VariantClear(dp.rgvarg+argc-i-1);
    if(dp.rgvarg != buf)
        free(dp.rgvarg);
 
    if(SUCCEEDED(hres) && ret)
        hres = variant_to_jsval(ctx, &retv, ret);
    VariantClear(&retv);
    return hres;
}

Referenced by disp_call_name(), do_icall(), do_mcall(), exprval_call(), interp_newenum(), and variant_call().

disp_call_name()

HRESULT disp_call_name	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		const WCHAR *	name,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	ret
	)

Definition at line 2740 of file dispex.c.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    HRESULT hres;
    DISPID id;
    BSTR bstr;
 
    if((jsdisp = to_jsdisp(disp)) && jsdisp->ctx == ctx)
        return jsdisp_call_name(jsdisp, name, flags, argc, argv, ret);
 
    if(!(bstr = SysAllocString(name)))
        return E_OUTOFMEMORY;
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres) && dispex) {
        hres = IDispatchEx_GetDispID(dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive), &id);
        IDispatchEx_Release(dispex);
    }else {
        hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &bstr, 1, 0, &id);
    }
    SysFreeString(bstr);
    if(FAILED(hres))
        return hres;
 
    return disp_call(ctx, disp, id, flags, argc, argv, ret);
}

Referenced by to_locale_string().

disp_call_value()

static HRESULT disp_call_value ( script_ctx_t *  ctx, IDispatch *  disp, jsval_t  vthis, WORD  flags, unsigned  argc, jsval_t *  argv, jsval_t *  r  )

inlinestatic

Definition at line 518 of file jscript.h.

{
    return disp_call_value_with_caller(ctx, disp, vthis, flags, argc, argv, r, &ctx->jscaller->IServiceProvider_iface);
}

Referenced by Array_every(), Array_filter(), Array_forEach(), Array_map(), Array_reduce(), Array_some(), exprval_call(), Function_apply(), interp_call(), interp_new(), iterate_map(), and transform_json_object().

disp_call_value_with_caller()

HRESULT disp_call_value_with_caller	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r,
		IServiceProvider *	caller
	)

Definition at line 2767 of file dispex.c.

{
    VARIANT buf[6], retv, *args = buf;
    IDispatch *jsthis;
    jsdisp_t *jsdisp;
    DISPPARAMS dp;
    unsigned i;
    HRESULT hres = S_OK;
 
    static DISPID this_id = DISPID_THIS;
 
    assert(!(flags & ~(DISPATCH_METHOD|DISPATCH_CONSTRUCT|DISPATCH_JSCRIPT_INTERNAL_MASK)));
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp && jsdisp->ctx == ctx) {
        hres = jsdisp_call_value(jsdisp, vthis, flags, argc, argv, r);
        jsdisp_release(jsdisp);
        return hres;
    }
    if(jsdisp)
        jsdisp_release(jsdisp);
 
    if(is_object_instance(vthis) && (ctx->version < SCRIPTLANGUAGEVERSION_ES5 ||
       ((jsdisp = to_jsdisp(get_object(vthis))) && is_class(jsdisp, JSCLASS_OBJECT))))
        jsthis = get_object(vthis);
    else
        jsthis = NULL;
 
    flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
    if(r && argc && flags == DISPATCH_METHOD)
        flags |= DISPATCH_PROPERTYGET;
 
    if(jsthis) {
        dp.cArgs = argc + 1;
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &this_id;
    }else {
        dp.cArgs = argc;
        dp.cNamedArgs = 0;
        dp.rgdispidNamedArgs = NULL;
    }
 
    if(dp.cArgs > ARRAY_SIZE(buf) && !(args = malloc(dp.cArgs * sizeof(VARIANT))))
        return E_OUTOFMEMORY;
    dp.rgvarg = args;
 
    if(jsthis) {
        V_VT(dp.rgvarg) = VT_DISPATCH;
        V_DISPATCH(dp.rgvarg) = jsthis;
    }
 
    for(i=0; SUCCEEDED(hres) && i < argc; i++)
        hres = jsval_to_variant(argv[i], dp.rgvarg+dp.cArgs-i-1);
 
    if(SUCCEEDED(hres)) {
        V_VT(&retv) = VT_EMPTY;
        hres = disp_invoke(ctx, disp, DISPID_VALUE, flags, &dp, r ? &retv : NULL, caller);
    }
 
    for(i = 0; i < argc; i++)
        VariantClear(dp.rgvarg + dp.cArgs - i - 1);
    if(args != buf)
        free(args);
 
    if(FAILED(hres))
        return hres;
    if(!r)
        return S_OK;
 
    hres = variant_to_jsval(ctx, &retv, r);
    VariantClear(&retv);
    return hres;
}

Referenced by disp_call_value(), and invoke_prop_func().

disp_delete()

HRESULT disp_delete	(	IDispatch *	disp,
		DISPID	id,
		BOOL *	ret
	)

Definition at line 3038 of file dispex.c.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        dispex_prop_t *prop;
 
        prop = get_prop(jsdisp, id);
        if(prop)
            hres = delete_prop(jsdisp, prop, ret);
        else
            hres = DISP_E_MEMBERNOTFOUND;
 
        jsdisp_release(jsdisp);
        return hres;
    }
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(FAILED(hres)) {
        *ret = FALSE;
        return S_OK;
    }
 
    hres = IDispatchEx_DeleteMemberByDispID(dispex, id);
    IDispatchEx_Release(dispex);
    if(FAILED(hres))
        return hres;
 
    *ret = hres == S_OK;
    return S_OK;
}

Referenced by interp_delete_ident(), and transform_json_object().

disp_delete_name()

HRESULT disp_delete_name	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		jsstr_t *	name,
		BOOL *	ret
	)

Definition at line 3112 of file dispex.c.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    BSTR bstr;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        dispex_prop_t *prop;
        const WCHAR *ptr;
 
        ptr = jsstr_flatten(name);
        if(!ptr) {
            jsdisp_release(jsdisp);
            return E_OUTOFMEMORY;
        }
 
        hres = find_prop_name(jsdisp, string_hash(ptr), ptr, FALSE, NULL, &prop);
        if(prop) {
            hres = delete_prop(jsdisp, prop, ret);
        }else {
            *ret = TRUE;
            hres = S_OK;
        }
 
        jsdisp_release(jsdisp);
        return hres;
    }
 
    bstr = SysAllocStringLen(NULL, jsstr_length(name));
    if(!bstr)
        return E_OUTOFMEMORY;
    jsstr_flush(name, bstr);
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres)) {
        hres = IDispatchEx_DeleteMemberByName(dispex, bstr, make_grfdex(ctx, fdexNameCaseSensitive));
        if(SUCCEEDED(hres))
            *ret = hres == S_OK;
        IDispatchEx_Release(dispex);
    }else {
        DISPID id;
 
        hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &bstr, 1, 0, &id);
        if(SUCCEEDED(hres)) {
            /* Property exists and we can't delete it from pure IDispatch interface, so return false. */
            *ret = FALSE;
        }else if(hres == DISP_E_UNKNOWNNAME) {
            /* Property doesn't exist, so nothing to delete */
            *ret = TRUE;
            hres = S_OK;
        }
    }
 
    SysFreeString(bstr);
    return hres;
}

Referenced by interp_delete().

disp_propget()

HRESULT disp_propget	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		DISPID	id,
		jsval_t *	val
	)

Definition at line 2994 of file dispex.c.

{
    DISPPARAMS dp  = {NULL,NULL,0,0};
    jsdisp_t *jsdisp;
    VARIANT var;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp && jsdisp->ctx == ctx) {
        hres = jsdisp_propget(jsdisp, id, val);
        jsdisp_release(jsdisp);
        return hres;
    }
    if(jsdisp)
        jsdisp_release(jsdisp);
 
    V_VT(&var) = VT_EMPTY;
    hres = disp_invoke(ctx, disp, id, INVOKE_PROPERTYGET, &dp, &var, &ctx->jscaller->IServiceProvider_iface);
    if(SUCCEEDED(hres)) {
        hres = variant_to_jsval(ctx, &var, val);
        VariantClear(&var);
    }
    return hres;
}

Referenced by exprval_call(), exprval_propget(), interp_array(), interp_member(), and to_primitive().

disp_propput()

HRESULT disp_propput	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		DISPID	id,
		jsval_t	val
	)

Definition at line 2872 of file dispex.c.

{
    jsdisp_t *jsdisp;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp && jsdisp->ctx == ctx) {
        dispex_prop_t *prop;
 
        prop = get_prop(jsdisp, id);
        if(prop)
            hres = prop_put(jsdisp, prop, val);
        else
            hres = DISP_E_MEMBERNOTFOUND;
 
        jsdisp_release(jsdisp);
    }else {
        DISPID dispid = DISPID_PROPERTYPUT;
        DWORD flags = DISPATCH_PROPERTYPUT;
        VARIANT var;
        DISPPARAMS dp  = {&var, &dispid, 1, 1};
 
        if(jsdisp)
            jsdisp_release(jsdisp);
        hres = jsval_to_variant(val, &var);
        if(FAILED(hres))
            return hres;
 
        if(V_VT(&var) == VT_DISPATCH)
            flags |= DISPATCH_PROPERTYPUTREF;
 
        hres = disp_invoke(ctx, disp, id, flags, &dp, NULL, &ctx->jscaller->IServiceProvider_iface);
        VariantClear(&var);
    }
 
    return hres;
}

Referenced by assign_ident(), disp_propput_name(), exprval_propput(), interp_assign_member(), and interp_set_member().

disp_propput_name()

HRESULT disp_propput_name	(	script_ctx_t *	ctx,
		IDispatch *	disp,
		const WCHAR *	name,
		jsval_t	val
	)

Definition at line 2910 of file dispex.c.

{
    jsdisp_t *jsdisp;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(!jsdisp || jsdisp->ctx != ctx) {
        IDispatchEx *dispex;
        BSTR str;
        DISPID id;
 
        if(jsdisp)
            jsdisp_release(jsdisp);
        if(!(str = SysAllocString(name)))
            return E_OUTOFMEMORY;
 
        hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
        if(SUCCEEDED(hres)) {
            hres = IDispatchEx_GetDispID(dispex, str, make_grfdex(ctx, fdexNameEnsure|fdexNameCaseSensitive), &id);
            IDispatchEx_Release(dispex);
        }else {
            TRACE("using IDispatch\n");
            hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &str, 1, 0, &id);
        }
        SysFreeString(str);
        if(FAILED(hres))
            return hres;
 
        return disp_propput(ctx, disp, id, val);
    }
 
    hres = jsdisp_propput_name(jsdisp, name, val);
    jsdisp_release(jsdisp);
    return hres;
}

Referenced by interp_set_member().

double_to_string()

HRESULT double_to_string	(	double	n,
		jsstr_t **	str
	)

Definition at line 767 of file jsutils.c.

{
    if(isnan(n)) {
        *str = jsstr_nan();
    }else if(isinf(n)) {
        *str = jsstr_alloc(n<0 ? L"-Infinity" : L"Infinity");
    }else if(is_int32(n)) {
        WCHAR buf[12];
#ifdef __REACTOS__ /* FIXME: Inspect */
        swprintf(buf, ARRAY_SIZE(buf), L"%d", (int)n);
#else
        _ltow_s(n, buf, ARRAY_SIZE(buf), 10);
#endif
        *str = jsstr_alloc(buf);
    }else {
        VARIANT strv, v;
        HRESULT hres;
 
        /* FIXME: Don't use VariantChangeTypeEx */
        V_VT(&v) = VT_R8;
        V_R8(&v) = n;
        V_VT(&strv) = VT_EMPTY;
        hres = VariantChangeTypeEx(&strv, &v, MAKELCID(MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),SORT_DEFAULT), 0, VT_BSTR);
        if(FAILED(hres))
            return hres;
 
        *str = jsstr_alloc(V_BSTR(&strv));
        SysFreeString(V_BSTR(&strv));
    }
 
    return *str ? S_OK : E_OUTOFMEMORY;
}

Referenced by literal_as_string(), stringify(), and to_string().

Function_get_code()

struct _function_code_t * Function_get_code

(

jsdisp_t *

jsthis

)

Definition at line 655 of file function.c.

{
    FunctionInstance *function;
 
    assert(is_class(jsthis, JSCLASS_FUNCTION));
    function = function_from_jsdisp(jsthis);
 
    return function->vtbl->get_code(function);
}

Referenced by DispatchEx_GetTypeInfo().

Function_get_value()

HRESULT Function_get_value	(	script_ctx_t *	ctx,
		jsdisp_t *	jsthis,
		jsval_t *	r
	)

Definition at line 615 of file function.c.

{
    FunctionInstance *function = function_from_jsdisp(jsthis);
    jsstr_t *str;
    HRESULT hres;
 
    TRACE("\n");
 
    hres = function->vtbl->toString(function, &str);
    if(FAILED(hres))
        return hres;
 
    *r = jsval_string(str);
    return S_OK;
}

Function_invoke()

HRESULT Function_invoke	(	jsdisp_t *	func_this,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 327 of file function.c.

{
    FunctionInstance *function;
 
    TRACE("func %p this %s\n", func_this, debugstr_jsval(vthis));
 
    assert(is_class(func_this, JSCLASS_FUNCTION));
    function = function_from_jsdisp(func_this);
 
    if(function->dispex.ctx->state == SCRIPTSTATE_UNINITIALIZED || function->dispex.ctx->state == SCRIPTSTATE_CLOSED) {
        WARN("Script engine state does not allow running code.\n");
        return E_UNEXPECTED;
    }
 
    return function->vtbl->call(function->dispex.ctx, function, vthis, flags, argc, argv, r);
}

Referenced by jsdisp_call_value().

Function_value()

HRESULT Function_value	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 600 of file function.c.

{
    FunctionInstance *function;
 
    TRACE("\n");
 
    if(!(function = function_this(vthis))) {
        ERR("dispex is not a function\n");
        return E_FAIL;
    }
 
    return function->vtbl->call(ctx, function, vthis, flags, argc, argv, r);
}

gc_process_linked_obj()

HRESULT gc_process_linked_obj	(	struct gc_ctx *	gc_ctx,
		enum	gc_traverse_op,
		jsdisp_t *	obj,
		jsdisp_t *	link,
		void **	unlink_ref
	)

Definition at line 1124 of file dispex.c.

{
    if(op == GC_TRAVERSE_UNLINK) {
        *unlink_ref = NULL;
        jsdisp_release(link);
        return S_OK;
    }
 
    if(op == GC_TRAVERSE_SPECULATIVELY)
        link->ref--;
    else if(link->gc_marked)
        return gc_stack_push(gc_ctx, link);
    return S_OK;
}

Referenced by Arguments_gc_traverse(), BindFunction_gc_traverse(), DataView_gc_traverse(), InterpretedFunction_gc_traverse(), and scope_gc_traverse().

gc_process_linked_val()

HRESULT gc_process_linked_val	(	struct gc_ctx *	gc_ctx,
		enum	gc_traverse_op,
		jsdisp_t *	obj,
		jsval_t *	link
	)

Definition at line 1139 of file dispex.c.

{
    jsdisp_t *jsdisp;
 
    if(op == GC_TRAVERSE_UNLINK) {
        jsval_t val = *link;
        *link = jsval_undefined();
        jsval_release(val);
        return S_OK;
    }
 
    if(!is_object_instance(*link) || !(jsdisp = to_jsdisp(get_object(*link))))
        return S_OK;
    if(op == GC_TRAVERSE_SPECULATIVELY)
        jsdisp->ref--;
    else if(jsdisp->gc_marked)
        return gc_stack_push(gc_ctx, jsdisp);
    return S_OK;
}

Referenced by Arguments_gc_traverse(), BindFunction_gc_traverse(), Enumerator_gc_traverse(), Map_gc_traverse(), RegExp_gc_traverse(), scope_gc_traverse(), and WeakMap_gc_traverse().

gc_run()

HRESULT gc_run

(

script_ctx_t *

ctx

)

Definition at line 928 of file dispex.c.

{
    /* Save original refcounts in a linked list of chunks */
    struct chunk
    {
        struct chunk *next;
        LONG ref[1020];
    } *head, *chunk;
    struct thread_data *thread_data = ctx->thread_data;
    jsdisp_t *obj, *obj2, *link, *link2;
    dispex_prop_t *prop, *props_end;
    struct gc_ctx gc_ctx = { 0 };
    unsigned chunk_idx = 0;
    HRESULT hres = S_OK;
    struct list *iter;
 
    /* Prevent recursive calls from side-effects during unlinking (e.g. CollectGarbage from host object's Release) */
    if(thread_data->gc_is_unlinking)
        return S_OK;
 
    if(!(head = malloc(sizeof(*head))))
        return E_OUTOFMEMORY;
    head->next = NULL;
    chunk = head;
 
    /* 1. Save actual refcounts and decrease them speculatively as-if we unlinked the objects */
    LIST_FOR_EACH_ENTRY(obj, &thread_data->objects, jsdisp_t, entry) {
        if(chunk_idx == ARRAY_SIZE(chunk->ref)) {
            if(!(chunk->next = malloc(sizeof(*chunk)))) {
                do {
                    chunk = head->next;
                    free(head);
                    head = chunk;
                } while(head);
                return E_OUTOFMEMORY;
            }
            chunk = chunk->next; chunk_idx = 0;
            chunk->next = NULL;
        }
        chunk->ref[chunk_idx++] = obj->ref;
    }
    LIST_FOR_EACH_ENTRY(obj, &thread_data->objects, jsdisp_t, entry) {
        /* Skip objects with external reference counter */
        if(obj->builtin_info->addref) {
            obj->gc_marked = FALSE;
            continue;
        }
        for(prop = obj->props, props_end = prop + obj->prop_cnt; prop < props_end; prop++) {
            switch(prop->type) {
            case PROP_JSVAL:
                if(is_object_instance(prop->u.val) && (link = to_jsdisp(get_object(prop->u.val))))
                    link->ref--;
                break;
            case PROP_ACCESSOR:
                if(prop->u.accessor.getter)
                    prop->u.accessor.getter->ref--;
                if(prop->u.accessor.setter)
                    prop->u.accessor.setter->ref--;
                break;
            default:
                break;
            }
        }
 
        if(obj->prototype)
            obj->prototype->ref--;
        if(obj->builtin_info->gc_traverse)
            obj->builtin_info->gc_traverse(&gc_ctx, GC_TRAVERSE_SPECULATIVELY, obj);
        obj->gc_marked = TRUE;
    }
 
    /* 2. Clear mark on objects with non-zero "external refcount" and all objects accessible from them */
    LIST_FOR_EACH_ENTRY(obj, &thread_data->objects, jsdisp_t, entry) {
        if(!obj->ref || !obj->gc_marked)
            continue;
 
        hres = gc_stack_push(&gc_ctx, NULL);
        if(FAILED(hres))
            break;
 
        obj2 = obj;
        do
        {
            obj2->gc_marked = FALSE;
 
            for(prop = obj2->props, props_end = prop + obj2->prop_cnt; prop < props_end; prop++) {
                switch(prop->type) {
                case PROP_JSVAL:
                    if(!is_object_instance(prop->u.val))
                        continue;
                    link = to_jsdisp(get_object(prop->u.val));
                    link2 = NULL;
                    break;
                case PROP_ACCESSOR:
                    link = prop->u.accessor.getter;
                    link2 = prop->u.accessor.setter;
                    break;
                default:
                    continue;
                }
                if(link && link->gc_marked) {
                    hres = gc_stack_push(&gc_ctx, link);
                    if(FAILED(hres))
                        break;
                }
                if(link2 && link2->gc_marked) {
                    hres = gc_stack_push(&gc_ctx, link2);
                    if(FAILED(hres))
                        break;
                }
            }
 
            if(FAILED(hres))
                break;
 
            if(obj2->prototype && obj2->prototype->gc_marked) {
                hres = gc_stack_push(&gc_ctx, obj2->prototype);
                if(FAILED(hres))
                    break;
            }
 
            if(obj2->builtin_info->gc_traverse) {
                hres = obj2->builtin_info->gc_traverse(&gc_ctx, GC_TRAVERSE, obj2);
                if(FAILED(hres))
                    break;
            }
 
            /* For weak refs, traverse paths accessible from it via the WeakMaps, if the WeakMaps are alive at this point.
               We need both the key and the WeakMap for the entry to actually be accessible (and thus traversed). */
            if(obj2->has_weak_refs) {
                struct list *list = &RB_ENTRY_VALUE(rb_get(&thread_data->weak_refs, obj2), struct weak_refs_entry, entry)->list;
                struct weakmap_entry *entry;
 
                LIST_FOR_EACH_ENTRY(entry, list, struct weakmap_entry, weak_refs_entry) {
                    if(!entry->weakmap->gc_marked && is_object_instance(entry->value) && (link = to_jsdisp(get_object(entry->value)))) {
                        hres = gc_stack_push(&gc_ctx, link);
                        if(FAILED(hres))
                            break;
                    }
                }
 
                if(FAILED(hres))
                    break;
            }
 
            do obj2 = gc_stack_pop(&gc_ctx); while(obj2 && !obj2->gc_marked);
        } while(obj2);
 
        if(FAILED(hres)) {
            do obj2 = gc_stack_pop(&gc_ctx); while(obj2);
            break;
        }
    }
    free(gc_ctx.next);
 
    /* Restore */
    chunk = head; chunk_idx = 0;
    LIST_FOR_EACH_ENTRY(obj, &thread_data->objects, jsdisp_t, entry) {
        obj->ref = chunk->ref[chunk_idx++];
        if(chunk_idx == ARRAY_SIZE(chunk->ref)) {
            struct chunk *next = chunk->next;
            free(chunk);
            chunk = next; chunk_idx = 0;
        }
    }
    free(chunk);
 
    if(FAILED(hres))
        return hres;
 
    /* 3. Remove all the links from the marked objects, since they are dangling */
    thread_data->gc_is_unlinking = TRUE;
 
    iter = list_head(&thread_data->objects);
    while(iter) {
        obj = LIST_ENTRY(iter, jsdisp_t, entry);
        if(!obj->gc_marked) {
            iter = list_next(&thread_data->objects, iter);
            continue;
        }
 
        /* Grab it since it gets removed when unlinked */
        jsdisp_addref(obj);
        unlink_jsdisp(obj);
 
        /* Releasing unlinked object should not delete any other object,
           so we can safely obtain the next pointer now */
        iter = list_next(&thread_data->objects, iter);
        jsdisp_release(obj);
    }
 
    thread_data->gc_is_unlinking = FALSE;
    thread_data->gc_last_tick = GetTickCount();
    return S_OK;
}

Referenced by decrease_state(), init_dispex(), and JSGlobal_CollectGarbage().

get_dispatch_typeinfo()

HRESULT get_dispatch_typeinfo

(

ITypeInfo **

out

)

Definition at line 78 of file jscript_main.c.

{
    ITypeInfo *typeinfo;
    ITypeLib *typelib;
    HRESULT hr;
 
    if (!dispatch_typeinfo)
    {
        hr = LoadRegTypeLib(&IID_StdOle, STDOLE_MAJORVERNUM, STDOLE_MINORVERNUM, STDOLE_LCID, &typelib);
        if (FAILED(hr)) return hr;
 
        hr = ITypeLib_GetTypeInfoOfGuid(typelib, &IID_IDispatch, &typeinfo);
        ITypeLib_Release(typelib);
        if (FAILED(hr)) return hr;
 
        if (InterlockedCompareExchangePointer((void**)&dispatch_typeinfo, typeinfo, NULL))
            ITypeInfo_Release(typeinfo);
    }
 
    *out = dispatch_typeinfo;
    return S_OK;
}

Referenced by ScriptTypeComp_Bind(), ScriptTypeComp_BindType(), ScriptTypeInfo_AddressOfMember(), ScriptTypeInfo_GetDllEntry(), ScriptTypeInfo_GetDocumentation(), ScriptTypeInfo_GetIDsOfNames(), ScriptTypeInfo_GetMops(), ScriptTypeInfo_GetNames(), ScriptTypeInfo_GetRefTypeInfo(), and ScriptTypeInfo_Invoke().

get_host_dispatch()

IWineJSDispatchHost * get_host_dispatch

(

IDispatch *

disp

)

Definition at line 3584 of file dispex.c.

{
    IWineJSDispatchHost *ret;
    HostObject *host_obj;
    jsdisp_t *jsdisp;
 
    if(!(jsdisp = to_jsdisp(disp)))
        return NULL;
    if(jsdisp->builtin_info != &HostObject_info)
        return NULL;
 
    host_obj = HostObject_from_jsdisp(jsdisp);
    IWineJSDispatchHost_GetOuterDispatch(host_obj->host_iface, &ret);
    return ret;
}

Referenced by disp_cmp(), HostFunction_call(), jsval_to_variant(), and WineJSDispatch_GetScriptGlobal().

get_thread_data()

struct thread_data * get_thread_data

(

void

)

Definition at line 51 of file jscript_main.c.

{
    struct thread_data *thread_data = TlsGetValue(jscript_tls);
 
    if(!thread_data) {
        thread_data = calloc(1, sizeof(struct thread_data));
        if(!thread_data)
            return NULL;
        thread_data->thread_id = GetCurrentThreadId();
        list_init(&thread_data->objects);
        rb_init(&thread_data->weak_refs, weak_refs_compare);
        TlsSetValue(jscript_tls, thread_data);
    }
 
    thread_data->ref++;
    return thread_data;
}

Referenced by clear_task_timer(), flush_pending_tasks(), get_thread_hwnd(), JScript_SetScriptSite(), pop_task(), process_timer(), push_task(), remove_target_tasks(), set_task_timer(), and thread_detach().

handle_dispatch_exception()

void handle_dispatch_exception	(	script_ctx_t *	ctx,
		EXCEPINFO *	ei
	)

Definition at line 409 of file error.c.

{
    TRACE("%08lx %s %s\n", ei->scode, debugstr_w(ei->bstrSource), debugstr_w(ei->bstrDescription));
 
    reset_ei(ctx->ei);
    if(ei->pfnDeferredFillIn)
        ei->pfnDeferredFillIn(ei);
    ctx->ei->error = (SUCCEEDED(ei->scode) || ei->scode == DISP_E_EXCEPTION) ? E_FAIL : ei->scode;
    if(ei->bstrSource)
        ctx->ei->source = jsstr_alloc_len(ei->bstrSource, SysStringLen(ei->bstrSource));
    if(ei->bstrDescription)
        ctx->ei->message = jsstr_alloc_len(ei->bstrDescription, SysStringLen(ei->bstrDescription));
    SysFreeString(ei->bstrSource);
    SysFreeString(ei->bstrDescription);
    SysFreeString(ei->bstrHelpFile);
}

Referenced by disp_invoke(), HostConstructor_call(), HostFunction_call(), HostObject_prop_get(), and HostObject_prop_put().

heap_pool_alloc()

void * heap_pool_alloc	(	heap_pool_t *	heap,
		DWORD	size
	)

Definition at line 72 of file jsutils.c.

{
    struct list *list;
    void *tmp;
 
    if(!heap->block_cnt) {
        if(!heap->blocks) {
            heap->blocks = malloc(sizeof(void*));
            if(!heap->blocks)
                return NULL;
        }
 
        tmp = malloc(block_size(0));
        if(!tmp)
            return NULL;
 
        heap->blocks[0] = tmp;
        heap->block_cnt = 1;
    }
 
    if(heap->offset + size <= block_size(heap->last_block)) {
        tmp = ((BYTE*)heap->blocks[heap->last_block])+heap->offset;
        heap->offset += size;
        return tmp;
    }
 
    if(size <= block_size(heap->last_block+1)) {
        if(heap->last_block+1 == heap->block_cnt) {
            tmp = realloc(heap->blocks, (heap->block_cnt+1)*sizeof(void*));
            if(!tmp)
                return NULL;
 
            heap->blocks = tmp;
            heap->blocks[heap->block_cnt] = malloc(block_size(heap->block_cnt));
            if(!heap->blocks[heap->block_cnt])
                return NULL;
 
            heap->block_cnt++;
        }
 
        heap->last_block++;
        heap->offset = size;
        return heap->blocks[heap->last_block];
    }
 
    list = malloc(size + sizeof(struct list));
    if(!list)
        return NULL;
 
    list_add_head(&heap->custom_blocks, list);
    return list+1;
}

Referenced by add_dynamic_var(), alloc_local(), alloc_match_state(), compiler_alloc(), compiler_alloc_zero(), exec_global_code(), heap_pool_grow(), heap_pool_strdup(), InitMatch(), NewRENode(), parser_alloc(), and parser_alloc_tmp().

heap_pool_clear()

void heap_pool_clear

(

heap_pool_t *

heap

)

Definition at line 141 of file jsutils.c.

{
    struct list *tmp;
 
    if(!heap)
        return;
 
    while((tmp = list_head(&heap->custom_blocks))) {
        list_remove(tmp);
        free(tmp);
    }
 
    if(WARN_ON(heap)) {
        DWORD i;
 
        for(i=0; i < heap->block_cnt; i++)
            memset(heap->blocks[i], ARENA_FREE_FILLER, block_size(i));
    }
 
    heap->last_block = heap->offset = 0;
    heap->mark = FALSE;
}

Referenced by RegExp2_Replace(), RegExp2_Test(), RegExp_exec(), regexp_execute(), regexp_match(), regexp_match_next(), regexp_new(), regexp_string_match(), and RegExp_test().

heap_pool_free()

void heap_pool_free

(

heap_pool_t *

heap

)

Definition at line 164 of file jsutils.c.

{
    DWORD i;
 
    heap_pool_clear(heap);
 
    for(i=0; i < heap->block_cnt; i++)
        free(heap->blocks[i]);
    free(heap->blocks);
 
    heap_pool_init(heap);
}

Referenced by compile_script(), RegExp2_Release(), release_bytecode(), release_exec(), release_vbscode(), script_release(), and ScriptDisp_Release().

heap_pool_grow()

void * heap_pool_grow	(	heap_pool_t *	heap,
		void *	mem,
		DWORD	size,
		DWORD	inc
	)

Definition at line 125 of file jsutils.c.

{
    void *ret;
 
    if(mem == (BYTE*)heap->blocks[heap->last_block] + heap->offset-size
       && heap->offset+inc < block_size(heap->last_block)) {
        heap->offset += inc;
        return mem;
    }
 
    ret = heap_pool_alloc(heap, size+inc);
    if(ret) /* FIXME: avoid copying for custom blocks */
        memcpy(ret, mem, size);
    return ret;
}

Referenced by PushBackTrackState(), and ReallocStateStack().

heap_pool_init()

void heap_pool_init

(

heap_pool_t *

heap

)

Definition at line 66 of file jsutils.c.

{
    memset(heap, 0, sizeof(*heap));
    list_init(&heap->custom_blocks);
}

Referenced by alloc_vbscode(), compile_script(), create_regexp(), create_script_disp(), exec_script(), init_code(), and JScript_SetScriptSite().

heap_pool_mark()

heap_pool_t * heap_pool_mark

(

heap_pool_t *

heap

)

Definition at line 177 of file jsutils.c.

{
    if(heap->mark)
        return NULL;
 
    heap->mark = TRUE;
    return heap;
}

Referenced by RegExp2_Replace(), RegExp2_Test(), RegExp_exec(), regexp_execute(), regexp_match(), regexp_match_next(), regexp_new(), regexp_string_match(), and RegExp_test().

idx_to_str()

WCHAR * idx_to_str	(	DWORD	idx,
		WCHAR *	ptr
	)

Definition at line 100 of file array.c.

{
    if(!idx) {
        *ptr = '0';
        return ptr;
    }
 
    while(idx) {
        *ptr-- = '0' + (idx%10);
        idx /= 10;
    }
 
    return ptr+1;
}

Referenced by Array_unshift(), and transform_json_object().

iface_to_jsdisp()

jsdisp_t * iface_to_jsdisp

(

IDispatch *

iface

)

Definition at line 2543 of file dispex.c.

{
    return iface->lpVtbl == (const IDispatchVtbl*)&DispatchExVtbl
        ? jsdisp_addref( impl_from_IWineJSDispatch((IWineJSDispatch*)iface))
        : NULL;
}

Referenced by Array_sort(), concat_obj(), disp_call(), disp_call_value_with_caller(), disp_delete(), disp_delete_name(), disp_propget(), disp_propput(), disp_propput_name(), Function_apply(), get_length(), init_dispex_from_constr(), interp_instanceof(), maybe_to_primitive(), String_match(), String_replace(), String_search(), String_split(), stringify(), and to_primitive().

init_arraybuf_constructors()

HRESULT init_arraybuf_constructors

(

script_ctx_t *

ctx

)

Definition at line 692 of file arraybuf.c.

{
    static const struct {
        const WCHAR *name;
        builtin_invoke_t get;
    } DataView_getters[] = {
        { L"buffer",        DataView_get_buffer },
        { L"byteLength",    DataView_get_byteLength },
        { L"byteOffset",    DataView_get_byteOffset },
    };
    ArrayBufferInstance *arraybuf;
    DataViewInstance *view;
    property_desc_t desc;
    HRESULT hres;
    unsigned i;
 
    if(ctx->version < SCRIPTLANGUAGEVERSION_ES5)
        return S_OK;
 
    if(!(arraybuf = calloc(1, FIELD_OFFSET(ArrayBufferInstance, buf[0]))))
        return E_OUTOFMEMORY;
 
    hres = init_dispex(&arraybuf->dispex, ctx, &ArrayBuffer_info, ctx->object_prototype);
    if(FAILED(hres)) {
        free(arraybuf);
        return hres;
    }
 
    hres = create_builtin_constructor(ctx, ArrayBufferConstr_value, L"ArrayBuffer", &ArrayBufferConstr_info,
                                      PROPF_CONSTR|1, &arraybuf->dispex, &ctx->arraybuf_constr);
    jsdisp_release(&arraybuf->dispex);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"ArrayBuffer", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(ctx->arraybuf_constr));
    if(FAILED(hres))
        return hres;
 
    if(!(view = calloc(1, sizeof(DataViewInstance))))
        return E_OUTOFMEMORY;
 
    hres = create_arraybuf(ctx, 0, &view->buffer);
    if(FAILED(hres)) {
        free(view);
        return hres;
    }
 
    hres = init_dispex(&view->dispex, ctx, &DataView_info, ctx->object_prototype);
    if(FAILED(hres)) {
        jsdisp_release(&view->buffer->dispex);
        free(view);
        return hres;
    }
 
    desc.flags = PROPF_CONFIGURABLE;
    desc.mask  = PROPF_CONFIGURABLE | PROPF_ENUMERABLE;
    desc.explicit_getter = desc.explicit_setter = TRUE;
    desc.explicit_value = FALSE;
    desc.setter = NULL;
 
    /* FIXME: If we find we need builtin accessors in other places, we should consider a more generic solution */
    for(i = 0; i < ARRAY_SIZE(DataView_getters); i++) {
        hres = create_builtin_function(ctx, DataView_getters[i].get, NULL, NULL, PROPF_METHOD, NULL, &desc.getter);
        if(SUCCEEDED(hres)) {
            hres = jsdisp_define_property(&view->dispex, DataView_getters[i].name, &desc);
            jsdisp_release(desc.getter);
        }
        if(FAILED(hres)) {
            jsdisp_release(&view->dispex);
            return hres;
        }
    }
 
    hres = create_builtin_constructor(ctx, DataViewConstr_value, L"DataView", &DataViewConstr_info,
                                      PROPF_CONSTR|1, &view->dispex, &ctx->dataview_constr);
    jsdisp_release(&view->dispex);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"DataView", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(ctx->dataview_constr));
 
    return hres;
}

Referenced by init_global().

init_dispex()

HRESULT init_dispex	(	jsdisp_t *	dispex,
		script_ctx_t *	ctx,
		const builtin_info_t *	builtin_info,
		jsdisp_t *	prototype
	)

Definition at line 2454 of file dispex.c.

{
    unsigned i;
 
    /* FIXME: Use better heuristics to decide when to run the GC */
    if(GetTickCount() - ctx->thread_data->gc_last_tick > 30000)
        gc_run(ctx);
 
    TRACE("%p (%p)\n", dispex, prototype);
 
    dispex->IWineJSDispatch_iface.lpVtbl = &DispatchExVtbl;
    dispex->ref = 1;
    dispex->builtin_info = builtin_info;
    dispex->extensible = TRUE;
    dispex->is_constructor = builtin_info->class == JSCLASS_FUNCTION;
    dispex->prop_cnt = 0;
 
    dispex->props = calloc(1, sizeof(dispex_prop_t)*(dispex->buf_size=4));
    if(!dispex->props)
        return E_OUTOFMEMORY;
 
    for(i = 0; i < dispex->buf_size; i++) {
        dispex->props[i].bucket_head = ~0;
        dispex->props[i].bucket_next = ~0;
    }
 
    dispex->prototype = prototype;
    if(prototype)
        jsdisp_addref(prototype);
 
    script_addref(ctx);
    dispex->ctx = ctx;
 
    list_add_tail(&ctx->thread_data->objects, &dispex->entry);
    return S_OK;
}

Referenced by alloc_array(), alloc_bool(), alloc_doc_node(), alloc_enumerator(), alloc_error(), alloc_number(), alloc_regexp(), alloc_vbarray(), create_child_collection(), create_children_nodelist(), create_date(), create_dispex(), create_dom_implementation(), create_event(), create_func_disp(), create_function(), create_history(), create_html_rect(), create_inner_window(), create_mime_types_collection(), create_nodemap(), create_parseError(), create_plugins_collection(), create_selection(), create_storage(), HTMLCurrentStyle_Create(), HTMLDocument_Create(), HTMLDOMAttribute_Create(), HTMLDOMTextNode_Create(), HTMLElement_get_attr_col(), HTMLElement_Init(), HTMLElementCollection_Create(), HTMLFiltersCollection_Create(), HTMLImageElementFactory_Create(), HTMLLocation_Create(), HTMLOptionElementFactory_Create(), HTMLScreen_Create(), HTMLSelectionObject_Create(), HTMLStyle_Create(), HTMLStyleSheet_Create(), HTMLStyleSheetRulesCollection_Create(), HTMLStyleSheetsCollection_Create(), HTMLTxtRange_Create(), HTMLXMLHttpRequestFactory_Create(), HTMLXMLHttpRequestFactory_create(), init_arraybuf_constructors(), init_dispex_from_constr(), init_host_object(), init_xmlnode(), Map_constructor(), MXNamespaceManager_create(), MXWriter_create(), OmNavigator_Create(), SAXAttributes_create(), SAXXMLReader_create(), SchemaCache_create(), scope_push(), Set_constructor(), string_alloc(), WeakMap_constructor(), XSLProcessor_create(), and XSLTemplate_create().

init_dispex_from_constr()

HRESULT init_dispex_from_constr	(	jsdisp_t *	dispex,
		script_ctx_t *	ctx,
		const builtin_info_t *	builtin_info,
		jsdisp_t *	constr
	)

Definition at line 2512 of file dispex.c.

{
    jsdisp_t *prot = NULL;
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name_prot(constr, string_hash(L"prototype"), L"prototype", FALSE, NULL, &prop);
    if(SUCCEEDED(hres) && prop && prop->type!=PROP_DELETED) {
        jsval_t val;
 
        hres = prop_get(constr, to_disp(constr), prop, &val);
        if(FAILED(hres)) {
            ERR("Could not get prototype\n");
            return hres;
        }
 
        if(is_object_instance(val))
            prot = iface_to_jsdisp(get_object(val));
        else
            prot = jsdisp_addref(ctx->object_prototype);
 
        jsval_release(val);
    }
 
    hres = init_dispex(dispex, ctx, builtin_info, prot);
 
    if(prot)
        jsdisp_release(prot);
    return hres;
}

Referenced by alloc_array(), alloc_bool(), alloc_enumerator(), alloc_error(), alloc_number(), alloc_regexp(), alloc_vbarray(), create_arraybuf(), create_date(), create_function(), create_json(), create_math(), create_object(), DataViewConstr_value(), setup_arguments_object(), and string_alloc().

init_error_constr()

HRESULT init_error_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype
	)

Definition at line 321 of file error.c.

{
    static const WCHAR *names[] = {L"Error", L"EvalError", L"RangeError",
        L"ReferenceError", L"RegExpError", L"SyntaxError", L"TypeError", L"URIError"};
    jsdisp_t **constr_addr[] = {&ctx->error_constr, &ctx->eval_error_constr,
        &ctx->range_error_constr, &ctx->reference_error_constr, &ctx->regexp_error_constr,
        &ctx->syntax_error_constr, &ctx->type_error_constr,
        &ctx->uri_error_constr};
    static builtin_invoke_t constr_val[] = {ErrorConstr_value, EvalErrorConstr_value,
        RangeErrorConstr_value, ReferenceErrorConstr_value, RegExpErrorConstr_value,
        SyntaxErrorConstr_value, TypeErrorConstr_value, URIErrorConstr_value};
 
    jsdisp_t *err;
    unsigned int i;
    jsstr_t *str;
    HRESULT hres;
 
    for(i=0; i < ARRAY_SIZE(names); i++) {
        hres = alloc_error(ctx, i==0 ? object_prototype : NULL, NULL, &err);
        if(FAILED(hres))
            return hres;
 
        str = jsstr_alloc(names[i]);
        if(!str) {
            jsdisp_release(err);
            return E_OUTOFMEMORY;
        }
 
        hres = jsdisp_define_data_property(err, L"name", PROPF_WRITABLE | PROPF_CONFIGURABLE,
                                           jsval_string(str));
        jsstr_release(str);
        if(SUCCEEDED(hres))
            hres = create_builtin_constructor(ctx, constr_val[i], names[i], NULL,
                    PROPF_CONSTR|1, err, constr_addr[i]);
 
        jsdisp_release(err);
        if(FAILED(hres))
            return hres;
    }
 
    return S_OK;
}

Referenced by init_constructors().

init_function_constr()

HRESULT init_function_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype
	)

Definition at line 1476 of file function.c.

{
    NativeFunction *prot, *constr;
    HRESULT hres;
 
    hres = create_function(ctx, &Function_info, &NativeFunctionVtbl, sizeof(NativeFunction), PROPF_CONSTR,
                           TRUE, object_prototype, (void**)&prot);
    if(FAILED(hres))
        return hres;
 
    prot->proc = FunctionProt_value;
    prot->name = L"prototype";
 
    hres = create_function(ctx, &FunctionInst_info, &NativeFunctionVtbl, sizeof(NativeFunction), PROPF_CONSTR|1,
                           TRUE, &prot->function.dispex, (void**)&constr);
    if(SUCCEEDED(hres)) {
        constr->proc = FunctionConstr_value;
        constr->name = L"Function";
        hres = jsdisp_define_data_property(&constr->function.dispex, L"prototype", 0, jsval_obj(&prot->function.dispex));
        if(SUCCEEDED(hres))
            hres = set_constructor_prop(ctx, &constr->function.dispex, &prot->function.dispex);
        if(FAILED(hres))
            jsdisp_release(&constr->function.dispex);
    }
    jsdisp_release(&prot->function.dispex);
    if(FAILED(hres))
        return hres;
 
    ctx->function_constr = &constr->function.dispex;
    return S_OK;
}

Referenced by init_constructors().

init_global()

HRESULT init_global

(

script_ctx_t *

ctx

)

Definition at line 1091 of file global.c.

{
    unsigned const_flags = ctx->version >= SCRIPTLANGUAGEVERSION_ES5 ? 0 : PROPF_WRITABLE;
    jsdisp_t *math, *constr;
    HRESULT hres;
 
    if(ctx->global)
        return S_OK;
 
    hres = create_dispex(ctx, &JSGlobal_info, NULL, &ctx->global);
    if(FAILED(hres))
        return hres;
 
    hres = create_object_prototype(ctx, &ctx->object_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = init_constructors(ctx, ctx->object_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = init_object_prototype_accessors(ctx, ctx->object_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_math(ctx, &math);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"Math", PROPF_CONFIGURABLE | PROPF_WRITABLE, jsval_obj(math));
    jsdisp_release(math);
    if(FAILED(hres))
        return hres;
 
    if(ctx->version >= 2) {
        jsdisp_t *json;
 
        hres = create_json(ctx, &json);
        if(FAILED(hres))
            return hres;
 
        hres = jsdisp_define_data_property(ctx->global, L"JSON", PROPF_CONFIGURABLE | PROPF_WRITABLE, jsval_obj(json));
        jsdisp_release(json);
        if(FAILED(hres))
            return hres;
    }
 
    hres = create_activex_constr(ctx, &constr);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"ActiveXObject", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(constr));
    jsdisp_release(constr);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"undefined", const_flags, jsval_undefined());
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"NaN", const_flags, jsval_number(NAN));
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"Infinity", const_flags, jsval_number(INFINITY));
    if(FAILED(hres))
        return hres;
 
    hres = init_arraybuf_constructors(ctx);
    if(FAILED(hres))
        return hres;
 
    return init_set_constructor(ctx);
}

init_host_constructor()

HRESULT init_host_constructor	(	script_ctx_t *	ctx,
		IWineJSDispatchHost *	host_constr,
		IWineJSDispatch *	prototype,
		IWineJSDispatch **	ret
	)

Definition at line 1190 of file function.c.

{
    HostConstructor *function;
    HRESULT hres;
 
    hres = create_function(ctx, &HostConstructor_info, &HostConstructorVtbl, sizeof(*function), PROPF_METHOD,
                           FALSE, NULL, (void**)&function);
    if(FAILED(hres))
        return hres;
    function->host_iface = host_constr;
 
    hres = jsdisp_define_data_property(&function->function.dispex, L"prototype", PROPF_WRITABLE | PROPF_CONFIGURABLE,
                                       jsval_disp((IDispatch *)prototype));
    if(FAILED(hres)) {
        IWineJSDispatch_Free(&function->function.dispex.IWineJSDispatch_iface);
        return hres;
    }
 
    *ret = &function->function.dispex.IWineJSDispatch_iface;
    return S_OK;
}

Referenced by WineJScript_InitHostConstructor().

init_host_object()

HRESULT init_host_object	(	script_ctx_t *	ctx,
		IWineJSDispatchHost *	host_iface,
		IWineJSDispatch *	prototype_iface,
		UINT32	flags,
		IWineJSDispatch **	ret
	)

Definition at line 3557 of file dispex.c.

{
    HostObject *host_obj;
    jsdisp_t *prototype;
    HRESULT hres;
 
    if(!(host_obj = calloc(1, sizeof(*host_obj))))
        return E_OUTOFMEMORY;
 
    if(prototype_iface)
        prototype = impl_from_IWineJSDispatch(prototype_iface);
    else
        prototype = ctx->object_prototype;
    hres = init_dispex(&host_obj->jsdisp, ctx, &HostObject_info, prototype);
    if(FAILED(hres)) {
        free(host_obj);
        return hres;
    }
 
    host_obj->host_iface = host_iface;
    if(flags & HOSTOBJ_CONSTRUCTOR)
        host_obj->jsdisp.is_constructor = TRUE;
    *ret = &host_obj->jsdisp.IWineJSDispatch_iface;
    return S_OK;
}

Referenced by WineJScript_InitHostObject().

init_set_constructor()

HRESULT init_set_constructor

(

script_ctx_t *

ctx

)

Definition at line 894 of file set.c.

{
    jsdisp_t *constructor;
    HRESULT hres;
 
    if(ctx->version < SCRIPTLANGUAGEVERSION_ES6)
        return S_OK;
 
    hres = create_dispex(ctx, &Set_prototype_info, ctx->object_prototype, &ctx->set_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, Set_constructor, L"Set", NULL,
                                      PROPF_CONSTR, ctx->set_prototype, &constructor);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"Set", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(constructor));
    jsdisp_release(constructor);
    if(FAILED(hres))
        return hres;
 
    hres = create_dispex(ctx, &Map_prototype_info, ctx->object_prototype, &ctx->map_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, Map_constructor, L"Map", NULL,
                                      PROPF_CONSTR, ctx->map_prototype, &constructor);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"Map", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(constructor));
    jsdisp_release(constructor);
    if(FAILED(hres))
        return hres;
 
    hres = create_dispex(ctx, &WeakMap_prototype_info, ctx->object_prototype, &ctx->weakmap_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, WeakMap_constructor, L"WeakMap", NULL,
                                      PROPF_CONSTR, ctx->weakmap_prototype, &constructor);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, L"WeakMap", PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                       jsval_obj(constructor));
    jsdisp_release(constructor);
    return hres;
}

Referenced by init_global().

is_builtin_eval_func()

BOOL is_builtin_eval_func

(

jsdisp_t *

jsdisp

)

Definition at line 1470 of file function.c.

{
    return is_class(jsdisp, JSCLASS_FUNCTION) && function_from_jsdisp(jsdisp)->vtbl == &NativeFunctionVtbl &&
           ((NativeFunction*)function_from_jsdisp(jsdisp))->proc == JSGlobal_eval;
}

Referenced by interp_call_eval().

is_class()

static BOOL is_class ( jsdisp_t *  jsdisp, jsclass_t  class  )

inlinestatic

Definition at line 503 of file jscript.h.

{
    return jsdisp->builtin_info->class == class;
}

Referenced by array_get_length(), Array_sort(), array_this(), arraybuf_this(), ArrayConstr_isArray(), bool_obj_value(), boolval_this(), concat_obj(), create_regexp_var(), dataview_this(), date_this(), disp_call_value_with_caller(), enumerator_this(), Function_apply(), Function_get_code(), Function_invoke(), function_this(), get_length(), get_map_this(), get_set_this(), get_weakmap_this(), invoke_prop_func(), is_builtin_eval_func(), is_callable(), is_function_prop(), jsdisp_call_value(), JSON_stringify(), maybe_to_primitive(), numberval_this(), regexp_this(), RegExpConstr_value(), set_length(), String_match(), String_replace(), String_search(), String_split(), string_this(), stringify(), to_primitive(), transform_json_object(), typeof_string(), and vbarray_this().

is_digit()

static BOOL is_digit ( WCHAR  c )

inlinestatic

Definition at line 336 of file jscript.h.

{
    return '0' <= c && c <= '9';
}

is_int32()

static BOOL is_int32 ( double  d )

inlinestatic

Definition at line 508 of file jscript.h.

{
    return INT32_MIN <= d && d <= INT32_MAX && (double)(int)d == d;
}

Referenced by Array_splice(), ArrayConstr_value(), double_to_string(), index_from_val(), jsval_to_variant(), String_charAt(), String_charCodeAt(), String_indexOf(), String_lastIndexOf(), String_slice(), String_substr(), and String_substring().

is_jscript_error()

static BOOL is_jscript_error ( HRESULT  hres )

inlinestatic

Definition at line 588 of file jscript.h.

{
    return HRESULT_FACILITY(hres) == FACILITY_CONTROL;
}

Referenced by create_builtin_error(), format_error_message(), and set_error_location().

jsdisp_addref()

jsdisp_t * jsdisp_addref

(

jsdisp_t *

obj

)

Definition at line 1902 of file dispex.c.

{
    if(obj->builtin_info->addref)
        obj->builtin_info->addref(obj);
    else
        ++obj->ref;
    return obj;
}

Referenced by Arguments_get_caller(), Array_reverse(), Array_sort(), Array_toLocaleString(), create_bind_function(), DataView_get_buffer(), DataViewConstr_value(), DispatchEx_AddRef(), DispatchEx_GetTypeInfo(), DispatchEx_QueryInterface(), exec_source(), Function_get_arguments(), Function_get_caller(), gc_run(), identifier_eval(), iface_to_jsdisp(), init_dispex(), init_dispex_from_constr(), jsdisp_change_prototype(), jsdisp_define_property(), jsdisp_get_own_property(), JSON_stringify(), Object_defineProperties(), Object_defineProperty(), Object_freeze(), Object_get_proto_(), Object_getPrototypeOf(), Object_preventExtensions(), Object_seal(), RegExpConstr_value(), scope_addref(), and stack_topn_exprval().

jsdisp_call()

HRESULT jsdisp_call	(	jsdisp_t *	disp,
		DISPID	id,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 2604 of file dispex.c.

{
    dispex_prop_t *prop;
 
    prop = get_prop(disp, id);
    if(!prop)
        return DISP_E_MEMBERNOTFOUND;
 
    return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, &disp->ctx->jscaller->IServiceProvider_iface);
}

Referenced by disp_call(), and to_primitive().

jsdisp_call_name()

HRESULT jsdisp_call_name	(	jsdisp_t *	disp,
		const WCHAR *	name,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 2615 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name_prot(disp, string_hash(name), name, FALSE, NULL, &prop);
    if(FAILED(hres))
        return hres;
 
    if(!prop || prop->type == PROP_DELETED)
        return JS_E_INVALID_PROPERTY;
 
    return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, &disp->ctx->jscaller->IServiceProvider_iface);
}

Referenced by disp_call_name(), Object_toLocaleString(), and to_locale_string().

jsdisp_call_value()

HRESULT jsdisp_call_value	(	jsdisp_t *	jsfunc,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 2581 of file dispex.c.

{
    HRESULT hres;
 
    assert(!(flags & ~(DISPATCH_METHOD|DISPATCH_CONSTRUCT|DISPATCH_JSCRIPT_INTERNAL_MASK)));
 
    if(is_class(jsfunc, JSCLASS_FUNCTION)) {
        hres = Function_invoke(jsfunc, vthis, flags, argc, argv, r);
    }else {
        if(!jsfunc->builtin_info->call) {
            WARN("Not a function\n");
            return JS_E_FUNCTION_EXPECTED;
        }
 
        if(jsfunc->ctx->state == SCRIPTSTATE_UNINITIALIZED || jsfunc->ctx->state == SCRIPTSTATE_CLOSED)
            return E_UNEXPECTED;
 
        flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
        hres = jsfunc->builtin_info->call(jsfunc->ctx, vthis, flags, argc, argv, r);
    }
    return hres;
}

Referenced by disp_call_value_with_caller(), DispatchEx_InvokeEx(), prop_get(), prop_put(), rep_call(), sort_cmp(), and stringify().

jsdisp_change_prototype()

HRESULT jsdisp_change_prototype	(	jsdisp_t *	obj,
		jsdisp_t *	proto
	)

Definition at line 3356 of file dispex.c.

{
    jsdisp_t *iter;
    DWORD i;
 
    if(obj->prototype == proto)
        return S_OK;
    if(!obj->extensible)
        return JS_E_CANNOT_CREATE_FOR_NONEXTENSIBLE;
 
    for(iter = proto; iter; iter = iter->prototype)
        if(iter == obj)
            return JS_E_CYCLIC_PROTO_VALUE;
 
    if(obj->prototype) {
        for(i = 0; i < obj->prop_cnt; i++)
            if(obj->props[i].type == PROP_PROTREF)
                obj->props[i].type = PROP_DELETED;
        jsdisp_release(obj->prototype);
    }
 
    obj->prototype = proto;
    if(proto)
        jsdisp_addref(proto);
    return S_OK;
}

Referenced by Object_set_proto_().

jsdisp_define_data_property()

HRESULT jsdisp_define_data_property	(	jsdisp_t *	obj,
		const WCHAR *	name,
		unsigned	flags,
		jsval_t	value
	)

Definition at line 3349 of file dispex.c.

{
    property_desc_t prop_desc = { flags, flags, TRUE };
    prop_desc.value = value;
    return jsdisp_define_property(obj, name, &prop_desc);
}

Referenced by create_builtin_function(), create_error(), create_math(), init_arraybuf_constructors(), init_constructors(), init_error_constr(), init_function_constr(), init_global(), init_host_constructor(), init_set_constructor(), InterpretedFunction_get_prototype(), InterpretedFunction_set_prototype(), JSON_parse(), Object_getOwnPropertyDescriptor(), set_constructor_prop(), setup_arguments_object(), and transform_json_object().

jsdisp_define_property()

HRESULT jsdisp_define_property	(	jsdisp_t *	obj,
		const WCHAR *	name,
		property_desc_t *	desc
	)

Definition at line 3216 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name(obj, string_hash(name), name, FALSE, NULL, &prop);
    if(FAILED(hres))
        return hres;
 
    if((!prop || prop->type == PROP_DELETED || prop->type == PROP_PROTREF) && !obj->extensible)
        return throw_error(obj->ctx, JS_E_OBJECT_NONEXTENSIBLE, name);
 
    if(!prop && !(prop = alloc_prop(obj, name, PROP_DELETED, 0)))
       return E_OUTOFMEMORY;
 
    if(prop->type == PROP_DELETED || prop->type == PROP_PROTREF) {
        prop->flags = desc->flags;
        if(desc->explicit_getter || desc->explicit_setter) {
            prop->type = PROP_ACCESSOR;
            prop->u.accessor.getter = desc->getter ? jsdisp_addref(desc->getter) : NULL;
            prop->u.accessor.setter = desc->setter ? jsdisp_addref(desc->setter) : NULL;
            TRACE("%s = accessor { get: %p set: %p }\n", debugstr_w(name),
                  prop->u.accessor.getter, prop->u.accessor.setter);
        }else {
            prop->type = PROP_JSVAL;
            if(desc->explicit_value) {
                hres = jsval_copy(desc->value, &prop->u.val);
                if(FAILED(hres))
                    return hres;
            }else {
                prop->u.val = jsval_undefined();
            }
            TRACE("%s = %s\n", debugstr_w(name), debugstr_jsval(prop->u.val));
        }
        return S_OK;
    }
 
    TRACE("existing prop %s prop flags %lx desc flags %x desc mask %x\n", debugstr_w(name),
          prop->flags, desc->flags, desc->mask);
 
    if(!(prop->flags & PROPF_CONFIGURABLE)) {
        if(((desc->mask & PROPF_CONFIGURABLE) && (desc->flags & PROPF_CONFIGURABLE))
           || ((desc->mask & PROPF_ENUMERABLE)
               && ((desc->flags & PROPF_ENUMERABLE) != (prop->flags & PROPF_ENUMERABLE))))
            return throw_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name);
    }
 
    if(desc->explicit_value || (desc->mask & PROPF_WRITABLE)) {
        if(prop->type == PROP_ACCESSOR) {
            if(!(prop->flags & PROPF_CONFIGURABLE))
                return throw_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name);
            if(prop->u.accessor.getter)
                jsdisp_release(prop->u.accessor.getter);
            if(prop->u.accessor.setter)
                jsdisp_release(prop->u.accessor.setter);
 
            prop->type = PROP_JSVAL;
            hres = jsval_copy(desc->value, &prop->u.val);
            if(FAILED(hres)) {
                prop->u.val = jsval_undefined();
                return hres;
            }
        }else {
            if(!(prop->flags & PROPF_CONFIGURABLE) && !(prop->flags & PROPF_WRITABLE)) {
                if((desc->mask & PROPF_WRITABLE) && (desc->flags & PROPF_WRITABLE))
                    return throw_error(obj->ctx, JS_E_NONWRITABLE_MODIFIED, name);
                if(desc->explicit_value) {
                    if(prop->type == PROP_JSVAL) {
                        BOOL eq;
                        hres = jsval_strict_equal(desc->value, prop->u.val, &eq);
                        if(FAILED(hres))
                            return hres;
                        if(!eq)
                            return throw_error(obj->ctx, JS_E_NONWRITABLE_MODIFIED, name);
                    }else {
                        FIXME("redefinition of property type %d\n", prop->type);
                    }
                }
            }
            if(desc->explicit_value) {
                if(prop->type == PROP_JSVAL)
                    jsval_release(prop->u.val);
                else {
                    if(prop->type == PROP_EXTERN && obj->builtin_info->prop_delete) {
                        hres = obj->builtin_info->prop_delete(obj, prop->u.id);
                        if(FAILED(hres))
                            return hres;
                    }
                    prop->type = PROP_JSVAL;
                }
                hres = jsval_copy(desc->value, &prop->u.val);
                if(FAILED(hres)) {
                    prop->u.val = jsval_undefined();
                    return hres;
                }
            }
        }
    }else if(desc->explicit_getter || desc->explicit_setter) {
        if(prop->type != PROP_ACCESSOR) {
            if(!(prop->flags & PROPF_CONFIGURABLE))
                return throw_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name);
            if(prop->type == PROP_JSVAL)
                jsval_release(prop->u.val);
            prop->type = PROP_ACCESSOR;
            prop->u.accessor.getter = prop->u.accessor.setter = NULL;
        }else if(!(prop->flags & PROPF_CONFIGURABLE)) {
            if((desc->explicit_getter && desc->getter != prop->u.accessor.getter)
               || (desc->explicit_setter && desc->setter != prop->u.accessor.setter))
                return throw_error(obj->ctx, JS_E_NONCONFIGURABLE_REDEFINED, name);
        }
 
        if(desc->explicit_getter) {
            if(prop->u.accessor.getter) {
                jsdisp_release(prop->u.accessor.getter);
                prop->u.accessor.getter = NULL;
            }
            if(desc->getter)
                prop->u.accessor.getter = jsdisp_addref(desc->getter);
        }
        if(desc->explicit_setter) {
            if(prop->u.accessor.setter) {
                jsdisp_release(prop->u.accessor.setter);
                prop->u.accessor.setter = NULL;
            }
            if(desc->setter)
                prop->u.accessor.setter = jsdisp_addref(desc->setter);
        }
    }
 
    prop->flags = (prop->flags & ~desc->mask) | (desc->flags & desc->mask);
    return S_OK;
}

Referenced by init_arraybuf_constructors(), init_object_prototype_accessors(), interp_obj_prop(), jsdisp_define_data_property(), jsdisp_define_properties(), Object_defineGetter(), Object_defineProperty(), and Object_defineSetter().

jsdisp_delete_idx()

HRESULT jsdisp_delete_idx	(	jsdisp_t *	obj,
		DWORD	idx
	)

Definition at line 3019 of file dispex.c.

{
    WCHAR buf[12];
    dispex_prop_t *prop;
    BOOL b;
    HRESULT hres;
 
    swprintf(buf, ARRAY_SIZE(buf), L"%d", idx);
 
    hres = find_prop_name(obj, string_hash(buf), buf, FALSE, NULL, &prop);
    if(FAILED(hres) || !prop)
        return hres;
 
    hres = delete_prop(obj, prop, &b);
    if(FAILED(hres))
        return hres;
    return b ? S_OK : JS_E_INVALID_ACTION;
}

Referenced by Array_pop(), Array_reverse(), Array_set_length(), Array_shift(), and Array_splice().

jsdisp_freeze()

void jsdisp_freeze	(	jsdisp_t *	obj,
		BOOL	seal
	)

Definition at line 3393 of file dispex.c.

{
    unsigned int i;
 
    fill_props(obj);
    for(i = 0; i < obj->prop_cnt; i++) {
        unsigned int mask = PROPF_CONFIGURABLE;
        if(!seal && obj->props[i].type == PROP_JSVAL)
            mask |= PROPF_WRITABLE;
        set_prop_flags(obj, &obj->props[i], obj->props[i].flags & PROPF_PUBLIC_MASK & ~mask);
    }
 
    obj->extensible = FALSE;
}

Referenced by Object_freeze(), and Object_seal().

jsdisp_get_id()

HRESULT jsdisp_get_id	(	jsdisp_t *	jsdisp,
		const WCHAR *	name,
		DWORD	flags,
		DISPID *	id
	)

Definition at line 2550 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    if(jsdisp->extensible && (flags & fdexNameEnsure))
        hres = ensure_prop_name(jsdisp, name, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                flags & fdexNameCaseInsensitive, &prop);
    else
        hres = find_prop_name_prot(jsdisp, string_hash(name), name, flags & fdexNameCaseInsensitive, NULL, &prop);
    if(FAILED(hres))
        return hres;
 
    if(prop && prop->type!=PROP_DELETED) {
        *id = prop_to_id(jsdisp, prop);
        return S_OK;
    }
 
    TRACE("not found %s\n", debugstr_w(name));
    *id = DISPID_UNKNOWN;
    return DISP_E_UNKNOWNNAME;
}

Referenced by Array_unshift(), disp_get_id(), DispatchEx_GetDispID(), DispatchEx_GetIDsOfNames(), exec_source(), identifier_eval(), interp_identifier_ref(), jsdisp_get_idx_id(), stack_topn_exprval(), stringify(), to_primitive(), to_property_descriptor(), and transform_json_object().

jsdisp_get_idx()

HRESULT jsdisp_get_idx	(	jsdisp_t *	obj,
		DWORD	idx,
		jsval_t *	r
	)

Definition at line 2963 of file dispex.c.

{
    WCHAR name[12];
    dispex_prop_t *prop;
    HRESULT hres;
 
    swprintf(name, ARRAY_SIZE(name), L"%d", idx);
 
    hres = find_prop_name_prot(obj, string_hash(name), name, FALSE, NULL, &prop);
    if(FAILED(hres))
        return hres;
 
    if(!prop || prop->type==PROP_DELETED) {
        *r = jsval_undefined();
        return DISP_E_UNKNOWNNAME;
    }
 
    return prop_get(obj, to_disp(obj), prop, r);
}

Referenced by Array_every(), Array_filter(), Array_forEach(), Array_indexOf(), array_join(), Array_lastIndexOf(), Array_map(), Array_pop(), Array_reduce(), Array_reverse(), Array_shift(), Array_slice(), Array_some(), Array_sort(), Array_splice(), array_to_args(), and concat_array().

jsdisp_get_idx_id()

HRESULT jsdisp_get_idx_id	(	jsdisp_t *	jsdisp,
		DWORD	idx,
		DISPID *	id
	)

Definition at line 2573 of file dispex.c.

{
    WCHAR name[11];
 
    swprintf(name, ARRAY_SIZE(name), L"%u", idx);
    return jsdisp_get_id(jsdisp, name, 0, id);
}

Referenced by get_detached_var_dispid().

jsdisp_get_own_property()

HRESULT jsdisp_get_own_property	(	jsdisp_t *	obj,
		const WCHAR *	name,
		BOOL	flags_only,
		property_desc_t *	desc
	)

Definition at line 3171 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name(obj, string_hash(name), name, FALSE, NULL, &prop);
    if(FAILED(hres))
        return hres;
 
    if(!prop)
        return DISP_E_UNKNOWNNAME;
 
    memset(desc, 0, sizeof(*desc));
 
    switch(prop->type) {
    case PROP_BUILTIN:
    case PROP_JSVAL:
    case PROP_EXTERN:
        desc->mask |= PROPF_WRITABLE;
        desc->explicit_value = TRUE;
        if(!flags_only) {
            hres = prop_get(obj, to_disp(obj), prop, &desc->value);
            if(FAILED(hres))
                return hres;
        }
        break;
    case PROP_ACCESSOR:
        desc->explicit_getter = desc->explicit_setter = TRUE;
        if(!flags_only) {
            desc->getter = prop->u.accessor.getter
                ? jsdisp_addref(prop->u.accessor.getter) : NULL;
            desc->setter = prop->u.accessor.setter
                ? jsdisp_addref(prop->u.accessor.setter) : NULL;
        }
        break;
    default:
        return DISP_E_UNKNOWNNAME;
    }
 
    desc->flags = prop->flags & (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE);
    desc->mask |= PROPF_ENUMERABLE | PROPF_CONFIGURABLE;
    return S_OK;
}

Referenced by Object_getOwnPropertyDescriptor(), Object_hasOwnProperty(), and Object_propertyIsEnumerable().

jsdisp_get_prop_name()

HRESULT jsdisp_get_prop_name	(	jsdisp_t *	obj,
		DISPID	id,
		jsstr_t **	r
	)

Definition at line 3429 of file dispex.c.

{
    dispex_prop_t *prop = get_prop(obj, id);
 
    if(!prop)
        return DISP_E_MEMBERNOTFOUND;
 
    *r = jsstr_alloc(prop->name);
    return *r ? S_OK : E_OUTOFMEMORY;
}

Referenced by object_keys(), and transform_json_object().

jsdisp_index_lookup()

HRESULT jsdisp_index_lookup	(	jsdisp_t *	obj,
		const WCHAR *	name,
		unsigned	length,
		struct property_info *	desc
	)

Definition at line 481 of file dispex.c.

{
    const WCHAR *ptr;
    unsigned idx = 0;
 
    for(ptr = name; is_digit(*ptr); ptr++) {
        idx = idx * 10 + (*ptr - '0');
        if (idx >= length)
            return DISP_E_UNKNOWNNAME;
    }
    if(*ptr)
        return DISP_E_UNKNOWNNAME;
 
    desc->id = idx;
    desc->flags = PROPF_ENUMERABLE;
    if(obj->builtin_info->prop_put)
        desc->flags |= PROPF_WRITABLE;
    desc->name = NULL;
    desc->index = idx;
    desc->iid = 0;
    return S_OK;
}

Referenced by Arguments_lookup_prop(), scope_lookup_prop(), and String_lookup_prop().

jsdisp_is_frozen()

BOOL jsdisp_is_frozen	(	jsdisp_t *	obj,
		BOOL	sealed
	)

Definition at line 3408 of file dispex.c.

{
    unsigned int i;
 
    if(obj->extensible)
        return FALSE;
    fill_props(obj);
 
    for(i = 0; i < obj->prop_cnt; i++) {
        if(obj->props[i].type == PROP_JSVAL || obj->props[i].type == PROP_EXTERN) {
            if(!sealed && (obj->props[i].flags & PROPF_WRITABLE))
                return FALSE;
        }else if(obj->props[i].type != PROP_ACCESSOR)
            continue;
        if(obj->props[i].flags & PROPF_CONFIGURABLE)
            return FALSE;
    }
 
    return TRUE;
}

Referenced by Object_isFrozen(), and Object_isSealed().

jsdisp_next_index()

HRESULT jsdisp_next_index	(	jsdisp_t *	obj,
		unsigned	length,
		unsigned	id,
		struct property_info *	desc
	)

Definition at line 504 of file dispex.c.

{
    if(id + 1 == length)
        return S_FALSE;
 
    desc->id = id + 1;
    desc->flags = PROPF_ENUMERABLE;
    if(obj->builtin_info->prop_put)
        desc->flags |= PROPF_WRITABLE;
    desc->name = NULL;
    desc->index = desc->id;
    desc->iid = 0;
    return S_OK;
}

Referenced by Arguments_next_prop(), and String_next_prop().

jsdisp_next_prop()

HRESULT jsdisp_next_prop	(	jsdisp_t *	obj,
		DISPID	id,
		enum	jsdisp_enum_type,
		DISPID *	ret
	)

Definition at line 3073 of file dispex.c.

{
    dispex_prop_t *iter;
    DWORD idx = id;
    HRESULT hres;
 
    if(id == DISPID_STARTENUM || idx >= obj->prop_cnt) {
        hres = (enum_type == JSDISP_ENUM_ALL) ? fill_protrefs(obj) : fill_props(obj);
        if(FAILED(hres))
            return hres;
        if(id == DISPID_STARTENUM)
            idx = 0;
        if(idx >= obj->prop_cnt)
            return S_FALSE;
    }
 
    for(iter = &obj->props[idx]; iter < obj->props + obj->prop_cnt; iter++) {
        if(iter->type == PROP_EXTERN) {
            dispex_prop_t *prop;
            hres = find_external_prop(obj, iter->name, FALSE, iter, &prop);
            if(FAILED(hres) || prop != iter)
                iter->type = PROP_DELETED;
        }
        if(iter->type == PROP_DELETED)
            continue;
        if(enum_type != JSDISP_ENUM_ALL && iter->type == PROP_PROTREF)
            continue;
        if(enum_type != JSDISP_ENUM_OWN && !(get_flags(obj, iter) & PROPF_ENUMERABLE))
            continue;
        *ret = prop_to_id(obj, iter);
        return S_OK;
    }
 
    if(obj->ctx->html_mode)
        return jsdisp_next_prop(obj, prop_to_id(obj, iter - 1), enum_type, ret);
 
    return S_FALSE;
}

Referenced by DispatchEx_GetNextDispID(), jsdisp_define_properties(), jsdisp_next_prop(), object_keys(), and transform_json_object().

jsdisp_propget()

HRESULT jsdisp_propget	(	jsdisp_t *	jsdisp,
		DISPID	id,
		jsval_t *	val
	)

Definition at line 2983 of file dispex.c.

{
    dispex_prop_t *prop;
 
    prop = get_prop(jsdisp, id);
    if(!prop)
        return DISP_E_MEMBERNOTFOUND;
 
    return prop_get(jsdisp, to_disp(jsdisp), prop, val);
}

Referenced by Array_unshift(), disp_propget(), jsdisp_define_properties(), and to_property_descriptor().

jsdisp_propget_name()

HRESULT jsdisp_propget_name	(	jsdisp_t *	,
		LPCWSTR	,
		jsval_t *
	)

jsdisp_propput()

HRESULT jsdisp_propput	(	jsdisp_t *	obj,
		const WCHAR *	name,
		DWORD	flags,
		BOOL	throw,
		jsval_t	val
	)

Definition at line 2842 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    if(obj->extensible)
        hres = ensure_prop_name(obj, name, flags, FALSE, &prop);
    else
        hres = find_prop_name(obj, string_hash(name), name, FALSE, NULL, &prop);
    if(FAILED(hres))
        return hres;
    if(!prop || (prop->type == PROP_DELETED && !obj->extensible))
        return throw ? JS_E_INVALID_ACTION : S_OK;
 
    return prop_put(obj, prop, val);
}

Referenced by jsdisp_propput_idx(), jsdisp_propput_name(), and setup_arguments_object().

jsdisp_propput_idx()

HRESULT jsdisp_propput_idx	(	jsdisp_t *	obj,
		DWORD	idx,
		jsval_t	val
	)

Definition at line 2864 of file dispex.c.

{
    WCHAR buf[12];
 
    swprintf(buf, ARRAY_SIZE(buf), L"%d", idx);
    return jsdisp_propput(obj, buf, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE, TRUE, val);
}

Referenced by Array_concat(), Array_filter(), Array_map(), Array_push(), Array_reverse(), Array_shift(), Array_slice(), Array_sort(), Array_splice(), Array_unshift(), ArrayConstr_value(), concat_array(), concat_obj(), create_match_array(), interp_carray_set(), object_keys(), parse_json_value(), regexp_string_match(), String_split(), and VBArray_toArray().

jsdisp_propput_name()

HRESULT jsdisp_propput_name	(	jsdisp_t *	obj,
		const WCHAR *	name,
		jsval_t	val
	)

Definition at line 2859 of file dispex.c.

{
    return jsdisp_propput(obj, name, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE, FALSE, val);
}

Referenced by Array_splice(), create_match_array(), detach_arguments_object(), detach_scope(), disp_propput_name(), exec_source(), interp_enter_catch(), interp_obj_prop(), JSON_stringify(), Object_getOwnPropertyDescriptor(), parse_json_value(), regexp_string_match(), scope_init_locals(), and set_length().

jsdisp_release()

ULONG jsdisp_release

(

jsdisp_t *

obj

)

Definition at line 1911 of file dispex.c.

{
    ULONG ref;
 
    if(obj->builtin_info->release)
        return obj->builtin_info->release(obj);
 
    ref = --obj->ref;
    if(!ref)
        jsdisp_free(obj);
    return ref;
}

Referenced by Array_concat(), Array_every(), Array_filter(), Array_forEach(), Array_indexOf(), Array_join(), Array_lastIndexOf(), Array_map(), Array_pop(), Array_push(), Array_reduce(), Array_reverse(), Array_shift(), Array_slice(), Array_some(), Array_sort(), Array_splice(), Array_toLocaleString(), Array_unshift(), ArrayConstr_value(), BindFunction_destructor(), concat_obj(), create_activex_constr(), create_array_constr(), create_bind_function(), create_bool_constr(), create_builtin_constructor(), create_builtin_function(), create_date_constr(), create_enumerator(), create_enumerator_constr(), create_error(), create_match_array(), create_math(), create_number_constr(), create_regexp(), create_regexp_constr(), create_string_constr(), create_vbarray(), create_vbarray_constr(), DataView_destructor(), DateConstr_value(), delete_prop(), detach_arguments_object(), disp_call(), disp_call_value_with_caller(), disp_delete(), disp_delete_name(), disp_propget(), disp_propput(), disp_propput_name(), DispatchEx_Release(), EnumeratorConstr_value(), error_constr(), exec_source(), find_prop_name(), Function_apply(), Function_bind(), gc_process_linked_obj(), gc_run(), get_length(), init_arraybuf_constructors(), init_dispex_from_constr(), init_error_constr(), init_function_constr(), init_global(), init_object_prototype_accessors(), init_set_constructor(), interp_enter_catch(), interp_instanceof(), InterpretedFunction_get_prototype(), jsdisp_change_prototype(), jsdisp_define_properties(), jsdisp_define_property(), jsdisp_free(), JSON_parse(), JSON_stringify(), maybe_to_primitive(), Object_create(), Object_getOwnPropertyDescriptor(), object_keys(), ObjectConstr_value(), parse_json_value(), pop_call_frame(), regexp_string_match(), RegExpConstr_value(), release_named_item_script_obj(), release_property_descriptor(), scope_init_locals(), scope_release(), script_globals_release(), ScriptTypeInfo_Release(), setup_arguments_object(), String_match(), String_replace(), String_search(), String_split(), stringify(), to_locale_string(), to_primitive(), unlink_jsdisp(), update_external_prop(), variant_date_to_string(), variant_to_jsval(), VBArray_toArray(), and VBArrayConstr_value().

JSGlobal_eval()

HRESULT JSGlobal_eval	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 180 of file global.c.

{
    return builtin_eval(ctx, ctx->version < SCRIPTLANGUAGEVERSION_ES5 ? ctx->call_ctx : NULL, flags, argc, argv, r);
}

Referenced by is_builtin_eval_func().

jsval_strict_equal()

HRESULT jsval_strict_equal	(	jsval_t	lval,
		jsval_t	rval,
		BOOL *	ret
	)

Definition at line 684 of file engine.c.

{
    jsval_type_t type = jsval_type(lval);
 
    TRACE("\n");
 
    if(type != jsval_type(rval)) {
        *ret = FALSE;
        return S_OK;
    }
 
    switch(type) {
    case JSV_UNDEFINED:
    case JSV_NULL:
        *ret = TRUE;
        break;
    case JSV_OBJECT:
        return disp_cmp(get_object(lval), get_object(rval), ret);
    case JSV_STRING:
        *ret = jsstr_eq(get_string(lval), get_string(rval));
        break;
    case JSV_NUMBER:
        *ret = get_number(lval) == get_number(rval);
        break;
    case JSV_BOOL:
        *ret = !get_bool(lval) == !get_bool(rval);
        break;
    case JSV_VARIANT:
        WARN("VARIANT type, returning false\n");
        *ret = FALSE;
        return S_OK;
    }
 
    return S_OK;
}

Referenced by Array_indexOf(), Array_lastIndexOf(), equal_values(), interp_case(), interp_eq2(), interp_neq2(), and jsdisp_define_property().

localize_number()

HRESULT localize_number	(	script_ctx_t *	ctx,
		DOUBLE	val,
		BOOL	new_format,
		jsstr_t **	ret
	)

Definition at line 350 of file number.c.

{
    WCHAR buf[316], decimal[8], thousands[8], *numstr;
    NUMBERFMTW *format = NULL, format_buf;
    LCID lcid = ctx->lcid;
#ifndef __REACTOS__
    _locale_t locale;
#endif
    unsigned convlen;
    jsstr_t *str;
    int len;
 
    /* FIXME: Localize this */
    if(!isfinite(val))
        return to_string(ctx, jsval_number(val), ret);
 
    /* Native never uses an exponent, even if the number is very large, it will in fact
       return all the digits (with thousands separators). jscript.dll uses two digits for
       fraction even if they are zero (likely default numDigits) and always returns them,
       while mshtml's jscript uses 3 digits and trims trailing zeros (on same locale).
       This is even for very small numbers, such as 0.0000999, which will simply be 0. */
#ifdef __REACTOS__ /* FIXME: Inspect */
    len = swprintf(buf, ARRAY_SIZE(buf), L"%.3f", val);
#else
    if(!(locale = _create_locale(LC_ALL, "C")))
        return E_OUTOFMEMORY;
    len = _swprintf_l(buf, ARRAY_SIZE(buf), L"%.3f", locale, val);
    _free_locale(locale);
#endif
 
    if(new_format) {
        WCHAR grouping[10];
 
        format = &format_buf;
        format->NumDigits = 3;
        while(buf[--len] == '0')
            format->NumDigits--;
 
        /* same logic as VarFormatNumber */
        grouping[2] = '\0';
        if(!GetLocaleInfoW(lcid, LOCALE_SGROUPING, grouping, ARRAY_SIZE(grouping)))
            format->Grouping = 3;
        else
            format->Grouping = (grouping[2] == '2' ? 32 : grouping[0] - '0');
 
        if(!GetLocaleInfoW(lcid, LOCALE_ILZERO | LOCALE_RETURN_NUMBER, (WCHAR*)&format->LeadingZero, 2))
            format->LeadingZero = 0;
        if(!GetLocaleInfoW(lcid, LOCALE_INEGNUMBER | LOCALE_RETURN_NUMBER, (WCHAR*)&format->NegativeOrder, 2))
            format->NegativeOrder = 1;
        format->lpDecimalSep = decimal;
        if(!GetLocaleInfoW(lcid, LOCALE_SDECIMAL, decimal, ARRAY_SIZE(decimal)))
            wcscpy(decimal, L".");
        format->lpThousandSep = thousands;
        if(!GetLocaleInfoW(lcid, LOCALE_STHOUSAND, thousands, ARRAY_SIZE(thousands)))
            wcscpy(thousands, L",");
    }
 
    if(!(convlen = GetNumberFormatW(lcid, 0, buf, format, NULL, 0)) ||
       !(str = jsstr_alloc_buf(convlen - 1, &numstr)))
        return E_OUTOFMEMORY;
 
    if(!GetNumberFormatW(lcid, 0, buf, format, numstr, convlen)) {
        jsstr_release(str);
        return E_OUTOFMEMORY;
    }
 
    *ret = str;
    return S_OK;
}

Referenced by Number_toLocaleString(), and to_locale_string().

lock_module()

static void lock_module ( void  )

inlinestatic

Definition at line 599 of file jscript.h.

{
    InterlockedIncrement(&module_ref);
}

lookup_named_item()

named_item_t * lookup_named_item	(	script_ctx_t *	ctx,
		const WCHAR *	item_name,
		unsigned	flags
	)

Definition at line 162 of file jscript.c.

{
    named_item_t *item;
    HRESULT hr;
 
    LIST_FOR_EACH_ENTRY(item, &ctx->named_items, named_item_t, entry) {
        if((item->flags & flags) == flags && !wcscmp(item->name, item_name)) {
            if(!item->script_obj && !(item->flags & SCRIPTITEM_GLOBALMEMBERS)) {
                hr = create_named_item_script_obj(ctx, item);
                if(FAILED(hr)) return NULL;
            }
 
            if(!item->disp && (flags || !(item->flags & SCRIPTITEM_CODEONLY))) {
                hr = retrieve_named_item_disp(ctx->site, item);
                if(FAILED(hr)) continue;
            }
 
            return item;
        }
    }
 
    return NULL;
}

make_grfdex()

static DWORD make_grfdex ( script_ctx_t *  ctx, DWORD  flags  )

inlinestatic

Definition at line 513 of file jscript.h.

{
    return ((ctx->version & 0xff) << 28) | flags;
}

Referenced by disp_call_name(), disp_delete_name(), disp_get_id(), disp_propput_name(), and Object_hasOwnProperty().

Object_get_proto_()

HRESULT Object_get_proto_	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 393 of file object.c.

{
    jsdisp_t *jsthis;
    IDispatch *disp;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_jsval(vthis));
 
    hres = to_object(ctx, vthis, &disp);
    if(FAILED(hres))
        return hres;
 
    if(!r)
        goto done;
 
    if(!(jsthis = to_jsdisp(disp))) {
        FIXME("Host object this\n");
        hres = E_FAIL;
        goto done;
    }
 
    *r = jsthis->prototype
        ? jsval_obj(jsdisp_addref(jsthis->prototype))
        : jsval_null();
done:
    IDispatch_Release(disp);
    return hres;
}

Referenced by init_object_prototype_accessors().

Object_set_proto_()

HRESULT Object_set_proto_	(	script_ctx_t *	ctx,
		jsval_t	vthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 422 of file object.c.

{
    jsdisp_t *jsthis, *proto;
    HRESULT hres;
 
    TRACE("%s\n", debugstr_jsval(vthis));
 
    if(is_undefined(vthis) || is_null(vthis))
        return JS_E_OBJECT_EXPECTED;
    if(!argc) {
        if(r)
            *r = jsval_undefined();
        return S_OK;
    }
    if(!is_object_instance(vthis) || !(jsthis = to_jsdisp(get_object(vthis))))
        goto done;
 
    if(is_null(argv[0])) {
        proto = NULL;
    }else if(is_object_instance(argv[0])) {
        proto = to_jsdisp(get_object(argv[0]));
        if(!proto) {
            FIXME("Host object value\n");
            return E_FAIL;
        }
    }else
        goto done;
 
    hres = jsdisp_change_prototype(jsthis, proto);
    if(FAILED(hres))
        return hres;
 
done:
    return r ? jsval_copy(argv[0], r) : S_OK;
}

Referenced by init_object_prototype_accessors().

parse_regexp_flags()

HRESULT parse_regexp_flags	(	const WCHAR *	str,
		DWORD	str_len,
		DWORD *	ret
	)

Definition at line 982 of file jsregexp.c.

{
    const WCHAR *p;
    DWORD flags = 0;
 
    for (p = str; p < str+str_len; p++) {
        switch (*p) {
        case 'g':
            flags |= REG_GLOB;
            break;
        case 'i':
            flags |= REG_FOLD;
            break;
        case 'm':
            flags |= REG_MULTILINE;
            break;
        case 'y':
            flags |= REG_STICKY;
            break;
        default:
            WARN("wrong flag %c\n", *p);
            return E_FAIL;
        }
    }
 
    *ret = flags;
    return S_OK;
}

Referenced by create_regexp_var(), and parse_regexp().

regexp_match_next()

HRESULT regexp_match_next	(	script_ctx_t *	ctx,
		jsdisp_t *	dispex,
		DWORD	rem_flags,
		jsstr_t *	jsstr,
		struct match_state_t **	ret
	)

Definition at line 102 of file jsregexp.c.

{
    RegExpInstance *regexp = regexp_from_jsdisp(dispex);
    match_state_t *match;
    heap_pool_t *mark;
    const WCHAR *str;
    HRESULT hres;
 
    if((rem_flags & REM_CHECK_GLOBAL) && !(regexp->jsregexp->flags & REG_GLOB)) {
        if(rem_flags & REM_ALLOC_RESULT)
            *ret = NULL;
        return S_FALSE;
    }
 
    str = jsstr_flatten(jsstr);
    if(!str)
        return E_OUTOFMEMORY;
 
    if(rem_flags & REM_ALLOC_RESULT) {
        match = alloc_match_state(regexp->jsregexp, NULL, str);
        if(!match)
            return E_OUTOFMEMORY;
        *ret = match;
    }
 
    mark = heap_pool_mark(&ctx->tmp_heap);
 
    if(rem_flags & REM_NO_PARENS) {
        match = alloc_match_state(regexp->jsregexp, &ctx->tmp_heap, NULL);
        if(!match) {
            heap_pool_clear(mark);
            return E_OUTOFMEMORY;
        }
        match->cp = (*ret)->cp;
        match->match_len = (*ret)->match_len;
    }else {
        match = *ret;
    }
 
    hres = do_regexp_match_next(ctx, regexp, rem_flags, jsstr, str, match);
 
    if(rem_flags & REM_NO_PARENS) {
        (*ret)->cp = match->cp;
        (*ret)->match_len = match->match_len;
    }
 
    heap_pool_clear(mark);
 
    if(hres != S_OK && (rem_flags & REM_ALLOC_RESULT)) {
        free(match);
        *ret = NULL;
    }
 
    return hres;
}

Referenced by regexp_string_match(), run_exec(), String_replace(), String_search(), and String_split().

regexp_string_match()

HRESULT regexp_string_match	(	script_ctx_t *	ctx,
		jsdisp_t *	re,
		jsstr_t *	jsstr,
		jsval_t *	r
	)

Definition at line 701 of file jsregexp.c.

{
    RegExpInstance *regexp = regexp_from_jsdisp(re);
    match_result_t *match_result;
    DWORD match_cnt, i;
    const WCHAR *str;
    jsdisp_t *array;
    HRESULT hres;
 
    str = jsstr_flatten(jsstr);
    if(!str)
        return E_OUTOFMEMORY;
 
    if(!(regexp->jsregexp->flags & REG_GLOB)) {
        match_state_t *match;
        heap_pool_t *mark;
 
        mark = heap_pool_mark(&ctx->tmp_heap);
        match = alloc_match_state(regexp->jsregexp, &ctx->tmp_heap, str);
        if(!match) {
            heap_pool_clear(mark);
            return E_OUTOFMEMORY;
        }
 
        hres = regexp_match_next(ctx, &regexp->dispex, 0, jsstr, &match);
        if(FAILED(hres)) {
            heap_pool_clear(mark);
            return hres;
        }
 
        if(r) {
            if(hres == S_OK) {
                IDispatch *ret;
 
                hres = create_match_array(ctx, jsstr, match, &ret);
                if(SUCCEEDED(hres))
                    *r = jsval_disp(ret);
            }else {
                *r = jsval_null();
            }
        }
 
        heap_pool_clear(mark);
        return S_OK;
    }
 
    hres = regexp_match(ctx, &regexp->dispex, jsstr, FALSE, &match_result, &match_cnt);
    if(FAILED(hres))
        return hres;
 
    if(!match_cnt) {
        TRACE("no match\n");
 
        if(r)
            *r = jsval_null();
        return S_OK;
    }
 
    hres = create_array(ctx, match_cnt, &array);
    if(FAILED(hres)) {
        free(match_result);
        return hres;
    }
 
    for(i=0; i < match_cnt; i++) {
        jsstr_t *tmp_str;
 
        tmp_str = jsstr_substr(jsstr, match_result[i].index, match_result[i].length);
        if(!tmp_str) {
            hres = E_OUTOFMEMORY;
            break;
        }
 
        hres = jsdisp_propput_idx(array, i, jsval_string(tmp_str));
        jsstr_release(tmp_str);
        if(FAILED(hres))
            break;
    }
 
    while(SUCCEEDED(hres)) {
        hres = jsdisp_propput_name(array, L"index", jsval_number(match_result[match_cnt-1].index));
        if(FAILED(hres))
            break;
 
        hres = jsdisp_propput_name(array, L"lastIndex",
                jsval_number(match_result[match_cnt-1].index + match_result[match_cnt-1].length));
        if(FAILED(hres))
            break;
 
        hres = jsdisp_propput_name(array, L"input", jsval_string(jsstr));
        break;
    }
 
    free(match_result);
 
    if(SUCCEEDED(hres) && r)
        *r = jsval_obj(array);
    else
        jsdisp_release(array);
    return hres;
}

Referenced by String_match().

release_cc()

void release_cc

(

cc_ctx_t *

cc

)

Definition at line 817 of file lex.c.

{
    cc_var_t *iter, *next;
 
    for(iter = cc->vars; iter; iter = next) {
        next = iter->next;
        free(iter);
    }
 
    free(cc);
}

Referenced by init_cc(), and script_release().

release_named_item()

void release_named_item

(

named_item_t *

item

)

Definition at line 186 of file jscript.c.

{
    if(--item->ref) return;
 
    free(item->name);
    free(item);
}

release_thread_data()

void release_thread_data

(

struct thread_data *

thread_data

)

Definition at line 69 of file jscript_main.c.

{
    if(--thread_data->ref)
        return;
 
    free(thread_data);
    TlsSetValue(jscript_tls, NULL);
}

Referenced by decrease_state(), JScript_Release(), JScript_SetScriptSite(), and script_release().

remove_weakmap_entry()

void remove_weakmap_entry

(

struct weakmap_entry *

entry

)

Definition at line 642 of file set.c.

{
    WeakMapInstance *weakmap = (WeakMapInstance*)entry->weakmap;
    struct list *next = entry->weak_refs_entry.next;
 
    if(next->next != &entry->weak_refs_entry)
        list_remove(&entry->weak_refs_entry);
    else {
        struct weak_refs_entry *weak_refs_entry = LIST_ENTRY(next, struct weak_refs_entry, list);
        entry->key->has_weak_refs = FALSE;
        rb_remove(&entry->key->ctx->thread_data->weak_refs, &weak_refs_entry->entry);
        free(weak_refs_entry);
    }
    rb_remove(&weakmap->map, &entry->entry);
    jsval_release(entry->value);
    free(entry);
}

Referenced by jsdisp_free(), WeakMap_clear(), WeakMap_delete(), WeakMap_destructor(), and WeakMap_gc_traverse().

script_addref()

static void script_addref ( script_ctx_t *  ctx )

inlinestatic

Definition at line 457 of file jscript.h.

{
    ctx->ref++;
}

Referenced by init_dispex().

script_release()

void script_release

(

script_ctx_t *

ctx

)

Definition at line 75 of file jscript.c.

{
    if(--ctx->ref)
        return;
 
    jsval_release(ctx->acc);
    if(ctx->cc)
        release_cc(ctx->cc);
    heap_pool_free(&ctx->tmp_heap);
    if(ctx->last_match)
        jsstr_release(ctx->last_match);
    assert(!ctx->stack_top);
    free(ctx->stack);
 
    ctx->jscaller->ctx = NULL;
    IServiceProvider_Release(&ctx->jscaller->IServiceProvider_iface);
 
    release_thread_data(ctx->thread_data);
    free(ctx);
}

Referenced by JScript_Release(), and jsdisp_free().

throw_error()

HRESULT throw_error	(	script_ctx_t *	ctx,
		HRESULT	error,
		const WCHAR *	str
	)

Definition at line 398 of file error.c.

{
    jsexcept_t *ei = ctx->ei;
    TRACE("%08lx\n", error);
    reset_ei(ei);
    ei->error = error;
    if(str)
        ei->message = format_error_message(error, str);
    return DISP_E_EXCEPTION;
}

Referenced by compile_script(), get_map_this(), get_set_this(), get_weakmap_this(), identifier_value(), interp_throw_type(), jsdisp_define_property(), Map_constructor(), NewRENode(), Number_toLocaleString(), ParseTerm(), ProcessCharSet(), PushBackTrackState(), ReallocStateStack(), Set_constructor(), unwind_exception(), and WeakMap_constructor().

to_boolean()

HRESULT to_boolean	(	jsval_t	val,
		BOOL *	ret
	)

Definition at line 489 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
    case JSV_NULL:
        *ret = FALSE;
        return S_OK;
    case JSV_OBJECT:
        *ret = TRUE;
        return S_OK;
    case JSV_STRING:
        *ret = jsstr_length(get_string(val)) != 0;
        return S_OK;
    case JSV_NUMBER:
        *ret = !isnan(get_number(val)) && get_number(val);
        return S_OK;
    case JSV_BOOL:
        *ret = get_bool(val);
        return S_OK;
    case JSV_VARIANT:
        FIXME("unimplemented for variant %s\n", debugstr_variant(get_variant(val)));
        return E_NOTIMPL;
    }
 
    assert(0);
    return E_FAIL;
}

Referenced by Array_every(), Array_filter(), Array_some(), BoolConstr_value(), get_data(), interp_cnd_nz(), interp_cnd_z(), interp_jmp_z(), interp_neg(), set_data(), to_property_descriptor(), and variant_change_type().

to_disp()

static IDispatch * to_disp ( jsdisp_t *  jsdisp )

inlinestatic

Definition at line 222 of file jscript.h.

{
    return (IDispatch *)&jsdisp->IWineJSDispatch_iface;
}

Referenced by bind_event_target(), construct_function(), create_match_array(), detach_scope(), detach_variable_object(), DispatchEx_InvokeEx(), identifier_eval(), init_dispex_from_constr(), interp_enter_catch(), interp_identifier_ref(), interp_instanceof(), interp_this(), InterpretedFunction_call(), invoke_prop_func(), JScript_GetScriptDispatch(), JScriptParseProcedure_ParseProcedureText(), jsdisp_call(), jsdisp_call_name(), jsdisp_get_idx(), jsdisp_get_own_property(), jsdisp_propget(), jsdisp_propget_name(), jsval_obj(), lookup_global_host(), scope_init_locals(), setup_scope(), stack_topn_exprval(), to_object(), and transform_json_object().

to_dispex()

static IDispatchEx * to_dispex ( jsdisp_t *  jsdisp )

inlinestatic

Definition at line 227 of file jscript.h.

{
    return (IDispatchEx *)&jsdisp->IWineJSDispatch_iface;
}

Referenced by Array_unshift(), DispatchEx_Invoke(), jsdisp_define_properties(), and stringify_object().

to_flat_string()

HRESULT to_flat_string	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsstr_t **	str,
		const WCHAR **	ret_str
	)

Definition at line 846 of file jsutils.c.

{
    HRESULT hres;
 
    hres = to_string(ctx, val, str);
    if(FAILED(hres))
        return hres;
 
    *ret_str = jsstr_flatten(*str);
    if(!*ret_str) {
        jsstr_release(*str);
        return E_OUTOFMEMORY;
    }
 
    return S_OK;
}

Referenced by ActiveXObject_value(), Array_join(), interp_array(), interp_in(), interp_memberid(), JSGlobal_decodeURI(), JSGlobal_decodeURIComponent(), JSGlobal_encodeURI(), JSGlobal_encodeURIComponent(), JSGlobal_escape(), JSGlobal_parseFloat(), JSGlobal_parseInt(), JSGlobal_unescape(), JSON_parse(), Object_defineGetter(), Object_defineProperty(), Object_defineSetter(), Object_getOwnPropertyDescriptor(), Object_propertyIsEnumerable(), run_exec(), String_indexOf(), String_lastIndexOf(), String_replace(), String_split(), and String_trim().

to_int32()

HRESULT to_int32	(	script_ctx_t *	ctx,
		jsval_t	v,
		INT *	ret
	)

Definition at line 735 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, v, &n);
    if(FAILED(hres))
        return hres;
 
    *ret = double_to_int32(n);
    return S_OK;
}

Referenced by DataView_setInt16(), DataView_setInt32(), DataView_setInt8(), interp_bneg(), JSGlobal_parseInt(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), stack_pop_int(), to_long(), and variant_change_type().

to_integer()

HRESULT to_integer	(	script_ctx_t *	ctx,
		jsval_t	v,
		double *	ret
	)

Definition at line 676 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, v, &n);
    if(FAILED(hres))
        return hres;
 
    if(isnan(n))
        *ret = 0;
    else
        *ret = n >= 0.0 ? floor(n) : -floor(-n);
    return S_OK;
}

Referenced by Array_indexOf(), Array_lastIndexOf(), Array_splice(), ArrayBuffer_slice(), ArrayBufferConstr_value(), DataViewConstr_value(), get_data(), set_data(), String_charAt(), String_charCodeAt(), String_indexOf(), String_lastIndexOf(), String_slice(), String_substr(), and String_substring().

to_jsdisp()

jsdisp_t * to_jsdisp

(

IDispatch *

disp

)

Definition at line 2447 of file dispex.c.

{
    if(disp->lpVtbl != (IDispatchVtbl*)&DispatchExVtbl)
        return NULL;
    return impl_from_IWineJSDispatch((IWineJSDispatch*)disp);
}

Referenced by array_this(), arraybuf_this(), ArrayConstr_isArray(), boolval_this(), create_regexp_var(), dataview_this(), date_this(), disp_call_name(), disp_call_value_with_caller(), disp_get_id(), enumerator_this(), Error_toString(), exec_source(), exprval_call(), Function_apply(), function_this(), gc_process_linked_val(), gc_run(), get_host_dispatch(), get_map_this(), get_set_this(), get_weakmap_this(), interp_call_eval(), interp_carray_set(), interp_instanceof(), interp_obj_prop(), invoke_prop_func(), is_function_prop(), jsdisp_define_properties(), JSON_stringify(), numberval_this(), Object_create(), Object_defineGetter(), Object_defineProperties(), Object_defineProperty(), Object_defineSetter(), Object_freeze(), Object_get_proto_(), Object_getOwnPropertyDescriptor(), Object_getPrototypeOf(), Object_hasOwnProperty(), Object_isExtensible(), Object_isFrozen(), Object_isPrototypeOf(), Object_isSealed(), object_keys(), Object_preventExtensions(), Object_propertyIsEnumerable(), Object_seal(), Object_set_proto_(), Object_toLocaleString(), Object_toString(), regexp_this(), RegExpConstr_value(), scope_gc_traverse(), set_error_value(), stack_topn_exprval(), string_this(), stringify(), to_property_descriptor(), transform_json_object(), typeof_string(), unwind_exception(), variant_to_jsval(), vbarray_this(), WeakMap_delete(), WeakMap_get(), WeakMap_has(), and WeakMap_set().

to_long()

HRESULT to_long	(	script_ctx_t *	ctx,
		jsval_t	v,
		LONG *	ret
	)

Definition at line 748 of file jsutils.c.

{
    return to_int32(ctx, v, (INT*)ret);
}

Referenced by VBArray_getItem(), VBArray_lbound(), and VBArray_ubound().

to_number()

HRESULT to_number	(	script_ctx_t *	ctx,
		jsval_t	val,
		double *	ret
	)

Definition at line 630 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        *ret = NAN;
        return S_OK;
    case JSV_NULL:
        *ret = 0;
        return S_OK;
    case JSV_NUMBER:
        *ret = get_number(val);
        return S_OK;
    case JSV_STRING:
        return str_to_number(get_string(val), ret);
    case JSV_OBJECT: {
        jsval_t prim;
        HRESULT hres;
 
        hres = to_primitive(ctx, val, &prim, HINT_NUMBER);
        if(FAILED(hres))
            return hres;
 
        hres = to_number(ctx, prim, ret);
        jsval_release(prim);
        return hres;
    }
    case JSV_BOOL:
        *ret = get_bool(val) ? 1 : 0;
        return S_OK;
    case JSV_VARIANT: {
        const VARIANT *v = get_variant(val);
        switch(V_VT(v)) {
        case VT_DATE:
            return variant_date_to_number(V_DATE(v), ret);
        default:
            FIXME("unimplemented for variant %s\n", debugstr_variant(v));
            return E_NOTIMPL;
        }
    }
    };
 
    assert(0);
    return E_FAIL;
}

Referenced by Array_set_length(), Array_slice(), DataView_setFloat32(), DataView_setFloat64(), Date_setDate(), Date_setFullYear(), Date_setHours(), Date_setMilliseconds(), Date_setMinutes(), Date_setMonth(), Date_setSeconds(), Date_setTime(), Date_setUTCDate(), Date_setUTCFullYear(), Date_setUTCHours(), Date_setUTCMilliseconds(), Date_setUTCMinutes(), Date_setUTCMonth(), Date_setUTCSeconds(), Date_setYear(), date_utc(), DateConstr_value(), equal_values(), error_constr(), index_from_val(), interp_add(), interp_postinc(), interp_preinc(), interp_tonum(), JSGlobal_isFinite(), JSGlobal_isNaN(), less_eval(), Math_abs(), Math_acos(), Math_asin(), Math_atan(), Math_atan2(), Math_ceil(), Math_cos(), Math_exp(), Math_floor(), Math_log(), Math_max(), Math_min(), Math_pow(), Math_round(), Math_sin(), Math_sqrt(), Math_tan(), maybe_to_primitive(), NumberConstr_value(), sort_cmp(), stack_pop_number(), to_int32(), to_integer(), to_number(), to_uint32(), and variant_change_type().

to_object()

HRESULT to_object	(	script_ctx_t *	ctx,
		jsval_t	val,
		IDispatch **	disp
	)

Definition at line 864 of file jsutils.c.

{
    jsdisp_t *dispex;
    HRESULT hres;
 
    switch(jsval_type(val)) {
    case JSV_STRING:
        hres = create_string(ctx, get_string(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_NUMBER:
        hres = create_number(ctx, get_number(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_OBJECT:
        *disp = get_object(val);
        IDispatch_AddRef(*disp);
        break;
    case JSV_BOOL:
        hres = create_bool(ctx, get_bool(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_NULL:
        if(is_null_disp(val))
            return JS_E_OBJECT_REQUIRED;
        /* fall through */
    case JSV_UNDEFINED:
        WARN("object expected\n");
        return JS_E_OBJECT_EXPECTED;
    case JSV_VARIANT:
        switch(V_VT(get_variant(val))) {
        case VT_ARRAY|VT_VARIANT:
            hres = create_vbarray(ctx, V_ARRAY(get_variant(val)), &dispex);
            if(FAILED(hres))
                return hres;
 
            *disp = to_disp(dispex);
            break;
 
        default:
            FIXME("Unsupported %s\n", debugstr_variant(get_variant(val)));
            return E_NOTIMPL;
        }
        break;
    }
 
    return S_OK;
}

Referenced by Array_concat(), exprval_call(), Function_apply(), Function_bind(), Function_call(), get_length(), interp_delete(), interp_memberid(), interp_push_with_scope(), interp_set_member(), InterpretedFunction_call(), jsdisp_define_properties(), Object_get_proto_(), Object_hasOwnProperty(), Object_isPrototypeOf(), Object_propertyIsEnumerable(), Object_toLocaleString(), Object_toString(), Object_valueOf(), ObjectConstr_value(), stack_pop_object(), and to_locale_string().

to_primitive()

HRESULT to_primitive	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsval_t *	ret,
		hint_t	hint
	)

Definition at line 423 of file jsutils.c.

{
    if(is_object_instance(val)) {
        jsdisp_t *jsdisp;
        jsval_t prim;
        DISPID id;
        HRESULT hres;
 
        jsdisp = iface_to_jsdisp(get_object(val));
        if(!jsdisp)
            return disp_propget(ctx, get_object(val), DISPID_VALUE, ret);
 
        if(hint == NO_HINT)
            hint = is_class(jsdisp, JSCLASS_DATE) ? HINT_STRING : HINT_NUMBER;
 
        /* Native implementation doesn't throw TypeErrors, returns strange values */
 
        hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? L"toString" : L"valueOf", 0, &id);
        if(SUCCEEDED(hres)) {
            hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, 0, NULL, &prim);
            if(FAILED(hres)) {
                WARN("call error - forwarding exception\n");
                jsdisp_release(jsdisp);
                return hres;
            }else if(!is_object_instance(prim)) {
                jsdisp_release(jsdisp);
                *ret = prim;
                return S_OK;
            }else {
                IDispatch_Release(get_object(prim));
            }
        }else if(hres != DISP_E_UNKNOWNNAME) {
            jsdisp_release(jsdisp);
            return hres;
        }
 
        hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? L"valueOf" : L"toString", 0, &id);
        if(SUCCEEDED(hres)) {
            hres = jsdisp_call(jsdisp, id, DISPATCH_METHOD, 0, NULL, &prim);
            if(FAILED(hres)) {
                WARN("call error - forwarding exception\n");
                jsdisp_release(jsdisp);
                return hres;
            }else if(!is_object_instance(prim)) {
                jsdisp_release(jsdisp);
                *ret = prim;
                return S_OK;
            }else {
                IDispatch_Release(get_object(prim));
            }
        }else if(hres != DISP_E_UNKNOWNNAME) {
            jsdisp_release(jsdisp);
            return hres;
        }
 
        jsdisp_release(jsdisp);
 
        WARN("failed\n");
        return JS_E_TO_PRIMITIVE;
    }
 
    return jsval_copy(val, ret);
 
}

Referenced by DateConstr_value(), DispatchEx_InvokeEx(), equal_values(), interp_add(), less_eval(), to_number(), and to_string().

to_string()

HRESULT to_string	(	script_ctx_t *	ctx,
		jsval_t	val,
		jsstr_t **	str
	)

Definition at line 801 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        *str = jsstr_undefined();
        return S_OK;
    case JSV_NULL:
        *str = jsstr_alloc(L"null");
        break;
    case JSV_NUMBER:
        return double_to_string(get_number(val), str);
    case JSV_STRING:
        *str = jsstr_addref(get_string(val));
        break;
    case JSV_OBJECT: {
        jsval_t prim;
        HRESULT hres;
 
        hres = to_primitive(ctx, val, &prim, HINT_STRING);
        if(FAILED(hres))
            return hres;
 
        hres = to_string(ctx, prim, str);
        jsval_release(prim);
        return hres;
    }
    case JSV_BOOL:
        *str = jsstr_alloc(get_bool(val) ? L"true" : L"false");
        break;
    default: {
        const VARIANT *v = get_variant(val);
        switch(V_VT(v))
        {
        case VT_DATE:
            return variant_date_to_string(ctx, V_DATE(v), str);
        default:
            FIXME("unsupported %s\n", debugstr_variant(v));
            return E_NOTIMPL;
        }
    }
    }
 
    return *str ? S_OK : E_OUTOFMEMORY;
}

Referenced by to_flat_string(), to_string(), and variant_change_type().

to_uint32()

HRESULT to_uint32	(	script_ctx_t *	ctx,
		jsval_t	val,
		UINT32 *	ret
	)

Definition at line 754 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    hres = to_number(ctx, val, &n);
    if(FAILED(hres))
        return hres;
 
    *ret = double_to_int32(n);
    return S_OK;
}

Referenced by array_to_args(), get_length(), set_error_value(), stack_pop_uint(), String_split(), StringConstr_fromCharCode(), and variant_change_type().

unlock_module()

static void unlock_module ( void  )

inlinestatic

Definition at line 604 of file jscript.h.

{
    InterlockedDecrement(&module_ref);
}

variant_change_type()

HRESULT variant_change_type	(	script_ctx_t *	ctx,
		VARIANT *	dst,
		VARIANT *	src,
		VARTYPE	vt
	)

Definition at line 922 of file jsutils.c.

{
    jsexcept_t ei;
    jsval_t val;
    HRESULT hres;
 
    hres = variant_to_jsval(ctx, src, &val);
    if(FAILED(hres))
        return hres;
 
    enter_script(ctx, &ei);
 
    switch(vt) {
    case VT_I2:
    case VT_I4: {
        INT i;
 
        hres = to_int32(ctx, val, &i);
        if(SUCCEEDED(hres)) {
            if(vt == VT_I4)
                V_I4(dst) = i;
            else
                V_I2(dst) = i;
        }
        break;
    }
    case VT_UI2: {
        UINT32 i;
 
        hres = to_uint32(ctx, val, &i);
        if(SUCCEEDED(hres))
            V_UI2(dst) = i;
        break;
    }
    case VT_R8: {
        double n;
        hres = to_number(ctx, val, &n);
        if(SUCCEEDED(hres))
            V_R8(dst) = n;
        break;
    }
    case VT_R4: {
        double n;
 
        hres = to_number(ctx, val, &n);
        if(SUCCEEDED(hres))
            V_R4(dst) = n;
        break;
    }
    case VT_BOOL: {
        BOOL b;
 
        hres = to_boolean(val, &b);
        if(SUCCEEDED(hres))
            V_BOOL(dst) = b ? VARIANT_TRUE : VARIANT_FALSE;
        break;
    }
    case VT_BSTR: {
        jsstr_t *str;
 
        hres = to_string(ctx, val, &str);
        if(FAILED(hres))
            break;
 
        hres = jsstr_to_bstr(str, &V_BSTR(dst));
        jsstr_release(str);
        break;
    }
    case VT_EMPTY:
        hres = V_VT(src) == VT_EMPTY ? S_OK : E_NOTIMPL;
        break;
    case VT_NULL:
        hres = V_VT(src) == VT_NULL ? S_OK : E_NOTIMPL;
        break;
    case VT_UNKNOWN:
    case VT_DISPATCH:
        if(V_VT(src) != vt)
            hres = E_NOTIMPL;
        else {
            IUnknown_AddRef(V_UNKNOWN(src));
            V_UNKNOWN(dst) = V_UNKNOWN(src);
            hres = S_OK;
        }
        break;
    default:
        FIXME("vt %d not implemented\n", vt);
        hres = E_NOTIMPL;
    }
 
    jsval_release(val);
    leave_script(ctx, hres);
    if(FAILED(hres))
        return hres;
 
    V_VT(dst) = vt;
    return S_OK;
}

Referenced by VariantChangeType_ChangeType().

variant_date_to_number()

HRESULT variant_date_to_number	(	double	date,
		double *	ret
	)

Definition at line 2458 of file date.c.

{
    SYSTEMTIME st;
    UDATE udate;
    HRESULT hres;
 
    hres = VarUdateFromDate(date, 0, &udate);
    if(FAILED(hres))
        return hres;
 
    if(!TzSpecificLocalTimeToSystemTime(NULL, &udate.st, &st))
        return E_FAIL;
 
    TRACE("%uy %um %u %ud %uh %um %u.%us\n", st.wYear, st.wMonth, st.wDayOfWeek, st.wDay, st.wHour, st.wMinute,
        st.wSecond, st.wMilliseconds);
 
    *ret = make_date(make_day(st.wYear, st.wMonth - 1, st.wDay),
                     make_time(st.wHour, st.wMinute, st.wSecond, st.wMilliseconds));
    return S_OK;
}

Referenced by to_number(), and variant_date_to_string().

variant_date_to_string()

HRESULT variant_date_to_string	(	script_ctx_t *	ctx,
		double	date,
		jsstr_t **	r
	)

Definition at line 2479 of file date.c.

{
    DateInstance *date_obj;
    jsval_t val;
    double time;
    HRESULT hres;
 
    hres = variant_date_to_number(date, &time);
    if(FAILED(hres))
        return hres;
 
    hres = create_date(ctx, NULL, time, &date_obj);
    if(FAILED(hres))
        return hres;
 
    hres = dateobj_to_string(date_obj, &val);
    jsdisp_release(&date_obj->dispex);
    if(FAILED(hres))
        return hres;
 
    assert(is_string(val));
    *r = get_string(val);
    return hres;
}

Referenced by to_string().

Variable Documentation

jscript_hinstance

HINSTANCE jscript_hinstance

extern

Definition at line 40 of file jscript_main.c.

Referenced by DllMain(), format_error_message(), and set_error_location().

module_ref

LONG module_ref

extern

Definition at line 31 of file ieframe_main.c.

Referenced by DllCanUnloadNow(), lock_module(), and unlock_module().