]> git.pond.sub.org Git - empserver/blobdiff - src/lib/commands/xdump.c
COPYING duplicates information from README. Remove. Move GPL from
[empserver] / src / lib / commands / xdump.c
index 97aa14b96caf3181abb5140f425d69519de25b42..dccbdecf3173e8744ba588da1063faca5edc7a59 100644 (file)
@@ -1,6 +1,6 @@
 /*
  *  Empire - A multi-player, client/server Internet based war game.
- *  Copyright (C) 1986-2005, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ *  Copyright (C) 1986-2006, Dave Pare, Jeff Bailey, Thomas Ruschak,
  *                           Ken Stevens, Steve McClure
  *
  *  This program is free software; you can redistribute it and/or modify
  *
  *  ---
  *
- *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- *  related information and legal notices. It is expected that any future
- *  projects/authors will amend these files as needed.
+ *  See files README, COPYING and CREDITS in the root of the source
+ *  tree for related information and legal notices.  It is expected
+ *  that future projects/authors will amend these files as needed.
  *
  *  ---
  *
  *  xdump.c: Experimental extended dump
  * 
  *  Known contributors to this file:
- *     Markus Armbruster, 2004
+ *     Markus Armbruster, 2004-2006
  */
 
+#include <config.h>
+
 #include <stddef.h>
 #include "misc.h"
 #include "file.h"
  * - Sector infrastructure characteristics: intrchr[]
  * - Ship characteristics: mchr[]
  * Less important:
- * - News item characteristics: rpt[] (TODO)
+ * - News item characteristics: rpt[]
  * - News page headings: page_headings[] (TODO)
- * - Treaty clause characteristics: tchr[]
  * - Commands: player_coms[] (TODO)
- * - Options: Options[]
  * - Configuration: configkeys[]
  *
  * Dynamic game data:
 /* FIXME document dump format */
 /* FIXME don't dump stuff that's useless due to options */
 
