733e446be22c41cec23e2b32bbd7e7de4f0ade41
[empserver] / src / lib / common / nsc.c
1 /*
2  *  Empire - A multi-player, client/server Internet based war game.
3  *  Copyright (C) 1986-2021, Dave Pare, Jeff Bailey, Thomas Ruschak,
4  *                Ken Stevens, Steve McClure, Markus Armbruster
5  *
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.
10  *
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.
15  *
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/>.
18  *
19  *  ---
20  *
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.
24  *
25  *  ---
26  *
27  *  nsc.c: Empire selection global structures
28  *
29  *  Known contributors to this file:
30  *     Markus Armbruster, 2004-2020
31  */
32
33 /*
34  * Convention: uid selector comes first.  Table TYPE has an uid
35  * selector if empfile[TYPE].cadef[0].ca_table == TYPE.
36  */
37
38 #include <config.h>
39
40 #include <limits.h>
41 #include <stdlib.h>
42 #include "empobj.h"
43 #include "optlist.h"
44 #include "news.h"
45 #include "nsc.h"
46 #include "product.h"
47 #include "unit.h"
48 #include "version.h"
49
50 static void *nsc_ver(struct valstr *, struct natstr *, void *);
51 static void *nsc_ver_maxnoc(struct valstr *, struct natstr *, void *);
52 static void *nsc_ver_version(struct valstr *, struct natstr *, void *);
53 static void *nsc_sct_terr(struct valstr *, struct natstr *, void *);
54 static void *nsc_sct_track(struct valstr *, struct natstr *, void *);
55 static void *nsc_cargo_nplane(struct valstr *, struct natstr *, void *);
56 static void *nsc_cargo_nchopper(struct valstr *, struct natstr *, void *);
57 static void *nsc_cargo_nxlight(struct valstr *, struct natstr *, void *);
58 static void *nsc_cargo_nland(struct valstr *, struct natstr *, void *);
59 static void *nsc_pln_att(struct valstr *, struct natstr *, void *);
60 static void *nsc_pln_def(struct valstr *, struct natstr *, void *);
61 static void *nsc_pln_nuketype(struct valstr *, struct natstr *, void *);
62 static void *nsc_lnd_att(struct valstr *, struct natstr *, void *);
63 static void *nsc_lnd_def(struct valstr *, struct natstr *, void *);
64 static void *nsc_lnd_vul(struct valstr *, struct natstr *, void *);
65 static void *nsc_lnd_spd(struct valstr *, struct natstr *, void *);
66 static void *nsc_lnd_vis(struct valstr *, struct natstr *, void *);
67 static void *nsc_lnd_frg(struct valstr *, struct natstr *, void *);
68 static void *nsc_lnd_acc(struct valstr *, struct natstr *, void *);
69 static void *nsc_lnd_dam(struct valstr *, struct natstr *, void *);
70 static void *nsc_lnd_aaf(struct valstr *, struct natstr *, void *);
71 static void *nsc_lchr(struct valstr *, struct natstr *, void *);
72 static void *nsc_nws_timestamp(struct valstr *, struct natstr *, void *);
73 static void *nsc_meta_type(struct valstr *, struct natstr *, void *);
74 static void *nsc_meta_len(struct valstr *, struct natstr *, void *);
75
76 /* Ugly hacks to avoid illegibly long lines */
77 #define fldoff(fld) offsetof(CURSTR, fld)
78 #define empobjoff(fld) offsetof(struct empobj, fld)
79
80 #define NSC_IELT(name, pfx, sfx, base, itype)   \
81     {sizeof(sfx) == 1 ? name : pfx sfx,         \
82      ((base) + (itype)*sizeof(short)),          \
83      NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP}
84
85 #define NSC_IVEC(base, sfx)                     \
86 NSC_IELT("civil", "c", sfx, base, I_CIVIL),     \
87 NSC_IELT("milit", "m", sfx, base, I_MILIT),     \
88 NSC_IELT("shell", "s", sfx, base, I_SHELL),     \
89 NSC_IELT("gun", "g", sfx, base, I_GUN),         \
90 NSC_IELT("petrol", "p", sfx, base, I_PETROL),   \
91 NSC_IELT("iron", "i", sfx, base, I_IRON),       \
92 NSC_IELT("dust", "d", sfx, base, I_DUST),       \
93 NSC_IELT("bar", "b", sfx, base, I_BAR),         \
94 NSC_IELT("food", "f", sfx, base, I_FOOD),       \
95 NSC_IELT("oil", "o", sfx, base, I_OIL),         \
96 NSC_IELT("lcm", "l", sfx, base, I_LCM),         \
97 NSC_IELT("hcm", "h", sfx, base, I_HCM),         \
98 NSC_IELT("uw", "u", sfx, base, I_UW),           \
99 NSC_IELT("rad", "r", sfx, base, I_RAD)
100
101 #define NSC_MELT(name, base, itype, flags, dump)        \
102     {(name), ((base) + (itype)*sizeof(short)),          \
103      NSC_SHORT, 0, NULL, EF_BAD, (flags), (dump) }
104
105 #define NSC_MVEC(base, mil_dump, oil_dump, rad_dump)    \
106 NSC_MELT("c_build", base, I_CIVIL, 0, CA_DUMP_ONLY),    \
107 NSC_MELT("m_build", base, I_MILIT, 0, mil_dump),        \
108 NSC_MELT("s_build", base, I_SHELL, 0, CA_DUMP_ONLY),    \
109 NSC_MELT("g_build", base, I_GUN, 0, CA_DUMP_ONLY),      \
110 NSC_MELT("p_build", base, I_PETROL, 0, CA_DUMP_ONLY),   \
111 NSC_MELT("i_build", base, I_IRON, 0, CA_DUMP_ONLY),     \
112 NSC_MELT("d_build", base, I_DUST, 0, CA_DUMP_ONLY),     \
113 NSC_MELT("b_build", base, I_BAR, 0, CA_DUMP_ONLY),      \
114 NSC_MELT("f_build", base, I_FOOD, 0, CA_DUMP_ONLY),     \
115 NSC_MELT("o_build", base, I_OIL, 0, oil_dump),          \
116 NSC_MELT("l_build", base, I_LCM, 0, CA_DUMP),           \
117 NSC_MELT("h_build", base, I_HCM, 0, CA_DUMP),           \
118 NSC_MELT("u_build", base, I_UW, 0, CA_DUMP_ONLY),       \
119 NSC_MELT("r_build", base, I_RAD, 0, rad_dump)
120
121 struct castr ichr_ca[] = {
122 #define CURSTR struct ichrstr
123     {"uid", fldoff(i_uid), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
124      CA_DUMP},
125     {"name", fldoff(i_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
126     {"mnem", fldoff(i_mnem), NSC_STRINGY, 1, NULL, EF_BAD, 0,
127      CA_DUMP_CONST},
128     {"power", fldoff(i_power), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
129     {"sell", fldoff(i_sell), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
130     {"lbs", fldoff(i_lbs), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
131     {"pkg", fldoff(i_pkg), NSC_INT, NUMPKG, NULL, EF_BAD, 0, CA_DUMP},
132     {"melt_denom", fldoff(i_melt_denom), NSC_INT, 0, NULL, EF_BAD, 0,
133      CA_DUMP},
134     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
135 #undef CURSTR
136 };
137
138 struct castr pchr_ca[] = {
139 #define CURSTR struct pchrstr
140     {"uid", fldoff(p_uid), NSC_INT, 0, NULL, EF_PRODUCT, 0, CA_DUMP},
141     {"name", fldoff(p_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
142     {"sname", fldoff(p_sname), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
143     {"ctype", fldoff(p_ctype), NSC_SITYPE(i_type), MAXPRCON, NULL,
144      EF_ITEM, 0, CA_DUMP},
145     {"camt", fldoff(p_camt), NSC_USHORT, MAXPRCON, NULL, EF_BAD, 0,
146      CA_DUMP},
147     {"type", fldoff(p_type), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
148      CA_DUMP},
149     {"level", fldoff(p_level), NSC_INT, 0, NULL, EF_LEVEL, 0, CA_DUMP},
150     {"cost", fldoff(p_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
151     {"nrndx", fldoff(p_nrndx), NSC_INT, 0, NULL, EF_RESOURCES, 0, CA_DUMP},
152     {"nrdep", fldoff(p_nrdep), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
153     {"nlndx", fldoff(p_nlndx), NSC_INT, 0, NULL, EF_LEVEL, 0, CA_DUMP},
154     {"nlmin", fldoff(p_nlmin), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
155     {"nllag", fldoff(p_nllag), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
156     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
157 #undef CURSTR
158 };
159
160 struct castr sect_ca[] = {
161 #define CURSTR struct sctstr
162     /* uid needs to be NSC_DEITY because it discloses true origin */
163     {"uid", fldoff(sct_uid), NSC_INT, 0, NULL,
164      EF_SECTOR, NSC_DEITY, CA_DUMP_NONE},
165     {"timestamp", fldoff(sct_timestamp), NSC_TIME, 0, NULL,
166      EF_BAD, 0, CA_DUMP_NONE},
167     {"owner", fldoff(sct_own), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
168     {"xloc", fldoff(sct_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
169     {"yloc", fldoff(sct_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
170     {"des", fldoff(sct_type), NSC_CHAR, 0, NULL, EF_SECTOR_CHR, 0,
171      CA_DUMP},
172     {"effic", fldoff(sct_effic), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
173     {"mobil", fldoff(sct_mobil), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
174     {"off", fldoff(sct_off), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
175     {"loyal", fldoff(sct_loyal), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
176      CA_DUMP},
177     {"terr", 0, NSC_UCHAR, 0, nsc_sct_terr, EF_BAD, 0, CA_DUMP_NONE},
178     {"terr0", fldoff(sct_terr), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
179     {"terr1", fldoff(sct_terr1), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
180     {"terr2", fldoff(sct_terr2), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
181     {"terr3", fldoff(sct_terr3), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
182     {"dterr", fldoff(sct_dterr), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
183      CA_DUMP},
184     {"xdist", fldoff(sct_dist_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
185     {"ydist", fldoff(sct_dist_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
186     {"avail", fldoff(sct_avail), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
187     {"elev", fldoff(sct_elev), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
188      CA_DUMP},
189     {"work", fldoff(sct_work), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
190     {"coastal", fldoff(sct_coastal), NSC_UCHAR, 0, NULL, EF_BAD, 0,
191      CA_DUMP},
192     {"newdes", fldoff(sct_newtype), NSC_CHAR, 0, NULL, EF_SECTOR_CHR, 0,
193      CA_DUMP},
194     {"min", fldoff(sct_min), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
195     {"gold", fldoff(sct_gmin), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
196     {"fert", fldoff(sct_fertil), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
197     {"ocontent", fldoff(sct_oil), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
198     {"uran", fldoff(sct_uran), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
199     {"oldown", fldoff(sct_oldown), NSC_NATID, 0, NULL, EF_NATION, 0,
200      CA_DUMP},
201     {"track", 0, NSC_LONG, 0, nsc_sct_track, EF_BAD, 0, CA_DUMP_NONE},
202     NSC_IVEC(fldoff(sct_item), ""),
203     NSC_IVEC(fldoff(sct_dist), "_dist"),
204     NSC_IVEC(fldoff(sct_del), "_del"),
205     /* should let old owner access mines, but can't express that: */
206     {"mines", fldoff(sct_mines), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
207      CA_DUMP},
208     {"pstage", fldoff(sct_pstage), NSC_SHORT, 0, NULL,
209      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
210     {"ptime", fldoff(sct_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
211      CA_DUMP},
212     {"che", fldoff(sct_che), NSC_UCHAR, 0, NULL, EF_BAD, NSC_DEITY,
213      CA_DUMP},
214     {"che_target", fldoff(sct_che_target), NSC_NATID, 0, NULL,
215      EF_NATION, NSC_DEITY, CA_DUMP},
216     {"fallout", fldoff(sct_fallout), NSC_USHORT, 0, NULL, EF_BAD, 0,
217      CA_DUMP},
218     {"access", fldoff(sct_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
219     {"road", fldoff(sct_road), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
220     {"rail", fldoff(sct_rail), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
221     {"dfense", fldoff(sct_defense), NSC_UCHAR, 0, NULL, EF_BAD, 0,
222      CA_DUMP},
223     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
224 #undef CURSTR
225 };
226
227 struct castr dchr_ca[] = {
228 #define CURSTR struct dchrstr
229     {"uid", fldoff(d_uid), NSC_UCHAR, 0, NULL, EF_SECTOR_CHR, 0, CA_DUMP},
230     {"name", fldoff(d_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
231     {"mnem", fldoff(d_mnem), NSC_STRINGY, 1, NULL, EF_BAD, 0,
232      CA_DUMP_CONST},
233     {"terrain", fldoff(d_terrain), NSC_UCHAR, 0, NULL, EF_SECTOR_CHR, 0,
234      CA_DUMP},
235     {"prd", fldoff(d_prd), NSC_INT, 0, NULL, EF_PRODUCT, 0, CA_DUMP},
236     {"peffic", fldoff(d_peffic), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
237     {"mob0", fldoff(d_mob0), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
238     {"mob1", fldoff(d_mob1), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
239     {"nav", fldoff(d_nav), NSC_SITYPE(enum d_navigation), 0, NULL,
240      EF_SECTOR_NAVIGATION, 0, CA_DUMP},
241     {"pkg", fldoff(d_pkg), NSC_SITYPE(enum i_packing), 0, NULL,
242      EF_PACKING, 0, CA_DUMP},
243     {"ostr", fldoff(d_ostr), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
244     {"dstr", fldoff(d_dstr), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
245     NSC_MVEC(fldoff(d_mat), CA_DUMP_ONLY, CA_DUMP_ONLY, CA_DUMP_ONLY),
246     {"bwork", fldoff(d_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
247     {"cost", fldoff(d_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
248     {"maint", fldoff(d_maint), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
249     {"maxpop", fldoff(d_maxpop), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
250     {"flags", fldoff(d_flags), NSC_INT, 0, NULL,
251      EF_SECTOR_CHR_FLAGS, NSC_BITS, CA_DUMP},
252     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
253 #undef CURSTR
254 };
255
256 #define NSC_GENITEM(ef_type, ef_chr)                                    \
257     {"uid", empobjoff(uid), NSC_INT, 0, NULL, ef_type, 0, CA_DUMP},     \
258     {"timestamp", empobjoff(timestamp), NSC_TIME, 0, NULL, EF_BAD, 0,   \
259      CA_DUMP_NONE},                                                     \
260     {"owner", empobjoff(own), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP}, \
261     {"xloc", empobjoff(x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},    \
262     {"yloc", empobjoff(y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},    \
263     {"type", empobjoff(type), NSC_CHAR, 0, NULL, ef_chr, 0, CA_DUMP},   \
264     {"effic", empobjoff(effic), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP}, \
265     {"mobil", empobjoff(mobil), NSC_CHAR , 0, NULL, EF_BAD, 0, CA_DUMP}, \
266     {"off", empobjoff(off), NSC_UCHAR , 0, NULL, EF_BAD, 0, CA_DUMP},   \
267     {"tech", empobjoff(tech), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},  \
268     {"group", empobjoff(group), NSC_STRINGY, 1, NULL, EF_BAD, 0,        \
269      CA_DUMP_NONE},                                                     \
270     {"opx", empobjoff(opx), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},   \
271     {"opy", empobjoff(opy), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},   \
272     {"mission", empobjoff(mission), NSC_SHORT, 0, NULL, EF_MISSIONS, 0, \
273      CA_DUMP},                                                          \
274     {"radius", empobjoff(radius), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP}
275
276 struct castr ship_ca[] = {
277 #define CURSTR struct shpstr
278     NSC_GENITEM(EF_SHIP, EF_SHIP_CHR),
279     {"fleet", fldoff(shp_fleet), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
280     NSC_IVEC(fldoff(shp_item), ""),
281     {"pstage", fldoff(shp_pstage), NSC_SHORT, 0, NULL,
282      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
283     {"ptime", fldoff(shp_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
284      CA_DUMP},
285     {"access", fldoff(shp_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
286     {"name", fldoff(shp_name), NSC_STRINGY, MAXSHPNAMLEN, NULL,
287      EF_BAD, 0, CA_DUMP},
288     /* should let builder access xbuilt, ybuilt, but can't express that: */
289     {"xbuilt", fldoff(shp_orig_x), NSC_XCOORD, 0, NULL,
290      EF_BAD, NSC_DEITY, CA_DUMP},
291     {"ybuilt", fldoff(shp_orig_y), NSC_YCOORD, 0, NULL,
292      EF_BAD, NSC_DEITY, CA_DUMP},
293     {"builder", fldoff(shp_orig_own), NSC_NATID, 0, NULL,
294      EF_NATION, NSC_DEITY, CA_DUMP},
295     {"rflags", fldoff(shp_rflags), NSC_INT, 0, NULL,
296      EF_RETREAT_FLAGS, NSC_BITS, CA_DUMP},
297     {"rpath", fldoff(shp_rpath), NSC_STRINGY, RET_LEN, NULL, EF_BAD, 0,
298      CA_DUMP},
299     {"nplane", 0, NSC_LONG, 0, nsc_cargo_nplane, EF_BAD, 0, CA_DUMP_NONE},
300     {"nchoppers", 0, NSC_LONG, 0, nsc_cargo_nchopper, EF_BAD, 0,
301      CA_DUMP_NONE},
302     {"nxlight", 0, NSC_LONG, 0, nsc_cargo_nxlight, EF_BAD, 0,
303      CA_DUMP_NONE},
304     {"nland", 0, NSC_LONG, 0, nsc_cargo_nland, EF_BAD, 0, CA_DUMP_NONE},
305     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
306 #undef CURSTR
307 };
308
309 struct castr mchr_ca[] = {
310 #define CURSTR struct mchrstr
311     {"type", fldoff(m_type), NSC_CHAR, 0, NULL, EF_SHIP_CHR, 0, CA_DUMP},
312     {"name", fldoff(m_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
313     NSC_IVEC(fldoff(m_item), ""),
314     NSC_MVEC(fldoff(m_mat), CA_DUMP_ONLY, CA_DUMP_ONLY, CA_DUMP_ONLY),
315     {"armor", fldoff(m_armor), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
316     {"speed", fldoff(m_speed), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
317     {"visib", fldoff(m_visib), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
318     {"vrnge", fldoff(m_vrnge), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
319     {"frnge", fldoff(m_frnge), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
320     {"glim", fldoff(m_glim), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
321     {"nxlight", fldoff(m_nxlight), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
322     {"nchoppers", fldoff(m_nchoppers), NSC_UCHAR, 0, NULL, EF_BAD, 0,
323      CA_DUMP},
324     {"bwork", fldoff(m_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
325     {"tech", fldoff(m_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
326     {"cost", fldoff(m_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
327     {"flags", fldoff(m_flags), NSC_INT, 0, NULL,
328      EF_SHIP_CHR_FLAGS, NSC_BITS, CA_DUMP},
329     {"nplanes", fldoff(m_nplanes), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
330     {"nland", fldoff(m_nland), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
331     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
332 #undef CURSTR
333 };
334
335 struct castr plane_ca[] = {
336 #define CURSTR struct plnstr
337     NSC_GENITEM(EF_PLANE, EF_PLANE_CHR),
338     {"wing", fldoff(pln_wing), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
339     {"range", fldoff(pln_range), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
340     {"harden", fldoff(pln_harden), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
341     {"ship", fldoff(pln_ship), NSC_INT, 0, NULL, EF_SHIP, 0, CA_DUMP},
342     {"land", fldoff(pln_land), NSC_INT, 0, NULL, EF_LAND, 0, CA_DUMP},
343     {"flags", fldoff(pln_flags), NSC_INT, 0, NULL,
344      EF_PLANE_FLAGS, NSC_BITS, CA_DUMP},
345     {"access", fldoff(pln_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
346     {"theta", fldoff(pln_theta), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
347     {"att", 0, NSC_LONG, 0, nsc_pln_att, EF_BAD, 0, CA_DUMP_NONE},
348     {"def", 0, NSC_LONG, 0, nsc_pln_def, EF_BAD, 0, CA_DUMP_NONE},
349     {"nuketype", 0, NSC_LONG, 0, nsc_pln_nuketype, EF_BAD, 0,
350      CA_DUMP_NONE},
351     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
352 #undef CURSTR
353 };
354
355 struct castr plchr_ca[] = {
356 #define CURSTR struct plchrstr
357     {"type", fldoff(pl_type), NSC_CHAR, 0, NULL, EF_PLANE_CHR, 0, CA_DUMP},
358     {"name", fldoff(pl_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
359     NSC_MVEC(fldoff(pl_mat), CA_DUMP, CA_DUMP_ONLY, CA_DUMP_ONLY),
360     {"bwork", fldoff(pl_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
361     {"tech", fldoff(pl_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
362     {"cost", fldoff(pl_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
363     {"acc", fldoff(pl_acc), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
364     {"load", fldoff(pl_load), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
365     {"att", fldoff(pl_att), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
366     {"def", fldoff(pl_def), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
367     {"range", fldoff(pl_range), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
368     {"fuel", fldoff(pl_fuel), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
369     {"stealth", fldoff(pl_stealth), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
370     {"flags", fldoff(pl_flags), NSC_INT, 0, NULL,
371      EF_PLANE_CHR_FLAGS, NSC_BITS, CA_DUMP},
372     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
373 #undef CURSTR
374 };
375
376 struct castr land_ca[] = {
377 #define CURSTR struct lndstr
378     NSC_GENITEM(EF_LAND, EF_LAND_CHR),
379     {"army", fldoff(lnd_army), NSC_STRINGY, 1, NULL, EF_BAD, 0, CA_DUMP},
380     {"ship", fldoff(lnd_ship), NSC_INT, 0, NULL, EF_SHIP, 0, CA_DUMP},
381     {"harden", fldoff(lnd_harden), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
382     {"retreat", fldoff(lnd_retreat), NSC_SHORT, 0, NULL, EF_BAD, 0,
383      CA_DUMP},
384     {"rflags", fldoff(lnd_rflags), NSC_INT, 0, NULL,
385      EF_RETREAT_FLAGS, NSC_BITS, CA_DUMP},
386     {"rpath", fldoff(lnd_rpath), NSC_STRINGY, RET_LEN, NULL, EF_BAD, 0,
387      CA_DUMP},
388     NSC_IVEC(fldoff(lnd_item), ""),
389     {"pstage", fldoff(lnd_pstage), NSC_SHORT, 0, NULL,
390      EF_PLAGUE_STAGES, NSC_DEITY, CA_DUMP},
391     {"ptime", fldoff(lnd_ptime), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
392      CA_DUMP},
393     {"land", fldoff(lnd_land), NSC_INT, 0, NULL, EF_LAND, 0, CA_DUMP},
394     {"access", fldoff(lnd_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
395     {"att", 0, NSC_DOUBLE, 0, nsc_lnd_att, EF_BAD, 0, CA_DUMP_NONE},
396     {"def", 0, NSC_DOUBLE, 0, nsc_lnd_def, EF_BAD, 0, CA_DUMP_NONE},
397     {"vul", 0, NSC_LONG, 0, nsc_lnd_vul, EF_BAD, 0, CA_DUMP_NONE},
398     {"spd", 0, NSC_LONG, 0, nsc_lnd_spd, EF_BAD, 0, CA_DUMP_NONE},
399     {"vis", 0, NSC_LONG, 0, nsc_lnd_vis, EF_BAD, 0, CA_DUMP_NONE},
400     {"frg", 0, NSC_LONG, 0, nsc_lnd_frg, EF_BAD, 0, CA_DUMP_NONE},
401     {"acc", 0, NSC_LONG, 0, nsc_lnd_acc, EF_BAD, 0, CA_DUMP_NONE},
402     {"dam", 0, NSC_LONG, 0, nsc_lnd_dam, EF_BAD, 0, CA_DUMP_NONE},
403     {"aaf", 0, NSC_LONG, 0, nsc_lnd_aaf, EF_BAD, 0, CA_DUMP_NONE},
404     {"nland", 0, NSC_LONG, 0, nsc_cargo_nland, EF_BAD, 0, CA_DUMP_NONE},
405     {"nxlight", 0, NSC_LONG, 0, nsc_cargo_nxlight, EF_BAD, 0,
406      CA_DUMP_NONE},
407 #undef CURSTR
408 #define CURSTR struct lchrstr
409     {"spy", fldoff(l_spy), NSC_INT, 0, nsc_lchr, EF_BAD, 0, CA_DUMP_NONE},
410     {"rmax", fldoff(l_rad), NSC_INT, 0, nsc_lchr, EF_BAD, 0, CA_DUMP_NONE},
411     {"ammo", fldoff(l_ammo), NSC_INT, 0, nsc_lchr, EF_BAD, 0,
412      CA_DUMP_NONE},
413     {"maxlight", fldoff(l_nxlight), NSC_UCHAR, 0, nsc_lchr,
414      EF_BAD, 0, CA_DUMP_NONE},
415     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
416 #undef CURSTR
417 };
418
419 struct castr lchr_ca[] = {
420 #define CURSTR struct lchrstr
421     {"type", fldoff(l_type), NSC_CHAR, 0, NULL, EF_LAND_CHR, 0, CA_DUMP},
422     {"name", fldoff(l_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
423     NSC_IVEC(fldoff(l_item), ""),
424     NSC_MVEC(fldoff(l_mat), CA_DUMP_ONLY, CA_DUMP_ONLY, CA_DUMP_ONLY),
425     {"bwork", fldoff(l_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
426     {"tech", fldoff(l_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
427     {"cost", fldoff(l_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
428     {"att", fldoff(l_att), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
429     {"def", fldoff(l_def), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
430     {"vul", fldoff(l_vul), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
431     {"spd", fldoff(l_spd), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
432     {"vis", fldoff(l_vis), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
433     {"spy", fldoff(l_spy), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
434     {"rmax", fldoff(l_rad), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
435     {"frg", fldoff(l_frg), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
436     {"acc", fldoff(l_acc), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
437     {"dam", fldoff(l_dam), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
438     {"ammo", fldoff(l_ammo), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
439     {"aaf", fldoff(l_aaf), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
440     {"flags", fldoff(l_flags), NSC_INT, 0, NULL,
441      EF_LAND_CHR_FLAGS, NSC_BITS, CA_DUMP},
442     {"nxlight", fldoff(l_nxlight), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
443     {"nland", fldoff(l_nland), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
444     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
445 #undef CURSTR
446 };
447
448 struct castr nuke_ca[] = {
449 #define CURSTR struct nukstr
450     NSC_GENITEM(EF_NUKE, EF_NUKE_CHR),
451     {"stockpile", fldoff(nuk_stockpile), NSC_STRINGY, 1, NULL, EF_BAD, 0,
452      CA_DUMP},
453     {"plane", fldoff(nuk_plane), NSC_INT, 0, NULL, EF_PLANE, 0, CA_DUMP},
454     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
455 #undef CURSTR
456 };
457
458 struct castr nchr_ca[] = {
459 #define CURSTR struct nchrstr
460     {"type", fldoff(n_type), NSC_CHAR, 0, NULL, EF_NUKE_CHR, 0, CA_DUMP},
461     {"name", fldoff(n_name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP},
462     NSC_MVEC(fldoff(n_mat), CA_DUMP_ONLY, CA_DUMP, CA_DUMP),
463     {"blast", fldoff(n_blast), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
464     {"dam", fldoff(n_dam), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
465     {"bwork", fldoff(n_bwork), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
466     {"tech", fldoff(n_tech), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
467     {"cost", fldoff(n_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
468     {"weight", fldoff(n_weight), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
469     {"flags", fldoff(n_flags), NSC_INT, 0, NULL,
470      EF_NUKE_CHR_FLAGS, NSC_BITS, CA_DUMP},
471     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
472 #undef CURSTR
473 };
474
475 struct castr loan_ca[] = {
476 #define CURSTR struct lonstr
477     {"uid", fldoff(l_uid), NSC_INT, 0, NULL, EF_LOAN, 0, CA_DUMP},
478     {"timestamp", fldoff(l_timestamp), NSC_TIME, 0, NULL,
479      EF_BAD, 0, CA_DUMP_NONE},
480     {"loaner", fldoff(l_loner), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
481     {"loanee", fldoff(l_lonee), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
482     {"status", fldoff(l_status), NSC_CHAR, 0, NULL,
483      EF_AGREEMENT_STATUS, 0, CA_DUMP},
484     {"irate", fldoff(l_irate), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
485     {"ldur", fldoff(l_ldur), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
486     {"amtpaid", fldoff(l_amtpaid), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
487     {"amtdue", fldoff(l_amtdue), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
488     {"lastpay", fldoff(l_lastpay), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
489     {"duedate", fldoff(l_duedate), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
490     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
491 #undef CURSTR
492 };
493
494 struct castr news_ca[] = {
495 #define CURSTR struct nwsstr
496     {"timestamp", 0, NSC_LONG, 0, nsc_nws_timestamp, EF_BAD, 0,
497      CA_DUMP_NONE},
498     {"actor", fldoff(nws_ano), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
499     {"action", fldoff(nws_vrb), NSC_UCHAR, 0, NULL, EF_NEWS_CHR, 0,
500      CA_DUMP},
501     {"victim", fldoff(nws_vno), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
502     {"times", fldoff(nws_ntm), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
503     {"duration", fldoff(nws_duration), NSC_SHORT, 0, NULL, EF_BAD, 0,
504      CA_DUMP},
505     {"time", fldoff(nws_when), NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
506     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
507 #undef CURSTR
508 };
509
510 struct castr lost_ca[] = {
511 #define CURSTR struct loststr
512     /* no need for uid as long as it's not referenced from other tables */
513     {"timestamp", fldoff(lost_timestamp), NSC_TIME, 0, NULL,
514      EF_BAD, 0, CA_DUMP},
515     {"owner", fldoff(lost_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
516      CA_DUMP},
517     {"type", fldoff(lost_type), NSC_SHORT, 0, NULL, EF_TABLE, 0, CA_DUMP},
518     /* id's ca_table given by type, but can't express that: */
519     {"id", fldoff(lost_id), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
520     {"x", fldoff(lost_x), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
521     {"y", fldoff(lost_y), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
522     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
523 #undef CURSTR
524 };
525
526 struct castr commodity_ca[] = {
527 #define CURSTR struct comstr
528     {"uid", fldoff(com_uid), NSC_INT, 0, NULL, EF_COMM, 0, CA_DUMP},
529     {"timestamp", fldoff(com_timestamp), NSC_TIME, 0, NULL,
530      EF_BAD, 0, CA_DUMP_NONE},
531     {"owner", fldoff(com_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
532      CA_DUMP},
533     {"type", fldoff(com_type), NSC_SITYPE(i_type), 0, NULL, EF_ITEM, 0,
534      CA_DUMP},
535     {"amount", fldoff(com_amount), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
536     {"price", fldoff(com_price), NSC_FLOAT, 0, NULL, EF_BAD, 0, CA_DUMP},
537     {"maxbidder", fldoff(com_maxbidder), NSC_INT, 0, NULL, EF_NATION, 0,
538      CA_DUMP},
539     {"markettime", fldoff(com_markettime), NSC_TIME, 0, NULL, EF_BAD, 0,
540      CA_DUMP},
541     /* should let maxbidder access xbuy, ybuy, but can't express that: */
542     {"xbuy", fldoff(com_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
543      CA_DUMP},
544     {"ybuy", fldoff(com_y), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
545      CA_DUMP},
546     /* should let owner access xsell, ysell, but can't express that: */
547     {"xsell", fldoff(sell_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
548      CA_DUMP},
549     {"ysell", fldoff(sell_y), NSC_YCOORD, 0, NULL, EF_BAD, NSC_DEITY,
550      CA_DUMP},
551     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
552 #undef CURSTR
553 };
554
555 struct castr trade_ca[] = {
556 #define CURSTR struct trdstr
557     {"uid", fldoff(trd_uid), NSC_INT, 0, NULL, EF_TRADE, 0, CA_DUMP},
558     {"timestamp", fldoff(trd_timestamp), NSC_TIME, 0, NULL,
559      EF_BAD, 0, CA_DUMP_NONE},
560     {"owner", fldoff(trd_owner), NSC_NATID, 0, NULL, EF_NATION, 0,
561      CA_DUMP},
562     {"type", fldoff(trd_type), NSC_SHORT, 0, NULL, EF_TABLE, 0, CA_DUMP},
563     /* unitid's ca_table given by type, but can't express that: */
564     {"unitid", fldoff(trd_unitid), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
565     {"price", fldoff(trd_price), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
566     {"maxbidder", fldoff(trd_maxbidder), NSC_INT, 0, NULL, EF_NATION, 0,
567      CA_DUMP},
568     {"markettime", fldoff(trd_markettime), NSC_TIME, 0, NULL, EF_BAD, 0,
569      CA_DUMP},
570     /* should let maxbidder access xloc, yloc, but can't express that: */
571     {"xloc", fldoff(trd_x), NSC_XCOORD, 0, NULL, EF_BAD, NSC_DEITY,
572      CA_DUMP},
573     {"yloc", fldoff(trd_y), NSC_YCOORD, 0, NULL, EF_BAD, NSC_DEITY,
574      CA_DUMP},
575     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
576 #undef CURSTR
577 };
578
579 struct castr cou_ca[] = {
580 #define CURSTR struct natstr
581     /*
582      * This is the owner's view, i.e. it applies only to the own
583      * nation.  The public view nat_ca[], which applies to all
584      * nations, has the same selectors with different flags: NSC_DEITY
585      * is set except for cnum (which must come first) and all
586      * CA_DUMP_NONE selectors; these become CA_DUMP except for
587      * timestamp (which must come second).
588      * nat_ca[] should also make tech, research, education and
589      * happiness available, but we can't express the obfuscation
590      * necessary for foreign levels.
591      */
592     {"cnum", fldoff(nat_cnum), NSC_NATID, 0, NULL, EF_NATION, 0, CA_DUMP},
593     {"timestamp", fldoff(nat_timestamp), NSC_TIME, 0, NULL,
594      EF_BAD, 0, CA_DUMP_NONE},
595     {"stat", fldoff(nat_stat), NSC_SITYPE(enum nat_status), 0, NULL,
596      EF_NATION_STATUS, 0, CA_DUMP_NONE},
597     {"flags", fldoff(nat_flags), NSC_INT, 0, NULL,
598      EF_NATION_FLAGS, NSC_BITS, CA_DUMP},
599     {"cname", fldoff(nat_cnam), NSC_STRINGY, 20, NULL, EF_BAD, 0,
600      CA_DUMP_NONE},
601     {"passwd", fldoff(nat_pnam), NSC_STRINGY, 20, NULL,
602      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
603     {"ip", fldoff(nat_hostaddr), NSC_STRINGY, 46, NULL, EF_BAD, 0,
604      CA_DUMP},
605     {"userid", fldoff(nat_userid), NSC_STRINGY, 32, NULL, EF_BAD, 0,
606      CA_DUMP},
607     {"xcap", fldoff(nat_xcap), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
608     {"ycap", fldoff(nat_ycap), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
609     {"xorg", fldoff(nat_xorg), NSC_XCOORD, 0, NULL,
610      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
611     {"yorg", fldoff(nat_yorg), NSC_YCOORD, 0, NULL,
612      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
613     {"update", fldoff(nat_update), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
614     {"tgms", fldoff(nat_tgms), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
615     {"ann", fldoff(nat_ann), NSC_USHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
616     {"timeused", fldoff(nat_timeused), NSC_INT, 0, NULL, EF_BAD, 0,
617      CA_DUMP},
618     {"btu", fldoff(nat_btu), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
619     {"access", fldoff(nat_access), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
620     {"milreserve", fldoff(nat_reserve), NSC_INT, 0, NULL, EF_BAD, 0,
621      CA_DUMP},
622     {"money", fldoff(nat_money), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
623     {"login", fldoff(nat_last_login), NSC_TIME, 0, NULL, EF_BAD, 0,
624      CA_DUMP},
625     {"logout", fldoff(nat_last_logout), NSC_TIME, 0, NULL, EF_BAD, 0,
626      CA_DUMP},
627     {"newstim", fldoff(nat_newstim), NSC_TIME, 0, NULL, EF_BAD, 0,
628      CA_DUMP},
629     {"annotim", fldoff(nat_annotim), NSC_TIME, 0, NULL, EF_BAD, 0,
630      CA_DUMP},
631     {"tech", fldoff(nat_level[NAT_TLEV]), NSC_FLOAT, 0, NULL, EF_BAD, 0,
632      CA_DUMP},
633     {"research", fldoff(nat_level[NAT_RLEV]), NSC_FLOAT, 0, NULL,
634      EF_BAD, 0, CA_DUMP},
635     {"education", fldoff(nat_level[NAT_ELEV]), NSC_FLOAT, 0, NULL,
636      EF_BAD, 0, CA_DUMP},
637     {"happiness", fldoff(nat_level[NAT_HLEV]), NSC_FLOAT, 0, NULL,
638      EF_BAD, 0, CA_DUMP},
639     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
640 #undef CURSTR
641 };
642
643 struct castr nat_ca[ARRAY_SIZE(cou_ca)];
644 /* initialized by nsc_init() */
645
646 struct castr relat_ca[] = {
647 #define CURSTR struct relatstr
648     {"uid", fldoff(rel_uid), NSC_INT, 0, NULL, EF_RELAT, 0, CA_DUMP},
649     {"timestamp", fldoff(rel_timestamp), NSC_TIME, 0, NULL,
650      EF_BAD, 0, CA_DUMP_NONE},
651     {"relations", fldoff(rel_relate), NSC_UCHAR, MAXNOC, NULL,
652      EF_NATION_RELATIONS, NSC_HIDDEN, CA_DUMP},
653     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
654 #undef CURSTR
655 };
656
657 struct castr contact_ca[] = {
658 #define CURSTR struct contactstr
659     {"uid", fldoff(con_uid), NSC_INT, 0, NULL, EF_CONTACT, 0, CA_DUMP},
660     {"timestamp", fldoff(con_timestamp), NSC_TIME, 0, NULL,
661      EF_BAD, 0, CA_DUMP_NONE},
662     /* mortals know there's contact (relations show), but not how strong */
663     {"contacts", fldoff(con_contact), NSC_UCHAR, MAXNOC, NULL,
664      EF_BAD, NSC_DEITY, CA_DUMP},
665     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
666 #undef CURSTR
667 };
668
669 struct castr reject_ca[] = {
670 #define CURSTR struct rejectstr
671     {"uid", fldoff(rej_uid), NSC_INT, 0, NULL, EF_REJECT, 0, CA_DUMP},
672     {"timestamp", fldoff(rej_timestamp), NSC_TIME, 0, NULL,
673      EF_BAD, 0, CA_DUMP_NONE},
674     {"rejects", fldoff(rej_rejects), NSC_UCHAR, MAXNOC, NULL,
675      EF_NATION_REJECTS, NSC_BITS, CA_DUMP},
676     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
677 #undef CURSTR
678 };
679
680 struct castr realm_ca[] = {
681 #define CURSTR struct realmstr
682     /* uid is encoded in cnum, realm */
683     {"timestamp", fldoff(r_timestamp), NSC_TIME, 0, NULL,
684      EF_BAD, 0, CA_DUMP_NONE},
685     {"cnum", fldoff(r_cnum), NSC_NATID, 0, NULL, EF_NATION, 0,
686      CA_DUMP_CONST},
687     {"realm", fldoff(r_realm), NSC_USHORT, 0, NULL, EF_BAD, 0,
688      CA_DUMP_CONST},
689     {"xl", fldoff(r_xl), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
690     {"xh", fldoff(r_xh), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
691     {"yl", fldoff(r_yl), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
692     {"yh", fldoff(r_yh), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
693     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
694 #undef CURSTR
695 };
696
697 struct castr game_ca[] = {
698 #define CURSTR struct gamestr
699     /* no need for uid */
700     {"timestamp", fldoff(game_timestamp), NSC_TIME, 0, NULL,
701      EF_BAD, 0, CA_DUMP_NONE},
702     {"upd_disable", fldoff(game_upd_disable), NSC_CHAR, 0, NULL,
703      EF_BAD, 0, CA_DUMP},
704     {"down", fldoff(game_down), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
705     {"turn", fldoff(game_turn), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
706     {"tick", fldoff(game_tick), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
707      CA_DUMP},
708     {"rt", fldoff(game_rt), NSC_TIME, 0, NULL, EF_BAD, NSC_DEITY, CA_DUMP},
709     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
710 #undef CURSTR
711 };
712
713 struct castr intrchr_ca[] = {
714 #define CURSTR struct sctintrins
715     /* no need for uid as long as it's not referenced from other tables */
716     {"name", fldoff(in_name), NSC_STRING, 0, NULL, EF_BAD, 0,
717      CA_DUMP_CONST},
718     NSC_MVEC(fldoff(in_mat), CA_DUMP_ONLY, CA_DUMP_ONLY, CA_DUMP_ONLY),
719     {"bmobil", fldoff(in_bmobil), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
720     {"cost", fldoff(in_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
721     {"enable", fldoff(in_enable), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
722     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
723 #undef CURSTR
724 };
725
726 struct castr rpt_ca[] = {
727 #define CURSTR struct rptstr
728     {"uid", fldoff(r_uid), NSC_CHAR, 0, NULL, EF_NEWS_CHR, 0, CA_DUMP},
729     {"newstory", fldoff(r_newstory), NSC_STRING, NUM_RPTS, NULL,
730      EF_BAD, 0, CA_DUMP},
731     {"good_will", fldoff(r_good_will), NSC_INT, 0, NULL, EF_BAD, 0,
732      CA_DUMP},
733     {"newspage", fldoff(r_newspage), NSC_INT, 0, NULL,
734      EF_PAGE_HEADINGS, 0, CA_DUMP},
735     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
736 #undef CURSTR
737 };
738
739 struct castr update_ca[] = {
740     {"time", 0, NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
741     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
742 };
743
744 struct castr empfile_ca[] = {
745 #define CURSTR struct empfile
746     {"uid", fldoff(uid), NSC_INT, 0, NULL, EF_TABLE, 0, CA_DUMP},
747     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
748     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
749 #undef CURSTR
750 };
751
752 struct castr symbol_ca[] = {
753 #define CURSTR struct symbol
754     /*
755      * value is const because it has to match what is compiled into
756      * the server.  name is const because clients key on it.
757      */
758     {"value", fldoff(value), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
759     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
760     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
761 #undef CURSTR
762 };
763
764 struct castr mdchr_ca[] = {
765 #define CURSTR struct castr
766     /* no need for uid */
767     /* name must come first, clients may rely on it */
768     {"name", fldoff(ca_name), NSC_STRING, 0, NULL, EF_BAD, 0,
769      CA_DUMP_CONST},
770     {"type", fldoff(ca_type), NSC_LONG, 0, nsc_meta_type,
771      EF_META_TYPE, 0, CA_DUMP_CONST},
772     {"flags", fldoff(ca_flags), NSC_INT, 0, NULL,
773      EF_META_FLAGS, NSC_BITS, CA_DUMP_CONST},
774     {"len", fldoff(ca_len), NSC_LONG, 0, nsc_meta_len,
775      EF_BAD, 0, CA_DUMP_CONST},
776     {"table", fldoff(ca_table), NSC_INT, 0, NULL, EF_TABLE, 0,
777      CA_DUMP_CONST},
778     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
779 #undef CURSTR
780 };
781
782 void
783 nsc_init(void)
784 {
785     static struct castr version_ca0 = {
786         "version", 0, NSC_STRING, 0, nsc_ver_version, EF_BAD, 0, CA_DUMP
787     };
788     static struct castr version_ca1 = {
789         "maxnoc", 0, NSC_LONG, 0, nsc_ver_maxnoc, EF_BAD, 0, CA_DUMP
790     };
791     static struct castr *ca;
792     struct keymatch *kp;
793     int n, i;
794
795     /* derive empfile[EF_VERSION].cadef from configkeys[] */
796     n = 0;
797     for (kp = configkeys; kp->km_key; ++kp) {
798         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL))
799             n++;
800     }
801     ca = calloc(2 + n + 1, sizeof(*ca));
802     ca[0] = version_ca0;
803     ca[1] = version_ca1;
804     i = 2;
805     for (kp = configkeys; kp->km_key; ++kp) {
806         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
807             ca[i].ca_type = kp->km_type;
808             ca[i].ca_off = kp - configkeys;
809             ca[i].ca_name = kp->km_key;
810             ca[i].ca_table = EF_BAD;
811             ca[i].ca_get = nsc_ver;
812             i++;
813         }
814     }
815     empfile[EF_VERSION].cadef = ca;
816
817     /* derive nat_ca[] from cou_ca[] */
818     nat_ca[0] = cou_ca[0];      /* cnum */
819     nat_ca[1] = cou_ca[1];      /* timestamp */
820     for (i = 2; cou_ca[i].ca_name; i++) {
821         nat_ca[i] = cou_ca[i];
822         if (nat_ca[i].ca_dump == CA_DUMP_NONE)
823             nat_ca[i].ca_dump = CA_DUMP;
824         else
825             nat_ca[i].ca_flags |= NSC_DEITY;
826     }
827     nat_ca[i] = cou_ca[i];      /* sentinel */
828 }
829
830 /*
831  * Virtual selectors
832  */
833
834 static void *
835 nsc_ver(struct valstr *val, struct natstr *np, void *ptr)
836 {
837     struct keymatch *kp = &configkeys[val->val_as.sym.off];
838     val->val_as.sym.off = 0;
839     val->val_as.sym.get = NULL;
840     return kp->km_data;
841 }
842
843 static void *
844 nsc_ver_maxnoc(struct valstr *val, struct natstr *np, void *ptr)
845 {
846     val->val_as.lng = MAXNOC;
847     return NULL;
848 }
849
850 static void *
851 nsc_ver_version(struct valstr *val, struct natstr *np, void *ptr)
852 {
853     val->val_as.str.base = version;
854     val->val_as.str.maxsz = INT_MAX; /* really SIZE_MAX, but that's C99 */
855     return NULL;
856 }
857
858 static void *
859 nsc_sct_terr(struct valstr *val, struct natstr *np, void *ptr)
860 {
861     if (!np || np->nat_stat == STAT_GOD)
862         val->val_as.sym.off = offsetof(struct sctstr, sct_dterr);
863     else
864         val->val_as.sym.off = offsetof(struct sctstr, sct_terr);
865     val->val_as.sym.get = NULL;
866     return ptr;
867 }
868
869 static void *
870 nsc_sct_track(struct valstr *val, struct natstr *np, void *ptr)
871 {
872     val->val_as.lng = sct_rail_track(ptr);
873     return NULL;
874 }
875
876 static void *
877 nsc_cargo_nplane(struct valstr *val, struct natstr *np, void *ptr)
878 {
879     struct empobj *obj = ptr;
880     int n, nch, nxl;
881
882     n = unit_nplane(obj->ef_type, obj->uid, &nch, &nxl, NULL);
883     val->val_as.lng = n - nch - nxl;
884     return NULL;
885 }
886
887 static void *
888 nsc_cargo_nchopper(struct valstr *val, struct natstr *np, void *ptr)
889 {
890     struct empobj *obj = ptr;
891     int n;
892
893     unit_nplane(obj->ef_type, obj->uid, &n, NULL, NULL);
894     val->val_as.lng = n;
895     return NULL;
896 }
897
898 static void *
899 nsc_cargo_nxlight(struct valstr *val, struct natstr *np, void *ptr)
900 {
901     struct empobj *obj = ptr;
902     int n;
903
904     unit_nplane(obj->ef_type, obj->uid, NULL, &n, NULL);
905     val->val_as.lng = n;
906     return NULL;
907 }
908
909 static void *
910 nsc_cargo_nland(struct valstr *val, struct natstr *np, void *ptr)
911 {
912     struct empobj *obj = ptr;
913
914     val->val_as.lng = unit_cargo_count(obj->ef_type, obj->uid, EF_LAND);
915     return NULL;
916 }
917
918 static void *
919 nsc_pln_def(struct valstr *val, struct natstr *np, void *ptr)
920 {
921     val->val_as.lng = pln_def(ptr);;
922     return NULL;
923 }
924
925 static void *
926 nsc_pln_att(struct valstr *val, struct natstr *np, void *ptr)
927 {
928     val->val_as.lng = pln_att(ptr);
929     return NULL;
930 }
931
932 static void *
933 nsc_pln_nuketype(struct valstr *val, struct natstr *np, void *ptr)
934 {
935     struct nukstr *nukp = getnukep(nuk_on_plane(ptr));
936     val->val_as.lng = nukp ? nukp->nuk_type : -1;
937     return NULL;
938 }
939
940 static void *
941 nsc_lnd_att(struct valstr *val, struct natstr *np, void *ptr)
942 {
943     val->val_as.dbl = lnd_att(ptr);
944     return NULL;
945 }
946
947 static void *
948 nsc_lnd_def(struct valstr *val, struct natstr *np, void *ptr)
949 {
950     val->val_as.dbl = lnd_def(ptr);
951     return NULL;
952 }
953
954 static void *
955 nsc_lnd_vul(struct valstr *val, struct natstr *np, void *ptr)
956 {
957     val->val_as.lng = lnd_vul(ptr);
958     return NULL;
959 }
960
961 static void *
962 nsc_lnd_spd(struct valstr *val, struct natstr *np, void *ptr)
963 {
964     val->val_as.lng = lnd_spd(ptr);
965     return NULL;
966 }
967
968 static void *
969 nsc_lnd_vis(struct valstr *val, struct natstr *np, void *ptr)
970 {
971     val->val_as.lng = lnd_vis(ptr);
972     return NULL;
973 }
974
975 static void *
976 nsc_lnd_frg(struct valstr *val, struct natstr *np, void *ptr)
977 {
978     val->val_as.lng = lnd_frg(ptr);
979     return NULL;
980 }
981
982 static void *
983 nsc_lnd_acc(struct valstr *val, struct natstr *np, void *ptr)
984 {
985     val->val_as.lng = lnd_acc(ptr);
986     return NULL;
987 }
988
989 static void *
990 nsc_lnd_dam(struct valstr *val, struct natstr *np, void *ptr)
991 {
992     val->val_as.lng = lnd_dam(ptr);
993     return NULL;
994 }
995
996 static void *
997 nsc_lnd_aaf(struct valstr *val, struct natstr *np, void *ptr)
998 {
999     val->val_as.lng = lnd_aaf(ptr);
1000     return NULL;
1001 }
1002
1003 static void *
1004 nsc_lchr(struct valstr *val, struct natstr *np, void *ptr)
1005 {
1006     val->val_as.sym.get = NULL;
1007     return lchr + ((struct lndstr *)ptr)->lnd_type;
1008 }
1009
1010 static void *
1011 nsc_nws_timestamp(struct valstr *val, struct natstr *natp, void *ptr)
1012 {
1013     struct nwsstr *np = ptr;
1014
1015     val->val_as.lng = np->nws_when + np->nws_duration;
1016     return NULL;
1017 }
1018
1019 static void *
1020 nsc_meta_type(struct valstr *val, struct natstr *natp, void *ptr)
1021 {
1022     val->val_as.lng = nstr_promote(((struct castr *)ptr)->ca_type);
1023     return NULL;
1024 }
1025
1026 static void *
1027 nsc_meta_len(struct valstr *val, struct natstr *natp, void *ptr)
1028 {
1029     struct castr *ca = ptr;
1030
1031     val->val_as.lng = ca->ca_type == NSC_STRINGY ? 0 : ca->ca_len;
1032     return NULL;
1033 }