2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2018, 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-2016
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;
57 val->val_as.sym.hidden = ca->ca_flags & NSC_HIDDEN;
63 * If @val has category NSC_OFF, read the value from the context object
64 * @ptr, and translate it for country @cnum (coordinate system and
65 * contact status). No translation when @cnum is NATID_BAD.
66 * @ptr points to a context object of the type that was used to compile
68 * Unless @want is NSC_NOTYPE, coerce the value to promoted value type
69 * @want. @val must be coercible.
70 * The result's type is promoted on success, NSC_NOTYPE on error.
71 * In either case, the category is NSC_VAL.
75 nstr_eval(struct valstr *val, natid cnum, void *ptr, enum nsc_type want)
78 enum nsc_type valtype;
82 struct relatstr *relp;
84 if (CANT_HAPPEN(want != NSC_NOTYPE && !NSC_IS_PROMOTED(want)))
85 want = nstr_promote(want);
87 switch (val->val_cat) {
89 valtype = val->val_type;
90 if (CANT_HAPPEN(!NSC_IS_PROMOTED(valtype)))
91 valtype = nstr_promote(valtype);
94 if (val->val_as.sym.get) {
97 ptr = val->val_as.sym.get(val, natp, ptr);
98 } while (ptr && val->val_as.sym.get);
100 valtype = val->val_type;
101 val->val_cat = NSC_VAL;
108 memb_ptr += val->val_as.sym.off;
109 idx = val->val_as.sym.idx;
110 hidden = val->val_as.sym.hidden;
111 val->val_cat = NSC_VAL;
112 switch (val->val_type) {
114 val->val_as.lng = ((signed char *)memb_ptr)[idx];
117 val->val_as.lng = ((unsigned char *)memb_ptr)[idx];
120 val->val_as.lng = ((short *)memb_ptr)[idx];
123 val->val_as.lng = ((unsigned short *)memb_ptr)[idx];
126 val->val_as.lng = ((int *)memb_ptr)[idx];
129 val->val_as.lng = ((long *)memb_ptr)[idx];
132 c = ((short *)memb_ptr)[idx];
133 if (cnum == NATID_BAD) {
134 /* FIXME use variant of xrel() that takes orig instead of nation */
135 if (c >= WORLD_X / 2)
138 c = xrel(getnatp(cnum), c);
142 c = ((short *)memb_ptr)[idx];
143 if (cnum == NATID_BAD) {
144 /* FIXME use variant of yrel() that takes orig instead of nation */
145 if (c >= WORLD_Y / 2)
148 c = yrel(getnatp(cnum), c);
152 val->val_as.dbl = ((float *)memb_ptr)[idx];
153 valtype = NSC_DOUBLE;
156 val->val_as.dbl = ((double *)memb_ptr)[idx];
157 valtype = NSC_DOUBLE;
161 val->val_as.str.maxsz = val->val_as.sym.len;
162 val->val_as.str.base = (char *)memb_ptr;
163 valtype = NSC_STRING;
166 val->val_as.str.base = ((char **)memb_ptr)[idx];
167 val->val_as.str.maxsz = INT_MAX;
168 /* really SIZE_MAX, but that's C99 */
169 valtype = NSC_STRING;
172 val->val_as.lng = ((time_t *)memb_ptr)[idx];
176 valtype = NSC_NOTYPE;
180 if (CANT_HAPPEN(hidden && valtype != NSC_LONG))
181 break; /* not implemented */
183 if (CANT_HAPPEN(relp->ef_type != EF_RELAT))
184 break; /* only defined for nation selectors */
185 if (!opt_HIDDEN || cnum == NATID_BAD
186 || getnatp(cnum)->nat_stat == STAT_GOD)
188 if (!in_contact(cnum, idx) || !in_contact(relp->rel_uid, idx))
189 val->val_as.lng = -1;
194 valtype = NSC_NOTYPE;
200 else if (want == NSC_DOUBLE) {
201 if (valtype == NSC_LONG) {
203 val->val_as.dbl = val->val_as.lng;
207 if (CANT_HAPPEN(valtype != want && want != NSC_NOTYPE))
208 valtype = NSC_NOTYPE;
210 val->val_type = valtype;
216 * If @valtype is an integer type, return NSC_LONG.
217 * If @valtype is a floating-point type, return NSC_DOUBLE.
218 * If @valtype is a string type, return NSC_STRING.
221 nstr_promote(int valtype)
239 valtype = NSC_DOUBLE;
242 valtype = NSC_STRING;
246 valtype = NSC_NOTYPE;
252 symbol_by_value(int key, struct symbol *table)
256 for (i = 0; table[i].name; i++)
257 if (key == table[i].value)
258 return table[i].name;
264 symbol_set_fmt(char *buf, size_t sz, int flags, struct symbol symtab[],
274 for (i = 0; i < 32; i++) {
275 if (!(flags & bit(i)))
277 p = symbol_by_value(bit(i), symtab);
279 n += snprintf(buf + n, sz - n, "%s%s", pfx, p);
281 n += snprintf(buf + n, sz - n, "%s#%d", pfx, i);
287 CANT_HAPPEN((size_t)n >= sz && buf);