2 * Copyright 2008 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 typedef struct _source_elements_t source_elements_t;
20 typedef struct _function_expression_t function_expression_t;
21 typedef struct _expression_t expression_t;
23 typedef struct _function_declaration_t {
24 function_expression_t *expr;
26 struct _function_declaration_t *next;
27 } function_declaration_t;
29 typedef struct _var_list_t {
30 const WCHAR *identifier;
32 struct _var_list_t *next;
35 typedef struct _func_stack {
36 function_declaration_t *func_head;
37 function_declaration_t *func_tail;
41 struct _func_stack *next;
47 X(bool, 1, ARG_INT, 0) \
51 X(double, 1, ARG_SBL, 0) \
56 X(ident, 1, ARG_BSTR, 0) \
57 X(identid, 1, ARG_BSTR, 0) \
59 X(int, 1, ARG_INT, 0) \
60 X(jmp, 0, ARG_ADDR, 0) \
61 X(jmp_nz, 0, ARG_ADDR, 0) \
62 X(jmp_z, 0, ARG_ADDR, 0) \
72 X(new, 1, ARG_INT, 0) \
76 X(regexp, 1, ARG_STR, ARG_INT) \
77 X(str, 1, ARG_STR, 0) \
79 X(throw, 0, ARG_UINT, 0) \
81 X(tree, 1, ARG_EXPR, 0) \
89 #define X(x,a,b,c) OP_##x,
124 unsigned bstr_pool_size;
128 void release_bytecode(bytecode_t*);
130 typedef struct _compiler_ctx_t compiler_ctx_t;
132 void release_compiler(compiler_ctx_t*);
134 typedef struct _parser_ctx_t {
141 script_ctx_t *script;
142 source_elements_t *source;
150 func_stack_t *func_stack;
153 compiler_ctx_t *compiler;
155 struct _parser_ctx_t *next;
158 HRESULT script_parse(script_ctx_t*,const WCHAR*,const WCHAR*,parser_ctx_t**) DECLSPEC_HIDDEN;
159 void parser_release(parser_ctx_t*) DECLSPEC_HIDDEN;
161 int parser_lex(void*,parser_ctx_t*) DECLSPEC_HIDDEN;
163 static inline void parser_addref(parser_ctx_t *ctx)
168 static inline void *parser_alloc(parser_ctx_t *ctx, DWORD size)
170 return jsheap_alloc(&ctx->heap, size);
173 static inline void *parser_alloc_tmp(parser_ctx_t *ctx, DWORD size)
175 return jsheap_alloc(&ctx->script->tmp_heap, size);
178 typedef struct _scope_chain_t {
181 struct _scope_chain_t *next;
184 HRESULT scope_push(scope_chain_t*,jsdisp_t*,scope_chain_t**) DECLSPEC_HIDDEN;
185 void scope_release(scope_chain_t*) DECLSPEC_HIDDEN;
187 static inline void scope_addref(scope_chain_t *scope)
195 parser_ctx_t *parser;
196 scope_chain_t *scope_chain;
209 static inline void exec_addref(exec_ctx_t *ctx)
214 void exec_release(exec_ctx_t*) DECLSPEC_HIDDEN;
215 HRESULT create_exec_ctx(script_ctx_t*,IDispatch*,jsdisp_t*,scope_chain_t*,BOOL,exec_ctx_t**) DECLSPEC_HIDDEN;
216 HRESULT exec_source(exec_ctx_t*,parser_ctx_t*,source_elements_t*,BOOL,jsexcept_t*,VARIANT*) DECLSPEC_HIDDEN;
218 typedef struct _statement_t statement_t;
219 typedef struct _parameter_t parameter_t;
221 HRESULT create_source_function(parser_ctx_t*,parameter_t*,source_elements_t*,scope_chain_t*,
222 const WCHAR*,DWORD,jsdisp_t**) DECLSPEC_HIDDEN;
248 literal_t *parse_regexp(parser_ctx_t*) DECLSPEC_HIDDEN;
249 literal_t *new_boolean_literal(parser_ctx_t*,VARIANT_BOOL) DECLSPEC_HIDDEN;
251 typedef struct _variable_declaration_t {
252 const WCHAR *identifier;
255 struct _variable_declaration_t *next;
256 } variable_declaration_t;
258 typedef struct _return_type_t return_type_t;
260 typedef HRESULT (*statement_eval_t)(script_ctx_t*,statement_t*,return_type_t*,VARIANT*);
262 struct _statement_t {
263 statement_eval_t eval;
269 statement_t *stat_list;
274 variable_declaration_t *variable_list;
280 } expression_statement_t;
285 statement_t *if_stat;
286 statement_t *else_stat;
293 statement_t *statement;
298 variable_declaration_t *variable_list;
299 expression_t *begin_expr;
301 expression_t *end_expr;
302 statement_t *statement;
307 variable_declaration_t *variable;
309 expression_t *in_expr;
310 statement_t *statement;
315 const WCHAR *identifier;
316 } branch_statement_t;
321 statement_t *statement;
326 const WCHAR *identifier;
327 statement_t *statement;
328 } labelled_statement_t;
330 typedef struct _case_clausule_t {
334 struct _case_clausule_t *next;
340 case_clausule_t *case_list;
341 } switch_statement_t;
344 const WCHAR *identifier;
345 statement_t *statement;
350 statement_t *try_statement;
351 catch_block_t *catch_block;
352 statement_t *finally_statement;
355 HRESULT block_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
356 HRESULT var_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
357 HRESULT empty_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
358 HRESULT expression_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
359 HRESULT if_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
360 HRESULT while_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
361 HRESULT for_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
362 HRESULT forin_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
363 HRESULT continue_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
364 HRESULT break_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
365 HRESULT return_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
366 HRESULT with_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
367 HRESULT labelled_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
368 HRESULT switch_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
369 HRESULT throw_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
370 HRESULT try_statement_eval(script_ctx_t*,statement_t*,return_type_t*,VARIANT*) DECLSPEC_HIDDEN;
449 typedef HRESULT (*expression_eval_t)(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*);
451 struct _expression_t {
452 expression_type_t type;
453 expression_eval_t eval;
457 struct _parameter_t {
458 const WCHAR *identifier;
460 struct _parameter_t *next;
463 struct _source_elements_t {
464 statement_t *statement;
465 statement_t *statement_tail;
466 function_declaration_t *functions;
467 var_list_t *variables;
470 struct _function_expression_t {
472 const WCHAR *identifier;
473 parameter_t *parameter_list;
474 source_elements_t *source_elements;
475 const WCHAR *src_str;
481 expression_t *expression1;
482 expression_t *expression2;
483 } binary_expression_t;
487 expression_t *expression;
488 } unary_expression_t;
492 expression_t *expression;
493 expression_t *true_expression;
494 expression_t *false_expression;
495 } conditional_expression_t;
499 expression_t *member_expr;
500 expression_t *expression;
501 } array_expression_t;
505 expression_t *expression;
506 const WCHAR *identifier;
507 } member_expression_t;
509 typedef struct _argument_t {
512 struct _argument_t *next;
517 expression_t *expression;
518 argument_t *argument_list;
523 const WCHAR *identifier;
524 } identifier_expression_t;
529 } literal_expression_t;
531 typedef struct _array_element_t {
535 struct _array_element_t *next;
540 array_element_t *element_list;
542 } array_literal_expression_t;
544 typedef struct _prop_val_t {
548 struct _prop_val_t *next;
553 prop_val_t *property_list;
554 } property_value_expression_t;
556 HRESULT function_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
557 HRESULT array_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
558 HRESULT member_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
559 HRESULT call_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
560 HRESULT identifier_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
561 HRESULT array_literal_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
562 HRESULT property_value_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
564 HRESULT binary_and_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
565 HRESULT instanceof_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
566 HRESULT delete_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
567 HRESULT typeof_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
568 HRESULT post_increment_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
569 HRESULT post_decrement_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
570 HRESULT pre_increment_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
571 HRESULT pre_decrement_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
572 HRESULT left_shift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
573 HRESULT right_shift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
574 HRESULT right2_shift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
575 HRESULT assign_lshift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
576 HRESULT assign_rshift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
577 HRESULT assign_rrshift_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
578 HRESULT assign_sub_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
579 HRESULT assign_mul_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
580 HRESULT assign_div_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
581 HRESULT assign_mod_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
582 HRESULT assign_and_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
583 HRESULT assign_or_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
584 HRESULT assign_xor_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
586 HRESULT compiled_expression_eval(script_ctx_t*,expression_t*,DWORD,jsexcept_t*,exprval_t*) DECLSPEC_HIDDEN;
588 HRESULT compile_subscript(parser_ctx_t*,expression_t*,unsigned*) DECLSPEC_HIDDEN;