-/* Selector descriptors for characteristics tables */
-/* FIXME belongs into src/lib/global/ */
-
-static struct castr dchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct dchrstr, d_name), "name"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_mnem), "mnem"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_prd), "prd"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_mcst), "mcst"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_flg), "flg"},
-    {NSC_SITYPE(i_packing), 0, 0, offsetof(struct dchrstr, d_pkg), "pkg"},
-    {NSC_FLOAT, 0, 0, offsetof(struct dchrstr, d_ostr), "ostr"},
-    {NSC_FLOAT, 0, 0, offsetof(struct dchrstr, d_dstr), "dstr"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_value), "value"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_cost), "cost"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_build), "build"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_lcms), "lcms"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_hcms), "hcms"},
-    {NSC_INT, 0, 0, offsetof(struct dchrstr, d_maxpop), "maxpop"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr ichr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct ichrstr, i_name), "name"},
-    {NSC_INT, 0, 0, offsetof(struct ichrstr, i_mnem), "mnem"},
-    {NSC_SITYPE(i_type), 0, 0, offsetof(struct ichrstr, i_vtype), "vtype"},
-    {NSC_INT, 0, 0, offsetof(struct ichrstr, i_value), "value"},
-    {NSC_INT, 0, 0, offsetof(struct ichrstr, i_sell), "sell"},
-    {NSC_INT, 0, 0, offsetof(struct ichrstr, i_lbs), "lbs"},
-    {NSC_INT, 0, NUMPKG, offsetof(struct ichrstr, i_pkg), "pkg"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr intrchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct sctintrins, in_name), "name"},
-    {NSC_UCHAR, 0, 0, offsetof(struct sctintrins, in_lcms), "lcms"},
-    {NSC_UCHAR, 0, 0, offsetof(struct sctintrins, in_hcms), "hcms"},
-    {NSC_UCHAR, 0, 0, offsetof(struct sctintrins, in_dcost), "dcost"},
-    {NSC_UCHAR, 0, 0, offsetof(struct sctintrins, in_mcost), "mcost"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr rpt_ca[] = {
-    {NSC_STRING, 0, NUM_RPTS, offsetof(struct rptstr, r_newstory), "newstory"},
-    {NSC_INT, 0, 0, offsetof(struct rptstr, r_good_will), "good_will"},
-    {NSC_INT, 0, 0, offsetof(struct rptstr, r_newspage), "newspage"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr tchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct tchrstr, t_name), "name"},
-    {NSC_INT, 0, 0, offsetof(struct tchrstr, t_cond), "cond"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr mchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct mchrstr, m_name), "name"},
-    {NSC_USHORT, 0, I_MAX+1, offsetof(struct mchrstr, m_item), "item"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_lcm), "lcm"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_hcm), "hcm"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_armor), "armor"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_speed), "speed"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_visib), "visib"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_vrnge), "vrnge"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_frnge), "frnge"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_glim), "glim"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_nxlight), "nxlight"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_nchoppers), "nchoppers"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_fuelc), "fuelc"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_fuelu), "fuelu"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_tech), "tech"},
-    {NSC_INT, 0, 0, offsetof(struct mchrstr, m_cost), "cost"},
-    {NSC_LONG, 0, 0, offsetof(struct mchrstr, m_flags), "flags"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_nplanes), "nplanes"},
-    {NSC_UCHAR, 0, 0, offsetof(struct mchrstr, m_nland), "nland"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr pchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct pchrstr, p_name), "name"},
-    {NSC_STRING, 0, 0, offsetof(struct pchrstr, p_sname), "sname"},
-    {NSC_SITYPE(i_type), 0, MAXPRCON, offsetof(struct pchrstr, p_ctype), "ctype"},
-    {NSC_USHORT, 0, MAXPRCON, offsetof(struct pchrstr, p_camt), "camt"},
-    {NSC_SITYPE(i_type), 0, 0, offsetof(struct pchrstr, p_type), "type"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_level), "level"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_cost), "cost"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_nrndx), "nrndx"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_nrdep), "nrdep"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_nlndx), "nlndx"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_nlmin), "nlmin"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_nllag), "nllag"},
-    {NSC_INT, 0, 0, offsetof(struct pchrstr, p_effic), "effic"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr plchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct plchrstr, pl_name), "name"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_lcm), "lcm"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_hcm), "hcm"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_cost), "cost"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_tech), "tech"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_acc), "acc"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_load), "load"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_att), "att"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_def), "def"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_range), "range"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_crew), "crew"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_fuel), "fuel"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_stealth), "stealth"},
-    {NSC_INT, 0, 0, offsetof(struct plchrstr, pl_flags), "flags"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr lchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct lchrstr, l_name), "name"},
-    {NSC_USHORT, 0, I_MAX+1, offsetof(struct mchrstr, m_item), "item"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_lcm), "lcm"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_hcm), "hcm"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_gun), "gun"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_shell), "shell"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_tech), "tech"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_cost), "cost"},
-    {NSC_FLOAT, 0, 0, offsetof(struct lchrstr, l_att), "att"},
-    {NSC_FLOAT, 0, 0, offsetof(struct lchrstr, l_def), "def"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_vul), "vul"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_spd), "spd"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_vis), "vis"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_spy), "spy"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_rad), "rad"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_frg), "frg"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_acc), "acc"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_dam), "dam"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_ammo), "ammo"},
-    {NSC_INT, 0, 0, offsetof(struct lchrstr, l_aaf), "aaf"},
-    {NSC_UCHAR, 0, 0, offsetof(struct lchrstr, l_fuelc), "fuelc"},
-    {NSC_UCHAR, 0, 0, offsetof(struct lchrstr, l_fuelu), "fuelu"},
-    {NSC_UCHAR, 0, 0, offsetof(struct lchrstr, l_nxlight), "nxlight"},
-    {NSC_UCHAR, 0, 0, offsetof(struct lchrstr, l_mxland), "mxland"},
-    {NSC_LONG, 0, 0, offsetof(struct lchrstr, l_flags), "flags"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-static struct castr nchr_ca[] = {
-    {NSC_STRING, 0, 0, offsetof(struct nchrstr, n_name), "name"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_lcm), "lcm"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_hcm), "hcm"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_oil), "oil"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_rad), "rad"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_blast), "blast"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_dam), "dam"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_cost), "cost"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_tech), "tech"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_weight), "weight"},
-    {NSC_INT, 0, 0, offsetof(struct nchrstr, n_flags), "flags"},
-    {NSC_NOTYPE, 0, 0, 0, NULL}
-};
-
-/* Characteristics table meta data */
-struct camap {
-    char *name;                        /* name for lookup */
-    struct castr *ca;          /* selector descriptors */
-    void *chr;                 /* characteristics table */
-    size_t size;               /* size of characteristics table element */
-};
-
-/* Table of characteristics tables */
-static struct camap chr_camap[] = {
-    {"sect chr", dchr_ca, dchr, sizeof(dchr[0])},
-    {"ship chr", mchr_ca, mchr, sizeof(mchr[0])},
-    {"plane chr", plchr_ca, plchr, sizeof(plchr[0])},
-    {"land chr", lchr_ca, lchr, sizeof(lchr[0])},
-    {"nuke chr", nchr_ca, nchr, sizeof(nchr[0])},
-#if 0
-    /* FIXME rpt[] lacks sentinel, xdchr() doesn't terminate */
-    {"news chr", rpt_ca, rpt, sizeof(rpt[0])},
-#endif
-    {"treaty chr", tchr_ca, tchr, sizeof(tchr[0])},
-    {"item", ichr_ca, ichr, sizeof(ichr[0])},
-    {"infrastructure", intrchr_ca, intrchr, sizeof(intrchr[0])},
-    {"product", pchr_ca, pchr, sizeof(pchr[0])},
-    {NULL, NULL, NULL, 0}
-};
-
-/*
- * Search chr_camap[] for element named NAME, return its index.
- * Return M_NOTFOUND if there are no matches, M_NOTUNIQUE if there are
- * several.
- */
-static int
-chridx_by_name(char *name)
-{
-    return stmtch(name, chr_camap, offsetof(struct camap, name),
-                 sizeof(chr_camap[0]));
-}
-
 /*
  * Evaluate a attribute of an object into VAL, return VAL.
  * TYPE is the attribute's type.
@@ -311,6 +117,7 @@ xdprval(struct valstr *val, char *sep)
        if (s) {
            pr("%s\"", sep);
            l = s + val->val_as.str.maxsz;
+           /* FIXME maxsz == INT_MAX ! */
            for (;;) {
                for (e=s; e<l && *e != '"' && *e != '\\' && isgraph(*e); ++e) ;
                pr("%.*s", (int)(e-s), s);
@@ -357,46 +164,95 @@ xdflds(struct castr ca[], void *ptr)
     }
 }
 
