ref: 8bd89358c5cb1c25e5ed98080fe6b81db29b2c03
dir: /fs.c/
#include "quakedef.h"
u16int crcn;
char fsdir[Nfspath];
char *fs_lmpfrom;
typedef struct Lump Lump;
typedef struct Pak Pak;
typedef struct Paklist Paklist;
enum{
Npakhdr = 4+4+4,
Npaksz = 56+4+4,
Npaklmp = 2048,
Npak0lmp = 339,
Npak0crc = 0x80d5,
Fhunk = 0,
Fcache,
Fstack
};
struct Lump{
char f[Npath];
int ofs;
int len;
};
struct Pak{
char f[Nfspath];
FILE *bf;
Lump *l;
Lump *e;
};
struct Paklist{
char f[Nfspath];
Pak *p;
Paklist *pl;
};
static Paklist *pkl;
static u16int pop[] = {
0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x6600, 0x0000, 0x0000, 0x0000, 0x6600, 0x0000,
0x0000, 0x0066, 0x0000, 0x0000, 0x0000, 0x0000, 0x0067, 0x0000,
0x0000, 0x6665, 0x0000, 0x0000, 0x0000, 0x0000, 0x0065, 0x6600,
0x0063, 0x6561, 0x0000, 0x0000, 0x0000, 0x0000, 0x0061, 0x6563,
0x0064, 0x6561, 0x0000, 0x0000, 0x0000, 0x0000, 0x0061, 0x6564,
0x0064, 0x6564, 0x0000, 0x6469, 0x6969, 0x6400, 0x0064, 0x6564,
0x0063, 0x6568, 0x6200, 0x0064, 0x6864, 0x0000, 0x6268, 0x6563,
0x0000, 0x6567, 0x6963, 0x0064, 0x6764, 0x0063, 0x6967, 0x6500,
0x0000, 0x6266, 0x6769, 0x6a68, 0x6768, 0x6a69, 0x6766, 0x6200,
0x0000, 0x0062, 0x6566, 0x6666, 0x6666, 0x6666, 0x6562, 0x0000,
0x0000, 0x0000, 0x0062, 0x6364, 0x6664, 0x6362, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0062, 0x6662, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0061, 0x6661, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x6500, 0x0000, 0x0000, 0x0000,
0x0000, 0x0000, 0x0000, 0x0000, 0x6400, 0x0000, 0x0000, 0x0000
};
/* this is a 16 bit, non-reflected CRC using the polynomial 0x1021 and the
* initial and final xor values shown below; in other words, the CCITT standard
* CRC used by XMODEM */
enum{
Ncrc0 = 0xffff,
Nxor = 0
};
static u16int crct[] ={
0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7,
0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef,
0x1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6,
0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de,
0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485,
0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d,
0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4,
0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc,
0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823,
0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b,
0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12,
0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a,
0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41,
0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49,
0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70,
0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78,
0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f,
0x1080, 0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067,
0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f, 0xf35e,
0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256,
0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e, 0xe54f, 0xd52c, 0xc50d,
0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405,
0xa7db, 0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c,
0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634,
0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab,
0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3,
0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a,
0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92,
0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9,
0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1,
0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8,
0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0
};
static int notid1;
static int loadsize;
static byte *loadbuf;
static mem_user_t *loadcache;
static FILE *demobf;
static vlong demoofs;
#define GBIT32(p) ((p)[0]|((p)[1]<<8)|((p)[2]<<16)|((p)[3]<<24))
#define PBIT32(p,v) (p)[0]=(v);(p)[1]=(v)>>8;(p)[2]=(v)>>16;(p)[3]=(v)>>24
void
crc(u8int v)
{
crcn = crcn << 8 ^ crct[crcn >> 8 ^ v];
}
void
initcrc(void)
{
crcn = Ncrc0;
}
char *
ext(char *f, char *e)
{
return strrchr(f, '.') > strrchr(f, '/') ? "" : e;
}
void
radix(char *f, char *d)
{
char *s, *e;
s = strrchr(f, '/');
e = strrchr(f, '.');
if(s == nil)
s = f;
s++;
if(e - s < 1)
strcpy(d, "?model?");
else{
strncpy(d, s, e - s);
d[e - s] = 0;
}
}
static void
path(void)
{
Paklist *pl;
for(pl=pkl; pl!=nil; pl=pl->pl)
if(pl->p)
Con_Printf(va("%s (%zd files)\n", pl->p->f, pl->p->e - pl->p->l));
else
Con_Printf("%s\n", pl->f);
}
static char fline[8192];
static int flinelen;
static char *
frdline(FILE *bf)
{
char *s;
flinelen = 0;
if((s = fgets(fline, sizeof(fline), bf)) != nil)
flinelen = strlen(fline);
return s;
}
static char *
frdlinedup(FILE *bf)
{
char *s;
if((s = frdline(bf)) != nil){
if(flinelen > 0 && s[flinelen-1] == '\n')
s[flinelen-1] = 0;
s = strdup(s);
}
return s;
}
static long
eread(FILE *bf, void *u, long n)
{
if((long)fread(u, 1, n, bf) != n)
fatal("eread: short read: eof=%d error=%d", feof(bf), ferror(bf));
return n;
}
static u8int
get8(FILE *bf)
{
u8int v;
eread(bf, &v, 1);
return v;
}
static u16int
get16(FILE *bf)
{
u16int v;
v = get8(bf);
return v | get8(bf) << 8;
}
static u32int
get32(FILE *bf)
{
u32int v;
v = get16(bf);
return v | get16(bf) << 16;
}
static float
getfl(FILE *bf)
{
union{
float v;
u32int u;
} u;
u.u = get32(bf);
return u.v;
}
static u16int
get16b(FILE *bf)
{
u16int v;
v = get8(bf);
return v << 8 | get8(bf);
}
static void
ewrite(FILE *bf, void *u, long n)
{
if((long)fwrite(u, 1, n, bf) != n)
fatal("ewrite: short write: %s", lerr());
}
static void
put32(FILE *bf, u32int v)
{
byte u[4];
PBIT32(u, v);
ewrite(bf, u, 4);
}
static void
putfl(FILE *bf, float v)
{
union{
float v;
u32int u;
} w;
w.v = v;
put32(bf, w.u);
}
static vlong
bsize(FILE *bf)
{
vlong o, n;
o = ftell(bf);
fseek(bf, 0, SEEK_END);
n = ftell(bf);
fseek(bf, o, SEEK_SET);
return n;
}
static int
mkpath(char *path)
{
char *d;
int r;
d = path;
if(d == nil || *d == 0){
werrstr("mkpath: invalid path");
return -1;
}
if(*d == '/')
d++;
while(*d != 0){
if(*d == '/'){
*d = 0;
if((r = sys_mkdir(path)) != 0)
werrstr("mkpath: %s: %s", path, lerr());
*d = '/';
if(r < 0)
return -1;
}
d++;
}
if(sys_mkdir(path) < 0){
werrstr("mkpath: %s: %s", path, lerr());
return -1;
}
return 0;
}
FILE *
createfile(char *path)
{
char *s;
int r;
path = va("%s/%s", fsdir, path);
if((s = strrchr(path, '/')) != nil){
*s = 0;
r = mkpath(path);
*s = '/';
if(r != 0)
return nil;
}
return fopen(path, "wbe");
}
void
removefile(char *path)
{
remove(va("%s/%s", fsdir, path));
}
static void
closelmp(FILE *bf)
{
Paklist *pl;
for(pl=pkl; pl!=nil; pl=pl->pl)
if(pl->p && pl->p->bf == bf)
return;
fclose(bf);
}
FILE *
openlmp(char *f, int *len)
{
char d[Nfspath+1];
FILE *bf;
Paklist *pl;
Pak *p;
Lump *l;
fs_lmpfrom = nil;
for(pl=pkl; pl != nil; pl=pl->pl){
if(pl->p != nil){
p = pl->p;
l = p->l;
while(l < p->e){
if(strcmp(l->f, f) == 0){
fseek(p->bf, l->ofs, SEEK_SET);
if(len != nil)
*len = l->len;
fs_lmpfrom = pl->f;
return p->bf;
}
l++;
}
continue;
}
snprint(d, sizeof d, "%s/%s", pl->f, f);
if(bf = fopen(d, "rbe"), bf == nil)
continue;
if(len != nil)
*len = bsize(bf);
fs_lmpfrom = pl->f;
return bf;
}
werrstr("openlmp %s: not found", f);
return nil;
}
static byte *
loadlmp(char *f, int mth, int *n)
{
int m;
char r[32];
byte *buf;
FILE *bf;
bf = openlmp(f, &m);
if(bf == nil)
return nil;
radix(f, r);
buf = nil;
switch(mth){
case Fhunk: buf = Hunk_Alloc(m + 1); break;
case Fcache: buf = Cache_Alloc(loadcache, m + 1); break;
case Fstack: buf = m + 1 <= loadsize ? loadbuf : Hunk_TempAlloc(m + 1); break;
}
if(buf == nil)
fatal("loadlmp %s %d: memory allocation failed: %s", f, m + 1, lerr());
buf[m] = 0;
eread(bf, buf, m);
closelmp(bf);
if(n != nil)
*n = m;
return buf;
}
void *
loadhunklmp(char *f, int *n)
{
return loadlmp(f, Fhunk, n);
}
void *
loadcachelmp(char *f, mem_user_t *c)
{
loadcache = c;
loadlmp(f, Fcache, nil);
return c->data;
}
void *
loadstklmp(char *f, void *buf, int nbuf, int *n)
{
loadbuf = buf;
loadsize = nbuf;
return loadlmp(f, Fstack, n);
}
void
loadpoints(void)
{
int i, n, nv;
FILE *bf;
vec3_t v3;
vec_t *v;
particle_t *p;
bf = openlmp(va("maps/%s.pts", sv.name), &n);
if(bf == nil){
Con_Printf(va("loadpoints: %s\n", lerr()));
return;
}
nv = 0;
for(;;){
if(n < 3*4+3)
break;
for(i=0, v=v3; i<3; i++){
*v++ = getfl(bf);
fseek(bf, 1, SEEK_CUR);
}
n -= 3*4+3;
nv++;
if(free_particles == nil){
Con_Printf("loadpoints: insufficient free particles\n");
break;
}
p = free_particles;
free_particles = p->next;
p->next = active_particles;
active_particles = p;
p->die = Q_MAXFLOAT;
p->color = q1pal[(byte)(-nv & 15)];
p->type = pt_static;
VectorCopy(vec3_origin, p->vel);
VectorCopy(v3, p->org);
}
closelmp(bf);
Con_Printf("loadpoints: %d points read\n", nv);
}
static void
dumpcvars(FILE *bf)
{
cvar_t *c;
for(c=cvar_vars; c!=nil; c=c->next)
if(c->archive)
if(fprintf(bf, "%s \"%s\"\n", c->name, c->string) < 0)
fatal("dumpcvars: %s", lerr());
}
static void
dumpkeys(FILE *bf)
{
char **k;
for(k=keybindings; k<keybindings+256; k++)
if(*k != nil && **k != 0)
fprintf(bf, "bind \"%s\" \"%s\"\n",
Key_KeynumToString(k-keybindings), *k);
}
void
dumpcfg(void)
{
FILE *bf;
if(!host_initialized)
return;
bf = fopen(va("%s/config.cfg", fsdir), "wbe");
if(bf == nil){
Con_DPrintf("dumpcfg: %s\n", lerr());
return;
}
dumpkeys(bf);
dumpcvars(bf);
fclose(bf);
}
void
savnames(void)
{
int n, *canld;
char (*e)[Nsavcm], (*s)[Nsavcm], *p;
FILE *bf;
s = savs;
canld = savcanld;
for(n=0, e=savs+Nsav; s<e; n++, s++, canld++){
*canld = 0;
memset(*s, 0, sizeof *s);
strcpy(*s, "--- UNUSED SLOT ---");
bf = fopen(va("%s/s%d.sav", fsdir, n), "rbe");
if(bf == nil){
Con_DPrintf("savnames: %s\n", lerr());
continue;
}
if((p = frdline(bf), p == nil) /* discard version */
|| (p = frdline(bf), p == nil)){
Con_DPrintf("savnames: short read: %s\n", lerr());
continue;
}
strncpy(*s, p, sizeof(*s)-1);
for(p=*s; p<*(s+1); p++)
if(*p == '_')
*p = ' ';
*canld = 1;
fclose(bf);
}
}
static void
dumpedict(FILE *bf, pr_t *pr, edict_t *ed)
{
int *vp, *ve;
char *s;
byte *ev;
ddef_t *d, *de;
eval_t *v;
fprintf(bf, "{\n");
if(ed->free)
goto end;
ev = (byte *)&ed->v;
de = pr->fielddefs + pr->numfielddefs;
for(d=pr->fielddefs+1; d<de; d++){
s = PR_Str(pr, d->s_name);
if(s[strlen(s)-2] == '_')
continue;
/* TODO: pragma pack hazard */
vp = (int *)(ev + d->ofs * 4);
ve = vp + type_size[d->type & ~DEF_SAVEGLOBAL];
v = (eval_t *)vp;
for(; vp<ve; vp++)
if(*vp != 0)
break;
if(vp == ve)
continue;
fprintf(bf, "\"%s\" ", s);
fprintf(bf, "\"%s\"\n", PR_UglyValueString(pr, d->type, v));
}
end:
fprintf(bf, "}\n");
}
static void
dumpdefs(FILE *bf, pr_t *pr)
{
int t;
ddef_t *d, *de;
fprintf(bf, "{\n");
de = pr->globaldefs + pr->numglobaldefs;
for(d=pr->globaldefs; d<de; d++){
t = d->type;
if((t & DEF_SAVEGLOBAL) == 0)
continue;
t &= ~DEF_SAVEGLOBAL;
if(t != ev_string && t != ev_float && t != ev_entity)
continue;
fprintf(bf, "\"%s\" \"%s\"\n", PR_Str(pr, d->s_name),
PR_UglyValueString(pr, t, (eval_t *)&pr->globals[d->ofs]));
}
fprintf(bf, "}\n");
}
int
dumpsav(char *f, char *cm)
{
int i;
char **s, **e;
float *fs, *fe;
FILE *bf;
bf = fopen(f, "wbe");
if(bf == nil)
return -1;
fprintf(bf, "%d\n%s\n", Nsavver, cm);
fs = svs.clients->spawn_parms;
fe = fs + nelem(svs.clients->spawn_parms);
while(fs < fe)
fprintf(bf, "%f\n", *fs++);
fprintf(bf, "%d\n%s\n%f\n", current_skill, sv.name, sv.time);
s = sv.lightstyles;
e = s + nelem(sv.lightstyles);
while(s < e){
fprintf(bf, "%s\n", *s != nil ? *s : "m");
s++;
}
dumpdefs(bf, sv.pr);
for(i=0; i<sv.pr->num_edicts; i++)
dumpedict(bf, sv.pr, EDICT_NUM(sv.pr, i));
fclose(bf);
return 0;
}
static void
loadedicts(FILE *bf, pr_t *pr)
{
int ent, c;
char sb[32768], *s;
edict_t *ed;
ent = -1;
do{
for(s=sb; s<sb+sizeof(sb)-1; s++){
c = fgetc(bf);
if(c <= 0 || c == EOF)
break;
*s = c;
if(c == '}'){
s++;
break;
}
}
if(s == sb + sizeof(sb) - 1)
fatal("loadgame: buffer overflow");
*s = 0;
s = COM_Parse(sb);
if(com_token[0] == 0)
break;
if(strcmp(com_token, "{") != 0)
fatal("loadgame: missing opening brace");
if(ent == -1)
ED_ParseGlobals(pr, s);
else{
ed = EDICT_NUM(pr, ent);
/* TODO: pragma pack hazard */
memset(&ed->v, 0, pr->entityfields * 4);
ed->free = 0;
ED_ParseEdict(pr, s, ed);
if(!ed->free)
SV_LinkEdict(ed, 0);
}
ent++;
}while(!feof(bf) && !ferror(bf));
pr->num_edicts = ent;
}
static int
loadparms(FILE *bf, char *f)
{
int r;
float sp[Nparms], *p;
char *s, **lp;
r = -1;
p = sp;
while(p < sp + nelem(sp)){
if(s = frdline(bf), s == nil)
goto exit;
*p++ = (float)strtod(s, nil);
}
if(s = frdline(bf), s == nil)
goto exit;
current_skill = (int)(strtod(s, nil) + 0.1);
setcvarv("skill", (float)current_skill);
if(s = frdlinedup(bf), s == nil)
goto exit;
CL_Disconnect_f();
SV_SpawnServer(s);
free(s);
if(!sv.active){
werrstr("failed to load map %s", f);
goto exit;
}
sv.paused = 1;
sv.loadgame = 1;
if(s = frdline(bf), s == nil)
goto exit;
sv.time = strtod(s, nil);
lp = sv.lightstyles;
while(lp < sv.lightstyles + nelem(sv.lightstyles)){
if(s = frdlinedup(bf), s == nil)
goto exit;
*lp = Hunk_Alloc(strlen(s)+1);
strcpy(*lp++, s);
free(s);
}
r = 0;
loadedicts(bf, sv.pr);
memcpy(svs.clients->spawn_parms, sp, sizeof sp);
exit:
return r;
}
int
loadsav(char *f)
{
int n, r;
char *s;
FILE *bf;
bf = fopen(f, "rbe");
if(bf == nil)
return -1;
r = -1;
if(s = frdline(bf), s == nil)
goto exit;
n = strtol(s, nil, 10);
if(n != Nsavver){
werrstr("invalid version %d", n);
goto exit;
}
frdline(bf);
r = loadparms(bf, f);
exit:
fclose(bf);
return r;
}
void
closedm(void)
{
if(demobf == nil)
return;
closelmp(demobf);
demobf = nil;
}
void
writedm(void)
{
int i;
put32(demobf, net_message.cursize);
for(i=0; i<3; i++)
putfl(demobf, cl.viewangles[i]);
ewrite(demobf, net_message.data, net_message.cursize);
}
int
readdm(void)
{
int n;
vec_t *f;
fseek(demobf, demoofs, SEEK_SET);
net_message.cursize = get32(demobf);
VectorCopy(cl.mviewangles[0], cl.mviewangles[1]);
for(n=0, f=cl.mviewangles[0]; n<3; n++)
*f++ = getfl(demobf);
if(net_message.cursize > NET_MAXMESSAGE)
fatal("readdm: invalid message size %d\n", net_message.cursize);
n = fread(net_message.data, 1, net_message.cursize, demobf);
demoofs = ftell(demobf);
if(n < 0)
Con_DPrintf("readdm: bad read: %s\n", lerr());
if(n != net_message.cursize){
Con_DPrintf("readdm: short read: %s\n", lerr());
n = -1;
}
return n;
}
int
loaddm(char *f)
{
int n;
char *s;
demobf = openlmp(f, &n);
if(demobf == nil)
return -1;
s = frdline(demobf);
n = flinelen - 1;
if(s == nil || n < 0 || n > 11){
Con_DPrintf("loaddm: invalid trk field\n");
closelmp(demobf);
return -1;
}
demoofs = ftell(demobf);
s[n] = 0;
cls.forcetrack = strtol(s, nil, 10);
return 0;
}
int
opendm(char *f, int trk)
{
char s[16];
demobf = fopen(f, "wbe");
if(demobf == nil)
return -1;
sprint(s, "%d\n", trk);
ewrite(demobf, s, strlen(s));
return 0;
}
static Pak *
pak(char *f)
{
int n, ofs, len, nlmp;
byte u[8];
FILE *bf;
Lump *l;
Pak *p;
bf = fopen(f, "rbe");
if(bf == nil)
return nil;
memset(u, 0, sizeof u);
eread(bf, u, 4);
if(memcmp(u, "PACK", 4) != 0)
fatal("pak %s: invalid pak file", f);
ofs = get32(bf);
len = get32(bf);
nlmp = len / Npaksz;
if(nlmp > Npaklmp)
fatal("pak %s: invalid lump number %d", f, nlmp);
if(nlmp != Npak0lmp)
notid1 = 1;
l = Hunk_Alloc(nlmp * sizeof *l);
p = Hunk_Alloc(sizeof *p);
snprint(p->f, sizeof(p->f), "%s", f);
p->bf = bf;
p->l = l;
p->e = l + nlmp;
fseek(bf, ofs, SEEK_SET);
initcrc();
while(l < p->e){
eread(bf, l->f, 56);
for(n=0; n<56; n++)
crc(l->f[n]);
eread(bf, u, 8);
for(n=0; n<8; n++)
crc(u[n]);
l->ofs = GBIT32(u);
l->len = GBIT32(u+4);
l++;
}
if(crcn != Npak0crc)
notid1 = 1;
return p;
}
static void
pakdir(char *d)
{
int n;
char f[Nfspath];
Paklist *pl;
Pak *p;
strncpy(fsdir, d, sizeof(fsdir)-1);
pl = Hunk_Alloc(sizeof *pl);
strncpy(pl->f, d, sizeof(pl->f)-1);
pl->pl = pkl;
pkl = pl;
for(n=0; ; n++){
snprint(f, sizeof f, "%s/pak%d.pak", d, n);
p = pak(f);
if(p == nil){
Con_DPrintf("pakdir: %s\n", lerr());
break;
}
pl = Hunk_Alloc(sizeof *pl);
strncpy(pl->f, d, sizeof(pl->f)-1);
pl->p = p;
pl->pl = pkl;
pkl = pl;
}
}
static void
initns(char **paths)
{
char **p;
if(game != nil){
if(strcmp(game, "rogue") == 0){
rogue = 1;
standard_quake = 0;
}else if(strcmp(game, "hipnotic") == 0){
hipnotic = 1;
standard_quake = 0;
}else
notid1 = 1;
}
for(p = paths; *p; p++){
pakdir(va("%s/id1", *p));
if(game != nil)
pakdir(va("%s/%s", *p, game));
mkpath(fsdir);
}
}
static void
chkreg(void)
{
u16int *p;
FILE *bf;
Cvar_RegisterVariable(®istered);
bf = openlmp("gfx/pop.lmp", nil);
if(bf == nil){
Con_DPrintf("chkreg: shareware version\n");
if(notid1)
fatal("chkreg: phase error -- %s", lerr());
return;
}
p = pop;
while(p < pop + nelem(pop))
if(*p++ != get16b(bf))
fatal("chkreg: corrupted pop lump");
closelmp(bf);
setcvar("registered", "1");
Con_DPrintf("chkreg: registered version\n");
}
/* TODO: nuke these from orbit */
static short
ShortSwap(short l)
{
byte b1,b2;
b1 = l&255;
b2 = (l>>8)&255;
return (b1<<8) + b2;
}
static short
ShortNoSwap(short l)
{
return l;
}
static int
LongSwap(int l)
{
byte b1,b2,b3,b4;
b1 = l&255;
b2 = (l>>8)&255;
b3 = (l>>16)&255;
b4 = (l>>24)&255;
return ((int)b1<<24) + ((int)b2<<16) + ((int)b3<<8) + b4;
}
static int
LongNoSwap(int l)
{
return l;
}
static float
FloatSwap(float f)
{
union{
float f;
byte b[4];
} dat1, dat2;
dat1.f = f;
dat2.b[0] = dat1.b[3];
dat2.b[1] = dat1.b[2];
dat2.b[2] = dat1.b[1];
dat2.b[3] = dat1.b[0];
return dat2.f;
}
static float
FloatNoSwap(float f)
{
return f;
}
void
initfs(char **paths)
{
byte swaptest[2] = {1,0};
if(*(short *)swaptest == 1)
{
BigShort = ShortSwap;
LittleShort = ShortNoSwap;
BigLong = LongSwap;
LittleLong = LongNoSwap;
BigFloat = FloatSwap;
LittleFloat = FloatNoSwap;
}else{
BigShort = ShortNoSwap;
LittleShort = ShortSwap;
BigLong = LongNoSwap;
LittleLong = LongSwap;
BigFloat = FloatNoSwap;
LittleFloat = FloatSwap;
}
initns(paths);
chkreg();
Cmd_AddCommand("path", path);
}