git.pond.sub.org Git - empserver/blob - src/lib/common/nsc.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2016, 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-2016
  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     {"relations", fldoff(nat_relate), NSC_UCHAR, MAXNOC, NULL,
 640      EF_NATION_RELATIONS, NSC_HIDDEN, CA_DUMP_NONE},
 641     /* mortals know there's contact (relations show), but not how strong */
 642     {"contacts", fldoff(nat_contact), NSC_UCHAR, MAXNOC, NULL,
 643      EF_BAD, NSC_DEITY, CA_DUMP_NONE},
 644     {"rejects", fldoff(nat_rejects), NSC_UCHAR, MAXNOC, NULL,
 645      EF_NATION_REJECTS, NSC_BITS, CA_DUMP_NONE},
 646     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 647 #undef CURSTR
 648 };
 649
 650 struct castr nat_ca[sizeof(cou_ca) / sizeof(*cou_ca)];
 651 /* initialized by nsc_init() */
 652
 653 struct castr realm_ca[] = {
 654 #define CURSTR struct realmstr
 655     /* uid is encoded in cnum, realm */
 656     {"timestamp", fldoff(r_timestamp), NSC_TIME, 0, NULL,
 657      EF_BAD, 0, CA_DUMP_NONE},
 658     {"cnum", fldoff(r_cnum), NSC_NATID, 0, NULL, EF_NATION, 0,
 659      CA_DUMP_CONST},
 660     {"realm", fldoff(r_realm), NSC_USHORT, 0, NULL, EF_BAD, 0,
 661      CA_DUMP_CONST},
 662     {"xl", fldoff(r_xl), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 663     {"xh", fldoff(r_xh), NSC_XCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 664     {"yl", fldoff(r_yl), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 665     {"yh", fldoff(r_yh), NSC_YCOORD, 0, NULL, EF_BAD, 0, CA_DUMP},
 666     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 667 #undef CURSTR
 668 };
 669
 670 struct castr game_ca[] = {
 671 #define CURSTR struct gamestr
 672     /* no need for uid */
 673     {"timestamp", fldoff(game_timestamp), NSC_TIME, 0, NULL,
 674      EF_BAD, 0, CA_DUMP_NONE},
 675     {"upd_disable", fldoff(game_upd_disable), NSC_CHAR, 0, NULL,
 676      EF_BAD, 0, CA_DUMP},
 677     {"down", fldoff(game_down), NSC_CHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 678     {"turn", fldoff(game_turn), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 679     {"tick", fldoff(game_tick), NSC_SHORT, 0, NULL, EF_BAD, NSC_DEITY,
 680      CA_DUMP},
 681     {"rt", fldoff(game_rt), NSC_TIME, 0, NULL, EF_BAD, NSC_DEITY, CA_DUMP},
 682     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 683 #undef CURSTR
 684 };
 685
 686 struct castr intrchr_ca[] = {
 687 #define CURSTR struct sctintrins
 688     /* no need for uid as long as it's not referenced from other tables */
 689     {"name", fldoff(in_name), NSC_STRING, 0, NULL, EF_BAD, 0,
 690      CA_DUMP_CONST},
 691     {"lcms", fldoff(in_lcms), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 692     {"hcms", fldoff(in_hcms), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 693     {"bmobil", fldoff(in_bmobil), NSC_SHORT, 0, NULL, EF_BAD, 0, CA_DUMP},
 694     {"cost", fldoff(in_cost), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP},
 695     {"enable", fldoff(in_enable), NSC_UCHAR, 0, NULL, EF_BAD, 0, CA_DUMP},
 696     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 697 #undef CURSTR
 698 };
 699
 700 struct castr rpt_ca[] = {
 701 #define CURSTR struct rptstr
 702     {"uid", fldoff(r_uid), NSC_CHAR, 0, NULL, EF_NEWS_CHR, 0, CA_DUMP},
 703     {"newstory", fldoff(r_newstory), NSC_STRING, NUM_RPTS, NULL,
 704      EF_BAD, 0, CA_DUMP},
 705     {"good_will", fldoff(r_good_will), NSC_INT, 0, NULL, EF_BAD, 0,
 706      CA_DUMP},
 707     {"newspage", fldoff(r_newspage), NSC_INT, 0, NULL,
 708      EF_PAGE_HEADINGS, 0, CA_DUMP},
 709     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 710 #undef CURSTR
 711 };
 712
 713 struct castr update_ca[] = {
 714     {"time", 0, NSC_TIME, 0, NULL, EF_BAD, 0, CA_DUMP},
 715     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 716 };
 717
 718 struct castr empfile_ca[] = {
 719 #define CURSTR struct empfile
 720     {"uid", fldoff(uid), NSC_INT, 0, NULL, EF_TABLE, 0, CA_DUMP},
 721     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 722     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 723 #undef CURSTR
 724 };
 725
 726 struct castr symbol_ca[] = {
 727 #define CURSTR struct symbol
 728     /*
 729      * value is is const because it has to match what is compiled into
 730      * the server.  name is const because clients key on it.
 731      */
 732     {"value", fldoff(value), NSC_INT, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 733     {"name", fldoff(name), NSC_STRING, 0, NULL, EF_BAD, 0, CA_DUMP_CONST},
 734     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 735 #undef CURSTR
 736 };
 737
 738 struct castr mdchr_ca[] = {
 739 #define CURSTR struct castr
 740     /* no need for uid */
 741     /* name must come first, clients may rely on it */
 742     {"name", fldoff(ca_name), NSC_STRING, 0, NULL, EF_BAD, 0,
 743      CA_DUMP_CONST},
 744     {"type", fldoff(ca_type), NSC_LONG, 0, nsc_meta_type,
 745      EF_META_TYPE, 0, CA_DUMP_CONST},
 746     {"flags", fldoff(ca_flags), NSC_INT, 0, NULL,
 747      EF_META_FLAGS, NSC_BITS, CA_DUMP_CONST},
 748     {"len", fldoff(ca_len), NSC_LONG, 0, nsc_meta_len,
 749      EF_BAD, 0, CA_DUMP_CONST},
 750     {"table", fldoff(ca_table), NSC_INT, 0, NULL, EF_TABLE, 0,
 751      CA_DUMP_CONST},
 752     {NULL, 0, NSC_NOTYPE, 0, NULL, EF_BAD, 0, CA_DUMP}
 753 #undef CURSTR
 754 };
 755
 756 void
 757 nsc_init(void)
 758 {
 759     static struct castr version_ca0 = {
 760         "version", 0, NSC_STRING, 0, nsc_ver_version, EF_BAD, 0, CA_DUMP
 761     };
 762     static struct castr version_ca1 = {
 763         "maxnoc", 0, NSC_LONG, 0, nsc_ver_maxnoc, EF_BAD, 0, CA_DUMP
 764     };
 765     static struct castr *ca;
 766     struct keymatch *kp;
 767     int n, i;
 768
 769     /* derive empfile[EF_VERSION].cadef from configkeys[] */
 770     n = 0;
 771     for (kp = configkeys; kp->km_key; ++kp) {
 772         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL))
 773             n++;
 774     }
 775     ca = calloc(2 + n + 1, sizeof(*ca));
 776     ca[0] = version_ca0;
 777     ca[1] = version_ca1;
 778     i = 2;
 779     for (kp = configkeys; kp->km_key; ++kp) {
 780         if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
 781             ca[i].ca_type = kp->km_type;
 782             ca[i].ca_off = kp - configkeys;
 783             ca[i].ca_name = kp->km_key;
 784             ca[i].ca_table = EF_BAD;
 785             ca[i].ca_get = nsc_ver;
 786             i++;
 787         }
 788     }
 789     empfile[EF_VERSION].cadef = ca;
 790
 791     /* derive nat_ca[] from cou_ca[] */
 792     nat_ca[0] = cou_ca[0];      /* cnum */
 793     nat_ca[1] = cou_ca[1];      /* timestamp */
 794     for (i = 2; cou_ca[i].ca_name; i++) {
 795         nat_ca[i] = cou_ca[i];
 796         if (nat_ca[i].ca_dump == CA_DUMP_NONE)
 797             nat_ca[i].ca_dump = CA_DUMP;
 798         else
 799             nat_ca[i].ca_flags |= NSC_DEITY;
 800     }
 801     nat_ca[i] = cou_ca[i];      /* sentinel */
 802 }
 803
 804 /*
 805  * Virtual selectors
 806  */
 807
 808 static void *
 809 nsc_ver(struct valstr *val, struct natstr *np, void *ptr)
 810 {
 811     struct keymatch *kp = &configkeys[val->val_as.sym.off];
 812     val->val_as.sym.off = 0;
 813     val->val_as.sym.get = NULL;
 814     return kp->km_data;
 815 }
 816
 817 static void *
 818 nsc_ver_maxnoc(struct valstr *val, struct natstr *np, void *ptr)
 819 {
 820     val->val_as.lng = MAXNOC;
 821     return NULL;
 822 }
 823
 824 static void *
 825 nsc_ver_version(struct valstr *val, struct natstr *np, void *ptr)
 826 {
 827     val->val_as.str.base = version;
 828     val->val_as.str.maxsz = INT_MAX; /* really SIZE_MAX, but that's C99 */
 829     return NULL;
 830 }
 831
 832 static void *
 833 nsc_sct_terr(struct valstr *val, struct natstr *np, void *ptr)
 834 {
 835     if (!np || np->nat_stat == STAT_GOD)
 836         val->val_as.sym.off = offsetof(struct sctstr, sct_dterr);
 837     else
 838         val->val_as.sym.off = offsetof(struct sctstr, sct_terr);
 839     val->val_as.sym.get = NULL;
 840     return ptr;
 841 }
 842
 843 static void *
 844 nsc_sct_track(struct valstr *val, struct natstr *np, void *ptr)
 845 {
 846     val->val_as.lng = sct_rail_track(ptr);
 847     return NULL;
 848 }
 849
 850 static void *
 851 nsc_cargo_nplane(struct valstr *val, struct natstr *np, void *ptr)
 852 {
 853     struct empobj *obj = ptr;
 854     int n, nch, nxl;
 855
 856     n = unit_nplane(obj->ef_type, obj->uid, &nch, &nxl, NULL);
 857     val->val_as.lng = n - nch - nxl;
 858     return NULL;
 859 }
 860
 861 static void *
 862 nsc_cargo_nchopper(struct valstr *val, struct natstr *np, void *ptr)
 863 {
 864     struct empobj *obj = ptr;
 865     int n;
 866
 867     unit_nplane(obj->ef_type, obj->uid, &n, NULL, NULL);
 868     val->val_as.lng = n;
 869     return NULL;
 870 }
 871
 872 static void *
 873 nsc_cargo_nxlight(struct valstr *val, struct natstr *np, void *ptr)
 874 {
 875     struct empobj *obj = ptr;
 876     int n;
 877
 878     unit_nplane(obj->ef_type, obj->uid, NULL, &n, NULL);
 879     val->val_as.lng = n;
 880     return NULL;
 881 }
 882
 883 static void *
 884 nsc_cargo_nland(struct valstr *val, struct natstr *np, void *ptr)
 885 {
 886     struct empobj *obj = ptr;
 887
 888     val->val_as.lng = unit_cargo_count(obj->ef_type, obj->uid, EF_LAND);
 889     return NULL;
 890 }
 891
 892 static void *
 893 nsc_pln_def(struct valstr *val, struct natstr *np, void *ptr)
 894 {
 895     val->val_as.lng = pln_def(ptr);;
 896     return NULL;
 897 }
 898
 899 static void *
 900 nsc_pln_att(struct valstr *val, struct natstr *np, void *ptr)
 901 {
 902     val->val_as.lng = pln_att(ptr);
 903     return NULL;
 904 }
 905
 906 static void *
 907 nsc_pln_nuketype(struct valstr *val, struct natstr *np, void *ptr)
 908 {
 909     struct nukstr *nukp = getnukep(nuk_on_plane(ptr));
 910     val->val_as.lng = nukp ? nukp->nuk_type : -1;
 911     return NULL;
 912 }
 913
 914 static void *
 915 nsc_lnd_att(struct valstr *val, struct natstr *np, void *ptr)
 916 {
 917     val->val_as.dbl = lnd_att(ptr);
 918     return NULL;
 919 }
 920
 921 static void *
 922 nsc_lnd_def(struct valstr *val, struct natstr *np, void *ptr)
 923 {
 924     val->val_as.dbl = lnd_def(ptr);
 925     return NULL;
 926 }
 927
 928 static void *
 929 nsc_lnd_vul(struct valstr *val, struct natstr *np, void *ptr)
 930 {
 931     val->val_as.lng = lnd_vul(ptr);
 932     return NULL;
 933 }
 934
 935 static void *
 936 nsc_lnd_spd(struct valstr *val, struct natstr *np, void *ptr)
 937 {
 938     val->val_as.lng = lnd_spd(ptr);
 939     return NULL;
 940 }
 941
 942 static void *
 943 nsc_lnd_vis(struct valstr *val, struct natstr *np, void *ptr)
 944 {
 945     val->val_as.lng = lnd_vis(ptr);
 946     return NULL;
 947 }
 948
 949 static void *
 950 nsc_lnd_frg(struct valstr *val, struct natstr *np, void *ptr)
 951 {
 952     val->val_as.lng = lnd_frg(ptr);
 953     return NULL;
 954 }
 955
 956 static void *
 957 nsc_lnd_acc(struct valstr *val, struct natstr *np, void *ptr)
 958 {
 959     val->val_as.lng = lnd_acc(ptr);
 960     return NULL;
 961 }
 962
 963 static void *
 964 nsc_lnd_dam(struct valstr *val, struct natstr *np, void *ptr)
 965 {
 966     val->val_as.lng = lnd_dam(ptr);
 967     return NULL;
 968 }
 969
 970 static void *
 971 nsc_lnd_aaf(struct valstr *val, struct natstr *np, void *ptr)
 972 {
 973     val->val_as.lng = lnd_aaf(ptr);
 974     return NULL;
 975 }
 976
 977 static void *
 978 nsc_lchr(struct valstr *val, struct natstr *np, void *ptr)
 979 {
 980     val->val_as.sym.get = NULL;
 981     return lchr + ((struct lndstr *)ptr)->lnd_type;
 982 }
 983
 984 static void *
 985 nsc_nws_timestamp(struct valstr *val, struct natstr *natp, void *ptr)
 986 {
 987     struct nwsstr *np = ptr;
 988
 989     val->val_as.lng = np->nws_when + np->nws_duration;
 990     return NULL;
 991 }
 992
 993 static void *
 994 nsc_meta_type(struct valstr *val, struct natstr *natp, void *ptr)
 995 {
 996     val->val_as.lng = nstr_promote(((struct castr *)ptr)->ca_type);
 997     return NULL;
 998 }
 999
1000 static void *
1001 nsc_meta_len(struct valstr *val, struct natstr *natp, void *ptr)
1002 {
1003     struct castr *ca = ptr;
1004
1005     val->val_as.lng = ca->ca_type == NSC_STRINGY ? 0 : ca->ca_len;
1006     return NULL;
1007 }