#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 "resource.h"
#include "wine/heap.h"
#include "wine/list.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	vdisp_t

struct	builtin_prop_t

struct	builtin_info_t

struct	jsdisp_t

struct	named_item_t

struct	cc_ctx_t

struct	JSCaller

struct	_property_desc_t

struct	jsexcept_t

struct	match_result_t

struct	_script_ctx_t

Macros
#define	COBJMACROS

#define	SCRIPTLANGUAGEVERSION_HTML 0x400

#define	SCRIPTLANGUAGEVERSION_ES5 0x102

#define	PROPF_ARGMASK 0x00ff

#define	PROPF_METHOD 0x0100

#define	PROPF_CONSTR 0x0200

#define	PROPF_ENUMERABLE 0x0400

#define	PROPF_WRITABLE 0x0800

#define	PROPF_CONFIGURABLE 0x1000

#define	PROPF_ALL (PROPF_ENUMERABLE \| PROPF_WRITABLE \| PROPF_CONFIGURABLE)

#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	DISPATCH_JSCRIPT_CALLEREXECSSOURCE 0x8000

#define	DISPATCH_JSCRIPT_INTERNAL_MASK DISPATCH_JSCRIPT_CALLEREXECSSOURCE

#define	VDISP_DISPEX 0x0001

#define	VDISP_JSDISP 0x0002

#define	DEFAULT_FUNCTION_VALUE {NULL, Function_value,0, Function_get_value}

#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_JSCRIPT, 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_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_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_NOT_ENUMERATOR)

#define	JS_E_REGEXP_SYNTAX MAKE_JSERROR(IDS_REGEXP_SYNTAX_ERROR)

#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_NONCONFIGURABLE_REDEFINED MAKE_JSERROR(IDS_NONCONFIGURABLE_REDEFINED)

#define	JS_E_NONWRITABLE_MODIFIED MAKE_JSERROR(IDS_NONWRITABLE_MODIFIED)

#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 _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 , vdisp_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 }

enum	hint_t { NO_HINT , HINT_STRING , HINT_NUMBER }

Functions
void	heap_pool_init (heap_pool_t *) DECLSPEC_HIDDEN

void *	heap_pool_alloc (heap_pool_t *, DWORD) __WINE_ALLOC_SIZE(2) DECLSPEC_HIDDEN

void *	heap_pool_grow (heap_pool_t , void , DWORD, DWORD) DECLSPEC_HIDDEN

void	heap_pool_clear (heap_pool_t *) DECLSPEC_HIDDEN

void	heap_pool_free (heap_pool_t *) DECLSPEC_HIDDEN

heap_pool_t *	heap_pool_mark (heap_pool_t *) DECLSPEC_HIDDEN

static LPWSTR	heap_strdupW (LPCWSTR str)

jsdisp_t *	iface_to_jsdisp (IDispatch *) DECLSPEC_HIDDEN

static void	vdisp_release (vdisp_t *vdisp)

static BOOL	is_jsdisp (vdisp_t *vdisp)

static BOOL	is_dispex (vdisp_t *vdisp)

static void	set_jsdisp (vdisp_t vdisp, jsdisp_t jsdisp)

static void	set_disp (vdisp_t vdisp, IDispatch disp)

static jsdisp_t *	get_jsdisp (vdisp_t *vdisp)

HRESULT	builtin_set_const (script_ctx_t , jsdisp_t , jsval_t) DECLSPEC_HIDDEN

static IDispatch *	to_disp (jsdisp_t *jsdisp)

jsdisp_t *	as_jsdisp (IDispatch *) DECLSPEC_HIDDEN

jsdisp_t *	to_jsdisp (IDispatch *) DECLSPEC_HIDDEN

void	jsdisp_free (jsdisp_t *) DECLSPEC_HIDDEN

static jsdisp_t *	jsdisp_addref (jsdisp_t *jsdisp)

static void	jsdisp_release (jsdisp_t *jsdisp)

