2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2015, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
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.
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.
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/>.
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.
27 * cargo.c: Cargo lists
29 * Known contributors to this file:
30 * Markus Armbruster, 2009
43 int head[EF_NUKE - EF_PLANE + 1];
49 * Persistent game state encodes "who carries what" by storing the
50 * carrier uid in the cargo. Cargo lists augment that: they store
51 * lists of cargo for each carrier.
53 * clink[TYPE] points to an array of cargo list links. The array has
54 * nclink[TYPE] elements. nclink[TYPE] tracks ef_nelem(TYPE).
55 * clink[TYPE][UID] is the cargo list link for unit UID of type TYPE.
56 * TYPE must be a unit file type: EF_SHIP, EF_PLANE, EF_LAND or
57 * EF_NUKE. Other slots of clink[] and nclink[] are unused and remain
60 * clink[TYPE][UID].next is the uid of the next unit of the same type
61 * in the same carrier, -1 if none.
63 * clink[TYPE][UID].head[CARGO-EF_PLANE] is the uid of the first unit
64 * of type CARGO carried by this unit, -1 if none. The next unit, if
65 * any, is clink[CARGO][clink[TYPE][UID].head[CARGO-EF_PLANE]].next,
68 * Each type of carrier can only carry certain types of cargo, but
69 * cargo lists know nothing about that.
71 static struct clink *clink[EF_NUKE + 1];
72 static int nclink[EF_NUKE + 1];
75 * Return pointer to CL's cargo list head for file type TYPE.
78 clink_headp(struct clink *cl, int type)
82 if (CANT_HAPPEN(type < EF_PLANE || type > EF_NUKE)) {
86 return &cl->head[type - EF_PLANE];
90 * Initialize cargo list link CL to empty.
93 clink_init(struct clink *cl)
98 for (i = 0; i < sizeof(cl->head) / sizeof(*cl->head); i++)
103 * Check whether *UIDP is a valid uid for file type TYPE.
106 clink_check1(int *uidp, int type)
108 if (CANT_HAPPEN(*uidp >= nclink[type]))
113 * Check validity of cargo lists for file type TYPE.
116 clink_check(int type)
120 /* check the heads for all carriers */
121 if (type != EF_SHIP) {
122 for (carr_type = EF_PLANE; carr_type <= EF_NUKE; carr_type++) {
123 for (i = 0; i < nclink[carr_type]; i++)
124 clink_check1(clink_headp(&clink[carr_type][i], type),
128 /* check the nexts */
129 for (i = 0; i < nclink[type]; i++)
130 clink_check1(&clink[type][i].next, type);
134 * Add to CL's cargo list for type TYPE the uid UID.
135 * UID must not be on any cargo list already.
138 clink_add(struct clink *cl, int type, int uid)
140 int *head = clink_headp(cl, type);
142 if (CANT_HAPPEN(type < 0 || type > EF_NUKE
143 || uid < 0 || uid >= nclink[type]))
145 if (CANT_HAPPEN(*head >= nclink[type]))
147 CANT_HAPPEN(clink[type][uid].next >= 0);
148 clink[type][uid].next = *head;
153 * Remove from CL's cargo list for type TYPE the uid UID.
154 * UID must be on that cargo list.
157 clink_rem(struct clink *cl, int type, int uid)
159 int *head = clink_headp(cl, type);
164 if (CANT_HAPPEN(type < 0 || type > EF_NUKE))
169 for (p = head; *p != uid; p = &linkv[*p].next) {
170 if (CANT_HAPPEN(*p < 0 || *p >= n))
174 *p = linkv[uid].next;
175 linkv[uid].next = -1;
179 * Update cargo lists for a change of CARGO's carrier.
180 * Carrier is of type TYPE, and changes from uid OLD to NEW.
181 * Negative uids mean no carrier.
184 unit_carrier_change(struct empobj *cargo, int type, int old, int new)
186 if (CANT_HAPPEN(type < 0 || type > EF_NUKE))
188 if (old >= 0 && !CANT_HAPPEN(old >= nclink[type]))
189 clink_rem(&clink[type][old], cargo->ef_type, cargo->uid);
190 if (new >= 0 && !CANT_HAPPEN(new >= nclink[type]))
191 clink_add(&clink[type][new], cargo->ef_type, cargo->uid);
195 * Update cargo lists for a change of PP's carrier.
196 * Carrier is of type TYPE, and changes from uid OLD to NEW.
197 * Negative uids mean no carrier.
200 pln_carrier_change(struct plnstr *pp, int type, int old, int new)
202 unit_carrier_change((struct empobj *)pp, type, old, new);
206 * Update cargo lists for a change of LP's carrier.
207 * Carrier is of type TYPE, and changes from uid OLD to NEW.
208 * Negative uids mean no carrier.
211 lnd_carrier_change(struct lndstr *lp, int type, int old, int new)
213 unit_carrier_change((struct empobj *)lp, type, old, new);
217 * Update cargo lists for a change of NP's carrier.
218 * Carrier is of type TYPE, and changes from uid OLD to NEW.
219 * Negative uids mean no carrier.
222 nuk_carrier_change(struct nukstr *np, int type, int old, int new)
224 unit_carrier_change((struct empobj *)np, type, old, new);
228 * Initialize cargo lists from game state.
231 unit_cargo_init(void)
238 memset(nclink, 0, sizeof(nclink));
239 for (i = EF_SHIP; i <= EF_NUKE; i++)
242 for (i = 0; (pp = getplanep(i)); i++) {
244 if (CANT_HAPPEN(pp->pln_ship >= 0 || pp->pln_land >= 0))
245 pp->pln_ship = pp->pln_land = -1;
248 if (CANT_HAPPEN(pp->pln_ship >= 0 && pp->pln_land >= 0))
250 pln_carrier_change(pp, EF_SHIP, -1, pp->pln_ship);
251 pln_carrier_change(pp, EF_LAND, -1, pp->pln_land);
253 for (i = 0; (lp = getlandp(i)); i++) {
255 if (CANT_HAPPEN(lp->lnd_ship >= 0 || lp->lnd_land >= 0))
256 lp->lnd_ship = lp->lnd_land = -1;
259 if (CANT_HAPPEN(lp->lnd_ship >= 0 && lp->lnd_land >= 0))
261 lnd_carrier_change(lp, EF_SHIP, -1, lp->lnd_ship);
262 lnd_carrier_change(lp, EF_LAND, -1, lp->lnd_land);
264 for (i = 0; (np = getnukep(i)); i++) {
266 if (CANT_HAPPEN(np->nuk_plane >= 0))
270 nuk_carrier_change(np, EF_PLANE, -1, np->nuk_plane);
275 * Resize clink[TYPE] to match ef_nelem(TYPE).
276 * Return 0 on success, -1 on error.
277 * This is the struct empfile onresize callback for units.
280 unit_onresize(int type)
285 if (CANT_HAPPEN(type < EF_SHIP || type > EF_NUKE))
289 cl = realloc(clink[type], n * sizeof(*clink[type]));
292 for (i = nclink[type]; i < n; i++)
296 if (ef_flags(type) & EFF_MEM)
301 * Find first unit on a carrier's cargo list for file type CARGO_TYPE.
302 * Search carrier UID of type TYPE.
303 * Return first unit's uid, or -1 if the carrier isn't carrying such
307 unit_cargo_first(int type, int uid, int cargo_type)
311 if (CANT_HAPPEN(type < EF_SHIP || type > EF_NUKE))
313 if (CANT_HAPPEN(uid < 0 || uid >= nclink[type]))
315 headp = clink_headp(&clink[type][uid], cargo_type);
316 if (CANT_HAPPEN(!headp))
322 * Find the next unit on a cargo list for file type CARGO_TYPE.
323 * Get the unit after CARGO_UID.
324 * Return its uid, or -1 if there are no more on this list.
327 unit_cargo_next(int cargo_type, int cargo_uid)
329 if (CANT_HAPPEN(cargo_type < EF_SHIP || cargo_type > EF_NUKE))
331 if (CANT_HAPPEN(cargo_uid < 0 || cargo_uid >= nclink[cargo_type]))
333 return clink[cargo_type][cargo_uid].next;
337 * If SP carries planes, return the uid of the first one, else -1.
340 pln_first_on_ship(struct shpstr *sp)
342 return unit_cargo_first(EF_SHIP, sp->shp_uid, EF_PLANE);
346 * If LP carries planes, return the uid of the first one, else -1.
349 pln_first_on_land(struct lndstr *lp)
351 return unit_cargo_first(EF_LAND, lp->lnd_uid, EF_PLANE);
355 * Find the next plane on the same carrier as plane#UID.
356 * Return its uid, or -1 if there are no more.
359 pln_next_on_unit(int uid)
361 return unit_cargo_next(EF_PLANE, uid);
365 * If SP carries land units, return the uid of the first one, else -1.
368 lnd_first_on_ship(struct shpstr *sp)
370 return unit_cargo_first(EF_SHIP, sp->shp_uid, EF_LAND);
374 * If SP carries land units, return the uid of the first one, else -1.
377 lnd_first_on_land(struct lndstr *lp)
379 return unit_cargo_first(EF_LAND, lp->lnd_uid, EF_LAND);
383 * Find the next land unit on the same carrier as land#UID.
384 * Return its uid, or -1 if there are no more.
387 lnd_next_on_unit(int uid)
389 return unit_cargo_next(EF_LAND, uid);
393 * If PP carries a nuke, return its uid, else -1.
396 nuk_on_plane(struct plnstr *pp)
398 return unit_cargo_first(EF_PLANE, pp->pln_uid, EF_NUKE);
402 * Return length of a carrier's cargo list for file type CARGO_TYPE.
405 unit_cargo_count(int type, int uid, int cargo_type)
410 for (cargo = unit_cargo_first(type, uid, cargo_type);
412 cargo = unit_cargo_next(cargo_type, cargo))
419 * Return number of land units loaded on SP.
422 shp_nland(struct shpstr *sp)
424 return unit_cargo_count(EF_SHIP, sp->shp_uid, EF_LAND);
428 * Return number of land units loaded on LP.
431 lnd_nland(struct lndstr *lp)
433 return unit_cargo_count(EF_LAND, lp->lnd_uid, EF_LAND);
437 unit_nplane(int type, int uid, int *nchopper, int *nxlight, int *nmsl)
439 int n, nch, nxl, nms, cargo;
441 struct plchrstr *pcp;
443 n = nxl = nch = nms = 0;
444 for (cargo = unit_cargo_first(type, uid, EF_PLANE);
445 (pp = getplanep(cargo));
446 cargo = pln_next_on_unit(cargo)) {
447 pcp = &plchr[pp->pln_type];
448 if (pcp->pl_flags & P_K)
450 else if (pcp->pl_flags & P_E)
452 else if (pcp->pl_flags & P_M)
467 shp_nplane(struct shpstr *sp, int *nchopper, int *nxlight, int *nmsl)
469 return unit_nplane(EF_SHIP, sp->shp_uid, nchopper, nxlight, nmsl);
473 lnd_nxlight(struct lndstr *lp)
477 unit_nplane(EF_LAND, lp->lnd_uid, NULL, &n, NULL);