Mercurial > hg-old > index.cgi

annotate lwasm/lwval.c @ 218:03044871c575

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a stupid regression with forced included library files
author lost
date Sat, 25 Apr 2009 02:14:12 +0000
parents bae1e3ecdce1
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
1 /*
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
2 lwval.c
13
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
3 Copyright © 2008 William Astle
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
4
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
5 This file is part of LWASM.
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
6
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
7 LWASM is free software: you can redistribute it and/or modify it under the
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
8 terms of the GNU General Public License as published by the Free Software
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
9 Foundation, either version 3 of the License, or (at your option) any later
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
10 version.
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
11
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
12 This program is distributed in the hope that it will be useful, but WITHOUT
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
15 more details.
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
16
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
17 You should have received a copy of the GNU General Public License along with
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
18 this program. If not, see <http://www.gnu.org/licenses/>.
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
19 */
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
20
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
21 /*
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
22 This file contains implementations associated with the expression evaluator
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
23 used by LWASM.
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
24
05d4115b4860 Started work on new expression evaluator system and major code re-work for next release
lost
parents:
diff changeset
25 */
212
bae1e3ecdce1 More preparation for gnulib integration
lost
parents: 151
diff changeset
26 #include <config.h>
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
27
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
28 #include <malloc.h>
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
29
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
30 #define __lwval_c_seen__
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
31 #include "lwval.h"
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
32
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
33 LWVAL *lwval_construct_int(int value)
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
34 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
35 LWVAL *v;
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
36
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
37 v = malloc(sizeof(LWVAL));
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
38 if (!v)
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
39 return NULL;
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
40
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
41 v -> lwval_type = LWVAL_TYPE_INT;
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
42 v -> dt.lwval_int = value;
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
43
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
44 return v;
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
45 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
46
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
47 LWVAL *lwval_construct_err(int errno)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
48 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
49 LWVAL *v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
50
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
51 v = malloc(sizeof(LWVAL));
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
52 if (!v)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
53 return NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
54
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
55 v -> lwval_type = LWVAL_TYPE_ERR;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
56 v -> dt.lwval_int = errno;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
57
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
58 return v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
59 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
60
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
61 LWVAL *lwval_construct_nan(void)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
62 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
63 LWVAL *v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
64
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
65 v = malloc(sizeof(LWVAL));
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
66 if (!v)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
67 return NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
68
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
69 v -> lwval_type = LWVAL_TYPE_NAN;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
70
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
71 return v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
72 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
73
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
74 LWVAL *lwval_construct_undef(void)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
75 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
76 LWVAL *v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
77
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
78 v = malloc(sizeof(LWVAL));
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
79 if (!v)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
80 return NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
81
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
82 v -> lwval_type = LWVAL_TYPE_UNDEF;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
83
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
84 return v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
85 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
86
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
87 LWVAL *lwval_construct_expr(LWVAL *v1, LWVAL *v2, int op)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
88 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
89 LWVAL *v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
90 v = malloc(sizeof(LWVAL));
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
91 if (!v)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
92 return NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
93
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
94 v -> lwval_type = LWVAL_TYPE_EXPR;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
95 v -> dt.expr.v1 = v1;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
96 v -> dt.expr.v2 = v2;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
97 v -> dt.expr.op = op;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
98 return v;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
99 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
100
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
101 void lwval_destroy(LWVAL *value)
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
102 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
103 if (value)
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
104 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
105 lwval_clear(value);
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
106 free(value);
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
107 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
108 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
109
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
110 // performs a deep copy of an LWVAL, including ALL referenced values
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
111 void lwval_dup(LWVAL *v1, LWVAL *v2)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
112 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
113 lwval_clear(v2);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
114
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
115 switch (v1 -> lwval_type)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
116 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
117 case LWVAL_TYPE_INT:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
118 case LWVAL_TYPE_ERR:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
119 v2 -> dt.lwval_int = v1 -> dt.lwval_int;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
120 break;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
121
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
122 case LWVAL_TYPE_EXPR:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
123 v2 -> dt.expr.op = v1 -> dt.expr.op;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
124 if (v1 -> dt.expr.v1)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
125 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
126 v2 -> dt.expr.v1 = lwval_construct_undef();
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
127 lwval_dup(v1 -> dt.expr.v1, v2 -> dt.expr.v1);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
128 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
129 else
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
130 v2 -> dt.expr.v1 = NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
131 if (v1 -> dt.expr.v2)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
132 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
133 v2 -> dt.expr.v2 = lwval_construct_undef();
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
134 lwval_dup(v1 -> dt.expr.v2, v2 -> dt.expr.v2);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
135 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
136 else
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
137 v2 -> dt.expr.v2 = NULL;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
138 break;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
139 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
140
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
141 v2 -> lwval_type = v1 -> lwval_type;
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
142 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
143
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
144 void lwval_clear(LWVAL *value)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
145 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
146 switch (value -> lwval_type)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
147 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
148 case LWVAL_TYPE_EXPR:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
149 lwval_destroy(value -> dt.expr.v1);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
150 lwval_destroy(value -> dt.expr.v2);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
151 break;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
152 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
153 value -> lwval_type = LWVAL_TYPE_UNDEF;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
154 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
155
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
156 // for integer, simply negate value
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
157 // for expr, change to "-1 * (expr)"
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
158 // everything else: error
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
159 LWVAL *lwval_neg(LWVAL *v1)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
160 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
161 switch (v1 -> lwval_type)
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
162 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
163 case LWVAL_TYPE_INT:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
164 v1 -> dt.lwval_int = -(v1 -> dt.lwval_int);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
165 break;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
166
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
167 case LWVAL_TYPE_EXPR:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
168 {
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
169 LWVAL *v, *v2;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
170 v = lwval_construct_undef();
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
171 lwval_dup(v1, v);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
172 lwval_clear(v1);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
173 v2 = lwval_construct_expr(lwval_construct_int(-1), v, '*');
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
174 lwval_dup(v2, v1);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
175 lwval_destroy(v2);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
176 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
177 break;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
178
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
179 default:
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
180 lwval_clear(v1);
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
181 v1 -> lwval_type = LWVAL_TYPE_ERR;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
182 v1 -> dt.lwval_int = 1;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
183 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
184
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
185 return v1;
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
186 }
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
187
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
188 // v1 + v2 -> v1
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
189 LWVAL *lwval_add(LWVAL *v1, LWVAL *v2)
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
190 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
191 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
192
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
193 // v1 - v2 -> v1
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
194 LWVAL *lwval_sub(LWVAL *v1, LWVAL *v2)
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
195 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
196 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
197
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
198 // v1 * v2 -> v1
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
199 LWVAL *lwval_mul(LWVAL *v1, LWVAL *v2)
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
200 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
201 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
202
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
203 // v1 / v2 -> v1
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
204 LWVAL *lwval_div(LWVAL *v1, LWVAL *v2)
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
205 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
206 }
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
207
15
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
208 // v1 % v2 -> v1
1f598d89b9b0 Started creating expression parser
lost
parents: 14
diff changeset
209 LWVAL *lwval_mod(LWVAL *v1, LWVAL *v2)
14
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
210 {
b28d7cb60779 checkpoint
lost
parents: 13
diff changeset
211 }