-/* Dump field names; CA[] describes fields.  */
-static void
-xdfldnam(struct castr ca[])
-{
-    int i;
-    char *sep = "";
-
-    for (i = 0; ca[i].ca_name; ++i) {
-       if (ca[i].ca_flags & NSC_DEITY && !player->god)
-           continue;
-       if (ca[i].ca_flags & NSC_EXTRA)
-           continue;
-       pr("%s%s", sep, ca[i].ca_name);
-       if (ca[i].ca_len && ca[i].ca_type != NSC_STRINGY)
-           pr(" %d", ca[i].ca_len);
-       sep = " ";
-    }
-}
-
-/* Dump first line of header for dump NAME.  */
+/*
+ * Dump header for dump NAME.
+ * If META, it's for the meta-data dump rather than the data dump.
+ */
 static void
-xdhdr1(char *name)
+xdhdr(char *name, int meta)
 {
-    pr("XDUMP %s %ld\n", name, (long)time(NULL));
+    pr("XDUMP %s%s %ld\n", meta ? "meta " : "", name, (long)time(NULL));
 }
 
-/* Dump header for dump NAME with fields described by CA[].  */
+/* Dump footer for a dump that dumped N objects.  */
 static void
-xdhdr(char *name, struct castr ca[])
+xdftr(int n)
 {
-    xdhdr1(name);
-    xdfldnam(ca);
-    pr("\n");
+    pr("/%d\n", n);
 }
 
