/*
* translate #1 or lx:ly,hx:hy into a result range struct
* returns absolute coords
*/
int
sarg_area(char *str, struct range *rp)
{
long rlm;
struct natstr *np;
struct realmstr realm;
char *end;
if (*str == '#') {
/*
* realm #X where (X > 0 && X < MAXNOR)
* Assumes realms are in abs coordinates
*/
if (*++str) {
rlm = strtol(str, &end, 10);
if (end == str || (*end != 0 && !isspace(*end))
|| rlm < 0 || MAXNOR <= rlm)
return 0;
} else
rlm = 0;
getrealm(rlm, player->cnum, &realm);
rp->lx = realm.r_xl;
rp->hx = realm.r_xh;
rp->ly = realm.r_yl;
rp->hy = realm.r_yh;
} else {
/*
* full map specification
* LX:LY,HX:HY where
* ly, hy are optional.
*/
rp->lx = rp->hx = strtox(str, &str);
if (rp->lx < 0)
return 0;
if (*str == ':') {
rp->hx = strtox(str + 1, &str);
if (rp->hx < 0)
return 0;
}
if (*str++ != ',')
return 0;
rp->ly = rp->hy = strtoy(str, &str);
if (rp->ly < 0)
return 0;
if (*str == ':') {
rp->hy = strtoy(str + 1, &str);
if (rp->hy < 0)
return 0;
}
if (*str != 0 && !isspace(*str))
return 0;
np = getnatp(player->cnum);
rp->lx = xabs(np, rp->lx);
rp->hx = xabs(np, rp->hx);
rp->ly = yabs(np, rp->ly);
rp->hy = yabs(np, rp->hy);
}
xysize_range(rp);
return 1;
}
static long double strtox(const char *s, char **p, int prec)
{
char *t = (char *)s;
while (isspace(*t)) t++;
FILE f = {
.buf = (void *)t, .rpos = (void *)t,
.rend = (void *)-1, .lock = -1
};
shlim(&f, 0);
long double y = __floatscan(&f, -1, prec, 1);
off_t cnt = shcnt(&f);
if (p) *p = cnt ? t + cnt : (char *)s;
return y;
}
float strtof(const char *s, char **p)
{
return strtox(s, p, 0);
}
double strtod(const char *s, char **p)
{
return strtox(s, p, 1);
}
long double strtold(const char *s, char **p)
{
return strtox(s, p, 2);
}
/*
* translate @x,y:int into
* result params
*/
int
sarg_range(char *str, coord *xp, coord *yp, int *dist)
{
coord x, y;
long d;
char *end;
struct natstr *np;
if (*str++ != '@')
return 0;
x = strtox(str, &str);
if (x < 0 || *str++ != ',')
return 0;
y = strtoy(str, &str);
if (y < 0 || *str++ != ':')
return 0;
d = strtol(str, &end, 10);
if (end == str || (*end != 0 && !isspace(*end)) || d < 0)
return 0;
*dist = d;
np = getnatp(player->cnum);
*xp = xabs(np, x);
*yp = yabs(np, y);
return 1;
}
int
sarg_xy(char *str, coord *xp, coord *yp)
{
coord x, y;
struct natstr *np;
x = strtox(str, &str);
if (x < 0 || *str++ != ',')
return 0;
y = strtoy(str, &str);
if (y < 0 || (*str != 0 && !isspace(*str)))
return 0;
if ((x ^ y) & 1)
return 0;
np = getnatp(player->cnum);
*xp = xabs(np, x);
*yp = yabs(np, y);
return 1;
}
long strtol(const char *s, char **p, int base)
{
return strtox(s, p, base, 0UL+LONG_MIN);
}
unsigned long strtoul(const char *s, char **p, int base)
{
return strtox(s, p, base, ULONG_MAX);
}
