git.pond.sub.org Git - empserver/blob - src/lib/subs/sarg.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2000, 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 the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
  23  *  related information and legal notices. It is expected that any future
  24  *  projects/authors will amend these files as needed.
  25  *
  26  *  ---
  27  *
  28  *  sarg.c: Parse selection arguments
  29  *
  30  *  Known contributors to this file:
  31  *     Dave Pare, 1989
  32  */
  33
  34 #include <ctype.h>
  35 #include "misc.h"
  36 #include "player.h"
  37 #include "xy.h"
  38 #include "nsc.h"
  39 #include "sect.h"
  40 #include "nat.h"
  41 #include "deity.h"
  42 #include "file.h"
  43 #include "prototypes.h"
  44 #include "optlist.h"
  45
  46 /*
  47  * returns one of
  48  *
  49  *  #1, lx:ly,hx:hy --> NS_AREA
  50  *  @x,y:dist  --> NS_DIST
  51  *  %d or %d/%d/%d --> NS_LIST
  52  *  * --> NS_ALL
  53  *
  54  * or 0 for none of the above.
  55  */
  56 int
  57 sarg_type(s_char *ptr)
  58 {
  59     int c;
  60
  61     c = *ptr;
  62     if (c == '@')
  63         return NS_DIST;
  64     if (c == '*')
  65         return NS_ALL;
  66     if (c == '#' || index(ptr, ',') != 0)
  67         return NS_AREA;
  68     if (isdigit(c))
  69         return NS_LIST;
  70     if (c == '~' || isupper(c) || islower(c))
  71         return NS_GROUP;
  72     return 0;
  73 }
  74
  75 int
  76 sarg_xy(s_char *ptr, coord *xp, coord *yp)
  77 {
  78     if (sarg_type(ptr) != NS_AREA)
  79         return 0;
  80     *xp = atoip(&ptr);
  81     if (*ptr++ != ',')
  82         return 0;
  83     if (!isdigit(*ptr) && *ptr != '-')
  84         return 0;
  85     *yp = atoi(ptr);
  86     inputxy(xp, yp, player->cnum);
  87     if ((*xp ^ *yp) & 01)
  88         return 0;
  89     return 1;
  90 }
  91
  92 /* returns absolute coords */
  93 int
  94 sarg_getrange(s_char *buf, register struct range *rp)
  95 {
  96     register int rlm;
  97     register int c;
  98     struct natstr *np;
  99     s_char *bp;
 100
 101     bp = buf;
 102     c = *bp;
 103     if (c == '#') {
 104         /*
 105          * realm #X where (X > 0 && X < MAXNOR)
 106          * Assumes realms are in abs coordinates
 107          */
 108         bp++;
 109         rlm = atoi(bp);
 110         if (rlm < 0 || rlm >= MAXNOR)
 111             return 0;
 112         np = getnatp(player->cnum);
 113         rp->lx = np->nat_b[rlm].b_xl;
 114         rp->hx = np->nat_b[rlm].b_xh;
 115         rp->ly = np->nat_b[rlm].b_yl;
 116         rp->hy = np->nat_b[rlm].b_yh;
 117     } else {
 118         /*
 119          * full map specification
 120          * LX:LY,HX:HY where
 121          * ly, hy are optional.
 122          */
 123         if (!isdigit(c) && c != '-')
 124             return 0;
 125         rp->lx = rp->hx = atoip(&bp);
 126         if (*bp == ':') {
 127             bp++;
 128             rp->hx = atoip(&bp);
 129         }
 130         if (*bp++ != ',')
 131             return 0;
 132         if (!isdigit(c) && c != '-')
 133             return 0;
 134         rp->ly = rp->hy = atoip(&bp);
 135         if (*bp == ':') {
 136             bp++;
 137             rp->hy = atoip(&bp);
 138         }
 139         inputxy(&rp->lx, &rp->ly, player->cnum);
 140         inputxy(&rp->hx, &rp->hy, player->cnum);
 141     }
 142     xysize_range(rp);
 143     return 1;
 144 }
 145
 146 /*
 147  * translate #1 or lx:ly,hx:hy into
 148  * a result range struct
 149  */
 150 int
 151 sarg_area(s_char *buf, register struct range *rp)
 152 {
 153     if (!sarg_getrange(buf, rp))
 154         return 0;
 155     rp->hx += 1;
 156     if (rp->hx >= WORLD_X)
 157         rp->hx = 0;
 158     rp->hy += 1;
 159     if (rp->hy >= WORLD_Y)
 160         rp->hy = 0;
 161     xysize_range(rp);
 162     return 1;
 163 }
 164
 165 /*
 166  * translate @x,y:int into
 167  * result params
 168  */
 169 int
 170 sarg_range(s_char *buf, coord *xp, coord *yp, int *dist)
 171 {
 172     s_char *bp;
 173
 174     bp = buf;
 175     if (bp == 0 || *bp == 0)
 176         return 0;
 177     if (*bp++ != '@')
 178         return 0;
 179     *xp = atoip(&bp);
 180     if (*bp++ != ',')
 181         return 0;
 182     *yp = atoip(&bp);
 183     if (*bp++ != ':')
 184         return 0;
 185     inputxy(xp, yp, player->cnum);
 186     *dist = atoi(bp);
 187     return 1;
 188 }
 189
 190 /*
 191  * list of idents; id/id/id/id/id
 192  */
 193 int
 194 sarg_list(s_char *str, register int *list, int max)
 195 {
 196     register int i;
 197     register int j;
 198     register int n;
 199     s_char *arg;
 200
 201     arg = str;
 202     for (i = 0; i < max; i++) {
 203         if (!isdigit(*arg)) {
 204             pr("Illegal character '%c'\n", *arg);
 205             return 0;
 206         }
 207         n = atoip(&arg);
 208         for (j = 0; j < i; j++) {
 209             if (list[j] == n)
 210                 break;
 211         }
 212         if (j != i) {
 213             /* duplicate; ignore */
 214             i--;
 215         } else
 216             list[i] = n;
 217         if (*arg == 0)
 218             break;
 219         if (*arg != '/') {
 220             pr("Expecting '/', got '%c'\n", *arg);
 221             return 0;
 222         }
 223         arg++;
 224         if (*arg == 0)
 225             break;
 226     }
 227     return i + 1;
 228 }