]> git.pond.sub.org Git - empserver/blob - src/lib/common/type.c
Symbolic names for table entries in conditionals, closes #928376:
[empserver] / src / lib / common / type.c
1 /*
2  *  Empire - A multi-player, client/server Internet based war game.
3  *  Copyright (C) 1986-2006, Dave Pare, Jeff Bailey, Thomas Ruschak,
4  *                           Ken Stevens, Steve McClure
5  *
6  *  This program 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 2 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, write to the Free Software
18  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  *
20  *  ---
21  *
22  *  See files README, COPYING and CREDITS in the root of the source
23  *  tree for related information and legal notices.  It is expected
24  *  that future projects/authors will amend these files as needed.
25  *
26  *  ---
27  *
28  *  type.c: typename to array offset translation
29  * 
30  *  Known contributors to this file:
31  *     Dave Pare, 1989
32  *     Steve McClure, 2000
33  */
34
35 #include <config.h>
36
37 #include <stddef.h>
38 #include <string.h>
39 #include "misc.h"
40 #include "ship.h"
41 #include "land.h"
42 #include "plane.h"
43 #include "sect.h"
44 #include "nuke.h"
45 #include "file.h"
46 #include "common.h"
47 #include "match.h"
48
49 /*
50  * Return index of sector called NAME in dchr[], or M_NOTFOUND.
51  */
52 int
53 sct_typematch(char *name)
54 {
55     int i;
56
57     if (name[0] && !name[1])
58         for (i = 0; dchr[i].d_name; ++i)
59             if (dchr[i].d_mnem == *name)
60                 return i;
61     return M_NOTFOUND;
62 }
63
64 /*
65  * Search for NAME in the characteristics table for TYPE, return index.
66  * Return M_NOTFOUND if there are no matches, M_NOTUNIQUE if there are
67  * several.
68  * If TYPE is EF_SECTOR, search dchr[]
69  * If TYPE is EF_SHIP, search mchr[].
70  * If TYPE is EF_PLANE, search plchr[].
71  * If TYPE is EF_LAND, search lchr[].
72  * If TYPE is EF_NUKE, search nchr[].
73  */
74 int
75 typematch(char *name, int type)
76 {
77     switch (type) {
78     case EF_SECTOR:
79         return sct_typematch(name);
80     case EF_SHIP:
81         return stmtch(name, mchr,
82                       offsetof(struct mchrstr, m_name),
83                       sizeof(mchr[0]));
84     case EF_LAND:
85         return stmtch(name, lchr,
86                       offsetof(struct lchrstr, l_name),
87                       sizeof(lchr[0]));
88     case EF_PLANE:
89         return stmtch(name, plchr,
90                       offsetof(struct plchrstr, pl_name),
91                       sizeof(plchr[0]));
92     case EF_NUKE:
93         return stmtch(name, nchr,
94                       offsetof(struct nchrstr, n_name),
95                       sizeof(nchr[0]));
96     default:
97         break;
98     }
99     return M_NOTFOUND;
100 }
101
102 /*
103  * Search table TYPE for an element matching NAME, return its index.
104  * Return M_NOTFOUND if there are no matches, M_NOTUNIQUE if there are
105  * several.
106  */
107 int
108 ef_elt_byname(int type, char *name)
109 {
110     switch (type) {
111     case EF_NATION:
112         return cnumb(name);
113     case EF_SECTOR_CHR:
114         return sct_typematch(name);
115     case EF_SHIP_CHR:
116         return stmtch(name, mchr,
117                       offsetof(struct mchrstr, m_name),
118                       sizeof(mchr[0]));
119     case EF_LAND_CHR:
120         return stmtch(name, lchr,
121                       offsetof(struct lchrstr, l_name),
122                       sizeof(lchr[0]));
123     case EF_PLANE_CHR:
124         return stmtch(name, plchr,
125                       offsetof(struct plchrstr, pl_name),
126                       sizeof(plchr[0]));
127     case EF_NUKE_CHR:
128         return stmtch(name, nchr,
129                       offsetof(struct nchrstr, n_name),
130                       sizeof(nchr[0]));
131     case EF_ITEM:
132         return stmtch(name, ichr,
133                       offsetof(struct ichrstr, i_name),
134                       sizeof(ichr[0]));
135     case EF_PRODUCT:
136         return stmtch(name, pchr + 1,
137                       offsetof(struct pchrstr, p_sname),
138                       sizeof(pchr[0]));
139     case EF_TABLE:
140         return stmtch(name, empfile,
141                       offsetof(struct empfile, name),
142                       sizeof(empfile[0]));
143     default:
144         if (ef_cadef(type) == symbol_ca)
145             return stmtch(name, ef_ptr(type, 0),
146                           offsetof(struct symbol, name),
147                           sizeof(struct symbol));
148     }
149     return M_NOTFOUND;
150 }