2 Copyright (C) 1996-1997 Id Software, Inc.
4 This program is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License
6 as published by the Free Software Foundation; either version 2
7 of the License, or (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 See the GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
34 typedef struct wadstate_s
36 unsigned char *gfx_base;
38 memexpandablearray_t hlwads;
42 static wadstate_t wad;
48 Lowercases name and pads with spaces and a terminating 0 to the length of
50 Used so lumpname lookups can proceed rapidly by comparing 4 chars at a time
51 Space padding is so names can be printed nicely in tables.
52 Can safely be performed in place.
55 static void W_CleanupName (const char *in, char *out)
60 for (i=0 ; i<16 ; i++ )
66 if (c >= 'A' && c <= 'Z')
75 static void W_SwapLumps(int numlumps, lumpinfo_t *lumps)
78 for (i = 0;i < numlumps;i++)
80 lumps[i].filepos = LittleLong(lumps[i].filepos);
81 lumps[i].disksize = LittleLong(lumps[i].disksize);
82 lumps[i].size = LittleLong(lumps[i].size);
83 W_CleanupName(lumps[i].name, lumps[i].name);
87 void W_UnloadAll(void)
91 // free gfx.wad if it is loaded
93 Mem_Free(wad.gfx_base);
95 // close all hlwad files and free their lumps data
96 for (i = 0;i < Mem_ExpandableArray_IndexRange(&wad.hlwads);i++)
98 w = Mem_ExpandableArray_RecordAtIndex(&wad.hlwads, i);
108 // free the hlwads array
109 Mem_ExpandableArray_FreeArray(&wad.hlwads);
111 memset(&wad, 0, sizeof(wad));
114 unsigned char *W_GetLumpName(const char *name)
117 fs_offset_t filesize;
123 W_CleanupName (name, clean);
127 if ((wad.gfx_base = FS_LoadFile ("gfx.wad", cls.permanentmempool, false, &filesize)))
129 if (memcmp(wad.gfx_base, "WAD2", 4))
131 Con_Print("gfx.wad doesn't have WAD2 id\n");
132 Mem_Free(wad.gfx_base);
137 header = (wadinfo_t *)wad.gfx_base;
138 wad.gfx.numlumps = LittleLong(header->numlumps);
139 infotableofs = LittleLong(header->infotableofs);
140 wad.gfx.lumps = (lumpinfo_t *)(wad.gfx_base + infotableofs);
142 // byteswap the gfx.wad lumps in place
143 W_SwapLumps(wad.gfx.numlumps, wad.gfx.lumps);
148 for (lump = wad.gfx.lumps, i = 0;i < wad.gfx.numlumps;i++, lump++)
149 if (!strcmp(clean, lump->name))
150 return (wad.gfx_base + lump->filepos);
153 Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't find file in gfx.wad\n", name);
155 Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't load gfx.wad\n", name);
164 void W_LoadTextureWadFile (char *filename, int complain)
172 file = FS_Open (filename, "rb", false, false);
176 Con_Printf("W_LoadTextureWadFile: couldn't find %s\n", filename);
180 if (FS_Read(file, &header, sizeof(wadinfo_t)) != sizeof(wadinfo_t))
181 {Con_Print("W_LoadTextureWadFile: unable to read wad header\n");FS_Close(file);file = NULL;return;}
183 if(memcmp(header.identification, "WAD3", 4))
184 {Con_Printf("W_LoadTextureWadFile: Wad file %s doesn't have WAD3 id\n",filename);FS_Close(file);file = NULL;return;}
186 numlumps = LittleLong(header.numlumps);
187 if (numlumps < 1 || numlumps > 65536)
188 {Con_Printf("W_LoadTextureWadFile: invalid number of lumps (%i)\n", numlumps);FS_Close(file);file = NULL;return;}
189 infotableofs = LittleLong(header.infotableofs);
190 if (FS_Seek (file, infotableofs, SEEK_SET))
191 {Con_Print("W_LoadTextureWadFile: unable to seek to lump table\n");FS_Close(file);file = NULL;return;}
193 if (!wad.hlwads.mempool)
194 Mem_ExpandableArray_NewArray(&wad.hlwads, cls.permanentmempool, sizeof(mwad_t), 16);
195 w = Mem_ExpandableArray_AllocRecord(&wad.hlwads);
197 w->numlumps = numlumps;
198 w->lumps = Mem_Alloc(cls.permanentmempool, w->numlumps * sizeof(lumpinfo_t));
202 Con_Print("W_LoadTextureWadFile: unable to allocate temporary memory for lump table\n");
209 if (FS_Read(file, w->lumps, sizeof(lumpinfo_t) * w->numlumps) != (fs_offset_t)sizeof(lumpinfo_t) * numlumps)
211 Con_Print("W_LoadTextureWadFile: unable to read lump table\n");
220 W_SwapLumps(w->numlumps, w->lumps);
222 // leaves the file open
225 unsigned char *W_ConvertWAD3TextureBGRA(miptex_t *tex)
227 unsigned char *in, *data, *out, *pal;
230 in = (unsigned char *)tex + tex->offsets[0];
231 data = out = (unsigned char *)Mem_Alloc(tempmempool, tex->width * tex->height * 4);
234 image_width = tex->width;
235 image_height = tex->height;
236 pal = in + (((image_width * image_height) * 85) >> 6);
238 for (d = 0;d < image_width * image_height;d++)
241 if (tex->name[0] == '{' && p == 255)
242 out[0] = out[1] = out[2] = out[3] = 0;
256 unsigned char *W_GetTextureBGRA(char *name)
258 unsigned int i, j, k;
265 W_CleanupName(name, texname);
266 if (!wad.hlwads.mempool)
267 Mem_ExpandableArray_NewArray(&wad.hlwads, cls.permanentmempool, sizeof(mwad_t), 16);
268 for (k = 0;k < Mem_ExpandableArray_IndexRange(&wad.hlwads);k++)
270 w = (mwad_t *)Mem_ExpandableArray_RecordAtIndex(&wad.hlwads, k);
273 for (i = 0;i < (unsigned int)w->numlumps;i++)
275 if (!strcmp(texname, w->lumps[i].name)) // found it
277 if (FS_Seek(w->file, w->lumps[i].filepos, SEEK_SET))
278 {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;}
280 tex = (miptex_t *)Mem_Alloc(tempmempool, w->lumps[i].disksize);
283 if (FS_Read(w->file, tex, w->lumps[i].size) < w->lumps[i].disksize)
284 {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;}
286 tex->width = LittleLong(tex->width);
287 tex->height = LittleLong(tex->height);
288 for (j = 0;j < MIPLEVELS;j++)
289 tex->offsets[j] = LittleLong(tex->offsets[j]);
290 data = W_ConvertWAD3TextureBGRA(tex);
296 image_width = image_height = 0;