-/* Dump footer for a dump that dumped N objects.  */
-static void
-xdftr(int n)
+/*
+ * Is object P of type TYPE visible to the player?
+ * TODO: Fold this into interators.
+ */
+static int
+xdvisible(int type, void *p)
 {
-    pr("dumped %d\n", n);
+    struct genitem *gp = p;
+    struct trtstr *tp = p;
+    struct lonstr *lp = p;
+    struct natstr *natp;
+    int tlev;
+
+    switch (type) {
+    case EF_SECTOR:
+       return gp->own == player->cnum || player->god;
+    case EF_SHIP:
+    case EF_PLANE:
+    case EF_LAND:
+    case EF_NUKE:
+    case EF_LOST:
+       return gp->own != 0 && (gp->own == player->cnum || player->god);
+    case EF_NATION:
+       if (gp->own == player->cnum || player->god)
+           return 1;
+       /* fall through */
+    case EF_COUNTRY:
+       return ((struct natstr *)p)->nat_stat != STAT_UNUSED;
+    case EF_NEWS:
+       return ((struct nwsstr *)p)->nws_vrb != 0
+           && (!opt_HIDDEN || player->god); /* FIXME */
+    case EF_TREATY:
+       return tp->trt_status != TS_FREE
+           && (tp->trt_cna == player->cnum || tp->trt_cnb == player->cnum
+               || player->god);
+    case EF_LOAN:
+       if (lp->l_status == LS_FREE)
+           return 0;
+       if (lp->l_status == LS_SIGNED)
+           return 1;
+       return lp->l_loner == player->cnum || lp->l_lonee == player->cnum
+           || player->god;
+    case EF_TRADE:
+    case EF_COMM:
+       return gp->own != 0;
+    case EF_SHIP_CHR:
+       tlev = ((struct mchrstr *)p)->m_tech;
+       goto tech;
+    case EF_PLANE_CHR:
+       tlev = ((struct plchrstr *)p)->pl_tech;
+       goto tech;
+    case EF_LAND_CHR:
+       tlev = ((struct lchrstr *)p)->l_tech;
+    tech:
+       natp = getnatp(player->cnum);
+       return player->god || tlev <= (int)(1.25 * natp->nat_level[NAT_TLEV]);
+    case EF_NUKE_CHR:
+       tlev = ((struct nchrstr *)p)->n_tech;
+       if (opt_DRNUKE) {
+           natp = getnatp(player->cnum);
+           if (tlev > (int)((int)(1.25 * natp->nat_level[NAT_RLEV])
+                            / drnuke_const))
+               return player->god;
+       }
+       goto tech;
+    case EF_NEWS_CHR:
+       return ((struct rptstr *)p)->r_newspage != 0;
+    case EF_TABLE:
+       return ((struct empfile *)p)->cadef != NULL;
+    default:
+       return 1;
+    }
 }
 
 /*
@@ -419,11 +275,11 @@ xditem(int type, char *arg)
     if (!snxtitem(&ni, type, arg))
        return RET_SYN;
 
-    xdhdr(ef_nameof(type), ca);
+    xdhdr(ef_nameof(type), 0);
 
     n = 0;
     while (nxtitem(&ni, buf)) {
-       if (check_owner && ((struct genitem *)buf)->own != player->cnum)
+       if (!xdvisible(type, buf))
            continue;
        ++n;
        xdflds(ca, buf);
@@ -436,34 +292,28 @@ xditem(int type, char *arg)
 }
 
 /*
- * Dump characteristics described by chr_camap[IDX].
- * Return RET_OK on success, RET_SYN if IDX < 0.
+ * Dump meta-data for items of type TYPE.
+ * Return RET_OK.
  */
 static int