HRESULT	create_dispex (script_ctx_t , const builtin_info_t , jsdisp_t , jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	init_dispex (jsdisp_t , script_ctx_t , const builtin_info_t , jsdisp_t ) DECLSPEC_HIDDEN

HRESULT	init_dispex_from_constr (jsdisp_t , script_ctx_t , const builtin_info_t , jsdisp_t ) DECLSPEC_HIDDEN

HRESULT	disp_call (script_ctx_t , IDispatch , DISPID, WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

HRESULT	disp_call_value (script_ctx_t , IDispatch , IDispatch , WORD, unsigned, jsval_t , jsval_t *) DECLSPEC_HIDDEN

HRESULT	jsdisp_call_value (jsdisp_t , IDispatch , WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

HRESULT	jsdisp_call (jsdisp_t , DISPID, WORD, unsigned, jsval_t , jsval_t *) DECLSPEC_HIDDEN

HRESULT	jsdisp_call_name (jsdisp_t , const WCHAR , WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

HRESULT	disp_propget (script_ctx_t , IDispatch , DISPID, jsval_t *) DECLSPEC_HIDDEN

HRESULT	disp_propput (script_ctx_t , IDispatch , DISPID, jsval_t) DECLSPEC_HIDDEN

HRESULT	jsdisp_propget (jsdisp_t , DISPID, jsval_t ) DECLSPEC_HIDDEN

HRESULT	jsdisp_propput (jsdisp_t , const WCHAR , DWORD, jsval_t) DECLSPEC_HIDDEN

HRESULT	jsdisp_propput_name (jsdisp_t , const WCHAR , jsval_t) DECLSPEC_HIDDEN

HRESULT	jsdisp_propput_idx (jsdisp_t *, DWORD, jsval_t) DECLSPEC_HIDDEN

HRESULT	jsdisp_propget_name (jsdisp_t , LPCWSTR, jsval_t ) DECLSPEC_HIDDEN

HRESULT	jsdisp_get_idx (jsdisp_t , DWORD, jsval_t ) DECLSPEC_HIDDEN

HRESULT	jsdisp_get_id (jsdisp_t , const WCHAR , DWORD, DISPID *) DECLSPEC_HIDDEN

HRESULT	disp_delete (IDispatch , DISPID, BOOL ) DECLSPEC_HIDDEN

HRESULT	disp_delete_name (script_ctx_t , IDispatch , jsstr_t , BOOL ) DECLSPEC_HIDDEN

HRESULT	jsdisp_delete_idx (jsdisp_t *, DWORD) DECLSPEC_HIDDEN

HRESULT	jsdisp_get_own_property (jsdisp_t , const WCHAR , BOOL, property_desc_t *) DECLSPEC_HIDDEN

HRESULT	jsdisp_define_property (jsdisp_t , const WCHAR , property_desc_t *) DECLSPEC_HIDDEN

HRESULT	jsdisp_define_data_property (jsdisp_t , const WCHAR , unsigned, jsval_t) DECLSPEC_HIDDEN

HRESULT	jsdisp_next_prop (jsdisp_t , DISPID, BOOL, DISPID ) DECLSPEC_HIDDEN

HRESULT	create_builtin_function (script_ctx_t , builtin_invoke_t, const WCHAR , const builtin_info_t , DWORD, jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_builtin_constructor (script_ctx_t , builtin_invoke_t, const WCHAR , const builtin_info_t , DWORD, jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	Function_invoke (jsdisp_t , IDispatch , WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

HRESULT	Function_value (script_ctx_t , vdisp_t , WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

HRESULT	Function_get_value (script_ctx_t , jsdisp_t , jsval_t *) DECLSPEC_HIDDEN

HRESULT	throw_eval_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_generic_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_range_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_reference_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_regexp_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_syntax_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_type_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	throw_uri_error (script_ctx_t , HRESULT, const WCHAR ) DECLSPEC_HIDDEN

HRESULT	create_object (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_math (script_ctx_t , jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_array (script_ctx_t , DWORD, jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_regexp (script_ctx_t , jsstr_t , DWORD, jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_regexp_var (script_ctx_t , jsval_t, jsval_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_string (script_ctx_t , jsstr_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_bool (script_ctx_t , BOOL, jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_number (script_ctx_t , double, jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_vbarray (script_ctx_t , SAFEARRAY , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_json (script_ctx_t , jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	to_primitive (script_ctx_t , jsval_t, jsval_t , hint_t) DECLSPEC_HIDDEN

HRESULT	to_boolean (jsval_t, BOOL *) DECLSPEC_HIDDEN

HRESULT	to_number (script_ctx_t , jsval_t, double ) DECLSPEC_HIDDEN

HRESULT	to_integer (script_ctx_t , jsval_t, double ) DECLSPEC_HIDDEN

HRESULT	to_int32 (script_ctx_t , jsval_t, INT ) DECLSPEC_HIDDEN

HRESULT	to_uint32 (script_ctx_t , jsval_t, UINT32 ) DECLSPEC_HIDDEN

HRESULT	to_string (script_ctx_t , jsval_t, jsstr_t *) DECLSPEC_HIDDEN

HRESULT	to_flat_string (script_ctx_t , jsval_t, jsstr_t , const WCHAR *) DECLSPEC_HIDDEN

HRESULT	to_object (script_ctx_t , jsval_t, IDispatch *) DECLSPEC_HIDDEN

HRESULT	jsval_strict_equal (jsval_t, jsval_t, BOOL *) DECLSPEC_HIDDEN

HRESULT	variant_change_type (script_ctx_t , VARIANT , VARIANT *, VARTYPE) DECLSPEC_HIDDEN

HRESULT	decode_source (WCHAR *) DECLSPEC_HIDDEN

HRESULT	double_to_string (double, jsstr_t **) DECLSPEC_HIDDEN

BOOL	is_finite (double) DECLSPEC_HIDDEN

void	release_cc (cc_ctx_t *) DECLSPEC_HIDDEN

void	script_release (script_ctx_t *) DECLSPEC_HIDDEN

void	clear_ei (script_ctx_t *) DECLSPEC_HIDDEN

static void	script_addref (script_ctx_t *ctx)

HRESULT	init_global (script_ctx_t *) DECLSPEC_HIDDEN

HRESULT	init_function_constr (script_ctx_t , jsdisp_t ) DECLSPEC_HIDDEN

HRESULT	create_object_prototype (script_ctx_t , jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_activex_constr (script_ctx_t , jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	create_array_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_bool_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_date_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	init_error_constr (script_ctx_t , jsdisp_t ) DECLSPEC_HIDDEN

HRESULT	create_enumerator_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_number_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_object_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_regexp_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_string_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

HRESULT	create_vbarray_constr (script_ctx_t , jsdisp_t , jsdisp_t **) DECLSPEC_HIDDEN

IUnknown *	create_ax_site (script_ctx_t *) DECLSPEC_HIDDEN

HRESULT	create_jscaller (script_ctx_t *) DECLSPEC_HIDDEN

HRESULT	regexp_match_next (script_ctx_t , jsdisp_t , DWORD, jsstr_t , struct match_state_t *) DECLSPEC_HIDDEN

HRESULT	parse_regexp_flags (const WCHAR , DWORD, DWORD ) DECLSPEC_HIDDEN

HRESULT	regexp_string_match (script_ctx_t , jsdisp_t , jsstr_t , jsval_t ) DECLSPEC_HIDDEN

BOOL	bool_obj_value (jsdisp_t *) DECLSPEC_HIDDEN

unsigned	array_get_length (jsdisp_t *) DECLSPEC_HIDDEN

HRESULT	JSGlobal_eval (script_ctx_t , vdisp_t , WORD, unsigned, jsval_t , jsval_t ) DECLSPEC_HIDDEN

static BOOL	is_class (jsdisp_t *jsdisp, jsclass_t class)

static BOOL	is_vclass (vdisp_t *vdisp, jsclass_t class)

static BOOL	is_int32 (double d)

static DWORD	make_grfdex (script_ctx_t *ctx, DWORD flags)

static BOOL	is_jscript_error (HRESULT hres)

const char *	debugstr_jsval (const jsval_t) DECLSPEC_HIDDEN

HRESULT	create_jscript_object (BOOL, REFIID, void **) DECLSPEC_HIDDEN

static void	lock_module (void)

static void	unlock_module (void)

Variables
HINSTANCE jscript_hinstance	DECLSPEC_HIDDEN

Macro Definition Documentation

◆ COBJMACROS

#define COBJMACROS

Definition at line 25 of file jscript.h.

◆ DEFAULT_FUNCTION_VALUE

#define DEFAULT_FUNCTION_VALUE {NULL, Function_value,0, Function_get_value}

Definition at line 315 of file jscript.h.

◆ DISPATCH_JSCRIPT_CALLEREXECSSOURCE

#define DISPATCH_JSCRIPT_CALLEREXECSSOURCE 0x8000

Definition at line 115 of file jscript.h.

◆ DISPATCH_JSCRIPT_INTERNAL_MASK

#define DISPATCH_JSCRIPT_INTERNAL_MASK DISPATCH_JSCRIPT_CALLEREXECSSOURCE

Definition at line 116 of file jscript.h.

◆ JS_E_ARRAY_EXPECTED

#define JS_E_ARRAY_EXPECTED MAKE_JSERROR(IDS_ARRAY_EXPECTED)

Definition at line 567 of file jscript.h.

◆ JS_E_BOOLEAN_EXPECTED

#define JS_E_BOOLEAN_EXPECTED MAKE_JSERROR(IDS_NOT_BOOL)

Definition at line 556 of file jscript.h.

◆ JS_E_CANNOT_CREATE_OBJ

#define JS_E_CANNOT_CREATE_OBJ MAKE_JSERROR(IDS_CREATE_OBJ_ERROR)

Definition at line 530 of file jscript.h.

◆ JS_E_DATE_EXPECTED

#define JS_E_DATE_EXPECTED MAKE_JSERROR(IDS_NOT_DATE)

Definition at line 551 of file jscript.h.

◆ JS_E_DISABLED_CC

#define JS_E_DISABLED_CC MAKE_JSERROR(IDS_DISABLED_CC)

Definition at line 548 of file jscript.h.

◆ JS_E_ENUMERATOR_EXPECTED

#define JS_E_ENUMERATOR_EXPECTED MAKE_JSERROR(IDS_NOT_ENUMERATOR)

Definition at line 560 of file jscript.h.

◆ JS_E_EXPECTED_ASSIGN

#define JS_E_EXPECTED_ASSIGN MAKE_JSERROR(IDS_EXPECTED_ASSIGN)

Definition at line 539 of file jscript.h.

◆ JS_E_EXPECTED_AT

#define JS_E_EXPECTED_AT MAKE_JSERROR(IDS_EXPECTED_AT)

Definition at line 549 of file jscript.h.

◆ JS_E_EXPECTED_CCEND

#define JS_E_EXPECTED_CCEND MAKE_JSERROR(IDS_EXPECTED_CCEND)

Definition at line 547 of file jscript.h.

◆ JS_E_EXPECTED_IDENTIFIER

#define JS_E_EXPECTED_IDENTIFIER MAKE_JSERROR(IDS_EXPECTED_IDENTIFIER)

Definition at line 538 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 564 of file jscript.h.

◆ JS_E_FUNCTION_EXPECTED

#define JS_E_FUNCTION_EXPECTED MAKE_JSERROR(IDS_NOT_FUNC)

Definition at line 550 of file jscript.h.

◆ JS_E_ILLEGAL_ASSIGN

#define JS_E_ILLEGAL_ASSIGN MAKE_JSERROR(IDS_ILLEGAL_ASSIGN)

Definition at line 554 of file jscript.h.

◆ JS_E_INVALID_ACTION

#define JS_E_INVALID_ACTION MAKE_JSERROR(IDS_UNSUPPORTED_ACTION)

Definition at line 532 of file jscript.h.

◆ JS_E_INVALID_BREAK

#define JS_E_INVALID_BREAK MAKE_JSERROR(IDS_INVALID_BREAK)

Definition at line 543 of file jscript.h.

◆ JS_E_INVALID_CHAR

#define JS_E_INVALID_CHAR MAKE_JSERROR(IDS_INVALID_CHAR)

Definition at line 540 of file jscript.h.

◆ JS_E_INVALID_CONTINUE

#define JS_E_INVALID_CONTINUE MAKE_JSERROR(IDS_INVALID_CONTINUE)

Definition at line 544 of file jscript.h.

◆ JS_E_INVALID_DELETE

#define JS_E_INVALID_DELETE MAKE_JSERROR(IDS_INVALID_DELETE)

Definition at line 558 of file jscript.h.

◆ JS_E_INVALID_LENGTH

#define JS_E_INVALID_LENGTH MAKE_JSERROR(IDS_INVALID_LENGTH)

Definition at line 566 of file jscript.h.

◆ JS_E_INVALID_PROPERTY

#define JS_E_INVALID_PROPERTY MAKE_JSERROR(IDS_NO_PROPERTY)

Definition at line 531 of file jscript.h.

◆ JS_E_INVALID_URI_CHAR

#define JS_E_INVALID_URI_CHAR MAKE_JSERROR(IDS_URI_INVALID_CHAR)

Definition at line 563 of file jscript.h.

◆ JS_E_INVALID_URI_CODING

#define JS_E_INVALID_URI_CODING MAKE_JSERROR(IDS_URI_INVALID_CODING)

Definition at line 562 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 571 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 559 of file jscript.h.

◆ JS_E_LABEL_NOT_FOUND

#define JS_E_LABEL_NOT_FOUND MAKE_JSERROR(IDS_LABEL_NOT_FOUND)

Definition at line 546 of file jscript.h.

◆ JS_E_LABEL_REDEFINED

#define JS_E_LABEL_REDEFINED MAKE_JSERROR(IDS_LABEL_REDEFINED)

Definition at line 545 of file jscript.h.

◆ JS_E_MISPLACED_RETURN

#define JS_E_MISPLACED_RETURN MAKE_JSERROR(IDS_MISPLACED_RETURN)

Definition at line 542 of file jscript.h.

◆ JS_E_MISSING_ARG

#define JS_E_MISSING_ARG MAKE_JSERROR(IDS_ARG_NOT_OPT)

Definition at line 533 of file jscript.h.

◆ JS_E_MISSING_LBRACKET

#define JS_E_MISSING_LBRACKET MAKE_JSERROR(IDS_LBRACKET)

Definition at line 536 of file jscript.h.

◆ JS_E_MISSING_RBRACKET

#define JS_E_MISSING_RBRACKET MAKE_JSERROR(IDS_RBRACKET)

Definition at line 537 of file jscript.h.

◆ JS_E_MISSING_SEMICOLON

#define JS_E_MISSING_SEMICOLON MAKE_JSERROR(IDS_SEMICOLON)

Definition at line 535 of file jscript.h.

◆ JS_E_NONCONFIGURABLE_REDEFINED

#define JS_E_NONCONFIGURABLE_REDEFINED MAKE_JSERROR(IDS_NONCONFIGURABLE_REDEFINED)

Definition at line 568 of file jscript.h.

◆ JS_E_NONWRITABLE_MODIFIED

#define JS_E_NONWRITABLE_MODIFIED MAKE_JSERROR(IDS_NONWRITABLE_MODIFIED)

Definition at line 569 of file jscript.h.

◆ JS_E_NUMBER_EXPECTED

#define JS_E_NUMBER_EXPECTED MAKE_JSERROR(IDS_NOT_NUM)

Definition at line 552 of file jscript.h.

◆ JS_E_OBJECT_EXPECTED

#define JS_E_OBJECT_EXPECTED MAKE_JSERROR(IDS_OBJECT_EXPECTED)

Definition at line 553 of file jscript.h.

◆ JS_E_OBJECT_REQUIRED

#define JS_E_OBJECT_REQUIRED MAKE_JSERROR(IDS_OBJECT_REQUIRED)

Definition at line 529 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 565 of file jscript.h.

◆ JS_E_PROP_DESC_MISMATCH

#define JS_E_PROP_DESC_MISMATCH MAKE_JSERROR(IDS_PROP_DESC_MISMATCH)

Definition at line 570 of file jscript.h.

◆ JS_E_REGEXP_SYNTAX

#define JS_E_REGEXP_SYNTAX MAKE_JSERROR(IDS_REGEXP_SYNTAX_ERROR)

Definition at line 561 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 534 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 555 of file jscript.h.

◆ JS_E_UNTERMINATED_STRING

#define JS_E_UNTERMINATED_STRING MAKE_JSERROR(IDS_UNTERMINATED_STR)

Definition at line 541 of file jscript.h.

◆ JS_E_VBARRAY_EXPECTED

#define JS_E_VBARRAY_EXPECTED MAKE_JSERROR(IDS_NOT_VBARRAY)

Definition at line 557 of file jscript.h.

◆ MAKE_JSERROR

#define MAKE_JSERROR ( code ) MAKE_HRESULT(SEVERITY_ERROR, FACILITY_JSCRIPT, code)

Definition at line 524 of file jscript.h.

◆ PROPF_ALL

#define PROPF_ALL (PROPF_ENUMERABLE | PROPF_WRITABLE | PROPF_CONFIGURABLE)

Definition at line 103 of file jscript.h.

◆ PROPF_ARGMASK

#define PROPF_ARGMASK 0x00ff

Definition at line 96 of file jscript.h.

◆ PROPF_CONFIGURABLE

#define PROPF_CONFIGURABLE 0x1000

Definition at line 102 of file jscript.h.

◆ PROPF_CONSTR

#define PROPF_CONSTR 0x0200

Definition at line 98 of file jscript.h.

◆ PROPF_ENUMERABLE

#define PROPF_ENUMERABLE 0x0400

Definition at line 100 of file jscript.h.

◆ PROPF_ES5

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

Definition at line 108 of file jscript.h.

◆ PROPF_HTML

#define PROPF_HTML (SCRIPTLANGUAGEVERSION_HTML << PROPF_VERSION_SHIFT)

Definition at line 107 of file jscript.h.

◆ PROPF_METHOD

#define PROPF_METHOD 0x0100

Definition at line 97 of file jscript.h.

◆ PROPF_VERSION_MASK

#define PROPF_VERSION_MASK 0x01ff0000

Definition at line 105 of file jscript.h.

◆ PROPF_VERSION_SHIFT

#define PROPF_VERSION_SHIFT 16

Definition at line 106 of file jscript.h.

◆ PROPF_WRITABLE

#define PROPF_WRITABLE 0x0800

Definition at line 101 of file jscript.h.

◆ REM_ALLOC_RESULT

#define REM_ALLOC_RESULT 0x0008

Definition at line 492 of file jscript.h.

◆ REM_CHECK_GLOBAL

#define REM_CHECK_GLOBAL 0x0001

Definition at line 489 of file jscript.h.

◆ REM_NO_CTX_UPDATE

#define REM_NO_CTX_UPDATE 0x0004

Definition at line 491 of file jscript.h.

◆ REM_NO_PARENS

#define REM_NO_PARENS 0x0010

Definition at line 493 of file jscript.h.

◆ REM_RESET_INDEX

#define REM_RESET_INDEX 0x0002

Definition at line 490 of file jscript.h.

◆ SCRIPTLANGUAGEVERSION_ES5

#define SCRIPTLANGUAGEVERSION_ES5 0x102

Definition at line 52 of file jscript.h.

◆ SCRIPTLANGUAGEVERSION_HTML

#define SCRIPTLANGUAGEVERSION_HTML 0x400

Definition at line 47 of file jscript.h.

◆ VDISP_DISPEX

#define VDISP_DISPEX 0x0001

Definition at line 149 of file jscript.h.

◆ VDISP_JSDISP

#define VDISP_JSDISP 0x0002

Definition at line 150 of file jscript.h.

Typedef Documentation

◆ builtin_getter_t

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

Definition at line 205 of file jscript.h.

◆ builtin_invoke_t

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

Definition at line 204 of file jscript.h.

◆ builtin_setter_t

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

Definition at line 206 of file jscript.h.

◆ cc_var_t

typedef struct _cc_var_t cc_var_t

Definition at line 370 of file jscript.h.

◆ dispex_prop_t

typedef struct _dispex_prop_t dispex_prop_t

Definition at line 57 of file jscript.h.

◆ jsdisp_t

typedef struct jsdisp_t jsdisp_t

Definition at line 92 of file jscript.h.

◆ jsstr_t

typedef struct _jsstr_t jsstr_t

Definition at line 55 of file jscript.h.

◆ jsval_t

typedef struct _jsval_t jsval_t

Definition at line 54 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 58 of file jscript.h.

◆ script_ctx_t

typedef struct _script_ctx_t script_ctx_t

Definition at line 56 of file jscript.h.

Enumeration Type Documentation

◆ hint_t

enum hint_t

Enumerator
NO_HINT
HINT_STRING
HINT_NUMBER

Definition at line 337 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

Definition at line 119 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_t;

Function Documentation

◆ array_get_length()

unsigned array_get_length ( jsdisp_t * array )

Definition at line 73 of file array.c.

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

Referenced by stringify_array().

◆ as_jsdisp()

jsdisp_t * as_jsdisp ( IDispatch * disp )

Definition at line 908 of file dispex.c.

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

Referenced by interp_obj_prop().

◆ bool_obj_value()

BOOL bool_obj_value ( jsdisp_t * obj )

Definition at line 52 of file bool.c.

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

Referenced by maybe_to_primitive().

◆ builtin_set_const()

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

Definition at line 555 of file dispex.c.

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

◆ clear_ei()

void clear_ei ( script_ctx_t * ctx )

Definition at line 430 of file engine.c.

{
    memset(&ctx->ei.ei, 0, sizeof(ctx->ei.ei));
    jsval_release(ctx->ei.val);
    ctx->ei.val = jsval_undefined();
}

Referenced by compile_error(), disp_call(), disp_call_value(), disp_propget(), disp_propput(), DispatchEx_InvokeEx(), Err_Clear(), exec_global_code(), index_from_val(), JScriptParse_ParseScriptText(), release_script(), script_release(), unwind_exception(), and variant_change_type().

◆ create_activex_constr()

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

Definition at line 188 of file activex.c.

{
    jsdisp_t *prototype;
    HRESULT hres;
 
    static const WCHAR ActiveXObjectW[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
 
    hres = create_object(ctx, NULL, &prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_function(ctx, ActiveXObject_value, ActiveXObjectW, 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 1381 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_map(), Array_slice(), Array_splice(), ArrayConstr_value(), create_match_array(), interp_carray(), 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 1364 of file array.c.

{
    ArrayInstance *array;
    HRESULT hres;
 
    static const WCHAR ArrayW[] = {'A','r','r','a','y',0};
 
    hres = alloc_array(ctx, object_prototype, &array);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, ArrayConstr_value, ArrayW, &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 324 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: %08x\n", hres);
    }
 
    ret = heap_alloc(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	b,
		jsdisp_t **	ret
	)

Definition at line 216 of file bool.c.

{
    BoolInstance *bool;
    HRESULT hres;
 
    hres = alloc_bool(ctx, NULL, &bool);
    if(FAILED(hres))
        return hres;
 
    bool->val = b;
 
    *ret = &bool->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 198 of file bool.c.

{
    BoolInstance *bool;
    HRESULT hres;
 
    static const WCHAR BooleanW[] = {'B','o','o','l','e','a','n',0};
 
    hres = alloc_bool(ctx, object_prototype, &bool);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, BoolConstr_value, BooleanW, NULL,
            PROPF_CONSTR|1, &bool->dispex, ret);
 
    jsdisp_release(&bool->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 686 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(), and init_error_constr().

◆ 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 651 of file function.c.

{
    NativeFunction *function;
    HRESULT hres;
 
    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, lengthW, 0,
                                           jsval_number(function->function.length));
    if(SUCCEEDED(hres))
        hres = jsdisp_define_data_property(&function->function.dispex, prototypeW, 0, jsval_obj(prototype));
    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(), and prop_get().

◆ create_date_constr()

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

Definition at line 2534 of file date.c.

{
    jsdisp_t *date;
    HRESULT hres;
 
    static const WCHAR DateW[] = {'D','a','t','e',0};
 
    hres = create_date(ctx, object_prototype, 0.0, &date);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, DateConstr_value, DateW, &DateConstr_info,
            PROPF_CONSTR|7, date, ret);
 
    jsdisp_release(date);
    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 957 of file dispex.c.

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

Referenced by create_object_prototype(), init_global(), interp_enter_catch(), InterpretedFunction_call(), and Object_create().

◆ create_enumerator_constr()

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

Definition at line 332 of file enumerator.c.

{
    EnumeratorInstance *enumerator;
    HRESULT hres;
    static const WCHAR EnumeratorW[] = {'E','n','u','m','e','r','a','t','o','r',0};
 
    hres = alloc_enumerator(ctx, object_prototype, &enumerator);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, EnumeratorConstr_value,
                                     EnumeratorW, &EnumeratorConstr_info,
                                     PROPF_CONSTR|7, &enumerator->dispex, ret);
    jsdisp_release(&enumerator->dispex);
 
    return hres;
}

Referenced by init_constructors().

◆ create_jscaller()

HRESULT create_jscaller ( script_ctx_t * ctx )

Definition at line 1047 of file jsutils.c.

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

Referenced by JScriptParse_InitNew().

◆ create_jscript_object()

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

Definition at line 1072 of file jscript.c.

{
    JScript *ret;
    HRESULT hres;
 
    ret = heap_alloc_zero(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->ref = 1;
    ret->safeopt = INTERFACE_USES_DISPEX;
    ret->is_encode = is_encode;
 
    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 837 of file json.c.

{
    jsdisp_t *json;
    HRESULT hres;
 
    json = heap_alloc_zero(sizeof(*json));
    if(!json)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(json, ctx, &JSON_info, ctx->object_constr);
    if(FAILED(hres)) {
        heap_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 533 of file math.c.

{
    jsdisp_t *math;
    unsigned i;
    HRESULT hres;
 
    struct {
        const WCHAR *name;
        DOUBLE val;
    }constants[] = {
        {EW,        M_E},        /* ECMA-262 3rd Edition    15.8.1.1 */
        {LN10W,     M_LN10},     /* ECMA-262 3rd Edition    15.8.1.2 */
        {LN2W,      M_LN2},      /* ECMA-262 3rd Edition    15.8.1.3 */
        {LOG2EW,    M_LOG2E},    /* ECMA-262 3rd Edition    15.8.1.4 */
        {LOG10EW,   M_LOG10E},   /* ECMA-262 3rd Edition    15.8.1.5 */
        {PIW,       M_PI},       /* ECMA-262 3rd Edition    15.8.1.6 */
        {SQRT1_2W,  M_SQRT1_2},  /* ECMA-262 3rd Edition    15.8.1.7 */
        {SQRT2W,    M_SQRT2},    /* ECMA-262 3rd Edition    15.8.1.8 */
    };
 
    math = heap_alloc_zero(sizeof(jsdisp_t));
    if(!math)
        return E_OUTOFMEMORY;
 
    hres = init_dispex_from_constr(math, ctx, &Math_info, ctx->object_constr);
    if(FAILED(hres)) {
        heap_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_number()

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

Definition at line 632 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 613 of file number.c.

{
    NumberInstance *number;
    HRESULT hres;
 
    static const WCHAR NumberW[] = {'N','u','m','b','e','r',0};
 
    hres = alloc_number(ctx, object_prototype, &number);
    if(FAILED(hres))
        return hres;
 
    number->value = 0;
    hres = create_builtin_constructor(ctx, NumberConstr_value, NumberW, 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 731 of file object.c.

{
    jsdisp_t *object;
    HRESULT hres;
 
    object = heap_alloc_zero(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)) {
        heap_free(object);
        return hres;
    }
 
    *ret = object;
    return S_OK;
}

Referenced by create_activex_constr(), create_source_function(), d3drm3_CreateObject(), interp_new_obj(), InterpretedFunction_call(), Object_getOwnPropertyDescriptor(), ObjectConstr_value(), parse_json_value(), and to_object().

◆ create_object_constr()

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

Definition at line 718 of file object.c.

{
    static const WCHAR ObjectW[] = {'O','b','j','e','c','t',0};
 
    return create_builtin_constructor(ctx, ObjectConstr_value, ObjectW, &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 726 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 644 of file jsregexp.c.

{
    RegExpInstance *regexp;
    const WCHAR *str;
    HRESULT hres;
 
    str = jsstr_flatten(src);
    if(!str)
        return E_OUTOFMEMORY;
 
    TRACE("%s %x\n", debugstr_wn(str, jsstr_length(src)), flags);
 
    hres = alloc_regexp(ctx, NULL, &regexp);
    if(FAILED(hres))
        return hres;
 
    regexp->str = jsstr_addref(src);
    regexp->last_index_val = jsval_number(0);
 
    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 E_FAIL;
    }
 
    *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 1004 of file jsregexp.c.

{
    RegExpInstance *regexp;
    HRESULT hres;
 
    static const WCHAR RegExpW[] = {'R','e','g','E','x','p',0};
 
    hres = alloc_regexp(ctx, object_prototype, &regexp);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, RegExpConstr_value, RegExpW, &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 674 of file jsregexp.c.

{
    unsigned flags, opt_len = 0;
    const WCHAR *opt = NULL;
    jsstr_t *src;
    HRESULT hres;
 
    if(is_object_instance(src_arg)) {
        jsdisp_t *obj;
 
        obj = iface_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);
                jsdisp_release(obj);
                return hres;
            }
 
            jsdisp_release(obj);
        }
    }
 
    if(!is_string(src_arg)) {
        FIXME("src_arg = %s\n", debugstr_jsval(src_arg));
        return E_NOTIMPL;
    }
 
    src = get_string(src_arg);
 
    if(flags_arg) {
        jsstr_t *opt_str;
 
        if(!is_string(*flags_arg)) {
            FIXME("unimplemented for %s\n", debugstr_jsval(*flags_arg));
            return E_NOTIMPL;
        }
 
        opt_str = get_string(*flags_arg);
        opt = jsstr_flatten(opt_str);
        if(!opt)
            return E_OUTOFMEMORY;
        opt_len = jsstr_length(opt_str);
    }
 
    hres = parse_regexp_flags(opt, opt_len, &flags);
    if(FAILED(hres))
        return hres;
 
    return create_regexp(ctx, src, flags, ret);
}

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 1787 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 1769 of file string.c.

{
    StringInstance *string;
    HRESULT hres;
 
    static const WCHAR StringW[] = {'S','t','r','i','n','g',0};
 
    hres = string_alloc(ctx, object_prototype, jsstr_empty(), &string);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, StringConstr_value, StringW, &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 347 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 330 of file vbarray.c.

{
    VBArrayInstance *vbarray;
    HRESULT hres;
 
    static const WCHAR VBArrayW[] = {'V','B','A','r','r','a','y',0};
 
    hres = alloc_vbarray(ctx, object_prototype, &vbarray);
    if(FAILED(hres))
        return hres;
 
    hres = create_builtin_constructor(ctx, VBArrayConstr_value, VBArrayW, 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_idx_put(), Array_forEach(), Array_map(), bind_event_target(), builtin_set_const(), create_regexp_var(), exprval_call(), Function_bind(), interp_add(), interp_carray_set(), interp_eq(), interp_eq2(), interp_gt(), interp_gteq(), interp_lt(), interp_lteq(), interp_neq(), invoke_prop_func(), jsdisp_define_property(), JSGlobal_eval(), JSON_stringify(), Object_create(), Object_getPrototypeOf(), print_backtrace(), prop_get(), prop_put(), to_string(), and unwind_exception().

◆ 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[] = {'#','@','~','^'};
    static const WCHAR decode_endW[] = {'^','#','~','@'};
 
    while(*src) {
        if(!wcsncmp(src, decode_beginW, ARRAY_SIZE(decode_beginW))) {
            DWORD len, i, j=0, csum, s=0;
 
            src += ARRAY_SIZE(decode_beginW);
 
            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)))
                return JS_E_INVALID_CHAR;
            src += ARRAY_SIZE(decode_endW);
        }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 1136 of file dispex.c.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    VARIANT buf[6], retv;
    DISPPARAMS dp;
    unsigned i;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        if(flags & DISPATCH_PROPERTYPUT) {
            FIXME("disp_call(propput) on builtin object\n");
            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;
    }
 
    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(argc > 6) {
        dp.rgvarg = heap_alloc(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)
                heap_free(dp.rgvarg);
            return hres;
        }
    }
 
    V_VT(&retv) = VT_EMPTY;
    clear_ei(ctx);
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres)) {
        hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei,
                &ctx->jscaller->IServiceProvider_iface);
        IDispatchEx_Release(dispex);
    }else {
        UINT err = 0;
 
        if(flags == DISPATCH_CONSTRUCT) {
            WARN("IDispatch cannot be constructor\n");
            return DISP_E_MEMBERNOTFOUND;
        }
 
        TRACE("using IDispatch\n");
        hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, &dp, ret ? &retv : NULL, &ctx->ei.ei, &err);
    }
 
    for(i=0; i<argc; i++)
        VariantClear(dp.rgvarg+argc-i-1);
    if(dp.rgvarg != buf)
        heap_free(dp.rgvarg);
    if(FAILED(hres))
        return hres;
 
    if(ret) {
        hres = variant_to_jsval(&retv, ret);
        VariantClear(&retv);
    }
 
    return hres;
}

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

◆ disp_call_value()

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

Definition at line 1228 of file dispex.c.

{
    jsdisp_t *jsdisp;
    IDispatchEx *dispex;
    VARIANT buf[6], retv;
    DISPPARAMS dp;
    unsigned i;
    HRESULT hres;
 
    assert(!(flags & ~(DISPATCH_METHOD|DISPATCH_CONSTRUCT|DISPATCH_JSCRIPT_INTERNAL_MASK)));
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        if(ctx != jsdisp->ctx)
            flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
        hres = jsdisp_call_value(jsdisp, jsthis, flags, argc, argv, r);
        jsdisp_release(jsdisp);
        return hres;
    }
 
    flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
    if(r && argc && flags == DISPATCH_METHOD)
        flags |= DISPATCH_PROPERTYGET;
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(FAILED(hres)) {
        TRACE("using IDispatch\n");
        dispex = NULL;
        jsthis = NULL;
    }
 
    if(jsthis) {
        static DISPID this_id = DISPID_THIS;
 
        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)) {
        dp.rgvarg = heap_alloc(dp.cArgs*sizeof(VARIANT));
        if(!dp.rgvarg) {
            if(dispex)
                IDispatchEx_Release(dispex);
            return E_OUTOFMEMORY;
        }
    }else {
        dp.rgvarg = buf;
    }
 
    for(i=0; i<argc; i++) {
        hres = jsval_to_variant(argv[i], dp.rgvarg+dp.cArgs-i-1);
        if(FAILED(hres)) {
            while(i--)
                VariantClear(dp.rgvarg+dp.cArgs-i-1);
            if(dp.rgvarg != buf)
                heap_free(dp.rgvarg);
            if(dispex)
                IDispatchEx_Release(dispex);
            return hres;
        }
    }
    if(jsthis) {
        V_VT(dp.rgvarg) = VT_DISPATCH;
        V_DISPATCH(dp.rgvarg) = jsthis;
    }
 
    V_VT(&retv) = VT_EMPTY;
    clear_ei(ctx);
    if(dispex) {
        hres = IDispatchEx_InvokeEx(dispex, DISPID_VALUE, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei,
                &ctx->jscaller->IServiceProvider_iface);
        IDispatchEx_Release(dispex);
    }else {
        UINT err = 0;
 
        if(flags == DISPATCH_CONSTRUCT) {
            WARN("IDispatch cannot be constructor\n");
            return DISP_E_MEMBERNOTFOUND;
        }
 
        hres = IDispatch_Invoke(disp, DISPID_VALUE, &IID_NULL, ctx->lcid, flags, &dp, r ? &retv : NULL, &ctx->ei.ei, &err);
    }
 
    for(i=0; i<argc; i++)
        VariantClear(dp.rgvarg+dp.cArgs-i-1);
    if(dp.rgvarg != buf)
        heap_free(dp.rgvarg);
    if(FAILED(hres))
        return hres;
 
    if(!r)
        return S_OK;
 
    hres = variant_to_jsval(&retv, r);
    VariantClear(&retv);
    return hres;
}

Referenced by Array_forEach(), Array_map(), exprval_call(), Function_apply(), interp_call(), interp_new(), and invoke_prop_func().

◆ disp_delete()

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

Definition at line 1511 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(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().

◆ disp_delete_name()

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

Definition at line 1574 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, &prop);
        if(prop) {
            hres = delete_prop(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 1458 of file dispex.c.

{
    DISPPARAMS dp  = {NULL,NULL,0,0};
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    VARIANT var;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        hres = jsdisp_propget(jsdisp, id, val);
        jsdisp_release(jsdisp);
        return hres;
    }
 
    V_VT(&var) = VT_EMPTY;
    clear_ei(ctx);
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres)) {
        hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei,
                &ctx->jscaller->IServiceProvider_iface);
        IDispatchEx_Release(dispex);
    }else {
        ULONG err = 0;
 
        TRACE("using IDispatch\n");
        hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, INVOKE_PROPERTYGET, &dp, &var, &ctx->ei.ei, &err);
    }
    if(FAILED(hres))
        return hres;
 
    hres = variant_to_jsval(&var, val);
    VariantClear(&var);
    return hres;
}

Referenced by 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 1359 of file dispex.c.

{
    jsdisp_t *jsdisp;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        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};
        IDispatchEx *dispex;
 
        hres = jsval_to_variant(val, &var);
        if(FAILED(hres))
            return hres;
 
        if(V_VT(&var) == VT_DISPATCH)
            flags |= DISPATCH_PROPERTYPUTREF;
 
        clear_ei(ctx);
        hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
        if(SUCCEEDED(hres)) {
            hres = IDispatchEx_InvokeEx(dispex, id, ctx->lcid, flags, &dp, NULL, &ctx->ei.ei,
                    &ctx->jscaller->IServiceProvider_iface);
            IDispatchEx_Release(dispex);
        }else {
            ULONG err = 0;
 
            TRACE("using IDispatch\n");
            hres = IDispatch_Invoke(disp, id, &IID_NULL, ctx->lcid, flags, &dp, NULL, &ctx->ei.ei, &err);
        }
 
        VariantClear(&var);
    }
 
    return hres;
}

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

◆ double_to_string()

HRESULT double_to_string	(	double	n,
		jsstr_t **	str
	)

Definition at line 727 of file jsutils.c.

{
    static const WCHAR InfinityW[] = {'-','I','n','f','i','n','i','t','y',0};
 
    if(isnan(n)) {
        *str = jsstr_nan();
    }else if(isinf(n)) {
        *str = jsstr_alloc(n<0 ? InfinityW : InfinityW+1);
    }else if(is_int32(n)) {
        *str = int_to_string(n);
    }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_value()

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

Definition at line 487 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,
		IDispatch *	jsthis,
		WORD	flags,
		unsigned	argc,
		jsval_t *	argv,
		jsval_t *	r
	)

Definition at line 264 of file function.c.

{
    FunctionInstance *function;
 
    TRACE("func %p this %p\n", func_this, jsthis);
 
    assert(is_class(func_this, JSCLASS_FUNCTION));
    function = function_from_jsdisp(func_this);
 
    return function->vtbl->call(function->dispex.ctx, function, jsthis, flags, argc, argv, r);
}

Referenced by invoke_prop_func(), and jsdisp_call_value().

◆ Function_value()

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

Definition at line 471 of file function.c.

{
    FunctionInstance *function;
 
    TRACE("\n");
 
    if(!is_vclass(jsthis, JSCLASS_FUNCTION)) {
        ERR("dispex is not a function\n");
        return E_FAIL;
    }
 
    function = function_from_jsdisp(jsthis->u.jsdisp);
    return function->vtbl->call(ctx, function, NULL, flags, argc, argv, r);
}

◆ get_jsdisp()

static jsdisp_t * get_jsdisp ( vdisp_t * vdisp )

inlinestatic

Definition at line 199 of file jscript.h.

{
    return is_jsdisp(vdisp) ? vdisp->u.jsdisp : NULL;
}

Referenced by Error_toString(), and Object_toString().

◆ heap_pool_alloc()

void * heap_pool_alloc	(	heap_pool_t *	heap,
		DWORD	size
	)

Definition at line 77 of file jsutils.c.

{
    struct list *list;
    void *tmp;
 
    if(!heap->block_cnt) {
        if(!heap->blocks) {
            heap->blocks = heap_alloc(sizeof(void*));
            if(!heap->blocks)
                return NULL;
        }
 
        tmp = heap_alloc(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 = heap_realloc(heap->blocks, (heap->block_cnt+1)*sizeof(void*));
            if(!tmp)
                return NULL;
 
            heap->blocks = tmp;
            heap->blocks[heap->block_cnt] = heap_alloc(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 = heap_alloc(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(), heap_pool_grow(), InitMatch(), NewRENode(), parser_alloc(), and parser_alloc_tmp().

◆ heap_pool_clear()

void heap_pool_clear ( heap_pool_t * heap )

Definition at line 146 of file jsutils.c.

{
    struct list *tmp;
 
    if(!heap)
        return;
 
    while((tmp = list_head(&heap->custom_blocks))) {
        list_remove(tmp);
        heap_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_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 169 of file jsutils.c.

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

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

◆ heap_pool_grow()

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

Definition at line 130 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 71 of file jsutils.c.

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

Referenced by alloc_vbscode(), compile_script(), create_regexp(), exec_script(), init_code(), JScriptParse_InitNew(), release_script(), and VBScriptFactory_CreateInstance().

◆ heap_pool_mark()

heap_pool_t * heap_pool_mark ( heap_pool_t * heap )

Definition at line 182 of file jsutils.c.

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

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

◆ heap_strdupW()

static LPWSTR heap_strdupW ( LPCWSTR str )

inlinestatic

Definition at line 76 of file jscript.h.

{
    LPWSTR ret = NULL;
 
    if(str) {
        DWORD size;
 
        size = (lstrlenW(str)+1)*sizeof(WCHAR);
        ret = heap_alloc(size);
        if(ret)
            memcpy(ret, str, size);
    }
 
    return ret;
}

◆ iface_to_jsdisp()

jsdisp_t * iface_to_jsdisp ( IDispatch * iface )

Definition at line 1060 of file dispex.c.

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

Referenced by Array_sort(), ArrayConstr_isArray(), concat_obj(), create_regexp_var(), disp_call(), disp_call_value(), disp_delete(), disp_delete_name(), disp_get_id(), disp_propget(), disp_propput(), exec_source(), Function_apply(), init_dispex_from_constr(), interp_carray_set(), interp_instanceof(), interp_obj_prop(), maybe_to_primitive(), RegExpConstr_value(), set_disp(), String_match(), String_replace(), String_search(), String_split(), stringify(), to_primitive(), and typeof_string().

◆ init_dispex()

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

Definition at line 919 of file dispex.c.

{
    TRACE("%p (%p)\n", dispex, prototype);
 
    dispex->IDispatchEx_iface.lpVtbl = &DispatchExVtbl;
    dispex->ref = 1;
    dispex->builtin_info = builtin_info;
 
    dispex->props = heap_alloc_zero(sizeof(dispex_prop_t)*(dispex->buf_size=4));
    if(!dispex->props)
        return E_OUTOFMEMORY;
 
    dispex->prototype = prototype;
    if(prototype)
        jsdisp_addref(prototype);
 
    dispex->prop_cnt = 1;
    if(builtin_info->value_prop.invoke || builtin_info->value_prop.getter) {
        dispex->props[0].type = PROP_BUILTIN;
        dispex->props[0].u.p = &builtin_info->value_prop;
    }else {
        dispex->props[0].type = PROP_DELETED;
    }
 
    script_addref(ctx);
    dispex->ctx = ctx;
 
    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_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_parseError(), create_plugins_collection(), 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_dispex_from_constr(), MXNamespaceManager_create(), MXWriter_create(), OmNavigator_Create(), SAXAttributes_create(), string_alloc(), 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 1030 of file dispex.c.

{
    jsdisp_t *prot = NULL;
    dispex_prop_t *prop;
    HRESULT hres;
 
    static const WCHAR prototypeW[] = {'p','r','o','t','o','t','y','p','e',0};
 
    hres = find_prop_name_prot(constr, string_hash(prototypeW), prototypeW, &prop);
    if(SUCCEEDED(hres) && prop && prop->type!=PROP_DELETED) {
        jsval_t val;
 
        hres = prop_get(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));
        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_date(), create_function(), create_json(), create_math(), create_object(), setup_arguments_object(), and string_alloc().

◆ init_error_constr()

HRESULT init_error_constr	(	script_ctx_t *	ctx,
		jsdisp_t *	object_prototype
	)

Definition at line 328 of file error.c.

{
    static const WCHAR ErrorW[] = {'E','r','r','o','r',0};
    static const WCHAR EvalErrorW[] = {'E','v','a','l','E','r','r','o','r',0};
    static const WCHAR RangeErrorW[] = {'R','a','n','g','e','E','r','r','o','r',0};
    static const WCHAR ReferenceErrorW[] = {'R','e','f','e','r','e','n','c','e','E','r','r','o','r',0};
    static const WCHAR RegExpErrorW[] = {'R','e','g','E','x','p','E','r','r','o','r',0};
    static const WCHAR SyntaxErrorW[] = {'S','y','n','t','a','x','E','r','r','o','r',0};
    static const WCHAR TypeErrorW[] = {'T','y','p','e','E','r','r','o','r',0};
    static const WCHAR URIErrorW[] = {'U','R','I','E','r','r','o','r',0};
    static const WCHAR *names[] = {ErrorW, EvalErrorW, RangeErrorW,
        ReferenceErrorW, RegExpErrorW, SyntaxErrorW, TypeErrorW, URIErrorW};
    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, nameW, 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 1010 of file function.c.

{
    NativeFunction *prot, *constr;
    HRESULT hres;
 
    static const WCHAR FunctionW[] = {'F','u','n','c','t','i','o','n',0};
 
    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 = prototypeW;
 
    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 = FunctionW;
        hres = jsdisp_define_data_property(&constr->function.dispex, prototypeW, 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 1105 of file global.c.

{
    unsigned const_flags = ctx->version >= SCRIPTLANGUAGEVERSION_ES5 ? 0 : PROPF_WRITABLE;
    jsdisp_t *math, *object_prototype, *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, &object_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = init_constructors(ctx, object_prototype);
    jsdisp_release(object_prototype);
    if(FAILED(hres))
        return hres;
 
    hres = create_math(ctx, &math);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, MathW, 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, JSONW, 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, ActiveXObjectW, PROPF_WRITABLE,
                                       jsval_obj(constr));
    jsdisp_release(constr);
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, undefinedW, const_flags, jsval_undefined());
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, NaNW, const_flags, jsval_number(NAN));
    if(FAILED(hres))
        return hres;
 
    hres = jsdisp_define_data_property(ctx->global, InfinityW, const_flags, jsval_number(INFINITY));
    return hres;
}

◆ is_class()

static BOOL is_class	(	jsdisp_t *	jsdisp,
		jsclass_t	class
	)

inlinestatic

Definition at line 504 of file jscript.h.

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

Referenced by array_get_length(), Array_sort(), ArrayConstr_isArray(), bool_obj_value(), concat_obj(), create_regexp_var(), Function_apply(), Function_invoke(), interp_instanceof(), is_callable(), is_vclass(), jsdisp_call_value(), maybe_to_primitive(), RegExpConstr_value(), set_length(), String_match(), String_replace(), String_search(), String_split(), stringify(), to_primitive(), and typeof_string().

◆ is_dispex()

static BOOL is_dispex ( vdisp_t * vdisp )

inlinestatic

Definition at line 162 of file jscript.h.

{
    return (vdisp->flags & VDISP_DISPEX) != 0;
}

Referenced by Object_hasOwnProperty().

◆ is_finite()

BOOL is_finite ( double n )

Definition at line 58 of file jsutils.c.

{
    return !isnan(n) && !isinf(n);
}

Referenced by JSGlobal_isFinite(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), stringify(), and to_int32().

◆ is_int32()

static BOOL is_int32 ( double d )

inlinestatic

Definition at line 514 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 573 of file jscript.h.

{
    return HRESULT_FACILITY(hres) == FACILITY_JSCRIPT;
}

Referenced by throw_error().

◆ is_jsdisp()

static BOOL is_jsdisp ( vdisp_t * vdisp )

inlinestatic

Definition at line 157 of file jscript.h.

{
    return (vdisp->flags & VDISP_JSDISP) != 0;
}

Referenced by get_jsdisp(), get_length(), is_vclass(), Object_hasOwnProperty(), Object_propertyIsEnumerable(), and Object_toLocaleString().

◆ is_vclass()

static BOOL is_vclass	(	vdisp_t *	vdisp,
		jsclass_t	class
	)

inlinestatic

Definition at line 509 of file jscript.h.

{
    return is_jsdisp(vdisp) && is_class(vdisp->u.jsdisp, class);
}

Referenced by array_this(), bool_this(), date_this(), enumerator_this(), function_this(), Function_value(), number_this(), RegExp_toString(), run_exec(), string_this(), and vbarray_this().

◆ jsdisp_addref()

static jsdisp_t * jsdisp_addref ( jsdisp_t * jsdisp )

inlinestatic

Definition at line 262 of file jscript.h.

{
    jsdisp->ref++;
    return jsdisp;
}

Referenced by Array_reverse(), Array_sort(), create_bind_function(), DispatchEx_AddRef(), DispatchEx_QueryInterface(), exec_source(), Function_get_arguments(), iface_to_jsdisp(), init_dispex(), jsdisp_define_property(), jsdisp_get_own_property(), Object_defineProperties(), Object_defineProperty(), Object_getPrototypeOf(), prop_get(), setup_arguments_object(), 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 1113 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, NULL);
}

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 1124 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name_prot(disp, string_hash(name), name, &prop);
    if(FAILED(hres))
        return hres;
 
    return invoke_prop_func(disp, to_disp(disp), prop, flags, argc, argv, r, NULL);
}

Referenced by Object_toLocaleString().

◆ jsdisp_call_value()

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

Definition at line 1089 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, jsthis, flags, argc, argv, r);
    }else {
        vdisp_t vdisp;
 
        if(!jsfunc->builtin_info->value_prop.invoke) {
            WARN("Not a function\n");
            return throw_type_error(jsfunc->ctx, JS_E_FUNCTION_EXPECTED, NULL);
        }
 
        set_disp(&vdisp, jsthis);
        flags &= ~DISPATCH_JSCRIPT_INTERNAL_MASK;
        hres = jsfunc->builtin_info->value_prop.invoke(jsfunc->ctx, &vdisp, flags, argc, argv, r);
        vdisp_release(&vdisp);
    }
    return hres;
}

Referenced by disp_call_value(), prop_get(), prop_put(), rep_call(), and sort_cmp().

◆ jsdisp_define_data_property()

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

Definition at line 1801 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(), create_source_function(), init_constructors(), init_error_constr(), init_function_constr(), init_global(), Object_getOwnPropertyDescriptor(), set_constructor_prop(), and setup_arguments_object().

◆ jsdisp_define_property()

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

Definition at line 1677 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name(obj, string_hash(name), name, &prop);
    if(FAILED(hres))
        return hres;
 
    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 %x 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_type_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_type_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_type_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_type_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
                    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_type_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_type_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 interp_obj_prop(), jsdisp_define_data_property(), jsdisp_define_properties(), and Object_defineProperty().

◆ jsdisp_delete_idx()

HRESULT jsdisp_delete_idx	(	jsdisp_t *	obj,
		DWORD	idx
	)

Definition at line 1494 of file dispex.c.

{
    static const WCHAR formatW[] = {'%','d',0};
    WCHAR buf[12];
    dispex_prop_t *prop;
    BOOL b;
    HRESULT hres;
 
    swprintf(buf, formatW, idx);
 
    hres = find_prop_name(obj, string_hash(buf), buf, &prop);
    if(FAILED(hres) || !prop)
        return hres;
 
    return delete_prop(prop, &b);
}

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

◆ jsdisp_free()

void jsdisp_free ( jsdisp_t * obj )

Definition at line 976 of file dispex.c.

{
    dispex_prop_t *prop;
 
    TRACE("(%p)\n", obj);
 
    for(prop = obj->props; prop < obj->props+obj->prop_cnt; prop++) {
        switch(prop->type) {
        case PROP_JSVAL:
            jsval_release(prop->u.val);
            break;
        case PROP_ACCESSOR:
            if(prop->u.accessor.getter)
                jsdisp_release(prop->u.accessor.getter);
            if(prop->u.accessor.setter)
                jsdisp_release(prop->u.accessor.setter);
            break;
        default:
            break;
        };
        heap_free(prop->name);
    }
    heap_free(obj->props);
    script_release(obj->ctx);
    if(obj->prototype)
        jsdisp_release(obj->prototype);
 
    if(obj->builtin_info->destructor)
        obj->builtin_info->destructor(obj);
    else
        heap_free(obj);
}

Referenced by DispatchEx_Release(), and jsdisp_release().

◆ jsdisp_get_id()

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

Definition at line 1067 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    if(flags & fdexNameEnsure)
        hres = ensure_prop_name(jsdisp, name, PROPF_ENUMERABLE | PROPF_CONFIGURABLE | PROPF_WRITABLE,
                                &prop);
    else
        hres = find_prop_name_prot(jsdisp, string_hash(name), name, &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));
    return DISP_E_UNKNOWNNAME;
}

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

◆ jsdisp_get_idx()

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

Definition at line 1425 of file dispex.c.

{
    WCHAR name[12];
    dispex_prop_t *prop;
    HRESULT hres;
 
    static const WCHAR formatW[] = {'%','d',0};
 
    swprintf(name, formatW, idx);
 
    hres = find_prop_name_prot(obj, string_hash(name), name, &prop);
    if(FAILED(hres))
        return hres;
 
    if(!prop || prop->type==PROP_DELETED) {
        *r = jsval_undefined();
        return DISP_E_UNKNOWNNAME;
    }
 
    return prop_get(obj, prop, r);
}

Referenced by Array_forEach(), Array_indexOf(), array_join(), Array_map(), Array_pop(), Array_reverse(), Array_shift(), Array_slice(), Array_sort(), Array_splice(), array_to_args(), concat_array(), and stringify_array().

◆ 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 1633 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = find_prop_name(obj, string_hash(name), name, &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:
        desc->mask |= PROPF_WRITABLE;
        desc->explicit_value = TRUE;
        if(!flags_only) {
            hres = prop_get(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_next_prop()

HRESULT jsdisp_next_prop	(	jsdisp_t *	obj,
		DISPID	id,
		BOOL	own_only,
		DISPID *	ret
	)

Definition at line 1546 of file dispex.c.

{
    dispex_prop_t *iter;
    HRESULT hres;
 
    if(id == DISPID_STARTENUM && !own_only) {
        hres = fill_protrefs(obj);
        if(FAILED(hres))
            return hres;
    }
 
    if(id + 1 < 0 || id+1 >= obj->prop_cnt)
        return S_FALSE;
 
    for(iter = &obj->props[id + 1]; iter < obj->props + obj->prop_cnt; iter++) {
        if(!iter->name || iter->type == PROP_DELETED)
            continue;
        if(own_only && iter->type == PROP_PROTREF)
            continue;
        if(!(get_flags(obj, iter) & PROPF_ENUMERABLE))
            continue;
        *ret = prop_to_id(obj, iter);
        return S_OK;
    }
 
    return S_FALSE;
}

Referenced by DispatchEx_GetNextDispID(), and jsdisp_define_properties().

◆ jsdisp_propget()

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

Definition at line 1447 of file dispex.c.

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

Referenced by Array_unshift(), disp_propget(), jsdisp_define_properties(), stringify_object(), 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,
		jsval_t	val
	)

Definition at line 1332 of file dispex.c.

{
    dispex_prop_t *prop;
    HRESULT hres;
 
    hres = ensure_prop_name(obj, name, flags, &prop);
    if(FAILED(hres))
        return hres;
 
    return prop_put(obj, prop, val);
}

Referenced by 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 1349 of file dispex.c.

{
    WCHAR buf[12];
 
    static const WCHAR formatW[] = {'%','d',0};
 
    swprintf(buf, formatW, idx);
    return jsdisp_propput_name(obj, buf, val);
}

Referenced by Array_concat(), 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(), 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 1344 of file dispex.c.

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

Referenced by Arguments_idx_put(), Array_splice(), create_match_array(), detach_arguments_object(), detach_variable_object(), exec_source(), interp_enter_catch(), interp_obj_prop(), jsdisp_propput_idx(), Object_getOwnPropertyDescriptor(), parse_json_value(), regexp_string_match(), and set_length().

◆ jsdisp_release()

static void jsdisp_release ( jsdisp_t * jsdisp )

inlinestatic

Definition at line 268 of file jscript.h.

{
    if(!--jsdisp->ref)
        jsdisp_free(jsdisp);
}

Referenced by Arguments_destructor(), Array_concat(), Array_map(), Array_slice(), Array_sort(), Array_splice(), ArrayConstr_isArray(), 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_regexp_var(), create_source_function(), create_string_constr(), create_vbarray(), create_vbarray_constr(), decrease_state(), detach_arguments_object(), disp_call(), disp_call_value(), disp_delete(), disp_delete_name(), disp_get_id(), disp_propget(), disp_propput(), error_constr(), exec_source(), Function_apply(), Function_bind(), init_dispex_from_constr(), init_error_constr(), init_function_constr(), init_global(), interp_enter_catch(), interp_instanceof(), interp_obj_prop(), InterpretedFunction_call(), jsdisp_define_properties(), jsdisp_define_property(), jsdisp_free(), maybe_to_primitive(), Object_create(), Object_getOwnPropertyDescriptor(), ObjectConstr_value(), parse_json_value(), pop_call_frame(), regexp_string_match(), RegExpConstr_value(), release_property_descriptor(), setup_arguments_object(), String_match(), String_replace(), String_search(), String_split(), stringify(), to_primitive(), typeof_string(), VBArray_toArray(), and VBArrayConstr_value().

◆ JSGlobal_eval()

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

Definition at line 183 of file global.c.

{
    call_frame_t *frame = ctx->call_ctx;
    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, NULL, NULL, TRUE, FALSE, &code);
    if(FAILED(hres)) {
        WARN("parse (%s) failed: %08x\n", debugstr_jsval(argv[0]), hres);
        return throw_syntax_error(ctx, hres, NULL);
    }
 
    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, frame ? frame->variable_obj : ctx->global, 0, NULL, r);
    release_bytecode(code);
    return hres;
}

Referenced by invoke_prop_func().

◆ jsval_strict_equal()

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

Definition at line 531 of file engine.c.

{
    jsval_type_t type = jsval_type(lval);
 
    TRACE("\n");
 
    if(type != jsval_type(rval)) {
        if(is_null_instance(lval))
            *ret = is_null_instance(rval);
        else
            *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:
        FIXME("VARIANT not implemented\n");
        return E_NOTIMPL;
    }
 
    return S_OK;
}

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

◆ lock_module()

static void lock_module ( void )

inlinestatic

Definition at line 584 of file jscript.h.

{
    InterlockedIncrement(&module_ref);
}

◆ make_grfdex()

static DWORD make_grfdex	(	script_ctx_t *	ctx,
		DWORD	flags
	)

inlinestatic

Definition at line 519 of file jscript.h.

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

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

◆ parse_regexp_flags()

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

Definition at line 1022 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 125 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)) {
        heap_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 727 of file jsregexp.c.

{
    static const WCHAR indexW[] = {'i','n','d','e','x',0};
    static const WCHAR inputW[] = {'i','n','p','u','t',0};
    static const WCHAR lastIndexW[] = {'l','a','s','t','I','n','d','e','x',0};
 
    RegExpInstance *regexp = regexp_from_jsdisp(re);
    match_result_t *match_result;
    unsigned 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))
        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, indexW, jsval_number(match_result[match_cnt-1].index));
        if(FAILED(hres))
            break;
 
        hres = jsdisp_propput_name(array, lastIndexW,
                jsval_number(match_result[match_cnt-1].index + match_result[match_cnt-1].length));
        if(FAILED(hres))
            break;
 
        hres = jsdisp_propput_name(array, inputW, jsval_string(jsstr));
        break;
    }
 
    heap_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;
        heap_free(iter);
    }
 
    heap_free(cc);
}

Referenced by init_cc(), and script_release().

◆ script_addref()

static void script_addref ( script_ctx_t * ctx )

inlinestatic

Definition at line 465 of file jscript.h.

{
    ctx->ref++;
}

Referenced by init_dispex().

◆ script_release()

void script_release ( script_ctx_t * ctx )

Definition at line 67 of file jscript.c.

{
    if(--ctx->ref)
        return;
 
    jsval_release(ctx->acc);
    clear_ei(ctx);
    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);
    heap_free(ctx->stack);
 
    ctx->jscaller->ctx = NULL;
    IServiceProvider_Release(&ctx->jscaller->IServiceProvider_iface);
 
    heap_free(ctx);
}

Referenced by JScript_Release(), JScriptParse_InitNew(), and jsdisp_free().

◆ set_disp()

static void set_disp	(	vdisp_t *	vdisp,
		IDispatch *	disp
	)

inlinestatic

Definition at line 174 of file jscript.h.

{
    IDispatchEx *dispex;
    jsdisp_t *jsdisp;
    HRESULT hres;
 
    jsdisp = iface_to_jsdisp(disp);
    if(jsdisp) {
        vdisp->u.jsdisp = jsdisp;
        vdisp->flags = VDISP_JSDISP | VDISP_DISPEX;
        return;
    }
 
    hres = IDispatch_QueryInterface(disp, &IID_IDispatchEx, (void**)&dispex);
    if(SUCCEEDED(hres)) {
        vdisp->u.dispex = dispex;
        vdisp->flags = VDISP_DISPEX;
        return;
    }
 
    IDispatch_AddRef(disp);
    vdisp->u.disp = disp;
    vdisp->flags = 0;
}

Referenced by invoke_prop_func(), jsdisp_call_value(), and NativeFunction_call().

◆ set_jsdisp()

static void set_jsdisp	(	vdisp_t *	vdisp,
		jsdisp_t *	jsdisp
	)

inlinestatic

Definition at line 167 of file jscript.h.

{
    vdisp->u.jsdisp = jsdisp;
    vdisp->flags = VDISP_JSDISP | VDISP_DISPEX;
    IDispatch_AddRef(vdisp->u.disp);
}

Referenced by invoke_prop_func(), and NativeFunction_call().

◆ throw_eval_error()

HRESULT throw_eval_error	(	script_ctx_t *	,
		HRESULT	,
		const WCHAR *
	)

◆ throw_generic_error()

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

Definition at line 415 of file error.c.

{
    return throw_error(ctx, error, str, ctx->error_constr);
}

Referenced by ActiveXObject_value().

◆ throw_range_error()

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

Definition at line 420 of file error.c.

{
    return throw_error(ctx, error, str, ctx->range_error_constr);
}

Referenced by Array_set_length(), ArrayConstr_value(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), VBArray_getItem(), VBArray_lbound(), and VBArray_ubound().

◆ throw_reference_error()

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

Definition at line 425 of file error.c.

{
    return throw_error(ctx, error, str, ctx->reference_error_constr);
}

Referenced by interp_assign(), interp_assign_call(), interp_refval(), and interp_throw_ref().

◆ throw_regexp_error()

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

Definition at line 430 of file error.c.

{
    return throw_error(ctx, error, str, ctx->regexp_error_constr);
}

Referenced by RegExpConstr_value().

◆ throw_syntax_error()

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

Definition at line 435 of file error.c.

{
    return throw_error(ctx, error, str, ctx->syntax_error_constr);
}

Referenced by EnumeratorConstr_value(), and JSGlobal_eval().

◆ throw_type_error()

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

Definition at line 440 of file error.c.

{
    return throw_error(ctx, error, str, ctx->type_error_constr);
}

Referenced by Array_toString(), Bool_toString(), Bool_value(), Bool_valueOf(), create_utc_string(), Date_getDate(), Date_getDay(), Date_getFullYear(), Date_getHours(), Date_getMilliseconds(), Date_getMinutes(), Date_getMonth(), Date_getSeconds(), Date_getTime(), Date_getTimezoneOffset(), Date_getUTCDate(), Date_getUTCDay(), Date_getUTCFullYear(), Date_getUTCHours(), Date_getUTCMilliseconds(), Date_getUTCMinutes(), Date_getUTCMonth(), Date_getUTCSeconds(), Date_getYear(), 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_toDateString(), Date_toISOString(), Date_toLocaleDateString(), Date_toLocaleString(), Date_toLocaleTimeString(), Date_toString(), Date_toTimeString(), Date_valueOf(), Enumerator_atEnd(), Enumerator_item(), Enumerator_moveFirst(), Enumerator_moveNext(), Error_value(), Function_apply(), Function_bind(), Function_call(), Function_toString(), get_length(), identifier_value(), interp_call(), interp_call_member(), interp_in(), interp_instanceof(), interp_new(), interp_postinc(), interp_preinc(), interp_throw_type(), jsdisp_call_value(), jsdisp_define_property(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), Number_valueOf(), Object_defineProperty(), Object_getOwnPropertyDescriptor(), RegExp_value(), stack_pop_object(), to_object(), to_primitive(), to_property_descriptor(), VBArray_dimensions(), VBArray_getItem(), VBArray_lbound(), VBArray_toArray(), VBArray_ubound(), and VBArrayConstr_value().

◆ throw_uri_error()

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

Definition at line 445 of file error.c.

{
    return throw_error(ctx, error, str, ctx->uri_error_constr);
}

Referenced by JSGlobal_decodeURI(), JSGlobal_encodeURI(), and JSGlobal_encodeURIComponent().

◆ to_boolean()

HRESULT to_boolean	(	jsval_t	val,
		BOOL *	ret
	)

Definition at line 472 of file jsutils.c.

{
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
    case JSV_NULL:
        *ret = FALSE;
        return S_OK;
    case JSV_OBJECT:
        *ret = get_object(val) != NULL;
        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 BoolConstr_value(), interp_cnd_nz(), interp_cnd_z(), interp_jmp_z(), interp_neg(), to_property_descriptor(), and variant_change_type().

◆ to_disp()

static IDispatch * to_disp ( jsdisp_t * jsdisp )

inlinestatic

Definition at line 245 of file jscript.h.

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

Referenced by construct_function(), create_match_array(), exec_source(), identifier_eval(), interp_enter_catch(), interp_identifier_ref(), interp_instanceof(), InterpretedFunction_call(), JScript_GetScriptDispatch(), JScriptParseProcedure_ParseProcedureText(), jsdisp_call(), jsdisp_call_name(), jsval_obj(), print_backtrace(), prop_get(), prop_put(), setup_scope(), and to_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 798 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_defineProperty(), 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 665 of file jsutils.c.

{
    double n;
    HRESULT hres;
 
    const double p32 = (double)0xffffffff + 1;
 
    hres = to_number(ctx, v, &n);
    if(FAILED(hres))
        return hres;
 
    if(is_finite(n))
        n = n > 0 ? fmod(n, p32) : -fmod(-n, p32);
    else
        n = 0;
 
    *ret = (UINT32)n;
    return S_OK;
}

Referenced by interp_bneg(), JSGlobal_parseInt(), Number_toExponential(), Number_toFixed(), Number_toPrecision(), Number_toString(), stack_pop_int(), to_uint32(), variant_change_type(), VBArray_getItem(), VBArray_lbound(), and VBArray_ubound().

◆ to_integer()

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

Definition at line 648 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_splice(), 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 914 of file dispex.c.

{
    return disp->lpVtbl == (IDispatchVtbl*)&DispatchExVtbl ? impl_from_IDispatchEx((IDispatchEx*)disp) : NULL;
}

Referenced by interp_push_scope(), jsdisp_define_properties(), Object_create(), Object_defineProperties(), Object_defineProperty(), Object_getOwnPropertyDescriptor(), Object_getPrototypeOf(), to_property_descriptor(), and unwind_exception().

◆ to_number()

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

Definition at line 609 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:
        FIXME("unimplemented for variant %s\n", debugstr_variant(get_variant(val)));
        return E_NOTIMPL;
    };
 
    assert(0);
    return E_FAIL;
}

Referenced by add_eval(), Array_set_length(), Array_slice(), 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_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(), and variant_change_type().

◆ to_object()

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

Definition at line 816 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:
        if(get_object(val)) {
            *disp = get_object(val);
            IDispatch_AddRef(*disp);
        }else {
            jsdisp_t *obj;
 
            hres = create_object(ctx, NULL, &obj);
            if(FAILED(hres))
                return hres;
 
            *disp = to_disp(obj);
        }
        break;
    case JSV_BOOL:
        hres = create_bool(ctx, get_bool(val), &dispex);
        if(FAILED(hres))
            return hres;
 
        *disp = to_disp(dispex);
        break;
    case JSV_UNDEFINED:
    case JSV_NULL:
        WARN("object expected\n");
        return throw_type_error(ctx, JS_E_OBJECT_EXPECTED, NULL);
    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 Function_apply(), Function_call(), interp_delete(), interp_memberid(), interp_push_scope(), jsdisp_define_properties(), ObjectConstr_value(), and stack_pop_object().

◆ to_primitive()

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

Definition at line 404 of file jsutils.c.

{
    if(is_object_instance(val)) {
        jsdisp_t *jsdisp;
        jsval_t prim;
        DISPID id;
        HRESULT hres;
 
        static const WCHAR toStringW[] = {'t','o','S','t','r','i','n','g',0};
        static const WCHAR valueOfW[] = {'v','a','l','u','e','O','f',0};
 
        if(!get_object(val)) {
            *ret = jsval_null();
            return S_OK;
        }
 
        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 ? toStringW : valueOfW, 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));
            }
        }
 
        hres = jsdisp_get_id(jsdisp, hint == HINT_STRING ? valueOfW : toStringW, 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));
            }
        }
 
        jsdisp_release(jsdisp);
 
        WARN("failed\n");
        return throw_type_error(ctx, JS_E_TO_PRIMITIVE, NULL);
    }
 
    return jsval_copy(val, ret);
 
}

Referenced by add_eval(), DateConstr_value(), equal_values(), 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 757 of file jsutils.c.

{
    static const WCHAR nullW[] = {'n','u','l','l',0};
    static const WCHAR trueW[] = {'t','r','u','e',0};
    static const WCHAR falseW[] = {'f','a','l','s','e',0};
 
    switch(jsval_type(val)) {
    case JSV_UNDEFINED:
        *str = jsstr_undefined();
        return S_OK;
    case JSV_NULL:
        *str = jsstr_alloc(nullW);
        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) ? trueW : falseW);
        break;
    default:
        FIXME("unsupported %s\n", debugstr_jsval(val));
        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 686 of file jsutils.c.

{
    INT32 n;
    HRESULT hres;
 
    hres = to_int32(ctx, val, &n);
    if(SUCCEEDED(hres))
        *ret = n;
    return hres;
}

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

◆ unlock_module()

static void unlock_module ( void )

inlinestatic

Definition at line 589 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 881 of file jsutils.c.

{
    jsval_t val;
    HRESULT hres;
 
    clear_ei(ctx);
    hres = variant_to_jsval(src, &val);
    if(FAILED(hres))
        return hres;
 
    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;
 
        if(is_null_bstr(str)) {
            V_BSTR(dst) = NULL;
            break;
        }
 
        V_BSTR(dst) = SysAllocStringLen(NULL, jsstr_length(str));
        if(V_BSTR(dst))
            jsstr_flush(str, V_BSTR(dst));
        else
            hres = E_OUTOFMEMORY;
        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;
    default:
        FIXME("vt %d not implemented\n", vt);
        hres = E_NOTIMPL;
    }
 
    jsval_release(val);
    if(FAILED(hres))
        return hres;
 
    V_VT(dst) = vt;
    return S_OK;
}

Referenced by VariantChangeType_ChangeType().

◆ vdisp_release()

static void vdisp_release ( vdisp_t * vdisp )

inlinestatic

Definition at line 152 of file jscript.h.

{
    IDispatch_Release(vdisp->u.disp);
}

Referenced by invoke_prop_func(), jsdisp_call_value(), and NativeFunction_call().

Variable Documentation

◆ DECLSPEC_HIDDEN

LONG module_ref DECLSPEC_HIDDEN

extern

Definition at line 582 of file jscript.h.

Classes

Macros

Typedefs

Enumerations

Functions

Variables

Macro Definition Documentation

◆ COBJMACROS

◆ DEFAULT_FUNCTION_VALUE

◆ DISPATCH_JSCRIPT_CALLEREXECSSOURCE

◆ DISPATCH_JSCRIPT_INTERNAL_MASK

◆ JS_E_ARRAY_EXPECTED

◆ JS_E_BOOLEAN_EXPECTED

◆ JS_E_CANNOT_CREATE_OBJ

◆ JS_E_DATE_EXPECTED

◆ JS_E_DISABLED_CC

◆ JS_E_ENUMERATOR_EXPECTED

◆ JS_E_EXPECTED_ASSIGN

◆ JS_E_EXPECTED_AT

◆ JS_E_EXPECTED_CCEND

◆ JS_E_EXPECTED_IDENTIFIER

◆ JS_E_FRACTION_DIGITS_OUT_OF_RANGE

◆ JS_E_FUNCTION_EXPECTED

◆ JS_E_ILLEGAL_ASSIGN

◆ JS_E_INVALID_ACTION

◆ JS_E_INVALID_BREAK

◆ JS_E_INVALID_CHAR

◆ JS_E_INVALID_CONTINUE

◆ JS_E_INVALID_DELETE

◆ JS_E_INVALID_LENGTH

◆ JS_E_INVALID_PROPERTY

◆ JS_E_INVALID_URI_CHAR

◆ JS_E_INVALID_URI_CODING

◆ JS_E_INVALID_WRITABLE_PROP_DESC

◆ JS_E_INVALIDARG

◆ JS_E_JSCRIPT_EXPECTED

◆ JS_E_LABEL_NOT_FOUND

◆ JS_E_LABEL_REDEFINED

◆ JS_E_MISPLACED_RETURN

◆ JS_E_MISSING_ARG

◆ JS_E_MISSING_LBRACKET

◆ JS_E_MISSING_RBRACKET

◆ JS_E_MISSING_SEMICOLON

◆ JS_E_NONCONFIGURABLE_REDEFINED

◆ JS_E_NONWRITABLE_MODIFIED

◆ JS_E_NUMBER_EXPECTED

◆ JS_E_OBJECT_EXPECTED

◆ JS_E_OBJECT_REQUIRED

◆ JS_E_PRECISION_OUT_OF_RANGE

◆ JS_E_PROP_DESC_MISMATCH

◆ JS_E_REGEXP_SYNTAX

◆ JS_E_SUBSCRIPT_OUT_OF_RANGE

◆ JS_E_SYNTAX

◆ JS_E_TO_PRIMITIVE

◆ JS_E_UNDEFINED_VARIABLE

◆ JS_E_UNTERMINATED_STRING

◆ JS_E_VBARRAY_EXPECTED

◆ MAKE_JSERROR

◆ PROPF_ALL

◆ PROPF_ARGMASK

◆ PROPF_CONFIGURABLE

◆ PROPF_CONSTR

◆ PROPF_ENUMERABLE

◆ PROPF_ES5

◆ PROPF_HTML

◆ PROPF_METHOD

◆ PROPF_VERSION_MASK

◆ PROPF_VERSION_SHIFT

◆ PROPF_WRITABLE

◆ REM_ALLOC_RESULT

◆ REM_CHECK_GLOBAL

◆ REM_NO_CTX_UPDATE

◆ REM_NO_PARENS

◆ REM_RESET_INDEX

◆ SCRIPTLANGUAGEVERSION_ES5

◆ SCRIPTLANGUAGEVERSION_HTML

◆ VDISP_DISPEX

◆ VDISP_JSDISP

Typedef Documentation

◆ builtin_getter_t