ref: a806c098ae69c06691066449ae09fb129b19576a
dir: /fs.c/
#include <u.h>
#include <libc.h>
#include <ctype.h>
#include <draw.h>
#include <bio.h>
#include "dat.h"
#include "fns.h"
Resource resources[Nresource];
typedef struct Table Table;
typedef struct Objp Objp;
typedef struct Picl Picl;
typedef struct Tilel Tilel;
struct Objp{
Obj *o;
int resource;
Point;
int team;
int amount;
};
struct Table{
char name[64];
void (*readfn)(char**, int, Table*);
int ncol;
int *nrow;
int row;
};
struct Picl{
int frm;
int type;
int teamcol;
char *name;
char *suff;
char iname[64];
int nr;
Pic *p;
Picl *l;
};
struct Tilel{
int id;
Tilepic *t;
Tilel *l;
};
static Tilel tilel0 = {.l = &tilel0}, *tilel = &tilel0;
static Pic tilesetpic;
static Picl pic0 = {.l = &pic0}, *pic = &pic0;
static Objp *objp;
static Attack *attack;
static Obj *obj;
static char *tileset;
static int nattack, nobj, nresource, nobjp;
static u32int bgcol = 0x00ffff;
static int rot17idx[17] = {
0,2,4,6,8,10,12,14,16,17,19,21,23,25,27,29,31
};
static void
loadpic(char *name, Pic *pic, int alpha)
{
int fd, n, m, dx, dy;
Image *i;
uchar *b, *s;
u32int v, *p;
if((fd = open(name, OREAD)) < 0)
sysfatal("loadpic: %r");
if((i = readimage(display, fd, 0)) == nil)
sysfatal("readimage: %r");
close(fd);
if(alpha && i->chan != ARGB32 || !alpha && i->chan != RGB24)
sysfatal("loadpic %s: inappropriate image format", name);
dx = Dx(i->r);
dy = Dy(i->r);
n = dx * dy;
m = n * i->depth / 8;
b = emalloc(m);
unloadimage(i, i->r, b, m);
p = emalloc(n * sizeof *p);
pic->p = p;
pic->w = dx;
pic->h = dy;
pic->Δ.x = i->r.min.x;
pic->Δ.y = i->r.min.y;
m = i->depth / 8;
freeimage(i);
s = b;
while(n-- > 0){
v = s[2] << 16 | s[1] << 8 | s[0];
if(alpha)
v |= s[3] << 24;
else if(v != bgcol)
v |= 0xff << 24;
*p++ = v;
s += m;
}
free(b);
}
static void
loadobjpic(Pic *pic, Picl *pl)
{
int n, i, j;
char path[128];
u32int *p0;
Pic pic0;
for(i=0; i<pl->nr; i++){
snprint(path, sizeof path, "%s.%02d.%02d%s.bit",
pl->name, pl->frm, rot17idx[i], pl->suff);
loadpic(path, &pic0, pl->type & PFalpha);
if(!pl->teamcol){
memcpy(pic++, &pic0, sizeof *pic);
continue;
}
if(pic0.h % Nplayteam != 0)
sysfatal("loadobjpic: obj %s sprite sheet %d,%d: height not multiple of %d",
pl->name, pic0.w, pic0.h, Nplayteam);
pic0.h /= Nplayteam;
n = pic0.w * pic0.h;
/* nteam has been set by now, no point in retaining sprites
* for additional teams */
for(j=0, p0=pic0.p; j<nteam; j++, p0+=n, pic++){
memcpy(pic, &pic0, sizeof *pic);
pic->p = emalloc(n * sizeof *pic->p);
memcpy(pic->p, p0, n * sizeof *pic->p);
}
free(pic0.p);
}
}
static void
loadtilepic(Pic *pic, Picl *pl)
{
int id, size;
char path[128];
if(tilesetpic.p == nil){
snprint(path, sizeof path, "%s.bit", tileset);
loadpic(path, &tilesetpic, 0);
if(tilesetpic.h % tilesetpic.w != 0)
sysfatal("loadtilepic: tiles not squares: tilepic %d,%d",
tilesetpic.w, tilesetpic.h);
}
id = pl->frm;
size = tilesetpic.w;
if(size * id >= tilesetpic.h)
sysfatal("loadtilepic: tile tile index %d out of bounds", id);
pic->w = size;
pic->h = size;
size *= size;
pic->p = emalloc(size * sizeof *pic->p);
memcpy(pic->p, tilesetpic.p + size * id, size * sizeof *pic->p);
}
void
initimg(void)
{
Pic *p;
Picl *pl;
for(pl=pic->l; pl!=pic; pl=pic->l){
p = pl->p;
if(pl->type & PFtile)
loadtilepic(p, pl);
else
loadobjpic(p, pl);
pic->l = pl->l;
free(pl);
}
free(tilesetpic.p);
}
static Pic *
pushpic(char *name, int frm, int type, int nr, int hasteam, Pics *ps)
{
int n;
char iname[64], *suff;
Picl *pl;
if(type & PFshadow)
suff = ".s";
else if(type & PFglow)
suff = ".g";
else
suff = "";
snprint(iname, sizeof iname, "%s.%02d%s", name, frm, suff);
for(pl=pic->l; pl!=pic; pl=pl->l)
if(strcmp(iname, pl->iname) == 0){
if(ps == nil)
sysfatal("pushpic: tile pic cannot be shared");
ps->shared = 1;
break;
}
if(pl == pic){
pl = emalloc(sizeof *pl);
memcpy(pl->iname, iname, nelem(pl->iname));
pl->frm = frm;
pl->type = type;
pl->name = name;
pl->suff = suff;
pl->nr = nr;
pl->teamcol = hasteam;
if(nr != 17 && nr != 1)
sysfatal("pushpic %s: invalid number of rotations", iname);
n = nr;
/* nteam isn't guaranteed to be set correctly by now, so
* just set to max */
if(hasteam)
n *= Nplayteam;
pl->p = emalloc(n * sizeof *pl->p);
pl->l = pic->l;
pic->l = pl;
}
return pl->p;
}
static Tilepic *
pushtile(int id)
{
Tilel *tl;
for(tl=tilel->l; tl!=tilel; tl=tl->l)
if(tl->id == id)
break;
if(tl == tilel){
tl = emalloc(sizeof *tl);
tl->id = id;
tl->t = emalloc(sizeof *tl->t);
tl->t->p = pushpic("/tile/", id - 1, PFtile, 1, 0, nil);
tl->l = tilel->l;
tilel->l = tl;
}
return tl->t;
}
static void
vunpack(char **fld, char *fmt, va_list a)
{
int n;
double d;
char *s;
Attack *atk;
Resource *r;
Obj *o;
for(;;){
switch(*fmt++){
default: sysfatal("unknown format %c", fmt[-1]);
case 0: return;
case ' ': break;
case 'd':
if((n = strtol(*fld++, nil, 0)) < 0)
sysfatal("vunpack: illegal positive integer %d", n);
*va_arg(a, int*) = n;
break;
case 'f':
if((d = strtod(*fld++, nil)) < 0.0)
sysfatal("vunpack: illegal positive double %f", d);
*va_arg(a, double*) = d;
break;
case 'a':
s = *fld++;
if(*s == 0){
*va_arg(a, Attack**) = nil;
break;
}
for(atk=attack; atk<attack+nattack; atk++)
if(strcmp(s, atk->name) == 0)
break;
if(atk == attack + nattack)
sysfatal("vunpack: no such attack %s", s);
*va_arg(a, Attack**) = atk;
break;
case 'r':
s = *fld++;
if(*s == 0){
*va_arg(a, Resource**) = nil;
break;
}
for(r=resources; r<resources+nelem(resources); r++)
if(strcmp(s, r->name) == 0)
break;
if(r == resources + nelem(resources))
sysfatal("vunpack: no such resource %s", s);
*va_arg(a, Resource**) = r;
break;
case 'o':
s = *fld++;
if(*s == 0)
sysfatal("vunpack: empty obj");
for(o=obj; o<obj+nobj; o++)
if(o->name != nil && strcmp(s, o->name) == 0)
break;
if(o == obj + nobj)
sysfatal("vunpack: no such obj %s", s);
*va_arg(a, Obj**) = o;
break;
case 't':
s = *fld++;
if(*s == 0)
sysfatal("vunpack: empty tile");
if((n = strtol(s, nil, 0)) <= 0)
sysfatal("vunpack: illegal tile index %d", n);
*va_arg(a, Tilepic**) = pushtile(n);
break;
}
}
}
static void
unpack(char **fld, char *fmt, ...)
{
va_list a;
va_start(a, fmt);
vunpack(fld, fmt, a);
va_end(a);
}
static void
readgather(char **fld, int n, Table *)
{
Obj *o, **os;
Resource *r;
unpack(fld, "r o", &r, &o);
if(o->res != nil && o->res != r)
sysfatal("readgather %s: obj %s already assigned to %s",
r->name, o->name, o->res->name);
for(os=r->obj; os<r->obj+r->nobj; os++)
if(*os == o)
sysfatal("readgather: duplicate entry %s in %s\n", o->name, r->name);
n = r->nobj + 1;
r->obj = erealloc(r->obj, n * sizeof *r->obj, r->nobj * sizeof *r->obj);
r->obj[r->nobj++] = o;
o->res = r;
}
static void
readspawn(char **fld, int n, Table *)
{
Obj *o, **os, **oe;
unpack(fld++, "o", &o);
if(o->spawn != nil)
sysfatal("readspawn: spawn already assigned for obj %s", *fld);
o->spawn = emalloc(--n * sizeof *o->spawn);
o->nspawn = n;
for(os=o->spawn, oe=os+n; os<oe; os++)
unpack(fld++, "o", os);
}
static void
readtileset(char **fld, int, Table *)
{
if(tileset != nil)
sysfatal("readtileset %s: already defined as %s", *fld, tileset);
tileset = estrdup(*fld);
}
static void
readmap(char **fld, int n, Table *tab)
{
int x;
Tile *t;
if(tab->row == 0){
tab->ncol = n;
tilemapwidth = n;
tilemap = emalloc(tilemapheight * n * sizeof *tilemap);
}
t = tilemap + tab->row * tilemapwidth;
for(x=0; x<n; x++, t++)
unpack(fld++, "t", &t->t);
}
static void
readmapobj(char **fld, int, Table *tab)
{
int arg;
Objp *op;
if(objp == nil)
objp = emalloc(nobjp * sizeof *objp);
op = objp + tab->row;
unpack(fld, "o dd d", &op->o, &op->x, &op->y, &arg);
op->Point = mulpt(op->Point, Node2Tile);
if(op->o->f & Fresource){
op->team = 0;
op->resource = 1;
op->amount = arg;
}else{
op->team = arg;
if(op->team <= 0 || op->team > nelem(teams))
sysfatal("readmapobj: invalid team number %d", op->team);
if(op->team > nteam)
nteam = op->team;
}
}
static void
readresource(char **fld, int n, Table *tab)
{
Resource *r;
int *ts, *te;
r = resources + tab->row;
if(r >= resources + nelem(resources))
sysfatal("readresource: out of bounds reference");
r->name = estrdup(*fld++);
unpack(fld++, "d", &r->init);
n -= 2;
if(n <= 0)
return;
if(n > OSend)
sysfatal("readresource: invalid number of states %d", n);
r->thresh = emalloc(n * sizeof *r->thresh);
r->nthresh = n;
for(ts=r->thresh, te=ts+n; ts<te; ts++){
unpack(fld++, "d", ts);
if(*ts < 1)
sysfatal("readresource: invalid threshold %d\n", *ts);
}
}
static void
readattack(char **fld, int, Table *tab)
{
Attack *a;
if(attack == nil)
attack = emalloc(nattack * sizeof *attack);
a = attack + tab->row;
a->name = estrdup(*fld++);
unpack(fld, "ddd", &a->dmg, &a->range, &a->cool);
}
static void
readobj(char **fld, int, Table *tab)
{
Obj *o;
if(obj == nil)
obj = emalloc(nobj * sizeof *obj);
o = obj + tab->row;
o->name = estrdup(*fld++);
unpack(fld, "d dd ddd dddd aa ffff", &o->f, &o->w, &o->h,
&o->hp, &o->def, &o->vis,
o->cost, o->cost+1, o->cost+2, &o->time,
o->atk, o->atk+1,
&o->speed, &o->accel, &o->halt, &o->turn);
if(o->f & Fresource)
o->f |= Fimmutable;
else{
o->accel /= 256.0;
o->halt /= 256.0;
/* halting distance in path node units */
o->halt /= Nodesz;
}
if(o->w < 1 || o->h < 1 || o->w > 4 * Node2Tile || o->h > 4 * Node2Tile)
sysfatal("readobj: %s invalid dimensions %d,%d", o->name, o->w, o->h);
}
static void
readspr(char **fld, int n, Table *)
{
int type, frm, nr, state;
Obj *o;
Pics *ps;
Pic ***ppp, **p, **pe;
if(n < 4)
sysfatal("readspr %s: %d fields < 4 mandatory columns", o->name, n);
unpack(fld, "o dd", &o, &type, &nr);
fld += 3;
n -= 3;
state = type & PFstatemask;
if(state > OSend)
sysfatal("readspr %s: invalid state %#02ux", o->name, state);
ps = o->pics[state];
if(type & PFshadow){
ps += PTshadow;
type |= PFimmutable;
}else if(type & PFglow){
ps += PTglow;
type |= PFimmutable;
}else
ps += PTbase;
ppp = &ps->pic;
if(*ppp != nil)
sysfatal("readspr %s: pic type %#ux already allocated", o->name, type);
if(ps->nf != 0 && ps->nf != n || ps->nr != 0 && ps->nr != nr)
sysfatal("readspr %s: spriteset phase error", o->name);
ps->freeze = (type & PFfreezepic) != 0;
ps->teamcol = (type & PFimmutable) == 0;
ps->nf = n;
ps->nr = nr;
p = emalloc(n * sizeof *ppp);
*ppp = p;
for(pe=p+n; p<pe; p++){
unpack(fld++, "d", &frm);
*p = pushpic(o->name, frm, type, nr, ps->teamcol, ps);
}
}
enum{
TBmapobj,
TBobj,
TBattack,
TBresource,
TBspawn,
TBtileset,
TBmap,
TBspr,
TBgather,
};
Table table[] = {
[TBmapobj] {"mapobj", readmapobj, 4, &nobjp},
[TBobj] {"obj", readobj, 17, &nobj},
[TBattack] {"attack", readattack, 4, &nattack},
[TBresource] {"resource", readresource, -1, &nresource},
[TBspawn] {"spawn", readspawn, -1, nil},
[TBtileset] {"tileset", readtileset, 1, nil},
[TBmap] {"map", readmap, -1, &tilemapheight},
[TBspr] {"spr", readspr, -1, nil},
[TBgather] {"gather", readgather, -1, nil},
};
static int
getcsvfields(char *s, char **fld, int nfld)
{
int n;
if(nfld < 1)
return 0;
n = 0;
*fld++ = s;
if(++n == nfld)
return n;
while(*s != 0){
if(*s == ','){
*s++ = 0;
*fld++ = s;
if(++n == nfld)
return n;
}else
s++;
}
return n;
}
static void
loaddb(char *path)
{
int n;
char *s, *p, *fld[256];
Biobuf *bf;
Table *t;
if((bf = Bopen(path, OREAD)) == nil)
sysfatal("loaddb: %r");
Blethal(bf, nil);
/* parse twice to preallocate tables, otherwise cross-references will be
* invalid */
while((s = Brdstr(bf, '\n', 1)) != nil){
if(s[0] == 0 || s[0] == '#' || (p = strchr(s, ',')) == nil)
goto skip;
if(p == s || p[1] == 0)
goto skip;
*p = 0;
for(t=table; t<table+nelem(table); t++)
if(strcmp(s, t->name) == 0)
break;
if(t == table + nelem(table)){
fprint(2, "loaddb: unknown table %s\n", s);
goto skip;
}
if(t->nrow != nil)
(*t->nrow)++;
skip:
free(s);
}
Bseek(bf, 0, 0);
while((s = Brdstr(bf, '\n', 1)) != nil){
if(s[0] == 0 || s[0] == '#' || (p = strchr(s, ',')) == nil)
goto next;
if(p == s || p[1] == 0)
goto next;
*p = 0;
for(t=table; t<table+nelem(table); t++)
if(strcmp(s, t->name) == 0)
break;
if(t == table + nelem(table))
goto next;
n = getcsvfields(p+1, fld, nelem(fld));
if(n != t->ncol && t->ncol >= 0)
sysfatal("loaddb: invalid row length %d for %s record %s", n, s, fld[0]);
t->readfn(fld, n, t);
t->row++;
next:
free(s);
}
Bterm(bf);
}
static void
initmapobj(void)
{
Objp *op;
Tile *tl;
Team *t;
for(tl=tilemap; tl<tilemap+tilemapwidth*tilemapheight; tl++)
tl->ml.l = tl->ml.lp = &tl->ml;
for(t=teams; t<=teams+nteam; t++){
newvec(&t->mobj, 32, sizeof(Mobj*));
newvec(&t->drops, 32, sizeof(Mobj*));
}
for(op=objp; op<objp+nobjp; op++){
if(op->resource){
if(spawnresource(op->o, op->Point, op->amount) < 0)
sysfatal("initmapobj: %s at %P: %r", op->o->name, op->Point);
}else if(spawnunit(op->o, op->Point, op->team) < 0)
sysfatal("initmapobj: %s team %d at %P: %r", op->o->name, op->team, op->Point);
}
free(objp);
}
static void
cleanup(void)
{
Tilel *tl;
for(tl=tilel->l; tl!=tilel; tl=tilel->l){
tilel->l = tl->l;
free(tl);
}
}
static void
checkobj(void)
{
Obj *o;
for(o=obj; o<obj+nobj; o++)
if(o->pics[OSidle][PTbase].pic == nil)
sysfatal("obj %s: no base sprites loaded", o->name);
}
static void
checkdb(void)
{
if(tileset == nil)
sysfatal("checkdb: no tileset defined");
if(nresource != Nresource)
sysfatal("checkdb: incomplete resource specification");
if(tilemapwidth % 16 != 0 || tilemapheight % 16 != 0
|| tilemapwidth * tilemapheight <= 0)
sysfatal("checkdb: map size %d,%d not in multiples of 16",
tilemapwidth, tilemapheight);
if(nteam < 2)
sysfatal("checkdb: not enough teams");
}
static void
initdb(void)
{
checkdb();
checkobj();
initmap();
initmapobj();
cleanup();
}
void
initfs(void)
{
rfork(RFNAMEG);
if(bind(".", prefix, MBEFORE|MCREATE) == -1 || chdir(prefix) < 0)
fprint(2, "initfs: %r\n");
loaddb(dbname);
loaddb(mapname);
initdb();
}