1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
/* Definitions and functions for Xconq's tables.
Copyright (C) 1991, 1992, 1993, 1994, 1996 Stanley T. Shebs.
Xconq 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, or (at your option)
any later version. See the file COPYING. */
#include "config.h"
#include "misc.h"
#include "lisp.h"
#include "game.h"
/* Fill in the array that defines the characteristics of each table. */
TableDefn tabledefns[] = {
#undef DEF_UU_TABLE
#define DEF_UU_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, UTYP, UTYP, VALTYPE },
#undef DEF_UM_TABLE
#define DEF_UM_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, UTYP, MTYP, VALTYPE },
#undef DEF_UT_TABLE
#define DEF_UT_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, UTYP, TTYP, VALTYPE },
#undef DEF_TM_TABLE
#define DEF_TM_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, TTYP, MTYP, VALTYPE },
#undef DEF_TT_TABLE
#define DEF_TT_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, TTYP, TTYP, VALTYPE },
#undef DEF_MM_TABLE
#define DEF_MM_TABLE(NAME,FNAME,DOC,TABLE,CNST,LO,DFLT,HI,VALTYPE) \
{ NAME, FNAME, DOC, &TABLE, DFLT, LO, HI, MTYP, MTYP, VALTYPE },
#include "table.def"
{ NULL }
};
/* Define the accessor functions themselves. */
#undef DEF_UU_TABLE
#define DEF_UU_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(u1,u2) int u1, u2; \
{ checku(u1); checku(u2); \
return (TABLE ? TABLE[numutypes*(u1)+(u2)] : CNST); }
#undef DEF_UM_TABLE
#define DEF_UM_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(u,m) int u, m; \
{ checku(u); checkm(m); \
return (TABLE ? TABLE[nummtypes*(u)+(m)] : CNST); }
#undef DEF_UT_TABLE
#define DEF_UT_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(u,t) int u, t; \
{ checku(u); checkt(t); \
return (TABLE ? TABLE[numttypes*(u)+(t)] : CNST); }
#undef DEF_TM_TABLE
#define DEF_TM_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(t,m) int t, m; \
{ checkt(t); checkm(m); \
return (TABLE ? TABLE[nummtypes*(t)+(m)] : CNST); }
#undef DEF_TT_TABLE
#define DEF_TT_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(t1,t2) int t1, t2; \
{ checkt(t1); checkt(t2); \
return (TABLE ? TABLE[numttypes*(t1)+(t2)] : CNST); }
#undef DEF_MM_TABLE
#define DEF_MM_TABLE(name,FNAME,doc,TABLE,CNST,lo,DFLT,hi,valtype) \
short *TABLE = NULL, CNST = DFLT; \
int FNAME(m1,m2) int m1, m2; \
{ checkm(m1); checkm(m2); \
return (TABLE ? TABLE[nummtypes*(m1)+(m2)] : CNST); }
#include "table.def"
|
