2 * Copyright (C) 2013 Oracle.
4 * This program is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU General Public License
6 * as published by the Free Software Foundation; either version 2
7 * of the License, or (at your option) any later version.
9 * This program 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
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, see http://www.gnu.org/copyleft/gpl.txt
20 ALLOCATOR(var_sym
, "var_sym structs");
22 struct var_sym
*alloc_var_sym(const char *var
, struct symbol
*sym
)
26 tmp
= __alloc_var_sym(0);
27 tmp
->var
= alloc_string(var
);
32 struct var_sym_list
*expr_to_vsl(struct expression
*expr
)
34 struct expression
*unop
;
35 struct var_sym_list
*ret
= NULL
;
39 expr
= strip_expr(expr
);
43 if ((expr
->type
== EXPR_PREOP
&& expr
->op
== '*') ||
44 expr
->type
== EXPR_DEREF
) {
45 unop
= strip_expr(expr
->unop
);
47 if (unop
->type
== EXPR_SYMBOL
)
49 return expr_to_vsl(unop
);
52 if (expr
->type
== EXPR_BINOP
||
53 expr
->type
== EXPR_LOGICAL
||
54 expr
->type
== EXPR_COMPARE
) {
55 struct var_sym_list
*left
, *right
;
57 left
= expr_to_vsl(expr
->left
);
58 right
= expr_to_vsl(expr
->right
);
59 ret
= combine_var_sym_lists(left
, right
);
60 free_var_syms_and_list(&left
);
61 free_var_syms_and_list(&right
);
66 var
= expr_to_var_sym(expr
, &sym
);
71 add_var_sym(&ret
, var
, sym
);
75 int cmp_var_sym(const struct var_sym
*a
, const struct var_sym
*b
)
86 ret
= strcmp(a
->var
, b
->var
);
92 if (!b
->sym
&& a
->sym
)
94 if (!a
->sym
&& b
->sym
)
104 void add_var_sym(struct var_sym_list
**list
, const char *var
, struct symbol
*sym
)
106 struct var_sym
*tmp
, *new;
108 if (in_var_sym_list(*list
, var
, sym
))
110 new = alloc_var_sym(var
, sym
);
112 FOR_EACH_PTR(*list
, tmp
) {
113 if (cmp_var_sym(tmp
, new) < 0)
115 else if (cmp_var_sym(tmp
, new) == 0) {
118 INSERT_CURRENT(new, tmp
);
121 } END_FOR_EACH_PTR(tmp
);
122 add_ptr_list(list
, new);
125 void add_var_sym_expr(struct var_sym_list
**list
, struct expression
*expr
)
130 var
= expr_to_var_sym(expr
, &sym
);
133 add_var_sym(list
, var
, sym
);
138 static void free_var_sym(struct var_sym
*vs
)
140 free_string(vs
->var
);
144 void del_var_sym(struct var_sym_list
**list
, const char *var
, struct symbol
*sym
)
148 FOR_EACH_PTR(*list
, tmp
) {
149 if (tmp
->sym
== sym
&& strcmp(tmp
->var
, var
) == 0) {
150 DELETE_CURRENT_PTR(tmp
);
154 } END_FOR_EACH_PTR(tmp
);
157 int in_var_sym_list(struct var_sym_list
*list
, const char *var
, struct symbol
*sym
)
161 FOR_EACH_PTR(list
, tmp
) {
162 if (tmp
->sym
== sym
&& strcmp(tmp
->var
, var
) == 0)
164 } END_FOR_EACH_PTR(tmp
);
168 struct var_sym_list
*clone_var_sym_list(struct var_sym_list
*from_vsl
)
170 struct var_sym
*tmp
, *clone_vs
;
171 struct var_sym_list
*to_vsl
= NULL
;
173 FOR_EACH_PTR(from_vsl
, tmp
) {
174 clone_vs
= alloc_var_sym(tmp
->var
, tmp
->sym
);
175 add_ptr_list(&to_vsl
, clone_vs
);
176 } END_FOR_EACH_PTR(tmp
);
180 void merge_var_sym_list(struct var_sym_list
**dest
, struct var_sym_list
*src
)
184 FOR_EACH_PTR(src
, tmp
) {
185 add_var_sym(dest
, tmp
->var
, tmp
->sym
);
186 } END_FOR_EACH_PTR(tmp
);
189 struct var_sym_list
*combine_var_sym_lists(struct var_sym_list
*one
, struct var_sym_list
*two
)
191 struct var_sym_list
*to_vsl
;
193 to_vsl
= clone_var_sym_list(one
);
194 merge_var_sym_list(&to_vsl
, two
);
198 int var_sym_lists_equiv(struct var_sym_list
*one
, struct var_sym_list
*two
)
200 struct var_sym
*one_tmp
, *two_tmp
;
205 if (ptr_list_size((struct ptr_list
*)one
) != ptr_list_size((struct ptr_list
*)two
))
208 PREPARE_PTR_LIST(one
, one_tmp
);
209 PREPARE_PTR_LIST(two
, two_tmp
);
211 if (!one_tmp
&& !two_tmp
)
213 if (one_tmp
->sym
!= two_tmp
->sym
)
215 if (strcmp(one_tmp
->var
, two_tmp
->var
) != 0)
217 NEXT_PTR_LIST(one_tmp
);
218 NEXT_PTR_LIST(two_tmp
);
220 FINISH_PTR_LIST(two_tmp
);
221 FINISH_PTR_LIST(one_tmp
);
226 void free_var_sym_list(struct var_sym_list
**list
)
228 __free_ptr_list((struct ptr_list
**)list
);
231 void free_var_syms_and_list(struct var_sym_list
**list
)
235 FOR_EACH_PTR(*list
, tmp
) {
237 } END_FOR_EACH_PTR(tmp
);
238 free_var_sym_list(list
);