gzip support from quakeforge (QFile and friends). also includes a couple of
[divverent/darkplaces.git] / wad.c
1 /*
2 Copyright (C) 1996-1997 Id Software, Inc.
3
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.
8
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.  
12
13 See the GNU General Public License for more details.
14
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.
18
19 */
20 // wad.c
21
22 #include "quakedef.h"
23
24 int                     wad_numlumps;
25 lumpinfo_t      *wad_lumps;
26 byte            *wad_base;
27
28 void SwapPic (qpic_t *pic);
29
30 /*
31 ==================
32 W_CleanupName
33
34 Lowercases name and pads with spaces and a terminating 0 to the length of
35 lumpinfo_t->name.
36 Used so lumpname lookups can proceed rapidly by comparing 4 chars at a time
37 Space padding is so names can be printed nicely in tables.
38 Can safely be performed in place.
39 ==================
40 */
41 void W_CleanupName (char *in, char *out)
42 {
43         int             i;
44         int             c;
45         
46         for (i=0 ; i<16 ; i++ )
47         {
48                 c = in[i];
49                 if (!c)
50                         break;
51                         
52                 if (c >= 'A' && c <= 'Z')
53                         c += ('a' - 'A');
54                 out[i] = c;
55         }
56         
57         for ( ; i< 16 ; i++ )
58                 out[i] = 0;
59 }
60
61
62
63 /*
64 ====================
65 W_LoadWadFile
66 ====================
67 */
68 void W_LoadWadFile (char *filename)
69 {
70         lumpinfo_t              *lump_p;
71         wadinfo_t               *header;
72         unsigned                i;
73         int                             infotableofs;
74         
75         wad_base = COM_LoadHunkFile (filename, false);
76         if (!wad_base)
77                 Sys_Error ("W_LoadWadFile: couldn't load %s", filename);
78
79         header = (wadinfo_t *)wad_base;
80         
81         if (header->identification[0] != 'W'
82         || header->identification[1] != 'A'
83         || header->identification[2] != 'D'
84         || header->identification[3] != '2')
85                 Sys_Error ("Wad file %s doesn't have WAD2 id\n",filename);
86                 
87         wad_numlumps = LittleLong(header->numlumps);
88         infotableofs = LittleLong(header->infotableofs);
89         wad_lumps = (lumpinfo_t *)(wad_base + infotableofs);
90         
91         for (i=0, lump_p = wad_lumps ; i<wad_numlumps ; i++,lump_p++)
92         {
93                 lump_p->filepos = LittleLong(lump_p->filepos);
94                 lump_p->size = LittleLong(lump_p->size);
95                 W_CleanupName (lump_p->name, lump_p->name);
96                 if (lump_p->type == TYP_QPIC)
97                         SwapPic ( (qpic_t *)(wad_base + lump_p->filepos));
98         }
99 }
100
101
102 /*
103 =============
104 W_GetLumpinfo
105 =============
106 */
107 lumpinfo_t      *W_GetLumpinfo (char *name)
108 {
109         int             i;
110         lumpinfo_t      *lump_p;
111         char    clean[16];
112         
113         W_CleanupName (name, clean);
114         
115         for (lump_p=wad_lumps, i=0 ; i<wad_numlumps ; i++,lump_p++)
116         {
117                 if (!strcmp(clean, lump_p->name))
118                         return lump_p;
119         }
120         
121         Sys_Error ("W_GetLumpinfo: %s not found", name);
122         return NULL;
123 }
124
125 void *W_GetLumpName (char *name)
126 {
127         lumpinfo_t      *lump;
128         
129         lump = W_GetLumpinfo (name);
130         
131         return (void *)(wad_base + lump->filepos);
132 }
133
134 void *W_GetLumpNum (int num)
135 {
136         lumpinfo_t      *lump;
137         
138         if (num < 0 || num > wad_numlumps)
139                 Sys_Error ("W_GetLumpNum: bad number: %i", num);
140                 
141         lump = wad_lumps + num;
142         
143         return (void *)(wad_base + lump->filepos);
144 }
145
146 /*
147 =============================================================================
148
149 automatic byte swapping
150
151 =============================================================================
152 */
153
154 void SwapPic (qpic_t *pic)
155 {
156         pic->width = LittleLong(pic->width);
157         pic->height = LittleLong(pic->height);  
158 }
159
160 // LordHavoc: added alternate WAD2/WAD3 system for HalfLife texture wads
161 #define TEXWAD_MAXIMAGES 16384
162 typedef struct
163 {
164         char name[16];
165         QFile *file;
166         int position;
167         int size;
168 } texwadlump_t;
169
170 texwadlump_t    texwadlump[TEXWAD_MAXIMAGES];
171
172 /*
173 ====================
174 W_LoadTextureWadFile
175 ====================
176 */
177 void W_LoadTextureWadFile (char *filename, int complain)
178 {
179         lumpinfo_t              *lumps, *lump_p;
180         wadinfo_t               header;
181         unsigned                i, j;
182         int                             infotableofs;
183         QFile                   *file;
184         int                             numlumps;
185         
186         COM_FOpenFile (filename, &file, false, true);
187         if (!file)
188         {
189                 if (complain)
190                         Con_Printf ("W_LoadTextureWadFile: couldn't find %s", filename);
191                 return;
192         }
193
194         if (Qread(file, &header, sizeof(wadinfo_t)) != sizeof(wadinfo_t))
195         {Con_Printf ("W_LoadTextureWadFile: unable to read wad header");return;}
196         
197         if(header.identification[0] != 'W'
198         || header.identification[1] != 'A'
199         || header.identification[2] != 'D'
200         || header.identification[3] != '3')
201         {Con_Printf ("W_LoadTextureWadFile: Wad file %s doesn't have WAD3 id\n",filename);return;}
202
203         numlumps = LittleLong(header.numlumps);
204         if (numlumps < 1 || numlumps > TEXWAD_MAXIMAGES)
205         {Con_Printf ("W_LoadTextureWadFile: invalid number of lumps (%i)\n", numlumps);return;}
206         infotableofs = LittleLong(header.infotableofs);
207         if (Qseek(file, infotableofs, SEEK_SET))
208         {Con_Printf ("W_LoadTextureWadFile: unable to seek to lump table");return;}
209         if (!(lumps = qmalloc(sizeof(lumpinfo_t)*numlumps)))
210         {Con_Printf ("W_LoadTextureWadFile: unable to allocate temporary memory for lump table");return;}
211
212         if (Qread(file, lumps, sizeof(lumpinfo_t) * numlumps) != sizeof(lumpinfo_t) * numlumps)
213         {Con_Printf ("W_LoadTextureWadFile: unable to read lump table");return;}
214
215         for (i=0, lump_p = lumps ; i<numlumps ; i++,lump_p++)
216         {
217                 W_CleanupName (lump_p->name, lump_p->name);
218                 for (j = 0;j < TEXWAD_MAXIMAGES;j++)
219                 {
220                         if (texwadlump[j].name[0]) // occupied slot, check the name
221                         {
222                                 if (!strcmp(lump_p->name, texwadlump[j].name)) // name match, replace old one
223                                         break;
224                         }
225                         else // empty slot
226                                 break;
227                 }
228                 if (j >= TEXWAD_MAXIMAGES)
229                         break; // abort loading
230                 W_CleanupName (lump_p->name, texwadlump[j].name);
231                 texwadlump[j].file = file;
232                 texwadlump[j].position = LittleLong(lump_p->filepos);
233                 texwadlump[j].size = LittleLong(lump_p->disksize);
234         }
235         qfree(lumps);
236         // leaves the file open
237 }
238
239 /*
240 byte hlpalette[768] =
241 {
242         0x00,0x00,0x00,0x0F,0x0F,0x0F,0x1F,0x1F,0x1F,0x2F,0x2F,0x2F,0x3F,0x3F,0x3F,0x4B,
243         0x4B,0x4B,0x5B,0x5B,0x5B,0x6B,0x6B,0x6B,0x7B,0x7B,0x7B,0x8B,0x8B,0x8B,0x9B,0x9B,
244         0x9B,0xAB,0xAB,0xAB,0xBB,0xBB,0xBB,0xCB,0xCB,0xCB,0xDB,0xDB,0xDB,0xEB,0xEB,0xEB,
245         0x0F,0x0B,0x07,0x17,0x0F,0x0B,0x1F,0x17,0x0B,0x27,0x1B,0x0F,0x2F,0x23,0x13,0x37,
246         0x2B,0x17,0x3F,0x2F,0x17,0x4B,0x37,0x1B,0x53,0x3B,0x1B,0x5B,0x43,0x1F,0x63,0x4B,
247         0x1F,0x6B,0x53,0x1F,0x73,0x57,0x1F,0x7B,0x5F,0x23,0x83,0x67,0x23,0x8F,0x6F,0x23,
248         0x0B,0x0B,0x0F,0x13,0x13,0x1B,0x1B,0x1B,0x27,0x27,0x27,0x33,0x2F,0x2F,0x3F,0x37,
249         0x37,0x4B,0x3F,0x3F,0x57,0x47,0x47,0x67,0x4F,0x4F,0x73,0x5B,0x5B,0x7F,0x63,0x63,
250         0x8B,0x6B,0x6B,0x97,0x73,0x73,0xA3,0x7B,0x7B,0xAF,0x83,0x83,0xBB,0x8B,0x8B,0xCB,
251         0x00,0x00,0x00,0x07,0x07,0x00,0x0B,0x0B,0x00,0x13,0x13,0x00,0x1B,0x1B,0x00,0x23,
252         0x23,0x00,0x2B,0x2B,0x07,0x2F,0x2F,0x07,0x37,0x37,0x07,0x3F,0x3F,0x07,0x47,0x47,
253         0x07,0x4B,0x4B,0x0B,0x53,0x53,0x0B,0x5B,0x5B,0x0B,0x63,0x63,0x0B,0x6B,0x6B,0x0F,
254         0x07,0x00,0x00,0x0F,0x00,0x00,0x17,0x00,0x00,0x1F,0x00,0x00,0x27,0x00,0x00,0x2F,
255         0x00,0x00,0x37,0x00,0x00,0x3F,0x00,0x00,0x47,0x00,0x00,0x4F,0x00,0x00,0x57,0x00,
256         0x00,0x5F,0x00,0x00,0x67,0x00,0x00,0x6F,0x00,0x00,0x77,0x00,0x00,0x7F,0x00,0x00,
257         0x13,0x13,0x00,0x1B,0x1B,0x00,0x23,0x23,0x00,0x2F,0x2B,0x00,0x37,0x2F,0x00,0x43,
258         0x37,0x00,0x4B,0x3B,0x07,0x57,0x43,0x07,0x5F,0x47,0x07,0x6B,0x4B,0x0B,0x77,0x53,
259         0x0F,0x83,0x57,0x13,0x8B,0x5B,0x13,0x97,0x5F,0x1B,0xA3,0x63,0x1F,0xAF,0x67,0x23,
260         0x23,0x13,0x07,0x2F,0x17,0x0B,0x3B,0x1F,0x0F,0x4B,0x23,0x13,0x57,0x2B,0x17,0x63,
261         0x2F,0x1F,0x73,0x37,0x23,0x7F,0x3B,0x2B,0x8F,0x43,0x33,0x9F,0x4F,0x33,0xAF,0x63,
262         0x2F,0xBF,0x77,0x2F,0xCF,0x8F,0x2B,0xDF,0xAB,0x27,0xEF,0xCB,0x1F,0xFF,0xF3,0x1B,
263         0x0B,0x07,0x00,0x1B,0x13,0x00,0x2B,0x23,0x0F,0x37,0x2B,0x13,0x47,0x33,0x1B,0x53,
264         0x37,0x23,0x63,0x3F,0x2B,0x6F,0x47,0x33,0x7F,0x53,0x3F,0x8B,0x5F,0x47,0x9B,0x6B,
265         0x53,0xA7,0x7B,0x5F,0xB7,0x87,0x6B,0xC3,0x93,0x7B,0xD3,0xA3,0x8B,0xE3,0xB3,0x97,
266         0xAB,0x8B,0xA3,0x9F,0x7F,0x97,0x93,0x73,0x87,0x8B,0x67,0x7B,0x7F,0x5B,0x6F,0x77,
267         0x53,0x63,0x6B,0x4B,0x57,0x5F,0x3F,0x4B,0x57,0x37,0x43,0x4B,0x2F,0x37,0x43,0x27,
268         0x2F,0x37,0x1F,0x23,0x2B,0x17,0x1B,0x23,0x13,0x13,0x17,0x0B,0x0B,0x0F,0x07,0x07,
269         0xBB,0x73,0x9F,0xAF,0x6B,0x8F,0xA3,0x5F,0x83,0x97,0x57,0x77,0x8B,0x4F,0x6B,0x7F,
270         0x4B,0x5F,0x73,0x43,0x53,0x6B,0x3B,0x4B,0x5F,0x33,0x3F,0x53,0x2B,0x37,0x47,0x23,
271         0x2B,0x3B,0x1F,0x23,0x2F,0x17,0x1B,0x23,0x13,0x13,0x17,0x0B,0x0B,0x0F,0x07,0x07,
272         0xDB,0xC3,0xBB,0xCB,0xB3,0xA7,0xBF,0xA3,0x9B,0xAF,0x97,0x8B,0xA3,0x87,0x7B,0x97,
273         0x7B,0x6F,0x87,0x6F,0x5F,0x7B,0x63,0x53,0x6B,0x57,0x47,0x5F,0x4B,0x3B,0x53,0x3F,
274         0x33,0x43,0x33,0x27,0x37,0x2B,0x1F,0x27,0x1F,0x17,0x1B,0x13,0x0F,0x0F,0x0B,0x07,
275         0x6F,0x83,0x7B,0x67,0x7B,0x6F,0x5F,0x73,0x67,0x57,0x6B,0x5F,0x4F,0x63,0x57,0x47,
276         0x5B,0x4F,0x3F,0x53,0x47,0x37,0x4B,0x3F,0x2F,0x43,0x37,0x2B,0x3B,0x2F,0x23,0x33,
277         0x27,0x1F,0x2B,0x1F,0x17,0x23,0x17,0x0F,0x1B,0x13,0x0B,0x13,0x0B,0x07,0x0B,0x07,
278         0xFF,0xF3,0x1B,0xEF,0xDF,0x17,0xDB,0xCB,0x13,0xCB,0xB7,0x0F,0xBB,0xA7,0x0F,0xAB,
279         0x97,0x0B,0x9B,0x83,0x07,0x8B,0x73,0x07,0x7B,0x63,0x07,0x6B,0x53,0x00,0x5B,0x47,
280         0x00,0x4B,0x37,0x00,0x3B,0x2B,0x00,0x2B,0x1F,0x00,0x1B,0x0F,0x00,0x0B,0x07,0x00,
281         0x00,0x00,0xFF,0x0B,0x0B,0xEF,0x13,0x13,0xDF,0x1B,0x1B,0xCF,0x23,0x23,0xBF,0x2B,
282         0x2B,0xAF,0x2F,0x2F,0x9F,0x2F,0x2F,0x8F,0x2F,0x2F,0x7F,0x2F,0x2F,0x6F,0x2F,0x2F,
283         0x5F,0x2B,0x2B,0x4F,0x23,0x23,0x3F,0x1B,0x1B,0x2F,0x13,0x13,0x1F,0x0B,0x0B,0x0F,
284         0x2B,0x00,0x00,0x3B,0x00,0x00,0x4B,0x07,0x00,0x5F,0x07,0x00,0x6F,0x0F,0x00,0x7F,
285         0x17,0x07,0x93,0x1F,0x07,0xA3,0x27,0x0B,0xB7,0x33,0x0F,0xC3,0x4B,0x1B,0xCF,0x63,
286         0x2B,0xDB,0x7F,0x3B,0xE3,0x97,0x4F,0xE7,0xAB,0x5F,0xEF,0xBF,0x77,0xF7,0xD3,0x8B,
287         0xA7,0x7B,0x3B,0xB7,0x9B,0x37,0xC7,0xC3,0x37,0xE7,0xE3,0x57,0x00,0xFF,0x00,0xAB,
288         0xE7,0xFF,0xD7,0xFF,0xFF,0x67,0x00,0x00,0x8B,0x00,0x00,0xB3,0x00,0x00,0xD7,0x00,
289         0x00,0xFF,0x00,0x00,0xFF,0xF3,0x93,0xFF,0xF7,0xC7,0xFF,0xFF,0xFF,0x9F,0x5B,0x53,
290 };
291 */
292
293 byte *W_ConvertWAD3Texture(miptex_t *tex)
294 {
295         byte *in, *data, *out, *pal;
296 //      int palsize;
297         int d, p;
298         in = (byte *)((int) tex + tex->offsets[0]);
299         data = out = qmalloc(tex->width * tex->height * 4);
300         if (!data)
301                 return NULL;
302         image_width = tex->width;
303         image_height = tex->height;
304         pal = in + (((image_width * image_height) * 85) >> 6);
305 //      palsize = pal[1] * 0x100 + pal[0];
306 //      if (palsize >= 256)
307 //              palsize = 256;
308         pal += 2;
309         for (d = 0;d < image_width * image_height;d++)
310         {
311                 p = *in++;
312                 if (tex->name[0] == '{' && p == 255)
313                         out[0] = out[1] = out[2] = out[3] = 0;
314                 else
315                 {
316                         p *= 3;
317                         out[0] = pal[p];
318                         out[1] = pal[p+1];
319                         out[2] = pal[p+2];
320                         out[3] = 255;
321                 }
322                 out += 4;
323         }
324         return data;
325 }
326
327 byte *W_GetTexture(char *name)
328 {
329 //      int i, c, datasize;
330 //      short colorcount;
331 //      byte pal[256][3], *indata, *outdata, *data;
332         char texname[17];
333         int i, j;
334         QFile *file;
335         miptex_t *tex;
336         byte *data;
337         texname[16] = 0;
338         W_CleanupName (name, texname);
339         for (i = 0;i < TEXWAD_MAXIMAGES;i++)
340         {
341                 if (texwadlump[i].name[0])
342                 {
343                         if (!strcmp(texname, texwadlump[i].name)) // found it
344                         {
345                                 file = texwadlump[i].file;
346                                 if (Qseek(file, texwadlump[i].position, SEEK_SET))
347                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
348
349                                 tex = qmalloc(texwadlump[i].size);
350                                 if (!tex)
351                                         return NULL;
352                                 if (Qread(file, tex, texwadlump[i].size) < texwadlump[i].size)
353                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
354
355                                 tex->width = LittleLong(tex->width);
356                                 tex->height = LittleLong(tex->height);
357                                 for (j = 0;j < MIPLEVELS;j++)
358                                         tex->offsets[j] = LittleLong(tex->offsets[j]);
359                                 data = W_ConvertWAD3Texture(tex);
360                                 qfree(tex);
361                                 return data;
362                                 /*
363                                 image_width = LittleLong(t.width);
364                                 image_height = LittleLong(t.height);
365                                 if (matchwidth && image_width != matchwidth)
366                                         continue;
367                                 if (matchheight && image_height != matchheight)
368                                         continue;
369                                 if (image_width & 15 || image_height & 15)
370                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
371                                 // allocate space for expanded image,
372                                 // and load incoming image into upper area (overwritten as it expands)
373                                 if (!(data = outdata = qmalloc(image_width*image_height*4)))
374                                 {Con_Printf("W_GetTexture: out of memory");return NULL;}
375                                 indata = outdata + image_width*image_height*3;
376                                 datasize = image_width*image_height*85/64;
377                                 // read the image data
378                                 if (Qseek(file, texwadlump[i].position + sizeof(t), SEEK_SET))
379                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
380                                 if (Qread(file, indata, image_width*image_height) != image_width*image_height)
381                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
382                                 // read the number of colors used (always 256)
383                                 if (Qseek(file, texwadlump[i].position + sizeof(t) + datasize, SEEK_SET))
384                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
385                                 if (Qread(file, &colorcount, 2) != 2)
386                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
387                                 if (texwadlump[i].size > (datasize + sizeof(t)))
388                                 {
389                                         colorcount = LittleShort(colorcount);
390                                         // sanity checking
391                                         if (colorcount < 0) colorcount = 0;
392                                         if (colorcount > 256) colorcount = 256;
393                                         // read the palette
394         //                              Qseek(file, texwadlump[i].position + sizeof(t) + datasize + 2, SEEK_SET);
395                                         if (Qread(file, &pal, 3 * colorcount) != 3 * colorcount)
396                                         {Con_Printf("W_GetTexture: corrupt WAD3 file");return NULL;}
397                                 }
398                                 else
399                                         memcpy(&pal, hlpalette, 768);
400                                 // expand the image to 32bit RGBA
401                                 for (i = 0;i < image_width*image_height;i++)
402                                 {
403                                         c = *indata++;
404                                         if (name[0] == '{' && c == 255)
405                                                 outdata[0] = outdata[1] = outdata[2] = outdata[3] = 0;
406                                         else
407                                         {
408                                                 outdata[0] = pal[c][0];
409                                                 outdata[1] = pal[c][1];
410                                                 outdata[2] = pal[c][2];
411                                                 outdata[3] = 255;
412                                         }
413                                         outdata += 4;
414                                 }
415                                 return data;
416                                 */
417                         }
418                 }
419                 else
420                         break;
421         }
422         image_width = image_height = 0;
423         return NULL;
424 }