vbscript: Added Exit Function statement implementation.
[wine] / dlls / vbscript / parse.h
1 /*
2  * Copyright 2011 Jacek Caban for CodeWeavers
3  *
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.
8  *
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.
13  *
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
17  */
18
19 typedef enum {
20     EXPR_ADD,
21     EXPR_BOOL,
22     EXPR_CONCAT,
23     EXPR_DIV,
24     EXPR_DOUBLE,
25     EXPR_EMPTY,
26     EXPR_EQUAL,
27     EXPR_EXP,
28     EXPR_IDIV,
29     EXPR_MEMBER,
30     EXPR_MOD,
31     EXPR_MUL,
32     EXPR_NEG,
33     EXPR_NEQUAL,
34     EXPR_NOT,
35     EXPR_NULL,
36     EXPR_STRING,
37     EXPR_SUB,
38     EXPR_ULONG,
39     EXPR_USHORT
40 } expression_type_t;
41
42 typedef struct _expression_t {
43     expression_type_t type;
44     struct _expression_t *next;
45 } expression_t;
46
47 typedef struct {
48     expression_t expr;
49     VARIANT_BOOL value;
50 } bool_expression_t;
51
52 typedef struct {
53     expression_t expr;
54     LONG value;
55 } int_expression_t;
56
57 typedef struct {
58     expression_t expr;
59     double value;
60 } double_expression_t;
61
62 typedef struct {
63     expression_t expr;
64     const WCHAR *value;
65 } string_expression_t;
66
67 typedef struct {
68     expression_t expr;
69     expression_t *subexpr;
70 } unary_expression_t;
71
72 typedef struct {
73     expression_t expr;
74     expression_t *left;
75     expression_t *right;
76 } binary_expression_t;
77
78 typedef struct {
79     expression_t expr;
80     expression_t *obj_expr;
81     const WCHAR *identifier;
82     expression_t *args;
83 } member_expression_t;
84
85 typedef enum {
86     STAT_ASSIGN,
87     STAT_CALL,
88     STAT_DIM,
89     STAT_EXITFUNC,
90     STAT_EXITSUB,
91     STAT_FUNC,
92     STAT_IF
93 } statement_type_t;
94
95 typedef struct _statement_t {
96     statement_type_t type;
97     struct _statement_t *next;
98 } statement_t;
99
100 typedef struct {
101     statement_t stat;
102     member_expression_t *expr;
103 } call_statement_t;
104
105 typedef struct {
106     statement_t stat;
107     member_expression_t *member_expr;
108     expression_t *value_expr;
109 } assign_statement_t;
110
111 typedef struct _dim_decl_t {
112     const WCHAR *name;
113     struct _dim_decl_t *next;
114 } dim_decl_t;
115
116 typedef struct _dim_statement_t {
117     statement_t stat;
118     dim_decl_t *dim_decls;
119 } dim_statement_t;
120
121 typedef struct _arg_decl_t {
122     const WCHAR *name;
123     BOOL by_ref;
124     struct _arg_decl_t *next;
125 } arg_decl_t;
126
127 typedef struct _function_decl_t {
128     const WCHAR *name;
129     function_type_t type;
130     arg_decl_t *args;
131     statement_t *body;
132     struct _function_decl_t *next;
133 } function_decl_t;
134
135 typedef struct _function_statement_t {
136     statement_t stat;
137     function_decl_t *func_decl;
138 } function_statement_t;
139
140 typedef struct _elseif_decl_t {
141     expression_t *expr;
142     statement_t *stat;
143     struct _elseif_decl_t *next;
144 } elseif_decl_t;
145
146 typedef struct {
147     statement_t stat;
148     expression_t *expr;
149     statement_t *if_stat;
150     elseif_decl_t *elseifs;
151     statement_t *else_stat;
152 } if_statement_t;
153
154 typedef struct {
155     const WCHAR *code;
156     const WCHAR *ptr;
157     const WCHAR *end;
158
159     BOOL option_explicit;
160     BOOL parse_complete;
161     HRESULT hres;
162
163     int last_token;
164     unsigned last_nl;
165
166     statement_t *stats;
167     statement_t *stats_tail;
168
169     vbsheap_t heap;
170 } parser_ctx_t;
171
172 HRESULT parse_script(parser_ctx_t*,const WCHAR*) DECLSPEC_HIDDEN;
173 void parser_release(parser_ctx_t*) DECLSPEC_HIDDEN;
174 int parser_lex(void*,parser_ctx_t*) DECLSPEC_HIDDEN;
175 void *parser_alloc(parser_ctx_t*,size_t) DECLSPEC_HIDDEN;