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) \
49 X(call, 1, ARG_UINT, ARG_UINT) \
50 X(call_member,1, ARG_UINT, ARG_UINT) \
53 X(double, 1, ARG_SBL, 0) \
58 X(ident, 1, ARG_BSTR, 0) \
59 X(identid, 1, ARG_BSTR, ARG_INT) \
61 X(int, 1, ARG_INT, 0) \
62 X(jmp, 0, ARG_ADDR, 0) \
63 X(jmp_nz, 0, ARG_ADDR, 0) \
64 X(jmp_z, 0, ARG_ADDR, 0) \
67 X(member, 1, ARG_BSTR, 0) \
68 X(memberid, 1, ARG_UINT, 0) \
75 X(new, 1, ARG_INT, 0) \
79 X(regexp, 1, ARG_STR, ARG_INT) \
80 X(str, 1, ARG_STR, 0) \
82 X(throw, 0, ARG_UINT, 0) \
84 X(tree, 1, ARG_EXPR, 0) \
92 #define X(x,a,b,c) OP_##x,
127 unsigned bstr_pool_size
;
131 void release_bytecode(bytecode_t
*);
133 typedef struct _compiler_ctx_t compiler_ctx_t
;
135 void release_compiler(compiler_ctx_t
*);
137 typedef struct _parser_ctx_t
{
144 script_ctx_t
*script
;
145 source_elements_t
*source
;
153 func_stack_t
*func_stack
;
156 compiler_ctx_t
*compiler
;
158 struct _parser_ctx_t
*next
;
161 HRESULT
script_parse(script_ctx_t
*,const WCHAR
*,const WCHAR
*,parser_ctx_t
**) DECLSPEC_HIDDEN
;
162 void parser_release(parser_ctx_t
*) DECLSPEC_HIDDEN
;
164 int parser_lex(void*,parser_ctx_t
*) DECLSPEC_HIDDEN
;
166 static inline void parser_addref(parser_ctx_t
*ctx
)
171 static inline void *parser_alloc(parser_ctx_t
*ctx
, DWORD size
)
173 return jsheap_alloc(&ctx
->heap
, size
);
176 static inline void *parser_alloc_tmp(parser_ctx_t
*ctx
, DWORD size
)
178 return jsheap_alloc(&ctx
->script
->tmp_heap
, size
);
181 typedef struct _scope_chain_t
{
184 struct _scope_chain_t
*next
;
187 HRESULT
scope_push(scope_chain_t
*,jsdisp_t
*,scope_chain_t
**) DECLSPEC_HIDDEN
;
188 void scope_release(scope_chain_t
*) DECLSPEC_HIDDEN
;
190 static inline void scope_addref(scope_chain_t
*scope
)
198 parser_ctx_t
*parser
;
199 scope_chain_t
*scope_chain
;
212 static inline void exec_addref(exec_ctx_t
*ctx
)
217 void exec_release(exec_ctx_t
*) DECLSPEC_HIDDEN
;
218 HRESULT
create_exec_ctx(script_ctx_t
*,IDispatch
*,jsdisp_t
*,scope_chain_t
*,BOOL
,exec_ctx_t
**) DECLSPEC_HIDDEN
;
219 HRESULT
exec_source(exec_ctx_t
*,parser_ctx_t
*,source_elements_t
*,BOOL
,jsexcept_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
221 typedef struct _statement_t statement_t
;
222 typedef struct _parameter_t parameter_t
;
224 HRESULT
create_source_function(parser_ctx_t
*,parameter_t
*,source_elements_t
*,scope_chain_t
*,
225 const WCHAR
*,DWORD
,jsdisp_t
**) DECLSPEC_HIDDEN
;
251 literal_t
*parse_regexp(parser_ctx_t
*) DECLSPEC_HIDDEN
;
252 literal_t
*new_boolean_literal(parser_ctx_t
*,VARIANT_BOOL
) DECLSPEC_HIDDEN
;
254 typedef struct _variable_declaration_t
{
255 const WCHAR
*identifier
;
258 struct _variable_declaration_t
*next
;
259 } variable_declaration_t
;
261 typedef struct _return_type_t return_type_t
;
263 typedef HRESULT (*statement_eval_t
)(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*);
265 struct _statement_t
{
266 statement_eval_t eval
;
272 statement_t
*stat_list
;
277 variable_declaration_t
*variable_list
;
283 } expression_statement_t
;
288 statement_t
*if_stat
;
289 statement_t
*else_stat
;
296 statement_t
*statement
;
301 variable_declaration_t
*variable_list
;
302 expression_t
*begin_expr
;
304 expression_t
*end_expr
;
305 statement_t
*statement
;
310 variable_declaration_t
*variable
;
312 expression_t
*in_expr
;
313 statement_t
*statement
;
318 const WCHAR
*identifier
;
319 } branch_statement_t
;
324 statement_t
*statement
;
329 const WCHAR
*identifier
;
330 statement_t
*statement
;
331 } labelled_statement_t
;
333 typedef struct _case_clausule_t
{
337 struct _case_clausule_t
*next
;
343 case_clausule_t
*case_list
;
344 } switch_statement_t
;
347 const WCHAR
*identifier
;
348 statement_t
*statement
;
353 statement_t
*try_statement
;
354 catch_block_t
*catch_block
;
355 statement_t
*finally_statement
;
358 HRESULT
block_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
359 HRESULT
var_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
360 HRESULT
empty_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
361 HRESULT
expression_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
362 HRESULT
if_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
363 HRESULT
while_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
364 HRESULT
for_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
365 HRESULT
forin_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
366 HRESULT
continue_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
367 HRESULT
break_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
368 HRESULT
return_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
369 HRESULT
with_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
370 HRESULT
labelled_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
371 HRESULT
switch_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
372 HRESULT
throw_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
373 HRESULT
try_statement_eval(script_ctx_t
*,statement_t
*,return_type_t
*,VARIANT
*) DECLSPEC_HIDDEN
;
452 typedef HRESULT (*expression_eval_t
)(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*);
454 struct _expression_t
{
455 expression_type_t type
;
456 expression_eval_t eval
;
460 struct _parameter_t
{
461 const WCHAR
*identifier
;
463 struct _parameter_t
*next
;
466 struct _source_elements_t
{
467 statement_t
*statement
;
468 statement_t
*statement_tail
;
469 function_declaration_t
*functions
;
470 var_list_t
*variables
;
473 struct _function_expression_t
{
475 const WCHAR
*identifier
;
476 parameter_t
*parameter_list
;
477 source_elements_t
*source_elements
;
478 const WCHAR
*src_str
;
484 expression_t
*expression1
;
485 expression_t
*expression2
;
486 } binary_expression_t
;
490 expression_t
*expression
;
491 } unary_expression_t
;
495 expression_t
*expression
;
496 expression_t
*true_expression
;
497 expression_t
*false_expression
;
498 } conditional_expression_t
;
502 expression_t
*member_expr
;
503 expression_t
*expression
;
504 } array_expression_t
;
508 expression_t
*expression
;
509 const WCHAR
*identifier
;
510 } member_expression_t
;
512 typedef struct _argument_t
{
515 struct _argument_t
*next
;
520 expression_t
*expression
;
521 argument_t
*argument_list
;
526 const WCHAR
*identifier
;
527 } identifier_expression_t
;
532 } literal_expression_t
;
534 typedef struct _array_element_t
{
538 struct _array_element_t
*next
;
543 array_element_t
*element_list
;
545 } array_literal_expression_t
;
547 typedef struct _prop_val_t
{
551 struct _prop_val_t
*next
;
556 prop_val_t
*property_list
;
557 } property_value_expression_t
;
559 HRESULT
function_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
560 HRESULT
array_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
561 HRESULT
member_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
562 HRESULT
identifier_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
563 HRESULT
array_literal_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
564 HRESULT
property_value_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
566 HRESULT
binary_and_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
567 HRESULT
instanceof_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
568 HRESULT
delete_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
569 HRESULT
typeof_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
570 HRESULT
post_increment_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
571 HRESULT
post_decrement_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
572 HRESULT
pre_increment_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
573 HRESULT
pre_decrement_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
574 HRESULT
left_shift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
575 HRESULT
right_shift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
576 HRESULT
right2_shift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
577 HRESULT
assign_lshift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
578 HRESULT
assign_rshift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
579 HRESULT
assign_rrshift_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
580 HRESULT
assign_and_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
582 HRESULT
compiled_expression_eval(script_ctx_t
*,expression_t
*,DWORD
,jsexcept_t
*,exprval_t
*) DECLSPEC_HIDDEN
;
584 HRESULT
compile_subscript(parser_ctx_t
*,expression_t
*,BOOL
,unsigned*) DECLSPEC_HIDDEN
;