vbscript: Use default object value for objets in stack_pop_val.
[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_AND,
22     EXPR_BOOL,
23     EXPR_CONCAT,
24     EXPR_DIV,
25     EXPR_DOUBLE,
26     EXPR_EMPTY,
27     EXPR_EQUAL,
28     EXPR_EQV,
29     EXPR_EXP,
30     EXPR_IDIV,
31     EXPR_IMP,
32     EXPR_MEMBER,
33     EXPR_MOD,
34     EXPR_MUL,
35     EXPR_NEG,
36     EXPR_NEQUAL,
37     EXPR_NEW,
38     EXPR_NOT,
39     EXPR_NOTHING,
40     EXPR_NULL,
41     EXPR_OR,
42     EXPR_STRING,
43     EXPR_SUB,
44     EXPR_ULONG,
45     EXPR_USHORT,
46     EXPR_XOR
47 } expression_type_t;
48
49 typedef struct _expression_t {
50     expression_type_t type;
51     struct _expression_t *next;
52 } expression_t;
53
54 typedef struct {
55     expression_t expr;
56     VARIANT_BOOL value;
57 } bool_expression_t;
58
59 typedef struct {
60     expression_t expr;
61     LONG value;
62 } int_expression_t;
63
64 typedef struct {
65     expression_t expr;
66     double value;
67 } double_expression_t;
68
69 typedef struct {
70     expression_t expr;
71     const WCHAR *value;
72 } string_expression_t;
73
74 typedef struct {
75     expression_t expr;
76     expression_t *subexpr;
77 } unary_expression_t;
78
79 typedef struct {
80     expression_t expr;
81     expression_t *left;
82     expression_t *right;
83 } binary_expression_t;
84
85 typedef struct {
86     expression_t expr;
87     expression_t *obj_expr;
88     const WCHAR *identifier;
89     expression_t *args;
90 } member_expression_t;
91
92 typedef enum {
93     STAT_ASSIGN,
94     STAT_CALL,
95     STAT_DIM,
96     STAT_EXITFUNC,
97     STAT_EXITPROP,
98     STAT_EXITSUB,
99     STAT_FUNC,
100     STAT_IF,
101     STAT_SET,
102     STAT_STOP
103 } statement_type_t;
104
105 typedef struct _statement_t {
106     statement_type_t type;
107     struct _statement_t *next;
108 } statement_t;
109
110 typedef struct {
111     statement_t stat;
112     member_expression_t *expr;
113 } call_statement_t;
114
115 typedef struct {
116     statement_t stat;
117     member_expression_t *member_expr;
118     expression_t *value_expr;
119 } assign_statement_t;
120
121 typedef struct _dim_decl_t {
122     const WCHAR *name;
123     struct _dim_decl_t *next;
124 } dim_decl_t;
125
126 typedef struct _dim_statement_t {
127     statement_t stat;
128     dim_decl_t *dim_decls;
129 } dim_statement_t;
130
131 typedef struct _arg_decl_t {
132     const WCHAR *name;
133     BOOL by_ref;
134     struct _arg_decl_t *next;
135 } arg_decl_t;
136
137 typedef struct _function_decl_t {
138     const WCHAR *name;
139     function_type_t type;
140     BOOL is_public;
141     arg_decl_t *args;
142     statement_t *body;
143     struct _function_decl_t *next;
144     struct _function_decl_t *next_prop_func;
145 } function_decl_t;
146
147 typedef struct {
148     statement_t stat;
149     function_decl_t *func_decl;
150 } function_statement_t;
151
152 typedef struct _class_prop_decl_t {
153     BOOL is_public;
154     const WCHAR *name;
155     struct _class_prop_decl_t *next;
156 } class_prop_decl_t;
157
158 typedef struct _class_decl_t {
159     const WCHAR *name;
160     function_decl_t *funcs;
161     class_prop_decl_t *props;
162     struct _class_decl_t *next;
163 } class_decl_t;
164
165 typedef struct _elseif_decl_t {
166     expression_t *expr;
167     statement_t *stat;
168     struct _elseif_decl_t *next;
169 } elseif_decl_t;
170
171 typedef struct {
172     statement_t stat;
173     expression_t *expr;
174     statement_t *if_stat;
175     elseif_decl_t *elseifs;
176     statement_t *else_stat;
177 } if_statement_t;
178
179 typedef struct {
180     const WCHAR *code;
181     const WCHAR *ptr;
182     const WCHAR *end;
183
184     BOOL option_explicit;
185     BOOL parse_complete;
186     HRESULT hres;
187
188     int last_token;
189     unsigned last_nl;
190
191     statement_t *stats;
192     statement_t *stats_tail;
193     class_decl_t *class_decls;
194
195     vbsheap_t heap;
196 } parser_ctx_t;
197
198 HRESULT parse_script(parser_ctx_t*,const WCHAR*) DECLSPEC_HIDDEN;
199 void parser_release(parser_ctx_t*) DECLSPEC_HIDDEN;
200 int parser_lex(void*,parser_ctx_t*) DECLSPEC_HIDDEN;
201 void *parser_alloc(parser_ctx_t*,size_t) DECLSPEC_HIDDEN;