X-Git-Url: http://de.git.xonotic.org/?p=xonotic%2Fdarkplaces.git;a=blobdiff_plain;f=wad.c;h=fabffc3b9205aeb50e16ae56c858a27d11805279;hp=38b0e79f4850ae379209562c0c2e2683061a0b5a;hb=85a33377d64ae8438e6582a7b8472f5a4bd41942;hpb=f9d8bc7ea04ff91fcbd90fe50a299b37724b349b diff --git a/wad.c b/wad.c index 38b0e79f..fabffc3b 100644 --- a/wad.c +++ b/wad.c @@ -23,9 +23,23 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. #include "image.h" #include "wad.h" +typedef struct mwad_s +{ + qfile_t *file; + int numlumps; + lumpinfo_t *lumps; +} +mwad_t; -void SwapPic (qpic_t *pic); +typedef struct wadstate_s +{ + unsigned char *gfx_base; + mwad_t gfx; + memexpandablearray_t hlwads; +} +wadstate_t; +static wadstate_t wad; /* ================== @@ -58,89 +72,91 @@ static void W_CleanupName (const char *in, char *out) out[i] = 0; } -void *W_GetLumpName(const char *name) +static void W_SwapLumps(int numlumps, lumpinfo_t *lumps) { int i; + for (i = 0;i < numlumps;i++) + { + lumps[i].filepos = LittleLong(lumps[i].filepos); + lumps[i].disksize = LittleLong(lumps[i].disksize); + lumps[i].size = LittleLong(lumps[i].size); + W_CleanupName(lumps[i].name, lumps[i].name); + } +} + +void W_UnloadAll(void) +{ + unsigned int i; + mwad_t *w; + // free gfx.wad if it is loaded + if (wad.gfx_base) + Mem_Free(wad.gfx_base); + wad.gfx_base = NULL; + // close all hlwad files and free their lumps data + for (i = 0;i < Mem_ExpandableArray_IndexRange(&wad.hlwads);i++) + { + w = (mwad_t *) Mem_ExpandableArray_RecordAtIndex(&wad.hlwads, i); + if (!w) + continue; + if (w->file) + FS_Close(w->file); + w->file = NULL; + if (w->lumps) + Mem_Free(w->lumps); + w->lumps = NULL; + } + // free the hlwads array + Mem_ExpandableArray_FreeArray(&wad.hlwads); + // clear all state + memset(&wad, 0, sizeof(wad)); +} + +unsigned char *W_GetLumpName(const char *name, fs_offset_t *returnfilesize) +{ + int i; + fs_offset_t filesize; lumpinfo_t *lump; char clean[16]; wadinfo_t *header; int infotableofs; - void *temp; - static int wad_loaded = false; - static int wad_numlumps = 0; - static lumpinfo_t *wad_lumps = NULL; - static qbyte *wad_base = NULL; W_CleanupName (name, clean); - if (!wad_loaded) + if (!wad.gfx_base) { - wad_loaded = true; - if ((temp = FS_LoadFile ("gfx.wad", tempmempool, false))) + if ((wad.gfx_base = FS_LoadFile ("gfx.wad", cls.permanentmempool, false, &filesize))) { - if (memcmp(temp, "WAD2", 4)) + if (memcmp(wad.gfx_base, "WAD2", 4)) + { Con_Print("gfx.wad doesn't have WAD2 id\n"); + Mem_Free(wad.gfx_base); + wad.gfx_base = NULL; + } else { - wad_base = (qbyte *)Mem_Alloc(cl_mempool, fs_filesize); - - memcpy(wad_base, temp, fs_filesize); - Mem_Free(temp); - - header = (wadinfo_t *)wad_base; - wad_numlumps = LittleLong(header->numlumps); + header = (wadinfo_t *)wad.gfx_base; + wad.gfx.numlumps = LittleLong(header->numlumps); infotableofs = LittleLong(header->infotableofs); - wad_lumps = (lumpinfo_t *)(wad_base + infotableofs); - - for (i=0, lump = wad_lumps ; ifilepos = LittleLong(lump->filepos); - lump->size = LittleLong(lump->size); - W_CleanupName (lump->name, lump->name); - if (lump->type == TYP_QPIC) - SwapPic ( (qpic_t *)(wad_base + lump->filepos)); - } + wad.gfx.lumps = (lumpinfo_t *)(wad.gfx_base + infotableofs); + + // byteswap the gfx.wad lumps in place + W_SwapLumps(wad.gfx.numlumps, wad.gfx.lumps); } } } - for (lump = wad_lumps, i = 0;i < wad_numlumps;i++, lump++) + for (lump = wad.gfx.lumps, i = 0;i < wad.gfx.numlumps;i++, lump++) + { if (!strcmp(clean, lump->name)) - return (void *)(wad_base + lump->filepos); - - if (wad_base) - Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't find file in gfx.wad\n", name); - else - Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't load gfx.wad\n", name); + { + if (returnfilesize) + *returnfilesize = lump->size; + return (wad.gfx_base + lump->filepos); + } + } return NULL; } -/* -============================================================================= - -automatic byte swapping - -============================================================================= -*/ - -void SwapPic (qpic_t *pic) -{ - pic->width = LittleLong(pic->width); - pic->height = LittleLong(pic->height); -} - -// LordHavoc: added alternate WAD2/WAD3 system for HalfLife texture wads -#define TEXWAD_MAXIMAGES 16384 -typedef struct texwadlump_s -{ - char name[16]; - qfile_t *file; - int position; - int size; -} texwadlump_t; - -static texwadlump_t texwadlump[TEXWAD_MAXIMAGES]; - /* ==================== W_LoadTextureWadFile @@ -148,14 +164,13 @@ W_LoadTextureWadFile */ void W_LoadTextureWadFile (char *filename, int complain) { - lumpinfo_t *lumps, *lump_p; wadinfo_t header; - int i, j; int infotableofs; qfile_t *file; int numlumps; + mwad_t *w; - file = FS_Open (filename, "rb", false, false); + file = FS_OpenVirtualFile(filename, false); if (!file) { if (complain) @@ -164,72 +179,94 @@ void W_LoadTextureWadFile (char *filename, int complain) } if (FS_Read(file, &header, sizeof(wadinfo_t)) != sizeof(wadinfo_t)) - {Con_Print("W_LoadTextureWadFile: unable to read wad header\n");return;} + {Con_Print("W_LoadTextureWadFile: unable to read wad header\n");FS_Close(file);file = NULL;return;} if(memcmp(header.identification, "WAD3", 4)) - {Con_Printf("W_LoadTextureWadFile: Wad file %s doesn't have WAD3 id\n",filename);return;} + {Con_Printf("W_LoadTextureWadFile: Wad file %s doesn't have WAD3 id\n",filename);FS_Close(file);file = NULL;return;} numlumps = LittleLong(header.numlumps); - if (numlumps < 1 || numlumps > TEXWAD_MAXIMAGES) - {Con_Printf("W_LoadTextureWadFile: invalid number of lumps (%i)\n", numlumps);return;} + if (numlumps < 1 || numlumps > 65536) + {Con_Printf("W_LoadTextureWadFile: invalid number of lumps (%i)\n", numlumps);FS_Close(file);file = NULL;return;} infotableofs = LittleLong(header.infotableofs); if (FS_Seek (file, infotableofs, SEEK_SET)) - {Con_Print("W_LoadTextureWadFile: unable to seek to lump table\n");return;} - if (!(lumps = (lumpinfo_t *)Mem_Alloc(tempmempool, sizeof(lumpinfo_t)*numlumps))) - {Con_Print("W_LoadTextureWadFile: unable to allocate temporary memory for lump table\n");return;} + {Con_Print("W_LoadTextureWadFile: unable to seek to lump table\n");FS_Close(file);file = NULL;return;} - if (FS_Read(file, lumps, sizeof(lumpinfo_t) * numlumps) != (fs_offset_t)sizeof(lumpinfo_t) * numlumps) - {Con_Print("W_LoadTextureWadFile: unable to read lump table\n");return;} + if (!wad.hlwads.mempool) + Mem_ExpandableArray_NewArray(&wad.hlwads, cls.permanentmempool, sizeof(mwad_t), 16); + w = (mwad_t *) Mem_ExpandableArray_AllocRecord(&wad.hlwads); + w->file = file; + w->numlumps = numlumps; + w->lumps = (lumpinfo_t *) Mem_Alloc(cls.permanentmempool, w->numlumps * sizeof(lumpinfo_t)); - for (i=0, lump_p = lumps ; ilumps) { - W_CleanupName (lump_p->name, lump_p->name); - for (j = 0;j < TEXWAD_MAXIMAGES;j++) - { - if (texwadlump[j].name[0]) // occupied slot, check the name - { - if (!strcmp(lump_p->name, texwadlump[j].name)) // name match, replace old one - break; - } - else // empty slot - break; - } - if (j >= TEXWAD_MAXIMAGES) - break; // abort loading - W_CleanupName (lump_p->name, texwadlump[j].name); - texwadlump[j].file = file; - texwadlump[j].position = LittleLong(lump_p->filepos); - texwadlump[j].size = LittleLong(lump_p->disksize); + Con_Print("W_LoadTextureWadFile: unable to allocate temporary memory for lump table\n"); + FS_Close(w->file); + w->file = NULL; + w->numlumps = 0; + return; } - Mem_Free(lumps); + + if (FS_Read(file, w->lumps, sizeof(lumpinfo_t) * w->numlumps) != (fs_offset_t)sizeof(lumpinfo_t) * numlumps) + { + Con_Print("W_LoadTextureWadFile: unable to read lump table\n"); + FS_Close(w->file); + w->file = NULL; + w->numlumps = 0; + Mem_Free(w->lumps); + w->lumps = NULL; + return; + } + + W_SwapLumps(w->numlumps, w->lumps); + // leaves the file open } - -qbyte *W_ConvertWAD3Texture(miptex_t *tex) +unsigned char *W_ConvertWAD3TextureBGRA(sizebuf_t *sb) { - qbyte *in, *data, *out, *pal; + unsigned char *in, *data, *out, *pal; int d, p; + unsigned char name[16]; + unsigned int mipoffset[4]; + + MSG_BeginReading(sb); + MSG_ReadBytes(sb, 16, name); + image_width = MSG_ReadLittleLong(sb); + image_height = MSG_ReadLittleLong(sb); + mipoffset[0] = MSG_ReadLittleLong(sb); + mipoffset[1] = MSG_ReadLittleLong(sb); // should be mipoffset[0] + image_width*image_height + mipoffset[2] = MSG_ReadLittleLong(sb); // should be mipoffset[1] + image_width*image_height/4 + mipoffset[3] = MSG_ReadLittleLong(sb); // should be mipoffset[2] + image_width*image_height/16 + pal = sb->data + mipoffset[3] + (image_width / 8 * image_height / 8) + 2; + + // bail if any data looks wrong + if (image_width < 0 + || image_width > 4096 + || image_height < 0 + || image_height > 4096 + || mipoffset[0] != 40 + || mipoffset[1] != mipoffset[0] + image_width * image_height + || mipoffset[2] != mipoffset[1] + image_width / 2 * image_height / 2 + || mipoffset[3] != mipoffset[2] + image_width / 4 * image_height / 4 + || (unsigned int)sb->cursize < (mipoffset[3] + image_width / 8 * image_height / 8 + 2 + 768)) + return NULL; - in = (qbyte *)tex + tex->offsets[0]; - data = out = (qbyte *)Mem_Alloc(tempmempool, tex->width * tex->height * 4); + in = (unsigned char *)sb->data + mipoffset[0]; + data = out = (unsigned char *)Mem_Alloc(tempmempool, image_width * image_height * 4); if (!data) return NULL; - image_width = tex->width; - image_height = tex->height; - pal = in + (((image_width * image_height) * 85) >> 6); - pal += 2; for (d = 0;d < image_width * image_height;d++) { p = *in++; - if (tex->name[0] == '{' && p == 255) + if (name[0] == '{' && p == 255) out[0] = out[1] = out[2] = out[3] = 0; else { p *= 3; - out[0] = pal[p]; + out[2] = pal[p]; out[1] = pal[p+1]; - out[2] = pal[p+2]; + out[0] = pal[p+2]; out[3] = 255; } out += 4; @@ -237,43 +274,43 @@ qbyte *W_ConvertWAD3Texture(miptex_t *tex) return data; } -qbyte *W_GetTexture(char *name) +unsigned char *W_GetTextureBGRA(char *name) { + unsigned int i, k; + sizebuf_t sb; + unsigned char *data; + mwad_t *w; char texname[17]; - int i, j; - qfile_t *file; - miptex_t *tex; - qbyte *data; + size_t range; texname[16] = 0; - W_CleanupName (name, texname); - for (i = 0;i < TEXWAD_MAXIMAGES;i++) + W_CleanupName(name, texname); + if (!wad.hlwads.mempool) + Mem_ExpandableArray_NewArray(&wad.hlwads, cls.permanentmempool, sizeof(mwad_t), 16); + range = Mem_ExpandableArray_IndexRange(&wad.hlwads); + for (k = 0;k < range;k++) { - if (texwadlump[i].name[0]) + w = (mwad_t *)Mem_ExpandableArray_RecordAtIndex(&wad.hlwads, k); + if (!w) + continue; + for (i = 0;i < (unsigned int)w->numlumps;i++) { - if (!strcmp(texname, texwadlump[i].name)) // found it + if (!strcmp(texname, w->lumps[i].name)) // found it { - file = texwadlump[i].file; - if (FS_Seek(file, texwadlump[i].position, SEEK_SET)) + if (FS_Seek(w->file, w->lumps[i].filepos, SEEK_SET)) {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;} - tex = (miptex_t *)Mem_Alloc(tempmempool, texwadlump[i].size); - if (!tex) + MSG_InitReadBuffer(&sb, (unsigned char *)Mem_Alloc(tempmempool, w->lumps[i].disksize), w->lumps[i].disksize); + if (!sb.data) return NULL; - if (FS_Read(file, tex, texwadlump[i].size) < texwadlump[i].size) + if (FS_Read(w->file, sb.data, w->lumps[i].size) < w->lumps[i].disksize) {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;} - tex->width = LittleLong(tex->width); - tex->height = LittleLong(tex->height); - for (j = 0;j < MIPLEVELS;j++) - tex->offsets[j] = LittleLong(tex->offsets[j]); - data = W_ConvertWAD3Texture(tex); - Mem_Free(tex); + data = W_ConvertWAD3TextureBGRA(&sb); + Mem_Free(sb.data); return data; } } - else - break; } image_width = image_height = 0; return NULL;