2014-09-30 16:51:14 +02:00
|
|
|
/*
|
|
|
|
* Copyright 2014 Jacek Caban for CodeWeavers
|
|
|
|
*
|
|
|
|
* This library is free software; you can redistribute it and/or
|
|
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
|
|
* License as published by the Free Software Foundation; either
|
|
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This library is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
* Lesser General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
|
|
* License along with this library; if not, write to the Free Software
|
|
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
|
|
*/
|
|
|
|
|
|
|
|
typedef struct _expression_t expression_t;
|
|
|
|
typedef struct _statement_t statement_t;
|
2021-06-21 19:48:17 +02:00
|
|
|
|
|
|
|
typedef struct _statement_list_t {
|
|
|
|
statement_t *head;
|
|
|
|
statement_t *tail;
|
|
|
|
} statement_list_t;
|
|
|
|
|
2020-02-03 14:47:39 +01:00
|
|
|
struct _bytecode_t;
|
2014-09-30 16:51:14 +02:00
|
|
|
|
2014-09-30 16:51:36 +02:00
|
|
|
typedef struct {
|
|
|
|
BOOL is_num;
|
|
|
|
union {
|
|
|
|
BOOL b;
|
|
|
|
double n;
|
|
|
|
} u;
|
|
|
|
} ccval_t;
|
|
|
|
|
2014-09-30 16:51:14 +02:00
|
|
|
typedef struct _parser_ctx_t {
|
|
|
|
const WCHAR *begin;
|
|
|
|
const WCHAR *end;
|
|
|
|
const WCHAR *ptr;
|
|
|
|
|
|
|
|
script_ctx_t *script;
|
2019-03-01 17:44:31 +01:00
|
|
|
struct _compiler_ctx_t *compiler;
|
2021-06-21 19:48:17 +02:00
|
|
|
statement_list_t *source;
|
2014-09-30 16:51:14 +02:00
|
|
|
BOOL nl;
|
|
|
|
BOOL implicit_nl_semicolon;
|
|
|
|
BOOL is_html;
|
|
|
|
BOOL lexer_error;
|
|
|
|
HRESULT hres;
|
2020-02-03 14:47:39 +01:00
|
|
|
unsigned error_loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
|
2014-09-30 16:51:57 +02:00
|
|
|
ccval_t ccval;
|
2014-10-01 10:45:12 +02:00
|
|
|
unsigned cc_if_depth;
|
2014-09-30 16:51:57 +02:00
|
|
|
|
2014-09-30 16:51:14 +02:00
|
|
|
heap_pool_t heap;
|
|
|
|
} parser_ctx_t;
|
|
|
|
|
2020-02-03 14:47:39 +01:00
|
|
|
HRESULT script_parse(script_ctx_t*,struct _compiler_ctx_t*,struct _bytecode_t*,const WCHAR*,BOOL,parser_ctx_t**) DECLSPEC_HIDDEN;
|
2014-09-30 16:51:14 +02:00
|
|
|
void parser_release(parser_ctx_t*) DECLSPEC_HIDDEN;
|
|
|
|
|
2020-01-23 13:52:15 +01:00
|
|
|
int parser_lex(void*,unsigned*,parser_ctx_t*) DECLSPEC_HIDDEN;
|
2014-09-30 16:51:14 +02:00
|
|
|
|
|
|
|
static inline void *parser_alloc(parser_ctx_t *ctx, DWORD size)
|
|
|
|
{
|
|
|
|
return heap_pool_alloc(&ctx->heap, size);
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline void *parser_alloc_tmp(parser_ctx_t *ctx, DWORD size)
|
|
|
|
{
|
|
|
|
return heap_pool_alloc(&ctx->script->tmp_heap, size);
|
|
|
|
}
|
|
|
|
|
2016-01-27 20:43:41 +01:00
|
|
|
BOOL is_identifier_char(WCHAR) DECLSPEC_HIDDEN;
|
2019-03-01 17:44:07 +01:00
|
|
|
BOOL unescape(WCHAR*,size_t*) DECLSPEC_HIDDEN;
|
2016-01-27 20:43:41 +01:00
|
|
|
HRESULT parse_decimal(const WCHAR**,const WCHAR*,double*) DECLSPEC_HIDDEN;
|
|
|
|
|
2014-09-30 16:51:14 +02:00
|
|
|
typedef enum {
|
|
|
|
LT_DOUBLE,
|
|
|
|
LT_STRING,
|
|
|
|
LT_BOOL,
|
|
|
|
LT_NULL,
|
|
|
|
LT_REGEXP
|
|
|
|
}literal_type_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
literal_type_t type;
|
|
|
|
union {
|
|
|
|
double dval;
|
2019-03-01 17:44:18 +01:00
|
|
|
jsstr_t *str;
|
2014-09-30 16:51:14 +02:00
|
|
|
BOOL bval;
|
|
|
|
struct {
|
2019-03-01 17:44:31 +01:00
|
|
|
jsstr_t *str;
|
2014-09-30 16:51:14 +02:00
|
|
|
DWORD flags;
|
|
|
|
} regexp;
|
|
|
|
} u;
|
|
|
|
} literal_t;
|
|
|
|
|
|
|
|
literal_t *parse_regexp(parser_ctx_t*) DECLSPEC_HIDDEN;
|
|
|
|
literal_t *new_boolean_literal(parser_ctx_t*,BOOL) DECLSPEC_HIDDEN;
|
|
|
|
|
|
|
|
typedef struct _variable_declaration_t {
|
|
|
|
const WCHAR *identifier;
|
2021-06-15 17:07:34 +02:00
|
|
|
BOOL block_scope, constant;
|
2014-09-30 16:51:14 +02:00
|
|
|
expression_t *expr;
|
|
|
|
|
|
|
|
struct _variable_declaration_t *next;
|
|
|
|
struct _variable_declaration_t *global_next; /* for compiler */
|
|
|
|
} variable_declaration_t;
|
|
|
|
|
|
|
|
typedef enum {
|
|
|
|
STAT_BLOCK,
|
|
|
|
STAT_BREAK,
|
|
|
|
STAT_CONTINUE,
|
|
|
|
STAT_EMPTY,
|
|
|
|
STAT_EXPR,
|
|
|
|
STAT_FOR,
|
|
|
|
STAT_FORIN,
|
|
|
|
STAT_IF,
|
|
|
|
STAT_LABEL,
|
|
|
|
STAT_RETURN,
|
|
|
|
STAT_SWITCH,
|
|
|
|
STAT_THROW,
|
|
|
|
STAT_TRY,
|
|
|
|
STAT_VAR,
|
|
|
|
STAT_WHILE,
|
|
|
|
STAT_WITH
|
|
|
|
} statement_type_t;
|
|
|
|
|
|
|
|
struct _statement_t {
|
|
|
|
statement_type_t type;
|
|
|
|
statement_t *next;
|
2020-01-23 13:52:32 +01:00
|
|
|
unsigned loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
};
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
2021-06-18 14:50:17 +02:00
|
|
|
unsigned int scope_index;
|
2014-09-30 16:51:14 +02:00
|
|
|
statement_t *stat_list;
|
|
|
|
} block_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
variable_declaration_t *variable_list;
|
|
|
|
} var_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
expression_t *expr;
|
|
|
|
} expression_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
expression_t *expr;
|
|
|
|
statement_t *if_stat;
|
|
|
|
statement_t *else_stat;
|
|
|
|
} if_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
BOOL do_while;
|
|
|
|
expression_t *expr;
|
|
|
|
statement_t *statement;
|
|
|
|
} while_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
variable_declaration_t *variable_list;
|
|
|
|
expression_t *begin_expr;
|
|
|
|
expression_t *expr;
|
2020-01-24 19:54:41 +01:00
|
|
|
unsigned expr_loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
expression_t *end_expr;
|
2020-01-24 19:54:41 +01:00
|
|
|
unsigned end_loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
statement_t *statement;
|
2021-06-21 19:48:20 +02:00
|
|
|
unsigned int scope_index;
|
2014-09-30 16:51:14 +02:00
|
|
|
} for_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
variable_declaration_t *variable;
|
|
|
|
expression_t *expr;
|
|
|
|
expression_t *in_expr;
|
|
|
|
statement_t *statement;
|
|
|
|
} forin_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
const WCHAR *identifier;
|
|
|
|
} branch_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
expression_t *expr;
|
|
|
|
statement_t *statement;
|
|
|
|
} with_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
const WCHAR *identifier;
|
|
|
|
statement_t *statement;
|
|
|
|
} labelled_statement_t;
|
|
|
|
|
|
|
|
typedef struct _case_clausule_t {
|
|
|
|
expression_t *expr;
|
2020-01-24 19:54:41 +01:00
|
|
|
unsigned loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
statement_t *stat;
|
|
|
|
|
|
|
|
struct _case_clausule_t *next;
|
|
|
|
} case_clausule_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
expression_t *expr;
|
|
|
|
case_clausule_t *case_list;
|
|
|
|
} switch_statement_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
const WCHAR *identifier;
|
|
|
|
statement_t *statement;
|
|
|
|
} catch_block_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
statement_t stat;
|
|
|
|
statement_t *try_statement;
|
|
|
|
catch_block_t *catch_block;
|
|
|
|
statement_t *finally_statement;
|
2020-01-24 19:54:41 +01:00
|
|
|
unsigned finally_loc;
|
2014-09-30 16:51:14 +02:00
|
|
|
} try_statement_t;
|
|
|
|
|
|
|
|
typedef enum {
|
|
|
|
EXPR_COMMA,
|
|
|
|
EXPR_OR,
|
|
|
|
EXPR_AND,
|
|
|
|
EXPR_BOR,
|
|
|
|
EXPR_BXOR,
|
|
|
|
EXPR_BAND,
|
|
|
|
EXPR_INSTANCEOF,
|
|
|
|
EXPR_IN,
|
|
|
|
EXPR_ADD,
|
|
|
|
EXPR_SUB,
|
|
|
|
EXPR_MUL,
|
|
|
|
EXPR_DIV,
|
|
|
|
EXPR_MOD,
|
|
|
|
EXPR_DELETE,
|
|
|
|
EXPR_VOID,
|
|
|
|
EXPR_TYPEOF,
|
|
|
|
EXPR_MINUS,
|
|
|
|
EXPR_PLUS,
|
|
|
|
EXPR_POSTINC,
|
|
|
|
EXPR_POSTDEC,
|
|
|
|
EXPR_PREINC,
|
|
|
|
EXPR_PREDEC,
|
|
|
|
EXPR_EQ,
|
|
|
|
EXPR_EQEQ,
|
|
|
|
EXPR_NOTEQ,
|
|
|
|
EXPR_NOTEQEQ,
|
|
|
|
EXPR_LESS,
|
|
|
|
EXPR_LESSEQ,
|
|
|
|
EXPR_GREATER,
|
|
|
|
EXPR_GREATEREQ,
|
|
|
|
EXPR_BITNEG,
|
|
|
|
EXPR_LOGNEG,
|
|
|
|
EXPR_LSHIFT,
|
|
|
|
EXPR_RSHIFT,
|
|
|
|
EXPR_RRSHIFT,
|
|
|
|
EXPR_ASSIGN,
|
|
|
|
EXPR_ASSIGNLSHIFT,
|
|
|
|
EXPR_ASSIGNRSHIFT,
|
|
|
|
EXPR_ASSIGNRRSHIFT,
|
|
|
|
EXPR_ASSIGNADD,
|
|
|
|
EXPR_ASSIGNSUB,
|
|
|
|
EXPR_ASSIGNMUL,
|
|
|
|
EXPR_ASSIGNDIV,
|
|
|
|
EXPR_ASSIGNMOD,
|
|
|
|
EXPR_ASSIGNAND,
|
|
|
|
EXPR_ASSIGNOR,
|
|
|
|
EXPR_ASSIGNXOR,
|
|
|
|
EXPR_COND,
|
|
|
|
EXPR_ARRAY,
|
|
|
|
EXPR_MEMBER,
|
|
|
|
EXPR_NEW,
|
|
|
|
EXPR_CALL,
|
|
|
|
EXPR_THIS,
|
|
|
|
EXPR_FUNC,
|
|
|
|
EXPR_IDENT,
|
|
|
|
EXPR_ARRAYLIT,
|
|
|
|
EXPR_PROPVAL,
|
|
|
|
EXPR_LITERAL
|
|
|
|
} expression_type_t;
|
|
|
|
|
|
|
|
struct _expression_t {
|
|
|
|
expression_type_t type;
|
|
|
|
};
|
|
|
|
|
|
|
|
typedef struct _parameter_t {
|
|
|
|
const WCHAR *identifier;
|
|
|
|
struct _parameter_t *next;
|
|
|
|
} parameter_t;
|
|
|
|
|
|
|
|
typedef struct _function_expression_t {
|
|
|
|
expression_t expr;
|
|
|
|
const WCHAR *identifier;
|
2015-06-02 14:45:10 +02:00
|
|
|
const WCHAR *event_target;
|
2014-09-30 16:51:14 +02:00
|
|
|
parameter_t *parameter_list;
|
2021-06-21 19:48:17 +02:00
|
|
|
statement_list_t *statement_list;
|
2014-09-30 16:51:14 +02:00
|
|
|
const WCHAR *src_str;
|
|
|
|
DWORD src_len;
|
2016-08-04 13:39:36 +02:00
|
|
|
unsigned func_id;
|
2021-04-21 17:23:17 +02:00
|
|
|
BOOL is_statement;
|
2021-06-18 14:50:19 +02:00
|
|
|
unsigned int scope_index;
|
2014-09-30 16:51:14 +02:00
|
|
|
|
|
|
|
struct _function_expression_t *next; /* for compiler */
|
|
|
|
} function_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
expression_t *expression1;
|
|
|
|
expression_t *expression2;
|
|
|
|
} binary_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
expression_t *expression;
|
|
|
|
} unary_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
expression_t *expression;
|
|
|
|
expression_t *true_expression;
|
|
|
|
expression_t *false_expression;
|
|
|
|
} conditional_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
expression_t *expression;
|
|
|
|
const WCHAR *identifier;
|
|
|
|
} member_expression_t;
|
|
|
|
|
|
|
|
typedef struct _argument_t {
|
|
|
|
expression_t *expr;
|
|
|
|
|
|
|
|
struct _argument_t *next;
|
|
|
|
} argument_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
expression_t *expression;
|
|
|
|
argument_t *argument_list;
|
|
|
|
} call_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
const WCHAR *identifier;
|
|
|
|
} identifier_expression_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
literal_t *literal;
|
|
|
|
} literal_expression_t;
|
|
|
|
|
|
|
|
typedef struct _array_element_t {
|
|
|
|
int elision;
|
|
|
|
expression_t *expr;
|
|
|
|
|
|
|
|
struct _array_element_t *next;
|
|
|
|
} array_element_t;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
|
|
|
array_element_t *element_list;
|
|
|
|
int length;
|
|
|
|
} array_literal_expression_t;
|
|
|
|
|
2018-11-30 22:44:07 +01:00
|
|
|
typedef struct _property_definition_t {
|
2018-11-30 22:44:32 +01:00
|
|
|
unsigned type;
|
2014-09-30 16:51:14 +02:00
|
|
|
literal_t *name;
|
|
|
|
expression_t *value;
|
|
|
|
|
2018-11-30 22:44:07 +01:00
|
|
|
struct _property_definition_t *next;
|
|
|
|
} property_definition_t;
|
2014-09-30 16:51:14 +02:00
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
expression_t expr;
|
2018-11-30 22:44:07 +01:00
|
|
|
property_definition_t *property_list;
|
2014-09-30 16:51:14 +02:00
|
|
|
} property_value_expression_t;
|
2014-09-30 16:51:36 +02:00
|
|
|
|
2014-09-30 16:51:57 +02:00
|
|
|
BOOL try_parse_ccval(parser_ctx_t*,ccval_t*) DECLSPEC_HIDDEN;
|
|
|
|
BOOL parse_cc_expr(parser_ctx_t*) DECLSPEC_HIDDEN;
|
|
|
|
|
2014-09-30 16:51:36 +02:00
|
|
|
static inline ccval_t ccval_num(double n)
|
|
|
|
{
|
|
|
|
ccval_t r;
|
|
|
|
r.is_num = TRUE;
|
|
|
|
r.u.n = n;
|
|
|
|
return r;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline ccval_t ccval_bool(BOOL b)
|
|
|
|
{
|
|
|
|
ccval_t r;
|
|
|
|
r.is_num = FALSE;
|
|
|
|
r.u.b = b;
|
|
|
|
return r;
|
|
|
|
}
|
2014-09-30 16:51:57 +02:00
|
|
|
|
|
|
|
static inline BOOL get_ccbool(ccval_t v)
|
|
|
|
{
|
|
|
|
return v.is_num ? v.u.n != 0 : v.u.b;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline double get_ccnum(ccval_t v)
|
|
|
|
{
|
|
|
|
return v.is_num ? v.u.n : v.u.b;
|
|
|
|
}
|
2019-03-01 17:44:31 +01:00
|
|
|
|
|
|
|
jsstr_t *compiler_alloc_string_len(struct _compiler_ctx_t*,const WCHAR *,unsigned) DECLSPEC_HIDDEN;
|