-xdchr(int chridx)
+xdmeta(int type)
 {
-    struct camap *cm;
-    char *p;
-    struct valstr val;
-    int n;
+    struct castr *ca = ef_cadef(type);
+    int i;
+    int n = 0;
 
-    if (chridx < 0)
+    if (!ca)
        return RET_SYN;
-    cm = &chr_camap[chridx];
 
-    xdhdr(cm->name, cm->ca);
+    xdhdr(ef_nameof(type), 1);
 
-    n = 0;
-    for (p = cm->chr; ; p += cm->size) {
-       val.val_type = cm->ca[0].ca_type;
-       val.val_cat = NSC_OFF;
-       val.val_as.sym.off = cm->ca[0].ca_off;
-       val.val_as.sym.idx = 0;
-       nstr_exec_val(&val, player->cnum, p, NSC_STRING);
-       if (!val.val_as.str.base || !*val.val_as.str.base)
-           break;
-       ++n;
-       xdflds(cm->ca, p);
+    for (i = 0; ca[i].ca_name; i++) {
+       if (ca[i].ca_flags & NSC_DEITY && !player->god)
+           continue;
+       if (ca[i].ca_flags & NSC_EXTRA)
+           continue;
+       xdflds(mdchr_ca, &ca[i]);
+       n++;
        pr("\n");
     }
 
@@ -472,50 +322,40 @@ xdchr(int chridx)
     return RET_OK;
 }
 
-/* Dump Options[], return RET_OK.  */
-static int
-xdopt(void)
-{
-    int i;
-    char *sep;
-
-    xdhdr1("options");
-
-    sep = "";
-    for (i = 0; Options[i].opt_key; ++i) {
-       pr("%s%s", sep, Options[i].opt_key);
-       sep = " ";
-    }
-    pr("\n");
-    
-    sep = "";
-    for (i = 0; Options[i].opt_key; ++i) {
-       pr("%s%d", sep, *Options[i].opt_valuep);
-       sep = " ";
-    }
-    pr("\n");
-
-    return RET_OK;
-}
-
+/*
+ * Dump configkeys[], return RET_OK.
+ * If META, dump meta-data rather than data.
+ */
 static int
-xdver(void)
+xdver(int meta)
 {
     struct keymatch *kp;
     char *sep;
+    int n;
+    struct castr ca;
     struct valstr val;
 
-    xdhdr1("version");
-
-    sep = "";
-    for (kp = configkeys; kp->km_key; ++kp) {
-       if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
-           pr("%s%s", sep, kp->km_key);
-           sep = " ";
+    xdhdr("version", meta);
+
+    if (meta) {
+       n = 0;
+       for (kp = configkeys; kp->km_key; ++kp) {
+           if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
+               ca.ca_type = kp->km_type;
+               ca.ca_flags = 0;
+               ca.ca_len = 0;
+               ca.ca_off = 0;
+               ca.ca_name = kp->km_key;
+               ca.ca_table = EF_BAD;
+               xdflds(mdchr_ca, &ca);
+               pr("\n");
+               n++;
+           }
        }
+       xdftr(n);
+       return RET_OK;
     }
-    pr("\n");
-    
+
     sep = "";
     for (kp = configkeys; kp->km_key; ++kp) {
        if (kp->km_type != NSC_NOTYPE && !(kp->km_flags & KM_INTERNAL)) {
@@ -525,6 +365,8 @@ xdver(void)
     }
     pr("\n");
 
+    xdftr(1);
+
     return RET_OK;
 }
 
@@ -535,6 +377,7 @@ xdump(void)
     char *p;
     char buf[1024];
     int type;
+    int meta = 0;
 
     if (!opt_GUINEA_PIGS) {
        pr("You are not a guinea pig!\n");
@@ -542,18 +385,21 @@ xdump(void)
     }
 
     p = getstarg(player->argp[1], "What? ", buf);
+    if (p && strcmp(p, "meta") == 0) {
+       meta = 1;
+       p = getstarg(player->argp[2], "What? ", buf);
+    }
     if (!p)
        return RET_SYN;
 
-    type = ef_byname(p);
-    if (type >= 0) {
-       return xditem(type, player->argp[2]);
-    } else if (!strncmp(p, "chr", strlen(p)) && player->argp[2]) {
-       return xdchr(chridx_by_name(player->argp[2]));
-    } else if (!strncmp(p, "opt", strlen(p))) {
-       return xdopt();
+    type = isdigit(p[0]) ? atoi(p) : ef_byname(p);
+    if (type >= 0 && type < EF_MAX) {
+       if (meta)
+           return xdmeta(type);
+       else
+           return xditem(type, player->argp[2]);
     } else if (!strncmp(p, "ver", strlen(p))) {
-       return xdver();
+       return xdver(meta);
     }
 
     return RET_SYN;