2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2012, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
6 * Empire is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * See files README, COPYING and CREDITS in the root of the source
22 * tree for related information and legal notices. It is expected
23 * that future projects/authors will amend these files as needed.
27 * nstreval.c: evaluate compiled values
29 * Known contributors to this file:
32 * Markus Armbruster, 2004-2008
45 * Initialize VAL to symbolic value for selector CA with index IDX.
49 nstr_mksymval(struct valstr *val, struct castr *ca, int idx)
51 val->val_type = ca->ca_type;
52 val->val_cat = NSC_OFF;
53 val->val_as.sym.off = ca->ca_off;
54 val->val_as.sym.len = ca->ca_len;
55 val->val_as.sym.idx = idx;
56 val->val_as.sym.get = ca->ca_get;
62 * If VAL is symbolic, evaluate it into a promoted value type.
63 * Translate it for country CNUM (coordinate system and contact
64 * status), except when CNUM is NATID_BAD.
65 * PTR points to a context object of the type that was used to compile
67 * Unless WANT is NSC_NOTYPE, coerce the value to promoted value type
68 * WANT. VAL must be coercible.
71 nstr_exec_val(struct valstr *val, natid cnum, void *ptr, enum nsc_type want)
74 enum nsc_type valtype;
79 if (CANT_HAPPEN(want != NSC_NOTYPE && !NSC_IS_PROMOTED(want)))
80 want = nstr_promote(want);
82 switch (val->val_cat) {
84 valtype = val->val_type;
87 if (val->val_as.sym.get) {
90 ptr = val->val_as.sym.get(val, natp, ptr);
91 } while (ptr && val->val_as.sym.get);
93 valtype = val->val_type;
94 val->val_cat = NSC_VAL;
101 memb_ptr += val->val_as.sym.off;
102 idx = val->val_as.sym.idx;
103 switch (val->val_type) {
105 val->val_as.lng = ((signed char *)memb_ptr)[idx];
108 val->val_as.lng = ((unsigned char *)memb_ptr)[idx];
111 val->val_as.lng = ((short *)memb_ptr)[idx];
114 val->val_as.lng = ((unsigned short *)memb_ptr)[idx];
117 val->val_as.lng = ((int *)memb_ptr)[idx];
120 val->val_as.lng = ((long *)memb_ptr)[idx];
123 c = ((short *)memb_ptr)[idx];
124 if (cnum == NATID_BAD) {
125 /* FIXME use variant of xrel() that takes orig instead of nation */
126 if (c >= WORLD_X / 2)
129 c = xrel(getnatp(cnum), c);
133 c = ((short *)memb_ptr)[idx];
134 if (cnum == NATID_BAD) {
135 /* FIXME use variant of yrel() that takes orig instead of nation */
136 if (c >= WORLD_Y / 2)
139 c = yrel(getnatp(cnum), c);
143 val->val_as.lng = -1;
144 if (CANT_HAPPEN(((struct natstr *)ptr)->ef_type != EF_NATION))
146 if (opt_HIDDEN && cnum != NATID_BAD) {
147 natp = getnatp(cnum);
148 if (natp->nat_stat != STAT_GOD
149 && !(getcontact(natp, idx) && getcontact(ptr, idx)))
152 val->val_as.lng = ((unsigned char *)memb_ptr)[idx];
155 val->val_as.dbl = ((float *)memb_ptr)[idx];
156 valtype = NSC_DOUBLE;
159 val->val_as.dbl = ((double *)memb_ptr)[idx];
160 valtype = NSC_DOUBLE;
164 val->val_as.str.maxsz = val->val_as.sym.len;
165 val->val_as.str.base = (char *)memb_ptr;
166 valtype = NSC_STRING;
169 val->val_as.str.base = ((char **)memb_ptr)[idx];
170 val->val_as.str.maxsz = INT_MAX;
171 valtype = NSC_STRING;
174 val->val_as.lng = ((time_t *)memb_ptr)[idx];
180 val->val_cat = NSC_VAL;
184 valtype = NSC_NOTYPE;
190 else if (want == NSC_DOUBLE) {
191 if (valtype == NSC_LONG) {
193 val->val_as.dbl = val->val_as.lng;
197 if (CANT_HAPPEN(valtype != want && want != NSC_NOTYPE)) {
198 /* make up an error value */
200 memset(&val->val_as, 0, sizeof(val->val_as));
203 val->val_type = valtype;
209 * If VALTYPE is an integer type, return NSC_LONG.
210 * If VALTYPE is a floating-point type, return NSC_DOUBLE.
211 * If VALTYPE is a string type, return NSC_STRING.
214 nstr_promote(int valtype)
233 valtype = NSC_DOUBLE;
236 valtype = NSC_STRING;
240 valtype = NSC_NOTYPE;
246 symbol_by_value(int key, struct symbol *table)
250 for (i = 0; table[i].name; i++)
251 if (key == table[i].value)
252 return table[i].name;