2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure
6 * This program 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 2 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, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * See files README, COPYING and CREDITS in the root of the source
23 * tree for related information and legal notices. It is expected
24 * that future projects/authors will amend these files as needed.
28 * nstreval.c: evaluate compiled values
30 * Known contributors to this file:
33 * Markus Armbruster, 2004-2006
47 * If VAL is symbolic, evaluate it into a promoted value type.
48 * Use coordinate system of country CNUM.
49 * PTR points to a context object of the type that was used to compile
51 * Unless WANT is NSC_NOTYPE, coerce the value to promoted value type
52 * WANT. VAL must be coercible. That's the case if a previous
53 * nstr_coerce_val(VAL, WANT, STR) succeeded.
56 nstr_exec_val(struct valstr *val, natid cnum, void *ptr, nsc_type want)
63 switch (val->val_cat) {
68 valtype = val->val_type;
73 memb_ptr += val->val_as.sym.off;
74 idx = val->val_as.sym.idx;
75 switch (val->val_type) {
77 val->val_as.lng = ((signed char *)memb_ptr)[idx];
80 val->val_as.lng = ((unsigned char *)memb_ptr)[idx];
83 val->val_as.lng = ((short *)memb_ptr)[idx];
86 val->val_as.lng = ((unsigned short *)memb_ptr)[idx];
89 val->val_as.lng = ((int *)memb_ptr)[idx];
92 val->val_as.lng = ((long *)memb_ptr)[idx];
95 val->val_as.lng = xrel(getnatp(cnum), ((short *)memb_ptr)[idx]);
98 val->val_as.lng = yrel(getnatp(cnum), ((short *)memb_ptr)[idx]);
101 val->val_as.lng = -1;
102 if (CANT_HAPPEN(((struct natstr *)ptr)->ef_type != EF_NATION))
104 natp = getnatp(cnum);
106 || natp->nat_stat == STAT_GOD
107 || (getcontact(natp, idx) && getcontact(ptr, idx)))
108 val->val_as.lng = ((unsigned char *)memb_ptr)[idx];
111 val->val_as.dbl = ((float *)memb_ptr)[idx];
112 valtype = NSC_DOUBLE;
115 val->val_as.dbl = ((double *)memb_ptr)[idx];
116 valtype = NSC_DOUBLE;
120 val->val_as.str.maxsz = val->val_as.sym.len;
121 val->val_as.str.base = (char *)memb_ptr;
122 valtype = NSC_STRING;
125 val->val_as.str.base = ((char **)memb_ptr)[idx];
126 val->val_as.str.maxsz = INT_MAX;
127 valtype = NSC_STRING;
130 val->val_as.lng = ((time_t *)memb_ptr)[idx];
136 val->val_cat = NSC_VAL;
141 else if (want == NSC_DOUBLE) {
142 if (valtype == NSC_LONG) {
144 val->val_as.dbl = val->val_as.lng;
146 } else if (want == NSC_STRING)
147 CANT_REACH(); /* FIXME implement */
149 if (CANT_HAPPEN(valtype != want && want != NSC_NOTYPE)) {
152 case NSC_LONG: val->val_as.lng = 0; break;
153 case NSC_DOUBLE: val->val_as.dbl = 0.0; break;
154 case NSC_STRING: val->val_as.str.base = NULL; break;
160 val->val_type = valtype;
164 symbol_by_value(int key, struct symbol *table)
168 for (i = 0; table[i].name; i++)
169 if (key == table[i].value)
170 return table[i].name;