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 8192
 162 typedef struct
 163 {
 164         char name[16];
 165         FILE *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         FILE                    *file;
 184         int                             numlumps;
 185
 186         COM_FOpenFile (filename, &file, false);
 187         if (!file)
 188         {
 189                 if (complain)
 190                         Con_Printf ("W_LoadTextureWadFile: couldn't find %s", filename);
 191                 return;
 192         }
 193
 194         if (fread(&header, sizeof(wadinfo_t), 1, file) != 1)
 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 (fseek(file, infotableofs, SEEK_SET))
 208         {Con_Printf ("W_LoadTextureWadFile: unable to seek to lump table");return;}
 209         if (!(lumps = malloc(sizeof(lumpinfo_t)*numlumps)))
 210         {Con_Printf ("W_LoadTextureWadFile: unable to allocate temporary memory for lump table");return;}
 211
 212         if (fread(lumps, sizeof(lumpinfo_t), numlumps, file) != 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         free(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 byte *W_GetTexture(char *name, int matchwidth, int matchheight)
 293 {
 294         int i, c, datasize;
 295         short colorcount;
 296         FILE *file;
 297         struct
 298         {
 299                 char name[16];
 300                 int width;
 301                 int height;
 302                 int ofs[4];
 303         } t;
 304         byte pal[256][3], *indata, *outdata, *data;
 305         for (i = 0;i < TEXWAD_MAXIMAGES;i++)
 306         {
 307                 if (texwadlump[i].name[0])
 308                 {
 309                         if (!strcmp(name, texwadlump[i].name)) // found it
 310                         {
 311                                 file = texwadlump[i].file;
 312                                 if (fseek(file, texwadlump[i].position, SEEK_SET))
 313                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 314                                 if (fread(&t, sizeof(t), 1, file) != 1)
 315                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 316                                 image_width = LittleLong(t.width);
 317                                 image_height = LittleLong(t.height);
 318                                 if (matchwidth && image_width != matchwidth)
 319                                         continue;
 320                                 if (matchheight && image_height != matchheight)
 321                                         continue;
 322                                 if (image_width & 15 || image_height & 15)
 323                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 324                                 // allocate space for expanded image,
 325                                 // and load incoming image into upper area (overwritten as it expands)
 326                                 if (!(data = outdata = malloc(image_width*image_height*4)))
 327                                 {Con_Printf("W_GetTexture: out of memory");return FALSE;}
 328                                 indata = outdata + image_width*image_height*3;
 329                                 datasize = image_width*image_height*85/64;
 330                                 // read the image data
 331                                 if (fseek(file, texwadlump[i].position + sizeof(t), SEEK_SET))
 332                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 333                                 if (fread(indata, 1, image_width*image_height, file) != image_width*image_height)
 334                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 335                                 // read the number of colors used (always 256)
 336                                 if (fseek(file, texwadlump[i].position + sizeof(t) + datasize, SEEK_SET))
 337                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 338                                 if (fread(&colorcount, 2, 1, file) != 1)
 339                                 {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 340                                 if (texwadlump[i].size > (datasize + sizeof(t)))
 341                                 {
 342                                         colorcount = LittleShort(colorcount);
 343                                         // sanity checking
 344                                         if (colorcount < 0) colorcount = 0;
 345                                         if (colorcount > 256) colorcount = 256;
 346                                         // read the palette
 347         //                              fseek(file, texwadlump[i].position + sizeof(t) + datasize + 2, SEEK_SET);
 348                                         if (fread(&pal, 3, colorcount, file) != colorcount)
 349                                         {Con_Printf("W_GetTexture: corrupt WAD3 file");return FALSE;}
 350                                 }
 351                                 else
 352                                         memcpy(&pal, hlpalette, 768);
 353                                 // expand the image to 32bit RGBA
 354                                 for (i = 0;i < image_width*image_height;i++)
 355                                 {
 356                                         c = *indata++;
 357                                         if (c == 255) // transparent color
 358                                         {
 359                                                 *outdata++ = 0;
 360                                                 *outdata++ = 0;
 361                                                 *outdata++ = 0;
 362                                                 *outdata++ = 0;
 363                                         }
 364                                         else
 365                                         {
 366                                                 *outdata++ = pal[c][0];
 367                                                 *outdata++ = pal[c][1];
 368                                                 *outdata++ = pal[c][2];
 369                                                 *outdata++ = 255;
 370                                         }
 371                                 }
 372                                 return data;
 373                         }
 374                 }
 375                 else
 376                         break;
 377         }
 378         image_width = image_height = 0;
 379         return NULL;
 380 }