empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comments, cosmetics.

Browse source
This commit is contained in:
Markus Armbruster 2004-08-20 13:18:28 +00:00
parent fe50838824
commit 19f567bccf
1 changed files with 80 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

90
src/lib/commands/xdump.c
View file

@ -1,3 +1,36 @@
/*
* Empire - A multi-player, client/server Internet based war game.
* Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
* Ken Stevens, Steve McClure
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* ---
*
* 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.
*
* ---
*
* xdump.c: Experimental extended dump
*
* Known contributors to this file:
* Markus Armbruster, 2004
*/
#include <stddef.h>
#include "misc.h"
#include "file.h"
@ -40,6 +73,11 @@
* - Market: EF_COMM, commodity_ca[]
*/
/* FIXME document dump format */
/* Selector descriptors for characteristics tables */
/* FIXME belongs into src/lib/global/ */
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"},
@ -153,13 +191,15 @@ static struct castr nchr_ca[] = {
{NSC_NOTYPE, 0, 0, 0, NULL}
};
/* Characteristics table meta data */
struct camap {
char *name;
struct castr *ca;
void *chr;
size_t size;
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[] = {
{"item", ichr_ca, ichr, sizeof(ichr[0])},
{"product", pchr_ca, pchr, sizeof(pchr[0])},
@ -170,6 +210,11 @@ static struct camap chr_camap[] = {
{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)
{
@ -177,18 +222,26 @@ chridx_by_name(char *name)
sizeof(chr_camap[0]));
}
/*
* Evaluate a attribute of an object into VAL.
* TYPE is the attribute's type.
* PTR points to the context object.
* The attribute is stored there at offset OFF + IDX * S, where S is
* its size.
*/
static struct valstr *
xdeval(struct valstr *val, nsc_type type, ptrdiff_t off, void *item, int idx)
xdeval(struct valstr *val, nsc_type type, void *ptr, ptrdiff_t off, int idx)
{
val->val_type = type;
val->val_cat = NSC_OFF;
val->val_as_type = -1;
val->val_as.sym.off = off;
val->val_as.sym.idx = idx;
nstr_exec_val(val, player->cnum, item, 0);
nstr_exec_val(val, player->cnum, ptr, 0);
return val; /* FIXME nstr_exec_val() should return VAL */
}
/* Dump VAL prefixed with SEP, return " ". */
static char *
xdprval(struct valstr *val, char *sep)
{
@ -218,8 +271,13 @@ xdprval(struct valstr *val, char *sep)
return " ";
}
/*
* Dump field values of a context object.
* CA[] describes fields.
* PTR points to context object.
*/
static void
xdflds(struct castr ca[], void *item)
xdflds(struct castr ca[], void *ptr)
{
int i, j;
struct valstr val;
@ -230,14 +288,15 @@ xdflds(struct castr ca[], void *item)
continue;
j = 0;
do {
xdeval(&val, ca[i].ca_type, ca[i].ca_off, item, j);
xdeval(&val, ca[i].ca_type, ptr, ca[i].ca_off, j);
sep = xdprval(&val, sep);
} while (++j < ca[i].ca_len);
}
}
/* Dump field names; CA[] describes fields. */
static void
xdhdrs(struct castr ca[])
xdfldnam(struct castr ca[])
{
int i;
char *sep = "";
@ -252,22 +311,28 @@ xdhdrs(struct castr ca[])
}
}
/* Dump header for dump NAME with fields described by CA[]. */
static void
xdhdr(char *name, struct castr ca[])
{
prdate();
pr("DUMP %s %ld\n", name, (long)time(NULL));
xdhdrs(ca);
xdfldnam(ca);
pr("\n");
}
/* Dump footer for a dump that dumped N objects. */
static void
xdftr(int n)
{
pr("dumped %d\n", n);
}
/*
* Dump items of type TYPE selected by ARG.
* Return RET_OK on success, RET_SYN on error.
*/
static int
xditem(int type, char *arg)
{
@ -299,6 +364,10 @@ xditem(int type, char *arg)
return RET_OK;
}
/*
* Dump characteristics described by chr_camap[IDX].
* Return RET_OK on success, RET_SYN if IDX < 0.
*/
static int
xdchr(int chridx)
{
@ -333,6 +402,7 @@ xdchr(int chridx)
return RET_OK;
}
/* Experimental extended dump command */
int
xdump(void)
{