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
  21
  22 #include "quakedef.h"
  23 #include "image.h"
  24 #include "wad.h"
  25
  26
  27 /*
  28 ==================
  29 W_CleanupName
  30
  31 Lowercases name and pads with spaces and a terminating 0 to the length of
  32 lumpinfo_t->name.
  33 Used so lumpname lookups can proceed rapidly by comparing 4 chars at a time
  34 Space padding is so names can be printed nicely in tables.
  35 Can safely be performed in place.
  36 ==================
  37 */
  38 static void W_CleanupName (const char *in, char *out)
  39 {
  40         int             i;
  41         int             c;
  42
  43         for (i=0 ; i<16 ; i++ )
  44         {
  45                 c = in[i];
  46                 if (!c)
  47                         break;
  48
  49                 if (c >= 'A' && c <= 'Z')
  50                         c += ('a' - 'A');
  51                 out[i] = c;
  52         }
  53
  54         for ( ; i< 16 ; i++ )
  55                 out[i] = 0;
  56 }
  57
  58 static int wad_numlumps = 0;
  59 static lumpinfo_t *wad_lumps = NULL;
  60 static unsigned char *wad_base = NULL;
  61
  62 unsigned char *W_GetLumpName(const char *name)
  63 {
  64         int i;
  65         fs_offset_t filesize;
  66         lumpinfo_t *lump;
  67         char clean[16];
  68         wadinfo_t *header;
  69         int infotableofs;
  70
  71         W_CleanupName (name, clean);
  72
  73         if (!wad_base)
  74         {
  75                 if ((wad_base = FS_LoadFile ("gfx.wad", cls.permanentmempool, false, &filesize)))
  76                 {
  77                         if (memcmp(wad_base, "WAD2", 4))
  78                         {
  79                                 Con_Print("gfx.wad doesn't have WAD2 id\n");
  80                                 Mem_Free(wad_base);
  81                                 wad_base = NULL;
  82                         }
  83                         else
  84                         {
  85                                 header = (wadinfo_t *)wad_base;
  86                                 wad_numlumps = LittleLong(header->numlumps);
  87                                 infotableofs = LittleLong(header->infotableofs);
  88                                 wad_lumps = (lumpinfo_t *)(wad_base + infotableofs);
  89
  90                                 for (i=0, lump = wad_lumps ; i<wad_numlumps ; i++,lump++)
  91                                 {
  92                                         lump->filepos = LittleLong(lump->filepos);
  93                                         lump->size = LittleLong(lump->size);
  94                                         W_CleanupName (lump->name, lump->name);
  95                                 }
  96                         }
  97                 }
  98         }
  99
 100         for (lump = wad_lumps, i = 0;i < wad_numlumps;i++, lump++)
 101                 if (!strcmp(clean, lump->name))
 102                         return (wad_base + lump->filepos);
 103
 104         if (wad_base)
 105                 Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't find file in gfx.wad\n", name);
 106         else
 107                 Con_DPrintf("W_GetLumpByName(\"%s\"): couldn't load gfx.wad\n", name);
 108         return NULL;
 109 }
 110
 111 /*
 112 =============================================================================
 113
 114 automatic byte swapping
 115
 116 =============================================================================
 117 */
 118
 119 // LordHavoc: added alternate WAD2/WAD3 system for HalfLife texture wads
 120 #define TEXWAD_MAXIMAGES 16384
 121 typedef struct texwadlump_s
 122 {
 123         char name[16];
 124         qfile_t *file;
 125         int position;
 126         int size;
 127 } texwadlump_t;
 128
 129 static texwadlump_t texwadlump[TEXWAD_MAXIMAGES];
 130
 131 /*
 132 ====================
 133 W_LoadTextureWadFile
 134 ====================
 135 */
 136 void W_LoadTextureWadFile (char *filename, int complain)
 137 {
 138         lumpinfo_t              *lumps, *lump_p;
 139         wadinfo_t               header;
 140         int                             i, j;
 141         int                             infotableofs;
 142         qfile_t                 *file;
 143         int                             numlumps;
 144
 145         file = FS_Open (filename, "rb", false, false);
 146         if (!file)
 147         {
 148                 if (complain)
 149                         Con_Printf("W_LoadTextureWadFile: couldn't find %s\n", filename);
 150                 return;
 151         }
 152
 153         if (FS_Read(file, &header, sizeof(wadinfo_t)) != sizeof(wadinfo_t))
 154         {Con_Print("W_LoadTextureWadFile: unable to read wad header\n");return;}
 155
 156         if(memcmp(header.identification, "WAD3", 4))
 157         {Con_Printf("W_LoadTextureWadFile: Wad file %s doesn't have WAD3 id\n",filename);return;}
 158
 159         numlumps = LittleLong(header.numlumps);
 160         if (numlumps < 1 || numlumps > TEXWAD_MAXIMAGES)
 161         {Con_Printf("W_LoadTextureWadFile: invalid number of lumps (%i)\n", numlumps);return;}
 162         infotableofs = LittleLong(header.infotableofs);
 163         if (FS_Seek (file, infotableofs, SEEK_SET))
 164         {Con_Print("W_LoadTextureWadFile: unable to seek to lump table\n");return;}
 165         if (!(lumps = (lumpinfo_t *)Mem_Alloc(tempmempool, sizeof(lumpinfo_t)*numlumps)))
 166         {Con_Print("W_LoadTextureWadFile: unable to allocate temporary memory for lump table\n");return;}
 167
 168         if (FS_Read(file, lumps, sizeof(lumpinfo_t) * numlumps) != (fs_offset_t)sizeof(lumpinfo_t) * numlumps)
 169         {Con_Print("W_LoadTextureWadFile: unable to read lump table\n");return;}
 170
 171         for (i=0, lump_p = lumps ; i<numlumps ; i++,lump_p++)
 172         {
 173                 W_CleanupName (lump_p->name, lump_p->name);
 174                 for (j = 0;j < TEXWAD_MAXIMAGES;j++)
 175                 {
 176                         if (texwadlump[j].name[0]) // occupied slot, check the name
 177                         {
 178                                 if (!strcmp(lump_p->name, texwadlump[j].name)) // name match, replace old one
 179                                         break;
 180                         }
 181                         else // empty slot
 182                                 break;
 183                 }
 184                 if (j >= TEXWAD_MAXIMAGES)
 185                         break; // abort loading
 186                 W_CleanupName (lump_p->name, texwadlump[j].name);
 187                 texwadlump[j].file = file;
 188                 texwadlump[j].position = LittleLong(lump_p->filepos);
 189                 texwadlump[j].size = LittleLong(lump_p->disksize);
 190         }
 191         Mem_Free(lumps);
 192         // leaves the file open
 193 }
 194
 195
 196 unsigned char *W_ConvertWAD3Texture(miptex_t *tex)
 197 {
 198         unsigned char *in, *data, *out, *pal;
 199         int d, p;
 200
 201         in = (unsigned char *)tex + tex->offsets[0];
 202         data = out = (unsigned char *)Mem_Alloc(tempmempool, tex->width * tex->height * 4);
 203         if (!data)
 204                 return NULL;
 205         image_width = tex->width;
 206         image_height = tex->height;
 207         pal = in + (((image_width * image_height) * 85) >> 6);
 208         pal += 2;
 209         for (d = 0;d < image_width * image_height;d++)
 210         {
 211                 p = *in++;
 212                 if (tex->name[0] == '{' && p == 255)
 213                         out[0] = out[1] = out[2] = out[3] = 0;
 214                 else
 215                 {
 216                         p *= 3;
 217                         out[0] = pal[p];
 218                         out[1] = pal[p+1];
 219                         out[2] = pal[p+2];
 220                         out[3] = 255;
 221                 }
 222                 out += 4;
 223         }
 224         return data;
 225 }
 226
 227 unsigned char *W_GetTexture(char *name)
 228 {
 229         char texname[17];
 230         int i, j;
 231         qfile_t *file;
 232         miptex_t *tex;
 233         unsigned char *data;
 234
 235         texname[16] = 0;
 236         W_CleanupName (name, texname);
 237         for (i = 0;i < TEXWAD_MAXIMAGES;i++)
 238         {
 239                 if (texwadlump[i].name[0])
 240                 {
 241                         if (!strcmp(texname, texwadlump[i].name)) // found it
 242                         {
 243                                 file = texwadlump[i].file;
 244                                 if (FS_Seek(file, texwadlump[i].position, SEEK_SET))
 245                                 {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;}
 246
 247                                 tex = (miptex_t *)Mem_Alloc(tempmempool, texwadlump[i].size);
 248                                 if (!tex)
 249                                         return NULL;
 250                                 if (FS_Read(file, tex, texwadlump[i].size) < texwadlump[i].size)
 251                                 {Con_Print("W_GetTexture: corrupt WAD3 file\n");return NULL;}
 252
 253                                 tex->width = LittleLong(tex->width);
 254                                 tex->height = LittleLong(tex->height);
 255                                 for (j = 0;j < MIPLEVELS;j++)
 256                                         tex->offsets[j] = LittleLong(tex->offsets[j]);
 257                                 data = W_ConvertWAD3Texture(tex);
 258                                 Mem_Free(tex);
 259                                 return data;
 260                         }
 261                 }
 262                 else
 263                         break;
 264         }
 265         image_width = image_height = 0;
 266         return NULL;
 267 }
 268