2014-03-15 16:59:03 +00:00
|
|
|
// SONIC ROBO BLAST 2
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
// Copyright (C) 1993-1996 by id Software, Inc.
|
|
|
|
// Copyright (C) 1998-2000 by DooM Legacy Team.
|
2020-02-19 22:08:45 +00:00
|
|
|
// Copyright (C) 1999-2020 by Sonic Team Junior.
|
2014-03-15 16:59:03 +00:00
|
|
|
//
|
|
|
|
// This program is free software distributed under the
|
|
|
|
// terms of the GNU General Public License, version 2.
|
|
|
|
// See the 'LICENSE' file for more details.
|
|
|
|
//-----------------------------------------------------------------------------
|
|
|
|
/// \file w_wad.c
|
|
|
|
/// \brief Handles WAD file header, directory, lump I/O
|
|
|
|
|
2019-12-24 19:37:37 +00:00
|
|
|
#ifdef HAVE_ZLIB
|
|
|
|
#ifndef _MSC_VER
|
|
|
|
#ifndef _LARGEFILE64_SOURCE
|
|
|
|
#define _LARGEFILE64_SOURCE
|
|
|
|
#endif
|
2014-03-15 16:59:03 +00:00
|
|
|
#endif
|
|
|
|
|
2019-12-24 19:37:37 +00:00
|
|
|
#ifndef _LFS64_LARGEFILE
|
|
|
|
#define _LFS64_LARGEFILE
|
2014-03-15 16:59:03 +00:00
|
|
|
#endif
|
2017-10-07 22:18:25 +00:00
|
|
|
|
|
|
|
#ifndef _FILE_OFFSET_BITS
|
|
|
|
#define _FILE_OFFSET_BITS 0
|
|
|
|
#endif
|
|
|
|
|
2019-12-24 19:37:37 +00:00
|
|
|
#include <zlib.h>
|
2017-10-07 22:18:25 +00:00
|
|
|
#endif
|
|
|
|
|
2019-12-24 19:37:37 +00:00
|
|
|
#ifdef __GNUC__
|
|
|
|
#include <unistd.h>
|
2017-10-07 22:18:25 +00:00
|
|
|
#endif
|
|
|
|
|
2019-12-24 19:37:37 +00:00
|
|
|
#define ZWAD
|
|
|
|
|
|
|
|
#ifdef ZWAD
|
|
|
|
#include <errno.h>
|
|
|
|
#include "lzf.h"
|
|
|
|
#endif
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
#include "doomdef.h"
|
|
|
|
#include "doomstat.h"
|
|
|
|
#include "doomtype.h"
|
|
|
|
|
|
|
|
#include "w_wad.h"
|
|
|
|
#include "z_zone.h"
|
2016-03-03 18:31:17 +00:00
|
|
|
#include "fastcmp.h"
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2017-04-29 15:40:07 +00:00
|
|
|
#include "filesrch.h"
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
#include "i_video.h" // rendermode
|
|
|
|
#include "d_netfil.h"
|
|
|
|
#include "dehacked.h"
|
|
|
|
#include "d_clisrv.h"
|
|
|
|
#include "r_defs.h"
|
2019-09-08 21:27:35 +00:00
|
|
|
#include "r_data.h"
|
2014-03-15 16:59:03 +00:00
|
|
|
#include "i_system.h"
|
|
|
|
#include "md5.h"
|
|
|
|
#include "lua_script.h"
|
|
|
|
#ifdef SCANTHINGS
|
|
|
|
#include "p_setup.h" // P_ScanThings
|
|
|
|
#endif
|
|
|
|
#include "m_misc.h" // M_MapNumber
|
|
|
|
|
|
|
|
#ifdef HWRENDER
|
|
|
|
#include "r_data.h"
|
|
|
|
#include "hardware/hw_main.h"
|
|
|
|
#include "hardware/hw_glob.h"
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef PC_DOS
|
|
|
|
#include <stdio.h> // for snprintf
|
|
|
|
int snprintf(char *str, size_t n, const char *fmt, ...);
|
|
|
|
//int vsnprintf(char *str, size_t n, const char *fmt, va_list ap);
|
|
|
|
#endif
|
|
|
|
|
2020-05-06 22:35:54 +00:00
|
|
|
#ifdef _DEBUG
|
|
|
|
#include "console.h"
|
|
|
|
#endif
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
#ifndef O_BINARY
|
|
|
|
#define O_BINARY 0
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
const char *name;
|
|
|
|
size_t len;
|
|
|
|
} lumpchecklist_t;
|
|
|
|
|
|
|
|
// Must be a power of two
|
|
|
|
#define LUMPNUMCACHESIZE 64
|
|
|
|
|
|
|
|
typedef struct lumpnum_cache_s
|
|
|
|
{
|
2020-04-21 09:08:18 +00:00
|
|
|
char lumpname[32];
|
2014-03-15 16:59:03 +00:00
|
|
|
lumpnum_t lumpnum;
|
|
|
|
} lumpnum_cache_t;
|
|
|
|
|
|
|
|
static lumpnum_cache_t lumpnumcache[LUMPNUMCACHESIZE];
|
|
|
|
static UINT16 lumpnumcacheindex = 0;
|
|
|
|
|
|
|
|
//===========================================================================
|
|
|
|
// GLOBALS
|
|
|
|
//===========================================================================
|
|
|
|
UINT16 numwadfiles; // number of active wadfiles
|
|
|
|
wadfile_t *wadfiles[MAX_WADFILES]; // 0 to numwadfiles-1 are valid
|
|
|
|
|
|
|
|
// W_Shutdown
|
|
|
|
// Closes all of the WAD files before quitting
|
|
|
|
// If not done on a Mac then open wad files
|
|
|
|
// can prevent removable media they are on from
|
|
|
|
// being ejected
|
|
|
|
void W_Shutdown(void)
|
|
|
|
{
|
|
|
|
while (numwadfiles--)
|
|
|
|
{
|
2020-04-21 08:21:41 +00:00
|
|
|
wadfile_t *wad = wadfiles[numwadfiles];
|
2019-01-07 18:00:27 +00:00
|
|
|
|
2020-04-21 08:21:41 +00:00
|
|
|
fclose(wad->handle);
|
|
|
|
Z_Free(wad->filename);
|
|
|
|
while (wad->numlumps--)
|
|
|
|
{
|
|
|
|
Z_Free(wad->lumpinfo[wad->numlumps].longname);
|
|
|
|
Z_Free(wad->lumpinfo[wad->numlumps].fullname);
|
|
|
|
}
|
2019-01-07 18:00:27 +00:00
|
|
|
|
2020-04-21 08:21:41 +00:00
|
|
|
Z_Free(wad->lumpinfo);
|
|
|
|
Z_Free(wad);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
//===========================================================================
|
|
|
|
// LUMP BASED ROUTINES
|
|
|
|
//===========================================================================
|
|
|
|
|
|
|
|
// W_AddFile
|
|
|
|
// All files are optional, but at least one file must be
|
|
|
|
// found (PWAD, if all required lumps are present).
|
|
|
|
// Files with a .wad extension are wadlink files
|
|
|
|
// with multiple lumps.
|
|
|
|
// Other files are single lumps with the base filename
|
|
|
|
// for the lump name.
|
|
|
|
|
|
|
|
static char filenamebuf[MAX_WADPATH];
|
|
|
|
|
2017-02-16 21:55:17 +00:00
|
|
|
// W_OpenWadFile
|
|
|
|
// Helper function for opening the WAD file.
|
|
|
|
// Returns the FILE * handle for the file, or NULL if not found or could not be opened
|
|
|
|
// If "useerrors" is true then print errors in the console, else just don't bother
|
|
|
|
// "filename" may be modified to have the correct path the actual file is located in, if necessary
|
|
|
|
FILE *W_OpenWadFile(const char **filename, boolean useerrors)
|
|
|
|
{
|
|
|
|
FILE *handle;
|
|
|
|
|
2019-06-23 13:52:49 +00:00
|
|
|
// Officially, strncpy should not have overlapping buffers, since W_VerifyNMUSlumps is called after this, and it
|
|
|
|
// changes filename to point at filenamebuf, it would technically be doing that. I doubt any issue will occur since
|
|
|
|
// they point to the same location, but it's better to be safe and this is a simple change.
|
|
|
|
if (filenamebuf != *filename)
|
|
|
|
{
|
|
|
|
strncpy(filenamebuf, *filename, MAX_WADPATH);
|
|
|
|
filenamebuf[MAX_WADPATH - 1] = '\0';
|
|
|
|
*filename = filenamebuf;
|
|
|
|
}
|
2017-02-16 21:55:17 +00:00
|
|
|
|
|
|
|
// open wad file
|
|
|
|
if ((handle = fopen(*filename, "rb")) == NULL)
|
|
|
|
{
|
|
|
|
// If we failed to load the file with the path as specified by
|
|
|
|
// the user, strip the directories and search for the file.
|
|
|
|
nameonly(filenamebuf);
|
|
|
|
|
|
|
|
// If findfile finds the file, the full path will be returned
|
|
|
|
// in filenamebuf == *filename.
|
|
|
|
if (findfile(filenamebuf, NULL, true))
|
|
|
|
{
|
|
|
|
if ((handle = fopen(*filename, "rb")) == NULL)
|
|
|
|
{
|
|
|
|
if (useerrors)
|
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Can't open %s\n"), *filename);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (useerrors)
|
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("File %s not found.\n"), *filename);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return handle;
|
|
|
|
}
|
|
|
|
|
2017-05-16 19:10:02 +00:00
|
|
|
// Look for all DEHACKED and Lua scripts inside a PK3 archive.
|
2019-02-03 10:05:22 +00:00
|
|
|
static inline void W_LoadDehackedLumpsPK3(UINT16 wadnum, boolean mainfile)
|
2017-05-16 19:10:02 +00:00
|
|
|
{
|
|
|
|
UINT16 posStart, posEnd;
|
2020-03-19 17:36:14 +00:00
|
|
|
|
2020-05-29 15:35:07 +00:00
|
|
|
posStart = W_CheckNumForFullNamePK3("Init.lua", wadnum, 0);
|
2017-05-16 19:10:02 +00:00
|
|
|
if (posStart != INT16_MAX)
|
|
|
|
{
|
2020-05-29 15:35:07 +00:00
|
|
|
LUA_LoadLump(wadnum, posStart, true);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
posStart = W_CheckNumForFolderStartPK3("Lua/", wadnum, 0);
|
|
|
|
if (posStart != INT16_MAX)
|
|
|
|
{
|
|
|
|
posEnd = W_CheckNumForFolderEndPK3("Lua/", wadnum, posStart);
|
|
|
|
for (; posStart < posEnd; posStart++)
|
|
|
|
LUA_LoadLump(wadnum, posStart, true);
|
|
|
|
}
|
2017-05-16 19:10:02 +00:00
|
|
|
}
|
2020-03-19 17:36:14 +00:00
|
|
|
|
2018-06-06 16:11:12 +00:00
|
|
|
posStart = W_CheckNumForFolderStartPK3("SOC/", wadnum, 0);
|
2017-05-16 19:10:02 +00:00
|
|
|
if (posStart != INT16_MAX)
|
|
|
|
{
|
2018-06-06 16:11:12 +00:00
|
|
|
posEnd = W_CheckNumForFolderEndPK3("SOC/", wadnum, posStart);
|
2019-01-07 18:00:27 +00:00
|
|
|
|
2017-10-07 22:18:25 +00:00
|
|
|
for(; posStart < posEnd; posStart++)
|
2018-02-09 22:43:08 +00:00
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = &wadfiles[wadnum]->lumpinfo[posStart];
|
2020-04-20 21:40:41 +00:00
|
|
|
size_t length = strlen(wadfiles[wadnum]->filename) + 1 + strlen(lump_p->fullname); // length of file name, '|', and lump name
|
2018-02-09 22:43:08 +00:00
|
|
|
char *name = malloc(length + 1);
|
2020-04-20 21:40:41 +00:00
|
|
|
sprintf(name, "%s|%s", wadfiles[wadnum]->filename, lump_p->fullname);
|
2018-02-09 22:43:08 +00:00
|
|
|
name[length] = '\0';
|
|
|
|
CONS_Printf(M_GetText("Loading SOC from %s\n"), name);
|
2019-02-03 10:05:22 +00:00
|
|
|
DEH_LoadDehackedLumpPwad(wadnum, posStart, mainfile);
|
2018-02-09 22:43:08 +00:00
|
|
|
free(name);
|
|
|
|
}
|
2017-05-16 19:10:02 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
// search for all DEHACKED lump in all wads and load it
|
2019-02-03 10:05:22 +00:00
|
|
|
static inline void W_LoadDehackedLumps(UINT16 wadnum, boolean mainfile)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
UINT16 lump;
|
|
|
|
|
|
|
|
// Find Lua scripts before SOCs to allow new A_Actions in SOC editing.
|
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wadnum]->lumpinfo;
|
|
|
|
for (lump = 0; lump < wadfiles[wadnum]->numlumps; lump++, lump_p++)
|
|
|
|
if (memcmp(lump_p->name,"LUA_",4)==0)
|
2020-05-29 15:35:07 +00:00
|
|
|
LUA_LoadLump(wadnum, lump, true);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
2016-01-17 19:43:26 +00:00
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wadnum]->lumpinfo;
|
|
|
|
for (lump = 0; lump < wadfiles[wadnum]->numlumps; lump++, lump_p++)
|
2016-01-30 17:19:05 +00:00
|
|
|
if (memcmp(lump_p->name,"SOC_",4)==0) // Check for generic SOC lump
|
2016-03-03 18:31:17 +00:00
|
|
|
{ // shameless copy+paste of code from LUA_LoadLump
|
2020-04-20 21:40:41 +00:00
|
|
|
size_t length = strlen(wadfiles[wadnum]->filename) + 1 + strlen(lump_p->fullname); // length of file name, '|', and lump name
|
2018-11-23 16:58:45 +00:00
|
|
|
char *name = malloc(length + 1);
|
2020-04-20 21:40:41 +00:00
|
|
|
sprintf(name, "%s|%s", wadfiles[wadnum]->filename, lump_p->fullname);
|
2018-11-23 16:58:45 +00:00
|
|
|
name[length] = '\0';
|
2018-02-09 22:43:08 +00:00
|
|
|
|
2016-03-03 18:31:17 +00:00
|
|
|
CONS_Printf(M_GetText("Loading SOC from %s\n"), name);
|
2019-02-03 10:05:22 +00:00
|
|
|
DEH_LoadDehackedLumpPwad(wadnum, lump, mainfile);
|
2018-02-09 22:43:08 +00:00
|
|
|
free(name);
|
2016-01-17 19:43:26 +00:00
|
|
|
}
|
2016-01-30 17:19:05 +00:00
|
|
|
else if (memcmp(lump_p->name,"MAINCFG",8)==0) // Check for MAINCFG
|
|
|
|
{
|
|
|
|
CONS_Printf(M_GetText("Loading main config from %s\n"), wadfiles[wadnum]->filename);
|
2019-02-03 10:05:22 +00:00
|
|
|
DEH_LoadDehackedLumpPwad(wadnum, lump, mainfile);
|
2016-01-30 17:19:05 +00:00
|
|
|
}
|
|
|
|
else if (memcmp(lump_p->name,"OBJCTCFG",8)==0) // Check for OBJCTCFG
|
|
|
|
{
|
|
|
|
CONS_Printf(M_GetText("Loading object config from %s\n"), wadfiles[wadnum]->filename);
|
2019-02-03 10:05:22 +00:00
|
|
|
DEH_LoadDehackedLumpPwad(wadnum, lump, mainfile);
|
2016-01-30 17:19:05 +00:00
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef SCANTHINGS
|
|
|
|
// Scan maps for emblems 'n shit
|
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wadnum]->lumpinfo;
|
|
|
|
for (lump = 0; lump < wadfiles[wadnum]->numlumps; lump++, lump_p++)
|
|
|
|
{
|
|
|
|
const char *name = lump_p->name;
|
|
|
|
if (name[0] == 'M' && name[1] == 'A' && name[2] == 'P' && name[5]=='\0')
|
|
|
|
{
|
|
|
|
INT16 mapnum = (INT16)M_MapNumber(name[3], name[4]);
|
|
|
|
P_ScanThings(mapnum, wadnum, lump + ML_THINGS);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Compute MD5 message digest for bytes read from STREAM of this filname.
|
|
|
|
*
|
|
|
|
* The resulting message digest number will be written into the 16 bytes
|
|
|
|
* beginning at RESBLOCK.
|
|
|
|
*
|
|
|
|
* \param filename path of file
|
|
|
|
* \param resblock resulting MD5 checksum
|
|
|
|
* \return 0 if MD5 checksum was made, and is at resblock, 1 if error was found
|
|
|
|
*/
|
|
|
|
static inline INT32 W_MakeFileMD5(const char *filename, void *resblock)
|
|
|
|
{
|
|
|
|
#ifdef NOMD5
|
|
|
|
(void)filename;
|
|
|
|
memset(resblock, 0x00, 16);
|
|
|
|
#else
|
|
|
|
FILE *fhandle;
|
|
|
|
|
|
|
|
if ((fhandle = fopen(filename, "rb")) != NULL)
|
|
|
|
{
|
|
|
|
tic_t t = I_GetTime();
|
|
|
|
CONS_Debug(DBG_SETUP, "Making MD5 for %s\n",filename);
|
|
|
|
if (md5_stream(fhandle, resblock) == 1)
|
|
|
|
{
|
|
|
|
fclose(fhandle);
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
CONS_Debug(DBG_SETUP, "MD5 calc for %s took %f seconds\n",
|
|
|
|
filename, (float)(I_GetTime() - t)/NEWTICRATE);
|
|
|
|
fclose(fhandle);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Invalidates the cache of lump numbers. Call this whenever a wad is added.
|
|
|
|
static void W_InvalidateLumpnumCache(void)
|
|
|
|
{
|
|
|
|
memset(lumpnumcache, 0, sizeof (lumpnumcache));
|
|
|
|
}
|
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
/** Detect a file type.
|
|
|
|
* \todo Actually detect the wad/pkzip headers and whatnot, instead of just checking the extensions.
|
|
|
|
*/
|
|
|
|
static restype_t ResourceFileDetect (const char* filename)
|
|
|
|
{
|
|
|
|
if (!stricmp(&filename[strlen(filename) - 4], ".pk3"))
|
|
|
|
return RET_PK3;
|
|
|
|
if (!stricmp(&filename[strlen(filename) - 4], ".soc"))
|
|
|
|
return RET_SOC;
|
|
|
|
if (!stricmp(&filename[strlen(filename) - 4], ".lua"))
|
|
|
|
return RET_LUA;
|
|
|
|
|
|
|
|
return RET_WAD;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Create a 1-lump lumpinfo_t for standalone files.
|
|
|
|
*/
|
|
|
|
static lumpinfo_t* ResGetLumpsStandalone (FILE* handle, UINT16* numlumps, const char* lumpname)
|
|
|
|
{
|
|
|
|
lumpinfo_t* lumpinfo = Z_Calloc(sizeof (*lumpinfo), PU_STATIC, NULL);
|
|
|
|
lumpinfo->position = 0;
|
|
|
|
fseek(handle, 0, SEEK_END);
|
|
|
|
lumpinfo->size = ftell(handle);
|
|
|
|
fseek(handle, 0, SEEK_SET);
|
|
|
|
strcpy(lumpinfo->name, lumpname);
|
2020-04-21 08:21:41 +00:00
|
|
|
|
|
|
|
// Allocate the lump's long name.
|
|
|
|
lumpinfo->longname = Z_Malloc(9 * sizeof(char), PU_STATIC, NULL);
|
|
|
|
strcpy(lumpinfo->longname, lumpname);
|
|
|
|
lumpinfo->longname[8] = '\0';
|
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
// Allocate the lump's full name.
|
2020-04-20 21:40:41 +00:00
|
|
|
lumpinfo->fullname = Z_Malloc(9 * sizeof(char), PU_STATIC, NULL);
|
|
|
|
strcpy(lumpinfo->fullname, lumpname);
|
|
|
|
lumpinfo->fullname[8] = '\0';
|
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
*numlumps = 1;
|
|
|
|
return lumpinfo;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Create a lumpinfo_t array for a WAD file.
|
|
|
|
*/
|
|
|
|
static lumpinfo_t* ResGetLumpsWad (FILE* handle, UINT16* nlmp, const char* filename)
|
|
|
|
{
|
|
|
|
UINT16 numlumps = *nlmp;
|
|
|
|
lumpinfo_t* lumpinfo;
|
|
|
|
size_t i;
|
|
|
|
INT32 compressed = 0;
|
|
|
|
|
|
|
|
wadinfo_t header;
|
|
|
|
lumpinfo_t *lump_p;
|
|
|
|
filelump_t *fileinfo;
|
|
|
|
void *fileinfov;
|
|
|
|
|
|
|
|
// read the header
|
|
|
|
if (fread(&header, 1, sizeof header, handle) < sizeof header)
|
|
|
|
{
|
2019-11-18 20:39:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Can't read wad header because %s\n"), M_FileError(handle));
|
2018-11-24 22:39:31 +00:00
|
|
|
return NULL;
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
if (memcmp(header.identification, "ZWAD", 4) == 0)
|
|
|
|
compressed = 1;
|
|
|
|
else if (memcmp(header.identification, "IWAD", 4) != 0
|
|
|
|
&& memcmp(header.identification, "PWAD", 4) != 0
|
|
|
|
&& memcmp(header.identification, "SDLL", 4) != 0)
|
|
|
|
{
|
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Invalid WAD header\n"));
|
2018-11-24 22:39:31 +00:00
|
|
|
return NULL;
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
header.numlumps = LONG(header.numlumps);
|
|
|
|
header.infotableofs = LONG(header.infotableofs);
|
|
|
|
|
|
|
|
// read wad file directory
|
|
|
|
i = header.numlumps * sizeof (*fileinfo);
|
|
|
|
fileinfov = fileinfo = malloc(i);
|
|
|
|
if (fseek(handle, header.infotableofs, SEEK_SET) == -1
|
|
|
|
|| fread(fileinfo, 1, i, handle) < i)
|
|
|
|
{
|
2019-11-18 20:39:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Corrupt wadfile directory (%s)\n"), M_FileError(handle));
|
2018-11-24 21:58:35 +00:00
|
|
|
free(fileinfov);
|
2018-11-24 22:39:31 +00:00
|
|
|
return NULL;
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
numlumps = header.numlumps;
|
|
|
|
|
|
|
|
// fill in lumpinfo for this wad
|
|
|
|
lump_p = lumpinfo = Z_Malloc(numlumps * sizeof (*lumpinfo), PU_STATIC, NULL);
|
|
|
|
for (i = 0; i < numlumps; i++, lump_p++, fileinfo++)
|
|
|
|
{
|
|
|
|
lump_p->position = LONG(fileinfo->filepos);
|
|
|
|
lump_p->size = lump_p->disksize = LONG(fileinfo->size);
|
|
|
|
if (compressed) // wad is compressed, lump might be
|
|
|
|
{
|
|
|
|
UINT32 realsize = 0;
|
|
|
|
if (fseek(handle, lump_p->position, SEEK_SET)
|
|
|
|
== -1 || fread(&realsize, 1, sizeof realsize,
|
|
|
|
handle) < sizeof realsize)
|
|
|
|
{
|
|
|
|
I_Error("corrupt compressed file: %s; maybe %s", /// \todo Avoid the bailout?
|
2019-11-18 20:39:41 +00:00
|
|
|
filename, M_FileError(handle));
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
realsize = LONG(realsize);
|
|
|
|
if (realsize != 0)
|
|
|
|
{
|
|
|
|
lump_p->size = realsize;
|
|
|
|
lump_p->compression = CM_LZF;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
lump_p->size -= 4;
|
|
|
|
lump_p->compression = CM_NOCOMPRESSION;
|
|
|
|
}
|
|
|
|
|
|
|
|
lump_p->position += 4;
|
|
|
|
lump_p->disksize -= 4;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
lump_p->compression = CM_NOCOMPRESSION;
|
|
|
|
memset(lump_p->name, 0x00, 9);
|
|
|
|
strncpy(lump_p->name, fileinfo->name, 8);
|
2020-04-21 08:21:41 +00:00
|
|
|
|
|
|
|
// Allocate the lump's long name.
|
|
|
|
lump_p->longname = Z_Malloc(9 * sizeof(char), PU_STATIC, NULL);
|
2020-04-29 08:55:49 +00:00
|
|
|
strncpy(lump_p->longname, fileinfo->name, 8);
|
|
|
|
lump_p->longname[8] = '\0';
|
2020-04-21 08:21:41 +00:00
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
// Allocate the lump's full name.
|
2020-04-20 21:40:41 +00:00
|
|
|
lump_p->fullname = Z_Malloc(9 * sizeof(char), PU_STATIC, NULL);
|
2020-04-29 08:55:49 +00:00
|
|
|
strncpy(lump_p->fullname, fileinfo->name, 8);
|
|
|
|
lump_p->fullname[8] = '\0';
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
free(fileinfov);
|
|
|
|
*nlmp = numlumps;
|
|
|
|
return lumpinfo;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Optimized pattern search in a file.
|
|
|
|
*/
|
|
|
|
static boolean ResFindSignature (FILE* handle, char endPat[], UINT32 startpos)
|
|
|
|
{
|
|
|
|
char *s;
|
|
|
|
int c;
|
|
|
|
|
|
|
|
fseek(handle, startpos, SEEK_SET);
|
|
|
|
s = endPat;
|
|
|
|
while((c = fgetc(handle)) != EOF)
|
|
|
|
{
|
|
|
|
if (*s != c && s > endPat) // No match?
|
|
|
|
s = endPat; // We "reset" the counter by sending the s pointer back to the start of the array.
|
|
|
|
if (*s == c)
|
|
|
|
{
|
|
|
|
s++;
|
|
|
|
if (*s == 0x00) // The array pointer has reached the key char which marks the end. It means we have matched the signature.
|
|
|
|
{
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2018-11-25 10:35:19 +00:00
|
|
|
#if defined(_MSC_VER)
|
|
|
|
#pragma pack(1)
|
|
|
|
#endif
|
2018-11-24 21:58:35 +00:00
|
|
|
typedef struct zend_s
|
|
|
|
{
|
|
|
|
char signature[4];
|
|
|
|
UINT16 diskpos;
|
|
|
|
UINT16 cdirdisk;
|
|
|
|
UINT16 diskentries;
|
|
|
|
UINT16 entries;
|
|
|
|
UINT32 cdirsize;
|
|
|
|
UINT32 cdiroffset;
|
|
|
|
UINT16 commentlen;
|
|
|
|
} ATTRPACK zend_t;
|
|
|
|
|
|
|
|
typedef struct zentry_s
|
|
|
|
{
|
|
|
|
char signature[4];
|
|
|
|
UINT16 version;
|
|
|
|
UINT16 versionneeded;
|
|
|
|
UINT16 flags;
|
|
|
|
UINT16 compression;
|
|
|
|
UINT16 modtime;
|
|
|
|
UINT16 moddate;
|
|
|
|
UINT32 CRC32;
|
|
|
|
UINT32 compsize;
|
|
|
|
UINT32 size;
|
|
|
|
UINT16 namelen;
|
|
|
|
UINT16 xtralen;
|
|
|
|
UINT16 commlen;
|
|
|
|
UINT16 diskstart;
|
|
|
|
UINT16 attrint;
|
|
|
|
UINT32 attrext;
|
|
|
|
UINT32 offset;
|
|
|
|
} ATTRPACK zentry_t;
|
|
|
|
|
|
|
|
typedef struct zlentry_s
|
|
|
|
{
|
|
|
|
char signature[4];
|
|
|
|
UINT16 versionneeded;
|
|
|
|
UINT16 flags;
|
|
|
|
UINT16 compression;
|
|
|
|
UINT16 modtime;
|
|
|
|
UINT16 moddate;
|
|
|
|
UINT32 CRC32;
|
|
|
|
UINT32 compsize;
|
|
|
|
UINT32 size;
|
|
|
|
UINT16 namelen;
|
|
|
|
UINT16 xtralen;
|
|
|
|
} ATTRPACK zlentry_t;
|
2018-11-25 10:35:19 +00:00
|
|
|
#if defined(_MSC_VER)
|
|
|
|
#pragma pack()
|
|
|
|
#endif
|
2018-11-24 21:58:35 +00:00
|
|
|
|
|
|
|
/** Create a lumpinfo_t array for a PKZip file.
|
|
|
|
*/
|
|
|
|
static lumpinfo_t* ResGetLumpsZip (FILE* handle, UINT16* nlmp)
|
|
|
|
{
|
|
|
|
zend_t zend;
|
2020-02-08 00:47:56 +00:00
|
|
|
zentry_t zentry;
|
2020-02-08 00:46:46 +00:00
|
|
|
zlentry_t zlentry;
|
2018-11-24 21:58:35 +00:00
|
|
|
|
|
|
|
UINT16 numlumps = *nlmp;
|
|
|
|
lumpinfo_t* lumpinfo;
|
|
|
|
lumpinfo_t *lump_p;
|
|
|
|
size_t i;
|
|
|
|
|
|
|
|
char pat_central[] = {0x50, 0x4b, 0x01, 0x02, 0x00};
|
|
|
|
char pat_end[] = {0x50, 0x4b, 0x05, 0x06, 0x00};
|
|
|
|
|
|
|
|
// Look for central directory end signature near end of file.
|
|
|
|
// Contains entry number (number of lumps), and central directory start offset.
|
|
|
|
fseek(handle, 0, SEEK_END);
|
|
|
|
if (!ResFindSignature(handle, pat_end, max(0, ftell(handle) - (22 + 65536))))
|
|
|
|
{
|
|
|
|
CONS_Alert(CONS_ERROR, "Missing central directory\n");
|
2018-11-24 22:39:31 +00:00
|
|
|
return NULL;
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
fseek(handle, -4, SEEK_CUR);
|
2018-11-25 10:11:50 +00:00
|
|
|
if (fread(&zend, 1, sizeof zend, handle) < sizeof zend)
|
|
|
|
{
|
2019-11-18 20:39:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, "Corrupt central directory (%s)\n", M_FileError(handle));
|
2018-11-25 10:11:50 +00:00
|
|
|
return NULL;
|
|
|
|
}
|
2018-11-24 21:58:35 +00:00
|
|
|
numlumps = zend.entries;
|
|
|
|
|
|
|
|
lump_p = lumpinfo = Z_Malloc(numlumps * sizeof (*lumpinfo), PU_STATIC, NULL);
|
|
|
|
|
|
|
|
fseek(handle, zend.cdiroffset, SEEK_SET);
|
2020-02-08 00:47:56 +00:00
|
|
|
for (i = 0; i < numlumps; i++, lump_p++)
|
2018-11-24 21:58:35 +00:00
|
|
|
{
|
|
|
|
char* fullname;
|
|
|
|
char* trimname;
|
|
|
|
char* dotpos;
|
|
|
|
|
2020-02-08 00:47:56 +00:00
|
|
|
if (fread(&zentry, 1, sizeof(zentry_t), handle) < sizeof(zentry_t))
|
2018-11-25 10:11:50 +00:00
|
|
|
{
|
2019-11-18 20:39:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, "Failed to read central directory (%s)\n", M_FileError(handle));
|
2018-11-25 10:11:50 +00:00
|
|
|
Z_Free(lumpinfo);
|
|
|
|
return NULL;
|
|
|
|
}
|
2020-02-08 00:47:56 +00:00
|
|
|
if (memcmp(zentry.signature, pat_central, 4))
|
2018-11-24 21:58:35 +00:00
|
|
|
{
|
|
|
|
CONS_Alert(CONS_ERROR, "Central directory is corrupt\n");
|
|
|
|
Z_Free(lumpinfo);
|
2018-11-24 22:39:31 +00:00
|
|
|
return NULL;
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
2020-02-08 00:47:56 +00:00
|
|
|
lump_p->position = zentry.offset; // NOT ACCURATE YET: we still need to read the local entry to find our true position
|
|
|
|
lump_p->disksize = zentry.compsize;
|
|
|
|
lump_p->size = zentry.size;
|
2018-11-24 21:58:35 +00:00
|
|
|
|
2020-02-08 00:47:56 +00:00
|
|
|
fullname = malloc(zentry.namelen + 1);
|
|
|
|
if (fgets(fullname, zentry.namelen + 1, handle) != fullname)
|
2018-11-25 10:11:50 +00:00
|
|
|
{
|
2019-11-18 20:39:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, "Unable to read lumpname (%s)\n", M_FileError(handle));
|
2018-11-25 10:11:50 +00:00
|
|
|
Z_Free(lumpinfo);
|
|
|
|
free(fullname);
|
|
|
|
return NULL;
|
|
|
|
}
|
2018-11-24 21:58:35 +00:00
|
|
|
|
|
|
|
// Strip away file address and extension for the 8char name.
|
|
|
|
if ((trimname = strrchr(fullname, '/')) != 0)
|
|
|
|
trimname++;
|
|
|
|
else
|
|
|
|
trimname = fullname; // Care taken for root files.
|
|
|
|
|
|
|
|
if ((dotpos = strrchr(trimname, '.')) == 0)
|
|
|
|
dotpos = fullname + strlen(fullname); // Watch for files without extension.
|
|
|
|
|
|
|
|
memset(lump_p->name, '\0', 9); // Making sure they're initialized to 0. Is it necessary?
|
|
|
|
strncpy(lump_p->name, trimname, min(8, dotpos - trimname));
|
|
|
|
|
2020-04-21 08:21:41 +00:00
|
|
|
lump_p->longname = Z_Calloc(dotpos - trimname + 1, PU_STATIC, NULL);
|
|
|
|
strlcpy(lump_p->longname, trimname, dotpos - trimname + 1);
|
|
|
|
|
2020-04-20 21:40:41 +00:00
|
|
|
lump_p->fullname = Z_Calloc(zentry.namelen + 1, PU_STATIC, NULL);
|
|
|
|
strncpy(lump_p->fullname, fullname, zentry.namelen);
|
2018-11-24 21:58:35 +00:00
|
|
|
|
|
|
|
free(fullname);
|
|
|
|
|
2020-02-08 00:47:56 +00:00
|
|
|
switch(zentry.compression)
|
2018-11-24 21:58:35 +00:00
|
|
|
{
|
|
|
|
case 0:
|
|
|
|
lump_p->compression = CM_NOCOMPRESSION;
|
|
|
|
break;
|
2018-11-25 10:11:50 +00:00
|
|
|
#ifdef HAVE_ZLIB
|
2018-11-24 21:58:35 +00:00
|
|
|
case 8:
|
|
|
|
lump_p->compression = CM_DEFLATE;
|
|
|
|
break;
|
2018-11-25 10:11:50 +00:00
|
|
|
#endif
|
2018-11-24 21:58:35 +00:00
|
|
|
case 14:
|
|
|
|
lump_p->compression = CM_LZF;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
CONS_Alert(CONS_WARNING, "%s: Unsupported compression method\n", fullname);
|
|
|
|
lump_p->compression = CM_UNSUPPORTED;
|
|
|
|
break;
|
|
|
|
}
|
2020-02-07 06:01:20 +00:00
|
|
|
|
|
|
|
// skip and ignore comments/extra fields
|
2020-02-08 00:47:56 +00:00
|
|
|
if (fseek(handle, zentry.xtralen + zentry.commlen, SEEK_CUR) != 0)
|
2020-02-07 06:01:20 +00:00
|
|
|
{
|
2020-02-08 00:43:20 +00:00
|
|
|
CONS_Alert(CONS_ERROR, "Central directory is corrupt\n");
|
2020-02-07 06:01:20 +00:00
|
|
|
Z_Free(lumpinfo);
|
|
|
|
return NULL;
|
|
|
|
}
|
2018-11-24 21:58:35 +00:00
|
|
|
}
|
|
|
|
|
2020-02-08 00:46:46 +00:00
|
|
|
// Adjust lump position values properly
|
|
|
|
for (i = 0, lump_p = lumpinfo; i < numlumps; i++, lump_p++)
|
|
|
|
{
|
|
|
|
// skip and ignore comments/extra fields
|
|
|
|
if ((fseek(handle, lump_p->position, SEEK_SET) != 0) || (fread(&zlentry, 1, sizeof(zlentry_t), handle) < sizeof(zlentry_t)))
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
CONS_Alert(CONS_ERROR, "Local headers for lump %s are corrupt\n", lump_p->fullname);
|
2020-02-08 00:46:46 +00:00
|
|
|
Z_Free(lumpinfo);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
lump_p->position += sizeof(zlentry_t) + zlentry.namelen + zlentry.xtralen;
|
|
|
|
}
|
2019-06-21 23:52:28 +00:00
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
*nlmp = numlumps;
|
|
|
|
return lumpinfo;
|
|
|
|
}
|
|
|
|
|
2020-02-02 03:32:08 +00:00
|
|
|
static UINT16 W_InitFileError (const char *filename, boolean exitworthy)
|
|
|
|
{
|
|
|
|
if (exitworthy)
|
|
|
|
{
|
|
|
|
#ifdef _DEBUG
|
|
|
|
CONS_Error("A WAD file was not found or not valid.\nCheck the log to see which ones.\n");
|
|
|
|
#else
|
|
|
|
I_Error("A WAD file was not found or not valid.\nCheck the log to see which ones.\n");
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
else
|
|
|
|
CONS_Printf(M_GetText("Errors occurred while loading %s; not added.\n"), filename);
|
|
|
|
return INT16_MAX;
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
// Allocate a wadfile, setup the lumpinfo (directory) and
|
|
|
|
// lumpcache, add the wadfile to the current active wadfiles
|
|
|
|
//
|
|
|
|
// now returns index into wadfiles[], you can get wadfile_t *
|
|
|
|
// with:
|
|
|
|
// wadfiles[<return value>]
|
|
|
|
//
|
|
|
|
// return -1 in case of problem
|
|
|
|
//
|
|
|
|
// Can now load dehacked files (.soc)
|
|
|
|
//
|
2020-02-02 03:32:08 +00:00
|
|
|
UINT16 W_InitFile(const char *filename, boolean mainfile, boolean startup)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
FILE *handle;
|
2018-11-24 22:39:31 +00:00
|
|
|
lumpinfo_t *lumpinfo = NULL;
|
2014-03-15 16:59:03 +00:00
|
|
|
wadfile_t *wadfile;
|
2017-11-10 22:36:37 +00:00
|
|
|
restype_t type;
|
2018-11-24 21:58:35 +00:00
|
|
|
UINT16 numlumps = 0;
|
2020-02-22 05:05:33 +00:00
|
|
|
#ifndef NOMD5
|
2014-03-15 16:59:03 +00:00
|
|
|
size_t i;
|
2020-02-22 05:05:33 +00:00
|
|
|
#endif
|
2017-04-29 15:40:07 +00:00
|
|
|
size_t packetsize;
|
2014-03-15 16:59:03 +00:00
|
|
|
UINT8 md5sum[16];
|
2017-05-27 13:01:26 +00:00
|
|
|
boolean important;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2017-04-29 15:40:07 +00:00
|
|
|
if (!(refreshdirmenu & REFRESHDIR_ADDFILE))
|
|
|
|
refreshdirmenu = REFRESHDIR_NORMAL|REFRESHDIR_ADDFILE; // clean out cons_alerts that happened earlier
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2018-06-18 15:55:34 +00:00
|
|
|
if (refreshdirname)
|
|
|
|
Z_Free(refreshdirname);
|
|
|
|
if (dirmenu)
|
|
|
|
{
|
|
|
|
refreshdirname = Z_StrDup(filename);
|
|
|
|
nameonly(refreshdirname);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
refreshdirname = NULL;
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
//CONS_Debug(DBG_SETUP, "Loading %s\n", filename);
|
|
|
|
//
|
|
|
|
// check if limit of active wadfiles
|
|
|
|
//
|
|
|
|
if (numwadfiles >= MAX_WADFILES)
|
|
|
|
{
|
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Maximum wad files reached\n"));
|
2017-04-29 15:40:07 +00:00
|
|
|
refreshdirmenu |= REFRESHDIR_MAX;
|
2020-02-02 03:32:08 +00:00
|
|
|
return W_InitFileError(filename, startup);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
// open wad file
|
2017-02-16 21:55:17 +00:00
|
|
|
if ((handle = W_OpenWadFile(&filename, true)) == NULL)
|
2020-02-02 03:32:08 +00:00
|
|
|
return W_InitFileError(filename, startup);
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
// Check if wad files will overflow fileneededbuffer. Only the filename part
|
|
|
|
// is send in the packet; cf.
|
2017-05-24 20:45:03 +00:00
|
|
|
// see PutFileNeeded in d_netfil.c
|
2017-05-27 13:01:26 +00:00
|
|
|
if ((important = !W_VerifyNMUSlumps(filename)))
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2018-06-18 11:49:06 +00:00
|
|
|
packetsize = packetsizetally + nameonlylength(filename) + 22;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-01-02 06:09:15 +00:00
|
|
|
if (packetsize > MAXFILENEEDED*sizeof(UINT8))
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2019-01-02 06:09:15 +00:00
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("Maximum wad files reached\n"));
|
|
|
|
refreshdirmenu |= REFRESHDIR_MAX;
|
2018-11-02 20:48:12 +00:00
|
|
|
if (handle)
|
|
|
|
fclose(handle);
|
2020-02-02 03:32:08 +00:00
|
|
|
return W_InitFileError(filename, startup);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
2019-01-02 06:09:15 +00:00
|
|
|
packetsizetally = packetsize;
|
|
|
|
}
|
|
|
|
|
2014-11-12 00:55:07 +00:00
|
|
|
#ifndef NOMD5
|
2014-03-15 16:59:03 +00:00
|
|
|
//
|
|
|
|
// w-waiiiit!
|
|
|
|
// Let's not add a wad file if the MD5 matches
|
|
|
|
// an MD5 of an already added WAD file!
|
|
|
|
//
|
|
|
|
W_MakeFileMD5(filename, md5sum);
|
|
|
|
|
|
|
|
for (i = 0; i < numwadfiles; i++)
|
|
|
|
{
|
|
|
|
if (!memcmp(wadfiles[i]->md5sum, md5sum, 16))
|
|
|
|
{
|
|
|
|
CONS_Alert(CONS_ERROR, M_GetText("%s is already loaded\n"), filename);
|
2018-11-02 20:48:12 +00:00
|
|
|
if (handle)
|
|
|
|
fclose(handle);
|
2020-02-02 03:32:08 +00:00
|
|
|
return W_InitFileError(filename, false);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
}
|
2014-11-12 00:55:07 +00:00
|
|
|
#endif
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2018-11-24 21:58:35 +00:00
|
|
|
switch(type = ResourceFileDetect(filename))
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2018-11-24 21:58:35 +00:00
|
|
|
case RET_SOC:
|
|
|
|
lumpinfo = ResGetLumpsStandalone(handle, &numlumps, "OBJCTCFG");
|
|
|
|
break;
|
|
|
|
case RET_LUA:
|
|
|
|
lumpinfo = ResGetLumpsStandalone(handle, &numlumps, "LUA_INIT");
|
|
|
|
break;
|
|
|
|
case RET_PK3:
|
|
|
|
lumpinfo = ResGetLumpsZip(handle, &numlumps);
|
|
|
|
break;
|
|
|
|
case RET_WAD:
|
|
|
|
lumpinfo = ResGetLumpsWad(handle, &numlumps, filename);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
CONS_Alert(CONS_ERROR, "Unsupported file format\n");
|
2018-11-23 15:58:16 +00:00
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2018-11-24 22:39:31 +00:00
|
|
|
if (lumpinfo == NULL)
|
2018-11-24 21:58:35 +00:00
|
|
|
{
|
|
|
|
fclose(handle);
|
2020-02-02 03:32:08 +00:00
|
|
|
return W_InitFileError(filename, startup);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//
|
|
|
|
// link wad file to search files
|
|
|
|
//
|
|
|
|
wadfile = Z_Malloc(sizeof (*wadfile), PU_STATIC, NULL);
|
|
|
|
wadfile->filename = Z_StrDup(filename);
|
2017-04-30 18:05:26 +00:00
|
|
|
wadfile->type = type;
|
2014-03-15 16:59:03 +00:00
|
|
|
wadfile->handle = handle;
|
|
|
|
wadfile->numlumps = (UINT16)numlumps;
|
|
|
|
wadfile->lumpinfo = lumpinfo;
|
2017-05-27 13:01:26 +00:00
|
|
|
wadfile->important = important;
|
2014-03-15 16:59:03 +00:00
|
|
|
fseek(handle, 0, SEEK_END);
|
|
|
|
wadfile->filesize = (unsigned)ftell(handle);
|
2018-11-23 15:58:16 +00:00
|
|
|
wadfile->type = type;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
// already generated, just copy it over
|
|
|
|
M_Memcpy(&wadfile->md5sum, &md5sum, 16);
|
|
|
|
|
|
|
|
//
|
|
|
|
// set up caching
|
|
|
|
//
|
|
|
|
Z_Calloc(numlumps * sizeof (*wadfile->lumpcache), PU_STATIC, &wadfile->lumpcache);
|
2019-09-11 19:59:28 +00:00
|
|
|
Z_Calloc(numlumps * sizeof (*wadfile->patchcache), PU_STATIC, &wadfile->patchcache);
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
#ifdef HWRENDER
|
|
|
|
// allocates GLPatch info structures and store them in a tree
|
|
|
|
wadfile->hwrcache = M_AATreeAlloc(AATREE_ZUSER);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
//
|
|
|
|
// add the wadfile
|
|
|
|
//
|
|
|
|
CONS_Printf(M_GetText("Added file %s (%u lumps)\n"), filename, numlumps);
|
|
|
|
wadfiles[numwadfiles] = wadfile;
|
2016-06-02 19:16:25 +00:00
|
|
|
numwadfiles++; // must come BEFORE W_LoadDehackedLumps, so any addfile called by COM_BufInsertText called by Lua doesn't overwrite what we just loaded
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2020-01-27 05:15:34 +00:00
|
|
|
#ifdef HWRENDER
|
|
|
|
// Read shaders from file
|
2020-04-25 05:10:30 +00:00
|
|
|
if (rendermode == render_opengl && (vid_opengl_state == 1))
|
2020-01-27 05:15:34 +00:00
|
|
|
{
|
|
|
|
HWR_ReadShaders(numwadfiles - 1, (type == RET_PK3));
|
|
|
|
HWR_LoadShaders();
|
|
|
|
}
|
|
|
|
#endif // HWRENDER
|
|
|
|
|
2018-11-23 15:58:16 +00:00
|
|
|
// TODO: HACK ALERT - Load Lua & SOC stuff right here. I feel like this should be out of this place, but... Let's stick with this for now.
|
|
|
|
switch (wadfile->type)
|
|
|
|
{
|
|
|
|
case RET_WAD:
|
2019-02-03 10:05:22 +00:00
|
|
|
W_LoadDehackedLumps(numwadfiles - 1, mainfile);
|
2018-11-23 15:58:16 +00:00
|
|
|
break;
|
|
|
|
case RET_PK3:
|
2019-02-03 10:05:22 +00:00
|
|
|
W_LoadDehackedLumpsPK3(numwadfiles - 1, mainfile);
|
2018-11-23 15:58:16 +00:00
|
|
|
break;
|
|
|
|
case RET_SOC:
|
|
|
|
CONS_Printf(M_GetText("Loading SOC from %s\n"), wadfile->filename);
|
2019-02-03 10:05:22 +00:00
|
|
|
DEH_LoadDehackedLumpPwad(numwadfiles - 1, 0, mainfile);
|
2018-11-23 15:58:16 +00:00
|
|
|
break;
|
|
|
|
case RET_LUA:
|
2020-05-29 15:35:07 +00:00
|
|
|
LUA_LoadLump(numwadfiles - 1, 0, true);
|
2018-11-23 15:58:16 +00:00
|
|
|
break;
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
W_InvalidateLumpnumCache();
|
|
|
|
return wadfile->numlumps;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Tries to load a series of files.
|
|
|
|
* All files are wads unless they have an extension of ".soc" or ".lua".
|
|
|
|
*
|
|
|
|
* Each file is optional, but at least one file must be found or an error will
|
|
|
|
* result. Lump names can appear multiple times. The name searcher looks
|
|
|
|
* backwards, so a later file overrides all earlier ones.
|
|
|
|
*
|
|
|
|
* \param filenames A null-terminated list of files to use.
|
|
|
|
*/
|
2020-02-02 03:32:08 +00:00
|
|
|
void W_InitMultipleFiles(char **filenames, UINT16 mainfiles)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
// open all the files, load headers, and count lumps
|
|
|
|
numwadfiles = 0;
|
|
|
|
|
|
|
|
// will be realloced as lumps are added
|
|
|
|
for (; *filenames; filenames++)
|
|
|
|
{
|
|
|
|
//CONS_Debug(DBG_SETUP, "Loading %s\n", *filenames);
|
2020-02-02 03:32:08 +00:00
|
|
|
W_InitFile(*filenames, numwadfiles < mainfiles, true);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Make sure a lump number is valid.
|
|
|
|
* Compiles away to nothing if PARANOIA is not defined.
|
|
|
|
*/
|
|
|
|
static boolean TestValidLump(UINT16 wad, UINT16 lump)
|
|
|
|
{
|
|
|
|
I_Assert(wad < MAX_WADFILES);
|
|
|
|
if (!wadfiles[wad]) // make sure the wad file exists
|
|
|
|
return false;
|
|
|
|
|
|
|
|
I_Assert(lump < wadfiles[wad]->numlumps);
|
|
|
|
if (lump >= wadfiles[wad]->numlumps) // make sure the lump exists
|
|
|
|
return false;
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
const char *W_CheckNameForNumPwad(UINT16 wad, UINT16 lump)
|
|
|
|
{
|
|
|
|
if (lump >= wadfiles[wad]->numlumps || !TestValidLump(wad, 0))
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
return wadfiles[wad]->lumpinfo[lump].name;
|
|
|
|
}
|
|
|
|
|
|
|
|
const char *W_CheckNameForNum(lumpnum_t lumpnum)
|
|
|
|
{
|
|
|
|
return W_CheckNameForNumPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum));
|
|
|
|
}
|
|
|
|
|
|
|
|
//
|
|
|
|
// Same as the original, but checks in one pwad only.
|
|
|
|
// wadid is a wad number
|
|
|
|
// (Used for sprites loading)
|
|
|
|
//
|
|
|
|
// 'startlump' is the lump number to start the search
|
|
|
|
//
|
|
|
|
UINT16 W_CheckNumForNamePwad(const char *name, UINT16 wad, UINT16 startlump)
|
|
|
|
{
|
|
|
|
UINT16 i;
|
2020-04-25 22:39:52 +00:00
|
|
|
static char uname[8 + 1];
|
|
|
|
|
|
|
|
if (!TestValidLump(wad,0))
|
|
|
|
return INT16_MAX;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2020-04-25 22:39:52 +00:00
|
|
|
strlcpy(uname, name, sizeof uname);
|
2014-03-15 16:59:03 +00:00
|
|
|
strupr(uname);
|
|
|
|
|
2020-04-25 22:39:52 +00:00
|
|
|
//
|
|
|
|
// scan forward
|
|
|
|
// start at 'startlump', useful parameter when there are multiple
|
|
|
|
// resources with the same name
|
|
|
|
//
|
|
|
|
if (startlump < wadfiles[wad]->numlumps)
|
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wad]->lumpinfo + startlump;
|
|
|
|
for (i = startlump; i < wadfiles[wad]->numlumps; i++, lump_p++)
|
|
|
|
if (!strncmp(lump_p->name, uname, sizeof(uname) - 1))
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
|
|
|
// not found.
|
|
|
|
return INT16_MAX;
|
|
|
|
}
|
|
|
|
|
|
|
|
//
|
|
|
|
// Like W_CheckNumForNamePwad, but can find entries with long names
|
|
|
|
//
|
|
|
|
// Should be the only version, but that's not possible until we fix
|
|
|
|
// all the instances of non null-terminated strings in the codebase...
|
|
|
|
//
|
|
|
|
UINT16 W_CheckNumForLongNamePwad(const char *name, UINT16 wad, UINT16 startlump)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
UINT16 i;
|
2020-04-21 09:08:18 +00:00
|
|
|
static char uname[256 + 1];
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
if (!TestValidLump(wad,0))
|
|
|
|
return INT16_MAX;
|
|
|
|
|
2020-04-21 09:08:18 +00:00
|
|
|
strlcpy(uname, name, sizeof uname);
|
|
|
|
strupr(uname);
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
//
|
|
|
|
// scan forward
|
|
|
|
// start at 'startlump', useful parameter when there are multiple
|
|
|
|
// resources with the same name
|
|
|
|
//
|
|
|
|
if (startlump < wadfiles[wad]->numlumps)
|
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wad]->lumpinfo + startlump;
|
|
|
|
for (i = startlump; i < wadfiles[wad]->numlumps; i++, lump_p++)
|
2020-04-21 09:08:18 +00:00
|
|
|
if (!strcmp(lump_p->longname, uname))
|
2014-03-15 16:59:03 +00:00
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
|
|
|
// not found.
|
|
|
|
return INT16_MAX;
|
|
|
|
}
|
|
|
|
|
2020-02-08 03:41:45 +00:00
|
|
|
UINT16
|
|
|
|
W_CheckNumForMarkerStartPwad (const char *name, UINT16 wad, UINT16 startlump)
|
|
|
|
{
|
|
|
|
UINT16 marker;
|
|
|
|
marker = W_CheckNumForNamePwad(name, wad, startlump);
|
|
|
|
if (marker != INT16_MAX)
|
|
|
|
marker++; // Do not count the first marker
|
|
|
|
return marker;
|
|
|
|
}
|
|
|
|
|
2017-05-28 19:47:15 +00:00
|
|
|
// Look for the first lump from a folder.
|
|
|
|
UINT16 W_CheckNumForFolderStartPK3(const char *name, UINT16 wad, UINT16 startlump)
|
|
|
|
{
|
2020-02-08 03:41:45 +00:00
|
|
|
size_t name_length;
|
2017-05-28 19:47:15 +00:00
|
|
|
INT32 i;
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wad]->lumpinfo + startlump;
|
2020-02-08 03:41:45 +00:00
|
|
|
name_length = strlen(name);
|
2017-05-28 19:47:15 +00:00
|
|
|
for (i = startlump; i < wadfiles[wad]->numlumps; i++, lump_p++)
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
if (strnicmp(name, lump_p->fullname, name_length) == 0)
|
2020-02-08 03:41:45 +00:00
|
|
|
{
|
|
|
|
/* SLADE is special and puts a single directory entry. Skip that. */
|
2020-04-20 21:40:41 +00:00
|
|
|
if (strlen(lump_p->fullname) == name_length)
|
2020-02-08 03:41:45 +00:00
|
|
|
i++;
|
2017-05-28 19:47:15 +00:00
|
|
|
break;
|
2020-02-08 03:41:45 +00:00
|
|
|
}
|
2017-05-28 19:47:15 +00:00
|
|
|
}
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
2017-05-01 14:37:32 +00:00
|
|
|
// In a PK3 type of resource file, it looks for the next lumpinfo entry that doesn't share the specified pathfile.
|
|
|
|
// Useful for finding folder ends.
|
|
|
|
// Returns the position of the lumpinfo entry.
|
|
|
|
UINT16 W_CheckNumForFolderEndPK3(const char *name, UINT16 wad, UINT16 startlump)
|
|
|
|
{
|
|
|
|
INT32 i;
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wad]->lumpinfo + startlump;
|
|
|
|
for (i = startlump; i < wadfiles[wad]->numlumps; i++, lump_p++)
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
if (strnicmp(name, lump_p->fullname, strlen(name)))
|
2017-05-01 14:37:32 +00:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
2017-05-01 16:33:41 +00:00
|
|
|
// In a PK3 type of resource file, it looks for an entry with the specified full name.
|
2017-05-01 14:37:32 +00:00
|
|
|
// Returns lump position in PK3's lumpinfo, or INT16_MAX if not found.
|
|
|
|
UINT16 W_CheckNumForFullNamePK3(const char *name, UINT16 wad, UINT16 startlump)
|
|
|
|
{
|
|
|
|
INT32 i;
|
|
|
|
lumpinfo_t *lump_p = wadfiles[wad]->lumpinfo + startlump;
|
|
|
|
for (i = startlump; i < wadfiles[wad]->numlumps; i++, lump_p++)
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
if (!strnicmp(name, lump_p->fullname, strlen(name)))
|
2017-05-01 14:37:32 +00:00
|
|
|
{
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// Not found at all?
|
|
|
|
return INT16_MAX;
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
//
|
|
|
|
// W_CheckNumForName
|
|
|
|
// Returns LUMPERROR if name not found.
|
|
|
|
//
|
|
|
|
lumpnum_t W_CheckNumForName(const char *name)
|
|
|
|
{
|
|
|
|
INT32 i;
|
|
|
|
lumpnum_t check = INT16_MAX;
|
|
|
|
|
2019-11-01 15:48:50 +00:00
|
|
|
if (!*name) // some doofus gave us an empty string?
|
|
|
|
return LUMPERROR;
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
// Check the lumpnumcache first. Loop backwards so that we check
|
|
|
|
// most recent entries first
|
|
|
|
for (i = lumpnumcacheindex + LUMPNUMCACHESIZE; i > lumpnumcacheindex; i--)
|
|
|
|
{
|
2020-04-25 22:39:52 +00:00
|
|
|
if (!lumpnumcache[i & (LUMPNUMCACHESIZE - 1)].lumpname[8]
|
|
|
|
&& strncmp(lumpnumcache[i & (LUMPNUMCACHESIZE - 1)].lumpname, name, 8) == 0)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
lumpnumcacheindex = i & (LUMPNUMCACHESIZE - 1);
|
|
|
|
return lumpnumcache[lumpnumcacheindex].lumpnum;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// scan wad files backwards so patch lump files take precedence
|
|
|
|
for (i = numwadfiles - 1; i >= 0; i--)
|
|
|
|
{
|
|
|
|
check = W_CheckNumForNamePwad(name,(UINT16)i,0);
|
|
|
|
if (check != INT16_MAX)
|
|
|
|
break; //found it
|
|
|
|
}
|
|
|
|
|
|
|
|
if (check == INT16_MAX) return LUMPERROR;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// Update the cache.
|
|
|
|
lumpnumcacheindex = (lumpnumcacheindex + 1) & (LUMPNUMCACHESIZE - 1);
|
2020-04-25 22:39:52 +00:00
|
|
|
memset(lumpnumcache[lumpnumcacheindex].lumpname, '\0', 32);
|
2014-03-15 16:59:03 +00:00
|
|
|
strncpy(lumpnumcache[lumpnumcacheindex].lumpname, name, 8);
|
|
|
|
lumpnumcache[lumpnumcacheindex].lumpnum = (i<<16)+check;
|
|
|
|
|
|
|
|
return lumpnumcache[lumpnumcacheindex].lumpnum;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2020-04-25 22:39:52 +00:00
|
|
|
//
|
|
|
|
// Like W_CheckNumForName, but can find entries with long names
|
|
|
|
//
|
|
|
|
// Should be the only version, but that's not possible until we fix
|
|
|
|
// all the instances of non null-terminated strings in the codebase...
|
|
|
|
//
|
|
|
|
lumpnum_t W_CheckNumForLongName(const char *name)
|
|
|
|
{
|
|
|
|
INT32 i;
|
|
|
|
lumpnum_t check = INT16_MAX;
|
|
|
|
|
|
|
|
if (!*name) // some doofus gave us an empty string?
|
|
|
|
return LUMPERROR;
|
|
|
|
|
|
|
|
// Check the lumpnumcache first. Loop backwards so that we check
|
|
|
|
// most recent entries first
|
|
|
|
for (i = lumpnumcacheindex + LUMPNUMCACHESIZE; i > lumpnumcacheindex; i--)
|
|
|
|
{
|
|
|
|
if (strcmp(lumpnumcache[i & (LUMPNUMCACHESIZE - 1)].lumpname, name) == 0)
|
|
|
|
{
|
|
|
|
lumpnumcacheindex = i & (LUMPNUMCACHESIZE - 1);
|
|
|
|
return lumpnumcache[lumpnumcacheindex].lumpnum;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// scan wad files backwards so patch lump files take precedence
|
|
|
|
for (i = numwadfiles - 1; i >= 0; i--)
|
|
|
|
{
|
|
|
|
check = W_CheckNumForLongNamePwad(name,(UINT16)i,0);
|
|
|
|
if (check != INT16_MAX)
|
|
|
|
break; //found it
|
|
|
|
}
|
|
|
|
|
|
|
|
if (check == INT16_MAX) return LUMPERROR;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (strlen(name) < 32)
|
|
|
|
{
|
|
|
|
// Update the cache.
|
|
|
|
lumpnumcacheindex = (lumpnumcacheindex + 1) & (LUMPNUMCACHESIZE - 1);
|
|
|
|
memset(lumpnumcache[lumpnumcacheindex].lumpname, '\0', 32);
|
|
|
|
strlcpy(lumpnumcache[lumpnumcacheindex].lumpname, name, 32);
|
|
|
|
lumpnumcache[lumpnumcacheindex].lumpnum = (i << 16) + check;
|
|
|
|
}
|
|
|
|
|
|
|
|
return (i << 16) + check;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2017-05-18 19:13:18 +00:00
|
|
|
// Look for valid map data through all added files in descendant order.
|
|
|
|
// Get a map marker for WADs, and a standalone WAD file lump inside PK3s.
|
|
|
|
// TODO: Make it search through cache first, maybe...?
|
|
|
|
lumpnum_t W_CheckNumForMap(const char *name)
|
|
|
|
{
|
|
|
|
UINT16 lumpNum, end;
|
|
|
|
UINT32 i;
|
2017-10-07 22:18:25 +00:00
|
|
|
for (i = numwadfiles - 1; i < numwadfiles; i--)
|
2017-05-18 19:13:18 +00:00
|
|
|
{
|
|
|
|
if (wadfiles[i]->type == RET_WAD)
|
|
|
|
{
|
|
|
|
for (lumpNum = 0; lumpNum < wadfiles[i]->numlumps; lumpNum++)
|
|
|
|
if (!strncmp(name, (wadfiles[i]->lumpinfo + lumpNum)->name, 8))
|
|
|
|
return (i<<16) + lumpNum;
|
|
|
|
}
|
|
|
|
else if (wadfiles[i]->type == RET_PK3)
|
|
|
|
{
|
2017-05-28 19:47:15 +00:00
|
|
|
lumpNum = W_CheckNumForFolderStartPK3("maps/", i, 0);
|
2017-05-18 19:13:18 +00:00
|
|
|
if (lumpNum != INT16_MAX)
|
|
|
|
end = W_CheckNumForFolderEndPK3("maps/", i, lumpNum);
|
|
|
|
else
|
|
|
|
continue;
|
|
|
|
// Now look for the specified map.
|
2020-02-08 03:41:45 +00:00
|
|
|
for (; lumpNum < end; lumpNum++)
|
2017-05-18 19:13:18 +00:00
|
|
|
if (!strnicmp(name, (wadfiles[i]->lumpinfo + lumpNum)->name, 8))
|
|
|
|
return (i<<16) + lumpNum;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return LUMPERROR;
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
//
|
|
|
|
// W_GetNumForName
|
|
|
|
//
|
|
|
|
// Calls W_CheckNumForName, but bombs out if not found.
|
|
|
|
//
|
|
|
|
lumpnum_t W_GetNumForName(const char *name)
|
|
|
|
{
|
|
|
|
lumpnum_t i;
|
|
|
|
|
|
|
|
i = W_CheckNumForName(name);
|
|
|
|
|
|
|
|
if (i == LUMPERROR)
|
|
|
|
I_Error("W_GetNumForName: %s not found!\n", name);
|
|
|
|
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
2020-04-25 22:39:52 +00:00
|
|
|
//
|
|
|
|
// Like W_GetNumForName, but can find entries with long names
|
|
|
|
//
|
|
|
|
// Should be the only version, but that's not possible until we fix
|
|
|
|
// all the instances of non null-terminated strings in the codebase...
|
|
|
|
//
|
|
|
|
lumpnum_t W_GetNumForLongName(const char *name)
|
|
|
|
{
|
|
|
|
lumpnum_t i;
|
|
|
|
|
|
|
|
i = W_CheckNumForLongName(name);
|
|
|
|
|
|
|
|
if (i == LUMPERROR)
|
|
|
|
I_Error("W_GetNumForLongName: %s not found!\n", name);
|
|
|
|
|
|
|
|
return i;
|
|
|
|
}
|
|
|
|
|
2015-01-01 19:50:31 +00:00
|
|
|
//
|
|
|
|
// W_CheckNumForNameInBlock
|
|
|
|
// Checks only in blocks from blockstart lump to blockend lump
|
|
|
|
//
|
|
|
|
lumpnum_t W_CheckNumForNameInBlock(const char *name, const char *blockstart, const char *blockend)
|
|
|
|
{
|
|
|
|
INT32 i;
|
|
|
|
lumpnum_t bsid, beid;
|
|
|
|
lumpnum_t check = INT16_MAX;
|
|
|
|
|
|
|
|
// scan wad files backwards so patch lump files take precedence
|
|
|
|
for (i = numwadfiles - 1; i >= 0; i--)
|
|
|
|
{
|
2017-05-07 10:30:06 +00:00
|
|
|
if (wadfiles[i]->type == RET_WAD)
|
|
|
|
{
|
|
|
|
bsid = W_CheckNumForNamePwad(blockstart, (UINT16)i, 0);
|
|
|
|
if (bsid == INT16_MAX)
|
|
|
|
continue; // Start block doesn't exist?
|
|
|
|
beid = W_CheckNumForNamePwad(blockend, (UINT16)i, 0);
|
|
|
|
if (beid == INT16_MAX)
|
|
|
|
continue; // End block doesn't exist?
|
|
|
|
|
|
|
|
check = W_CheckNumForNamePwad(name, (UINT16)i, bsid);
|
|
|
|
if (check < beid)
|
|
|
|
return (i<<16)+check; // found it, in our constraints
|
|
|
|
}
|
2015-01-01 19:50:31 +00:00
|
|
|
}
|
|
|
|
return LUMPERROR;
|
|
|
|
}
|
|
|
|
|
2014-03-25 02:17:59 +00:00
|
|
|
// Used by Lua. Case sensitive lump checking, quickly...
|
|
|
|
#include "fastcmp.h"
|
|
|
|
UINT8 W_LumpExists(const char *name)
|
|
|
|
{
|
|
|
|
INT32 i,j;
|
|
|
|
for (i = numwadfiles - 1; i >= 0; i--)
|
|
|
|
{
|
|
|
|
lumpinfo_t *lump_p = wadfiles[i]->lumpinfo;
|
|
|
|
for (j = 0; j < wadfiles[i]->numlumps; ++j, ++lump_p)
|
2020-04-25 22:39:52 +00:00
|
|
|
if (fastcmp(lump_p->longname, name))
|
2014-03-25 02:17:59 +00:00
|
|
|
return true;
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
size_t W_LumpLengthPwad(UINT16 wad, UINT16 lump)
|
|
|
|
{
|
|
|
|
if (!TestValidLump(wad, lump))
|
|
|
|
return 0;
|
|
|
|
return wadfiles[wad]->lumpinfo[lump].size;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Returns the buffer size needed to load the given lump.
|
|
|
|
*
|
|
|
|
* \param lump Lump number to look at.
|
|
|
|
* \return Buffer size needed, in bytes.
|
|
|
|
*/
|
|
|
|
size_t W_LumpLength(lumpnum_t lumpnum)
|
|
|
|
{
|
|
|
|
return W_LumpLengthPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum));
|
|
|
|
}
|
|
|
|
|
2018-01-10 16:51:23 +00:00
|
|
|
//
|
|
|
|
// W_IsLumpWad
|
|
|
|
// Is the lump a WAD? (presumably in a PK3)
|
|
|
|
//
|
|
|
|
boolean W_IsLumpWad(lumpnum_t lumpnum)
|
|
|
|
{
|
2018-01-10 19:13:29 +00:00
|
|
|
if (wadfiles[WADFILENUM(lumpnum)]->type == RET_PK3)
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
const char *lumpfullName = (wadfiles[WADFILENUM(lumpnum)]->lumpinfo + LUMPNUM(lumpnum))->fullname;
|
2018-01-10 19:13:29 +00:00
|
|
|
|
|
|
|
if (strlen(lumpfullName) < 4)
|
|
|
|
return false; // can't possibly be a WAD can it?
|
|
|
|
return !strnicmp(lumpfullName + strlen(lumpfullName) - 4, ".wad", 4);
|
|
|
|
}
|
2018-01-10 16:51:23 +00:00
|
|
|
|
2018-01-10 19:13:29 +00:00
|
|
|
return false; // WADs should never be inside non-PK3s as far as SRB2 is concerned
|
2018-01-10 16:51:23 +00:00
|
|
|
}
|
|
|
|
|
2019-03-03 22:09:34 +00:00
|
|
|
//
|
|
|
|
// W_IsLumpFolder
|
|
|
|
// Is the lump a folder? (in a PK3 obviously)
|
|
|
|
//
|
2019-06-23 16:07:20 +00:00
|
|
|
boolean W_IsLumpFolder(UINT16 wad, UINT16 lump)
|
2019-03-03 22:09:34 +00:00
|
|
|
{
|
|
|
|
if (wadfiles[wad]->type == RET_PK3)
|
|
|
|
{
|
2020-04-20 21:40:41 +00:00
|
|
|
const char *name = wadfiles[wad]->lumpinfo[lump].fullname;
|
2019-03-03 22:09:34 +00:00
|
|
|
|
2019-06-23 16:07:20 +00:00
|
|
|
return (name[strlen(name)-1] == '/'); // folders end in '/'
|
2019-03-03 22:09:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return false; // non-PK3s don't have folders
|
|
|
|
}
|
|
|
|
|
2018-11-25 10:11:50 +00:00
|
|
|
#ifdef HAVE_ZLIB
|
2018-11-23 15:58:16 +00:00
|
|
|
/* report a zlib or i/o error */
|
|
|
|
void zerr(int ret)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2019-01-07 18:00:27 +00:00
|
|
|
CONS_Printf("zpipe: ");
|
2017-05-07 10:30:06 +00:00
|
|
|
switch (ret) {
|
|
|
|
case Z_ERRNO:
|
|
|
|
if (ferror(stdin))
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("error reading stdin\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
if (ferror(stdout))
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("error writing stdout\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
break;
|
|
|
|
case Z_STREAM_ERROR:
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("invalid compression level\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
break;
|
|
|
|
case Z_DATA_ERROR:
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("invalid or incomplete deflate data\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
break;
|
|
|
|
case Z_MEM_ERROR:
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("out of memory\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
break;
|
|
|
|
case Z_VERSION_ERROR:
|
2017-05-16 19:10:02 +00:00
|
|
|
CONS_Printf("zlib version mismatch!\n");
|
2017-05-07 10:30:06 +00:00
|
|
|
}
|
|
|
|
}
|
2018-11-25 10:11:50 +00:00
|
|
|
#endif
|
2017-05-07 10:30:06 +00:00
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
/** Reads bytes from the head of a lump.
|
|
|
|
* Note: If the lump is compressed, the whole thing has to be read anyway.
|
|
|
|
*
|
2017-05-02 13:40:31 +00:00
|
|
|
* \param wad Wad number to read from.
|
2014-03-15 16:59:03 +00:00
|
|
|
* \param lump Lump number to read from.
|
|
|
|
* \param dest Buffer in memory to serve as destination.
|
|
|
|
* \param size Number of bytes to read.
|
|
|
|
* \param offest Number of bytes to offset.
|
|
|
|
* \return Number of bytes read (should equal size).
|
|
|
|
* \sa W_ReadLump, W_RawReadLumpHeader
|
|
|
|
*/
|
|
|
|
size_t W_ReadLumpHeaderPwad(UINT16 wad, UINT16 lump, void *dest, size_t size, size_t offset)
|
|
|
|
{
|
|
|
|
size_t lumpsize;
|
2017-05-02 13:40:31 +00:00
|
|
|
lumpinfo_t *l;
|
|
|
|
FILE *handle;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
if (!TestValidLump(wad,lump))
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
lumpsize = wadfiles[wad]->lumpinfo[lump].size;
|
|
|
|
// empty resource (usually markers like S_START, F_END ..)
|
|
|
|
if (!lumpsize || lumpsize<offset)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
// zero size means read all the lump
|
|
|
|
if (!size || size+offset > lumpsize)
|
|
|
|
size = lumpsize - offset;
|
|
|
|
|
2017-05-02 13:40:31 +00:00
|
|
|
// Let's get the raw lump data.
|
|
|
|
// We setup the desired file handle to read the lump data.
|
|
|
|
l = wadfiles[wad]->lumpinfo + lump;
|
|
|
|
handle = wadfiles[wad]->handle;
|
|
|
|
fseek(handle, (long)(l->position + offset), SEEK_SET);
|
|
|
|
|
2017-05-02 16:04:16 +00:00
|
|
|
// But let's not copy it yet. We support different compression formats on lumps, so we need to take that into account.
|
2017-05-01 14:37:32 +00:00
|
|
|
switch(wadfiles[wad]->lumpinfo[lump].compression)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2017-10-07 19:52:27 +00:00
|
|
|
case CM_NOCOMPRESSION: // If it's uncompressed, we directly write the data into our destination, and return the bytes read.
|
2019-03-04 00:58:01 +00:00
|
|
|
#ifdef NO_PNG_LUMPS
|
|
|
|
{
|
|
|
|
size_t bytesread = fread(dest, 1, size, handle);
|
2019-10-28 18:28:42 +00:00
|
|
|
if (R_IsLumpPNG((UINT8 *)dest, bytesread))
|
2020-04-20 21:40:41 +00:00
|
|
|
W_ThrowPNGError(l->fullname, wadfiles[wad]->filename);
|
2019-03-04 00:58:01 +00:00
|
|
|
return bytesread;
|
|
|
|
}
|
|
|
|
#else
|
2017-05-02 13:40:31 +00:00
|
|
|
return fread(dest, 1, size, handle);
|
2019-03-04 00:58:01 +00:00
|
|
|
#endif
|
2017-05-02 16:04:16 +00:00
|
|
|
case CM_LZF: // Is it LZF compressed? Used by ZWADs.
|
2017-04-30 12:49:33 +00:00
|
|
|
{
|
2017-05-02 13:40:31 +00:00
|
|
|
#ifdef ZWAD
|
|
|
|
char *rawData; // The lump's raw data.
|
|
|
|
char *decData; // Lump's decompressed real data.
|
2017-05-02 16:04:16 +00:00
|
|
|
size_t retval; // Helper var, lzf_decompress returns 0 when an error occurs.
|
2017-05-02 13:40:31 +00:00
|
|
|
|
|
|
|
rawData = Z_Malloc(l->disksize, PU_STATIC, NULL);
|
|
|
|
decData = Z_Malloc(l->size, PU_STATIC, NULL);
|
|
|
|
|
|
|
|
if (fread(rawData, 1, l->disksize, handle) < l->disksize)
|
|
|
|
I_Error("wad %d, lump %d: cannot read compressed data", wad, lump);
|
|
|
|
retval = lzf_decompress(rawData, l->disksize, decData, l->size);
|
|
|
|
#ifndef AVOID_ERRNO
|
2018-01-04 15:14:53 +00:00
|
|
|
if (retval == 0) // If this was returned, check if errno was set
|
2017-05-02 13:40:31 +00:00
|
|
|
{
|
2018-01-04 15:14:53 +00:00
|
|
|
// errno is a global var set by the lzf functions when something goes wrong.
|
|
|
|
if (errno == E2BIG)
|
|
|
|
I_Error("wad %d, lump %d: compressed data too big (bigger than %s)", wad, lump, sizeu1(l->size));
|
|
|
|
else if (errno == EINVAL)
|
|
|
|
I_Error("wad %d, lump %d: invalid compressed data", wad, lump);
|
2017-05-02 13:40:31 +00:00
|
|
|
}
|
2018-01-04 15:17:32 +00:00
|
|
|
// Otherwise, fall back on below error (if zero was actually the correct size then ???)
|
2017-05-02 13:40:31 +00:00
|
|
|
#endif
|
|
|
|
if (retval != l->size)
|
|
|
|
{
|
|
|
|
I_Error("wad %d, lump %d: decompressed to wrong number of bytes (expected %s, got %s)", wad, lump, sizeu1(l->size), sizeu2(retval));
|
|
|
|
}
|
2018-11-29 14:16:02 +00:00
|
|
|
|
2017-05-02 13:40:31 +00:00
|
|
|
if (!decData) // Did we get no data at all?
|
|
|
|
return 0;
|
|
|
|
M_Memcpy(dest, decData + offset, size);
|
|
|
|
Z_Free(rawData);
|
|
|
|
Z_Free(decData);
|
2019-03-04 00:58:01 +00:00
|
|
|
#ifdef NO_PNG_LUMPS
|
2019-12-04 18:26:51 +00:00
|
|
|
if (R_IsLumpPNG((UINT8 *)dest, size))
|
2020-04-20 21:40:41 +00:00
|
|
|
W_ThrowPNGError(l->fullname, wadfiles[wad]->filename);
|
2019-03-04 00:58:01 +00:00
|
|
|
#endif
|
2017-04-30 12:49:33 +00:00
|
|
|
return size;
|
2018-01-04 15:14:53 +00:00
|
|
|
#else
|
|
|
|
//I_Error("ZWAD files not supported on this platform.");
|
|
|
|
return 0;
|
|
|
|
#endif
|
2019-03-04 00:58:01 +00:00
|
|
|
|
2017-04-30 12:49:33 +00:00
|
|
|
}
|
2018-11-25 10:11:50 +00:00
|
|
|
#ifdef HAVE_ZLIB
|
2018-11-23 15:58:16 +00:00
|
|
|
case CM_DEFLATE: // Is it compressed via DEFLATE? Very common in ZIPs/PK3s, also what most doom-related editors support.
|
|
|
|
{
|
2018-11-27 15:49:41 +00:00
|
|
|
UINT8 *rawData; // The lump's raw data.
|
|
|
|
UINT8 *decData; // Lump's decompressed real data.
|
2017-05-07 10:30:06 +00:00
|
|
|
|
|
|
|
int zErr; // Helper var.
|
2017-05-02 16:04:16 +00:00
|
|
|
z_stream strm;
|
2017-05-07 10:30:06 +00:00
|
|
|
unsigned long rawSize = l->disksize;
|
|
|
|
unsigned long decSize = l->size;
|
|
|
|
|
|
|
|
rawData = Z_Malloc(rawSize, PU_STATIC, NULL);
|
|
|
|
decData = Z_Malloc(decSize, PU_STATIC, NULL);
|
|
|
|
|
|
|
|
if (fread(rawData, 1, rawSize, handle) < rawSize)
|
|
|
|
I_Error("wad %d, lump %d: cannot read compressed data", wad, lump);
|
2017-05-02 16:04:16 +00:00
|
|
|
|
|
|
|
strm.zalloc = Z_NULL;
|
|
|
|
strm.zfree = Z_NULL;
|
|
|
|
strm.opaque = Z_NULL;
|
2017-05-07 10:30:06 +00:00
|
|
|
|
|
|
|
strm.total_in = strm.avail_in = rawSize;
|
|
|
|
strm.total_out = strm.avail_out = decSize;
|
|
|
|
|
|
|
|
strm.next_in = rawData;
|
|
|
|
strm.next_out = decData;
|
|
|
|
|
|
|
|
zErr = inflateInit2(&strm, -15);
|
|
|
|
if (zErr == Z_OK)
|
|
|
|
{
|
|
|
|
zErr = inflate(&strm, Z_FINISH);
|
|
|
|
if (zErr == Z_STREAM_END)
|
|
|
|
{
|
|
|
|
M_Memcpy(dest, decData, size);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
size = 0;
|
|
|
|
zerr(zErr);
|
2017-05-02 16:04:16 +00:00
|
|
|
}
|
2019-06-21 23:19:34 +00:00
|
|
|
|
|
|
|
(void)inflateEnd(&strm);
|
2017-05-07 10:30:06 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
size = 0;
|
|
|
|
zerr(zErr);
|
|
|
|
}
|
2017-05-02 16:04:16 +00:00
|
|
|
|
2017-05-07 10:30:06 +00:00
|
|
|
Z_Free(rawData);
|
|
|
|
Z_Free(decData);
|
2017-05-02 16:04:16 +00:00
|
|
|
|
2019-03-04 00:58:01 +00:00
|
|
|
#ifdef NO_PNG_LUMPS
|
2019-12-04 18:26:51 +00:00
|
|
|
if (R_IsLumpPNG((UINT8 *)dest, size))
|
2020-04-20 21:40:41 +00:00
|
|
|
W_ThrowPNGError(l->fullname, wadfiles[wad]->filename);
|
2019-03-04 00:58:01 +00:00
|
|
|
#endif
|
2017-05-02 16:04:16 +00:00
|
|
|
return size;
|
|
|
|
}
|
2018-11-25 10:11:50 +00:00
|
|
|
#endif
|
2018-11-23 15:58:16 +00:00
|
|
|
default:
|
|
|
|
I_Error("wad %d, lump %d: unsupported compression type!", wad, lump);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
2019-01-07 18:00:27 +00:00
|
|
|
return 0;
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
size_t W_ReadLumpHeader(lumpnum_t lumpnum, void *dest, size_t size, size_t offset)
|
|
|
|
{
|
|
|
|
return W_ReadLumpHeaderPwad(WADFILENUM(lumpnum), LUMPNUM(lumpnum), dest, size, offset);
|
|
|
|
}
|
|
|
|
|
|
|
|
/** Reads a lump into memory.
|
|
|
|
*
|
|
|
|
* \param lump Lump number to read from.
|
|
|
|
* \param dest Buffer in memory to serve as destination. Size must be >=
|
|
|
|
* W_LumpLength().
|
|
|
|
* \sa W_ReadLumpHeader
|
|
|
|
*/
|
|
|
|
void W_ReadLump(lumpnum_t lumpnum, void *dest)
|
|
|
|
{
|
|
|
|
W_ReadLumpHeaderPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum),dest,0,0);
|
|
|
|
}
|
|
|
|
|
|
|
|
void W_ReadLumpPwad(UINT16 wad, UINT16 lump, void *dest)
|
|
|
|
{
|
|
|
|
W_ReadLumpHeaderPwad(wad, lump, dest, 0, 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
// ==========================================================================
|
|
|
|
// W_CacheLumpNum
|
|
|
|
// ==========================================================================
|
|
|
|
void *W_CacheLumpNumPwad(UINT16 wad, UINT16 lump, INT32 tag)
|
|
|
|
{
|
|
|
|
lumpcache_t *lumpcache;
|
|
|
|
|
|
|
|
if (!TestValidLump(wad,lump))
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
lumpcache = wadfiles[wad]->lumpcache;
|
|
|
|
if (!lumpcache[lump])
|
|
|
|
{
|
|
|
|
void *ptr = Z_Malloc(W_LumpLengthPwad(wad, lump), tag, &lumpcache[lump]);
|
|
|
|
W_ReadLumpHeaderPwad(wad, lump, ptr, 0, 0); // read the lump in full
|
|
|
|
}
|
|
|
|
else
|
|
|
|
Z_ChangeTag(lumpcache[lump], tag);
|
|
|
|
|
|
|
|
return lumpcache[lump];
|
|
|
|
}
|
|
|
|
|
|
|
|
void *W_CacheLumpNum(lumpnum_t lumpnum, INT32 tag)
|
|
|
|
{
|
|
|
|
return W_CacheLumpNumPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum),tag);
|
|
|
|
}
|
|
|
|
|
|
|
|
//
|
|
|
|
// W_CacheLumpNumForce
|
|
|
|
//
|
|
|
|
// Forces the lump to be loaded, even if it already is!
|
|
|
|
//
|
|
|
|
void *W_CacheLumpNumForce(lumpnum_t lumpnum, INT32 tag)
|
|
|
|
{
|
|
|
|
UINT16 wad, lump;
|
|
|
|
void *ptr;
|
|
|
|
|
|
|
|
wad = WADFILENUM(lumpnum);
|
|
|
|
lump = LUMPNUM(lumpnum);
|
|
|
|
|
|
|
|
if (!TestValidLump(wad,lump))
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
ptr = Z_Malloc(W_LumpLengthPwad(wad, lump), tag, NULL);
|
|
|
|
W_ReadLumpHeaderPwad(wad, lump, ptr, 0, 0); // read the lump in full
|
|
|
|
|
|
|
|
return ptr;
|
|
|
|
}
|
|
|
|
|
|
|
|
//
|
|
|
|
// W_IsLumpCached
|
|
|
|
//
|
|
|
|
// If a lump is already cached return true, otherwise
|
|
|
|
// return false.
|
|
|
|
//
|
|
|
|
// no outside code uses the PWAD form, for now
|
|
|
|
static inline boolean W_IsLumpCachedPWAD(UINT16 wad, UINT16 lump, void *ptr)
|
|
|
|
{
|
|
|
|
void *lcache;
|
|
|
|
|
|
|
|
if (!TestValidLump(wad, lump))
|
|
|
|
return false;
|
|
|
|
|
|
|
|
lcache = wadfiles[wad]->lumpcache[lump];
|
|
|
|
|
|
|
|
if (ptr)
|
|
|
|
{
|
|
|
|
if (ptr == lcache)
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
else if (lcache)
|
|
|
|
return true;
|
|
|
|
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
boolean W_IsLumpCached(lumpnum_t lumpnum, void *ptr)
|
|
|
|
{
|
|
|
|
return W_IsLumpCachedPWAD(WADFILENUM(lumpnum),LUMPNUM(lumpnum), ptr);
|
|
|
|
}
|
|
|
|
|
2019-09-11 19:59:28 +00:00
|
|
|
//
|
|
|
|
// W_IsPatchCached
|
|
|
|
//
|
|
|
|
// If a patch is already cached return true, otherwise
|
|
|
|
// return false.
|
|
|
|
//
|
|
|
|
// no outside code uses the PWAD form, for now
|
|
|
|
static inline boolean W_IsPatchCachedPWAD(UINT16 wad, UINT16 lump, void *ptr)
|
|
|
|
{
|
|
|
|
void *lcache;
|
|
|
|
|
|
|
|
if (!TestValidLump(wad, lump))
|
|
|
|
return false;
|
|
|
|
|
|
|
|
lcache = wadfiles[wad]->patchcache[lump];
|
|
|
|
|
|
|
|
if (ptr)
|
|
|
|
{
|
|
|
|
if (ptr == lcache)
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
else if (lcache)
|
|
|
|
return true;
|
|
|
|
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
boolean W_IsPatchCached(lumpnum_t lumpnum, void *ptr)
|
|
|
|
{
|
|
|
|
return W_IsPatchCachedPWAD(WADFILENUM(lumpnum),LUMPNUM(lumpnum), ptr);
|
|
|
|
}
|
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
// ==========================================================================
|
|
|
|
// W_CacheLumpName
|
|
|
|
// ==========================================================================
|
|
|
|
void *W_CacheLumpName(const char *name, INT32 tag)
|
|
|
|
{
|
|
|
|
return W_CacheLumpNum(W_GetNumForName(name), tag);
|
|
|
|
}
|
|
|
|
|
|
|
|
// ==========================================================================
|
|
|
|
// CACHING OF GRAPHIC PATCH RESOURCES
|
|
|
|
// ==========================================================================
|
|
|
|
|
|
|
|
// Graphic 'patches' are loaded, and if necessary, converted into the format
|
|
|
|
// the most useful for the current rendermode. For software renderer, the
|
|
|
|
// graphic patches are kept as is. For the hardware renderer, graphic patches
|
|
|
|
// are 'unpacked', and are kept into the cache in that unpacked format, and
|
|
|
|
// the heap memory cache then acts as a 'level 2' cache just after the
|
|
|
|
// graphics card memory.
|
|
|
|
|
|
|
|
//
|
|
|
|
// Cache a patch into heap memory, convert the patch format as necessary
|
|
|
|
//
|
|
|
|
|
2020-03-17 18:23:13 +00:00
|
|
|
void *W_CacheSoftwarePatchNumPwad(UINT16 wad, UINT16 lump, INT32 tag)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2020-03-17 18:23:13 +00:00
|
|
|
lumpcache_t *lumpcache = NULL;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
|
|
|
if (!TestValidLump(wad, lump))
|
|
|
|
return NULL;
|
|
|
|
|
2020-03-17 18:23:13 +00:00
|
|
|
lumpcache = wadfiles[wad]->patchcache;
|
|
|
|
|
|
|
|
if (!lumpcache[lump])
|
2019-12-14 21:30:10 +00:00
|
|
|
{
|
2020-03-17 18:23:13 +00:00
|
|
|
size_t len = W_LumpLengthPwad(wad, lump);
|
|
|
|
void *ptr, *lumpdata;
|
2019-10-29 02:46:33 +00:00
|
|
|
#ifndef NO_PNG_LUMPS
|
2020-03-17 18:23:13 +00:00
|
|
|
void *srcdata = NULL;
|
2019-10-29 02:46:33 +00:00
|
|
|
#endif
|
2019-09-11 19:59:28 +00:00
|
|
|
|
2020-03-17 18:23:13 +00:00
|
|
|
ptr = Z_Malloc(len, tag, &lumpcache[lump]);
|
|
|
|
lumpdata = Z_Malloc(len, tag, NULL);
|
2019-09-11 19:59:28 +00:00
|
|
|
|
2020-03-17 18:23:13 +00:00
|
|
|
// read the lump in full
|
|
|
|
W_ReadLumpHeaderPwad(wad, lump, lumpdata, 0, 0);
|
2019-09-11 19:59:28 +00:00
|
|
|
|
|
|
|
#ifndef NO_PNG_LUMPS
|
2020-03-17 18:23:13 +00:00
|
|
|
// lump is a png so convert it
|
|
|
|
if (R_IsLumpPNG((UINT8 *)lumpdata, len))
|
|
|
|
{
|
|
|
|
size_t newlen;
|
|
|
|
srcdata = R_PNGToPatch((UINT8 *)lumpdata, len, &newlen);
|
|
|
|
ptr = Z_Realloc(ptr, newlen, tag, &lumpcache[lump]);
|
|
|
|
M_Memcpy(ptr, srcdata, newlen);
|
|
|
|
Z_Free(srcdata);
|
2019-09-11 19:59:28 +00:00
|
|
|
}
|
2020-03-17 18:23:13 +00:00
|
|
|
else // just copy it into the patch cache
|
|
|
|
#endif
|
|
|
|
M_Memcpy(ptr, lumpdata, len);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
Z_ChangeTag(lumpcache[lump], tag);
|
2019-09-11 19:59:28 +00:00
|
|
|
|
2020-03-17 18:23:13 +00:00
|
|
|
return lumpcache[lump];
|
|
|
|
}
|
|
|
|
|
|
|
|
void *W_CacheSoftwarePatchNum(lumpnum_t lumpnum, INT32 tag)
|
|
|
|
{
|
|
|
|
return W_CacheSoftwarePatchNumPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum),tag);
|
|
|
|
}
|
|
|
|
|
|
|
|
void *W_CachePatchNumPwad(UINT16 wad, UINT16 lump, INT32 tag)
|
|
|
|
{
|
|
|
|
#ifdef HWRENDER
|
|
|
|
GLPatch_t *grPatch;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if (!TestValidLump(wad, lump))
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
#ifdef HWRENDER
|
|
|
|
// Software-only compile cache the data without conversion
|
|
|
|
if (rendermode == render_soft || rendermode == render_none)
|
|
|
|
#endif
|
|
|
|
{
|
|
|
|
return W_CacheSoftwarePatchNumPwad(wad, lump, tag);
|
2019-09-11 19:59:28 +00:00
|
|
|
}
|
2019-12-14 21:30:10 +00:00
|
|
|
#ifdef HWRENDER
|
2019-09-11 19:59:28 +00:00
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
grPatch = HWR_GetCachedGLPatchPwad(wad, lump);
|
|
|
|
|
2019-11-08 00:30:29 +00:00
|
|
|
if (grPatch->mipmap->grInfo.data)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
|
|
|
if (tag == PU_CACHE)
|
|
|
|
tag = PU_HWRCACHE;
|
2019-11-08 00:30:29 +00:00
|
|
|
Z_ChangeTag(grPatch->mipmap->grInfo.data, tag);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
patch_t *ptr = NULL;
|
|
|
|
|
|
|
|
// Only load the patch if we haven't initialised the grPatch yet
|
2019-11-08 00:30:29 +00:00
|
|
|
if (grPatch->mipmap->width == 0)
|
2014-03-15 16:59:03 +00:00
|
|
|
ptr = W_CacheLumpNumPwad(grPatch->wadnum, grPatch->lumpnum, PU_STATIC);
|
|
|
|
|
|
|
|
// Run HWR_MakePatch in all cases, to recalculate some things
|
2019-11-08 00:30:29 +00:00
|
|
|
HWR_MakePatch(ptr, grPatch, grPatch->mipmap, false);
|
2014-03-15 16:59:03 +00:00
|
|
|
Z_Free(ptr);
|
|
|
|
}
|
|
|
|
|
|
|
|
// return GLPatch_t, which can be casted to (patch_t) with valid patch header info
|
|
|
|
return (void *)grPatch;
|
2019-09-11 19:59:28 +00:00
|
|
|
#endif
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
void *W_CachePatchNum(lumpnum_t lumpnum, INT32 tag)
|
|
|
|
{
|
|
|
|
return W_CachePatchNumPwad(WADFILENUM(lumpnum),LUMPNUM(lumpnum),tag);
|
|
|
|
}
|
|
|
|
|
|
|
|
void W_UnlockCachedPatch(void *patch)
|
|
|
|
{
|
|
|
|
// The hardware code does its own memory management, as its patches
|
|
|
|
// have different lifetimes from software's.
|
|
|
|
#ifdef HWRENDER
|
2019-12-25 19:22:01 +00:00
|
|
|
if (rendermode == render_opengl)
|
2014-03-15 16:59:03 +00:00
|
|
|
HWR_UnlockCachedPatch((GLPatch_t*)patch);
|
|
|
|
else
|
|
|
|
#endif
|
|
|
|
Z_Unlock(patch);
|
|
|
|
}
|
|
|
|
|
|
|
|
void *W_CachePatchName(const char *name, INT32 tag)
|
|
|
|
{
|
|
|
|
lumpnum_t num;
|
|
|
|
|
|
|
|
num = W_CheckNumForName(name);
|
|
|
|
|
|
|
|
if (num == LUMPERROR)
|
|
|
|
return W_CachePatchNum(W_GetNumForName("MISSING"), tag);
|
|
|
|
return W_CachePatchNum(num, tag);
|
|
|
|
}
|
2020-04-25 22:39:52 +00:00
|
|
|
|
|
|
|
void *W_CachePatchLongName(const char *name, INT32 tag)
|
|
|
|
{
|
|
|
|
lumpnum_t num;
|
|
|
|
|
|
|
|
num = W_CheckNumForLongName(name);
|
|
|
|
|
|
|
|
if (num == LUMPERROR)
|
|
|
|
return W_CachePatchNum(W_GetNumForLongName("MISSING"), tag);
|
|
|
|
return W_CachePatchNum(num, tag);
|
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
#ifndef NOMD5
|
|
|
|
#define MD5_LEN 16
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Prints an MD5 string into a human-readable textual format.
|
|
|
|
*
|
|
|
|
* \param md5 The md5 in binary form -- MD5_LEN (16) bytes.
|
|
|
|
* \param buf Where to print the textual form. Needs 2*MD5_LEN+1 (33) bytes.
|
|
|
|
* \author Graue <graue@oceanbase.org>
|
|
|
|
*/
|
|
|
|
#define MD5_FORMAT \
|
|
|
|
"%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x"
|
|
|
|
static void PrintMD5String(const UINT8 *md5, char *buf)
|
|
|
|
{
|
|
|
|
snprintf(buf, 2*MD5_LEN+1, MD5_FORMAT,
|
|
|
|
md5[0], md5[1], md5[2], md5[3],
|
|
|
|
md5[4], md5[5], md5[6], md5[7],
|
|
|
|
md5[8], md5[9], md5[10], md5[11],
|
|
|
|
md5[12], md5[13], md5[14], md5[15]);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
/** Verifies a file's MD5 is as it should be.
|
|
|
|
* For releases, used as cheat prevention -- if the MD5 doesn't match, a
|
|
|
|
* fatal error is thrown. In debug mode, an MD5 mismatch only triggers a
|
|
|
|
* warning.
|
|
|
|
*
|
|
|
|
* \param wadfilenum Number of the loaded wad file to check.
|
|
|
|
* \param matchmd5 The MD5 sum this wad should have, expressed as a
|
|
|
|
* textual string.
|
|
|
|
* \author Graue <graue@oceanbase.org>
|
|
|
|
*/
|
|
|
|
void W_VerifyFileMD5(UINT16 wadfilenum, const char *matchmd5)
|
|
|
|
{
|
|
|
|
#ifdef NOMD5
|
|
|
|
(void)wadfilenum;
|
|
|
|
(void)matchmd5;
|
|
|
|
#else
|
|
|
|
UINT8 realmd5[MD5_LEN];
|
|
|
|
INT32 ix;
|
|
|
|
|
|
|
|
I_Assert(strlen(matchmd5) == 2*MD5_LEN);
|
|
|
|
I_Assert(wadfilenum < numwadfiles);
|
|
|
|
// Convert an md5 string like "7d355827fa8f981482246d6c95f9bd48"
|
|
|
|
// into a real md5.
|
|
|
|
for (ix = 0; ix < 2*MD5_LEN; ix++)
|
|
|
|
{
|
|
|
|
INT32 n, c = matchmd5[ix];
|
|
|
|
if (isdigit(c))
|
|
|
|
n = c - '0';
|
|
|
|
else
|
|
|
|
{
|
|
|
|
I_Assert(isxdigit(c));
|
|
|
|
if (isupper(c)) n = c - 'A' + 10;
|
|
|
|
else n = c - 'a' + 10;
|
|
|
|
}
|
|
|
|
if (ix & 1) realmd5[ix>>1] = (UINT8)(realmd5[ix>>1]+n);
|
|
|
|
else realmd5[ix>>1] = (UINT8)(n<<4);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (memcmp(realmd5, wadfiles[wadfilenum]->md5sum, 16))
|
|
|
|
{
|
|
|
|
char actualmd5text[2*MD5_LEN+1];
|
|
|
|
PrintMD5String(wadfiles[wadfilenum]->md5sum, actualmd5text);
|
2019-12-06 17:13:04 +00:00
|
|
|
#ifdef _DEBUG
|
2014-03-15 16:59:03 +00:00
|
|
|
CONS_Printf
|
|
|
|
#else
|
|
|
|
I_Error
|
|
|
|
#endif
|
2019-12-06 17:13:04 +00:00
|
|
|
(M_GetText("File is corrupt or has been modified: %s (found md5: %s, wanted: %s)\n"), wadfiles[wadfilenum]->filename, actualmd5text, matchmd5);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
// Verify versions for different archive
|
|
|
|
// formats. checklist assumed to be valid.
|
|
|
|
|
|
|
|
static int
|
|
|
|
W_VerifyName (const char *name, lumpchecklist_t *checklist, boolean status)
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2019-09-13 00:06:57 +00:00
|
|
|
size_t j;
|
|
|
|
for (j = 0; checklist[j].len && checklist[j].name; ++j)
|
|
|
|
{
|
2020-02-01 01:21:09 +00:00
|
|
|
if (( strncasecmp(name, checklist[j].name,
|
2019-09-13 00:06:57 +00:00
|
|
|
checklist[j].len) != false ) == status)
|
|
|
|
{
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
static int
|
|
|
|
W_VerifyWAD (FILE *fp, lumpchecklist_t *checklist, boolean status)
|
|
|
|
{
|
|
|
|
size_t i;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
// assume wad file
|
|
|
|
wadinfo_t header;
|
|
|
|
filelump_t lumpinfo;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
// read the header
|
|
|
|
if (fread(&header, 1, sizeof header, fp) == sizeof header
|
2014-03-15 16:59:03 +00:00
|
|
|
&& header.numlumps < INT16_MAX
|
|
|
|
&& strncmp(header.identification, "ZWAD", 4)
|
|
|
|
&& strncmp(header.identification, "IWAD", 4)
|
|
|
|
&& strncmp(header.identification, "PWAD", 4)
|
|
|
|
&& strncmp(header.identification, "SDLL", 4))
|
2019-09-13 00:06:57 +00:00
|
|
|
{
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
header.numlumps = LONG(header.numlumps);
|
|
|
|
header.infotableofs = LONG(header.infotableofs);
|
|
|
|
|
|
|
|
// let seek to the lumpinfo list
|
|
|
|
if (fseek(fp, header.infotableofs, SEEK_SET) == -1)
|
|
|
|
return true;
|
|
|
|
|
|
|
|
for (i = 0; i < header.numlumps; i++)
|
|
|
|
{
|
|
|
|
// fill in lumpinfo for this wad file directory
|
|
|
|
if (fread(&lumpinfo, sizeof (lumpinfo), 1 , fp) != 1)
|
2014-03-15 16:59:03 +00:00
|
|
|
return true;
|
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
lumpinfo.filepos = LONG(lumpinfo.filepos);
|
|
|
|
lumpinfo.size = LONG(lumpinfo.size);
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
if (lumpinfo.size == 0)
|
|
|
|
continue;
|
|
|
|
|
|
|
|
if (! W_VerifyName(lumpinfo.name, checklist, status))
|
2014-03-15 16:59:03 +00:00
|
|
|
return false;
|
2019-09-13 00:06:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2020-01-31 21:37:55 +00:00
|
|
|
// List of blacklisted folders to use when checking the PK3
|
|
|
|
static lumpchecklist_t folderblacklist[] =
|
|
|
|
{
|
|
|
|
{"Lua/", 4},
|
|
|
|
{"SOC/", 4},
|
|
|
|
{"Sprites/", 8},
|
|
|
|
{"Textures/", 9},
|
|
|
|
{"Patches/", 8},
|
|
|
|
{"Flats/", 6},
|
2020-02-02 23:52:41 +00:00
|
|
|
{"Fades/", 6},
|
|
|
|
{NULL, 0},
|
2020-01-31 21:37:55 +00:00
|
|
|
};
|
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
static int
|
|
|
|
W_VerifyPK3 (FILE *fp, lumpchecklist_t *checklist, boolean status)
|
|
|
|
{
|
|
|
|
zend_t zend;
|
|
|
|
zentry_t zentry;
|
|
|
|
|
|
|
|
UINT16 numlumps;
|
|
|
|
size_t i;
|
|
|
|
|
|
|
|
char pat_central[] = {0x50, 0x4b, 0x01, 0x02, 0x00};
|
|
|
|
char pat_end[] = {0x50, 0x4b, 0x05, 0x06, 0x00};
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
char lumpname[9];
|
|
|
|
|
|
|
|
// Haha the ResGetLumpsZip function doesn't
|
|
|
|
// check for file errors, so neither will I.
|
|
|
|
|
|
|
|
// Central directory bullshit
|
|
|
|
|
|
|
|
fseek(fp, 0, SEEK_END);
|
|
|
|
if (!ResFindSignature(fp, pat_end, max(0, ftell(fp) - (22 + 65536))))
|
|
|
|
return true;
|
|
|
|
|
|
|
|
fseek(fp, -4, SEEK_CUR);
|
|
|
|
if (fread(&zend, 1, sizeof zend, fp) < sizeof zend)
|
|
|
|
return true;
|
|
|
|
|
|
|
|
numlumps = zend.entries;
|
|
|
|
|
|
|
|
fseek(fp, zend.cdiroffset, SEEK_SET);
|
|
|
|
for (i = 0; i < numlumps; i++)
|
|
|
|
{
|
|
|
|
char* fullname;
|
|
|
|
char* trimname;
|
|
|
|
char* dotpos;
|
|
|
|
|
|
|
|
if (fread(&zentry, 1, sizeof(zentry_t), fp) < sizeof(zentry_t))
|
|
|
|
return true;
|
|
|
|
if (memcmp(zentry.signature, pat_central, 4))
|
|
|
|
return true;
|
|
|
|
|
|
|
|
fullname = malloc(zentry.namelen + 1);
|
|
|
|
if (fgets(fullname, zentry.namelen + 1, fp) != fullname)
|
|
|
|
return true;
|
|
|
|
|
|
|
|
// Strip away file address and extension for the 8char name.
|
|
|
|
if ((trimname = strrchr(fullname, '/')) != 0)
|
|
|
|
trimname++;
|
|
|
|
else
|
|
|
|
trimname = fullname; // Care taken for root files.
|
|
|
|
|
2020-02-01 01:21:09 +00:00
|
|
|
if (*trimname) // Ignore directories, well kinda
|
2014-03-15 16:59:03 +00:00
|
|
|
{
|
2019-09-13 00:06:57 +00:00
|
|
|
if ((dotpos = strrchr(trimname, '.')) == 0)
|
|
|
|
dotpos = fullname + strlen(fullname); // Watch for files without extension.
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
memset(lumpname, '\0', 9); // Making sure they're initialized to 0. Is it necessary?
|
|
|
|
strncpy(lumpname, trimname, min(8, dotpos - trimname));
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
if (! W_VerifyName(lumpname, checklist, status))
|
|
|
|
return false;
|
2020-02-01 01:21:09 +00:00
|
|
|
|
|
|
|
// Check for directories next, if it's blacklisted it will return false
|
|
|
|
if (W_VerifyName(fullname, folderblacklist, status))
|
|
|
|
return false;
|
2019-09-13 00:06:57 +00:00
|
|
|
}
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
free(fullname);
|
2020-02-07 06:04:02 +00:00
|
|
|
|
|
|
|
// skip and ignore comments/extra fields
|
2020-02-08 00:43:20 +00:00
|
|
|
if (fseek(fp, zentry.xtralen + zentry.commlen, SEEK_CUR) != 0)
|
2020-02-07 06:04:02 +00:00
|
|
|
return true;
|
2019-09-13 00:06:57 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Note: This never opens lumps themselves and therefore doesn't have to
|
|
|
|
// deal with compressed lumps.
|
|
|
|
static int W_VerifyFile(const char *filename, lumpchecklist_t *checklist,
|
|
|
|
boolean status)
|
|
|
|
{
|
|
|
|
FILE *handle;
|
|
|
|
int goodfile = false;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
if (!checklist)
|
|
|
|
I_Error("No checklist for %s\n", filename);
|
|
|
|
// open wad file
|
|
|
|
if ((handle = W_OpenWadFile(&filename, false)) == NULL)
|
|
|
|
return -1;
|
2014-03-15 16:59:03 +00:00
|
|
|
|
2019-09-13 00:06:57 +00:00
|
|
|
if (stricmp(&filename[strlen(filename) - 4], ".pk3") == 0)
|
|
|
|
goodfile = W_VerifyPK3(handle, checklist, status);
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// detect wad file by the absence of the other supported extensions
|
|
|
|
if (stricmp(&filename[strlen(filename) - 4], ".soc")
|
2020-03-19 17:36:14 +00:00
|
|
|
&& stricmp(&filename[strlen(filename) - 4], ".lua"))
|
2019-09-13 00:06:57 +00:00
|
|
|
{
|
|
|
|
goodfile = W_VerifyWAD(handle, checklist, status);
|
2014-03-15 16:59:03 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
fclose(handle);
|
|
|
|
return goodfile;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/** Checks a wad for lumps other than music and sound.
|
|
|
|
* Used during game load to verify music.dta is a good file and during a
|
|
|
|
* netgame join (on the server side) to see if a wad is important enough to
|
|
|
|
* be sent.
|
|
|
|
*
|
|
|
|
* \param filename Filename of the wad to check.
|
|
|
|
* \return 1 if file contains only music/sound lumps, 0 if it contains other
|
|
|
|
* stuff (maps, sprites, dehacked lumps, and so on). -1 if there no
|
|
|
|
* file exists with that filename
|
|
|
|
* \author Alam Arias
|
|
|
|
*/
|
|
|
|
int W_VerifyNMUSlumps(const char *filename)
|
|
|
|
{
|
|
|
|
// MIDI, MOD/S3M/IT/XM/OGG/MP3/WAV, WAVE SFX
|
|
|
|
// ENDOOM text and palette lumps
|
|
|
|
lumpchecklist_t NMUSlist[] =
|
|
|
|
{
|
2017-03-19 12:37:04 +00:00
|
|
|
{"D_", 2}, // MIDI music
|
|
|
|
{"O_", 2}, // Digital music
|
|
|
|
{"DS", 2}, // Sound effects
|
|
|
|
|
|
|
|
{"ENDOOM", 6}, // ENDOOM text lump
|
|
|
|
|
|
|
|
{"PLAYPAL", 7}, // Palette changes
|
|
|
|
{"PAL", 3}, // Palette changes
|
|
|
|
{"COLORMAP", 8}, // Colormap changes
|
|
|
|
{"CLM", 3}, // Colormap changes
|
|
|
|
{"TRANS", 5}, // Translucency map changes
|
|
|
|
|
|
|
|
{"LTFNT", 5}, // Level title font changes
|
|
|
|
{"TTL", 3}, // Act number changes
|
|
|
|
{"STCFN", 5}, // Console font changes
|
|
|
|
{"TNYFN", 5}, // Tiny console font changes
|
|
|
|
{"STT", 3}, // Acceptable HUD changes (Score Time Rings)
|
|
|
|
{"YB_", 3}, // Intermission graphics, goes with the above
|
2017-04-29 15:40:07 +00:00
|
|
|
{"M_", 2}, // As does menu stuff
|
Sound test is cool now!
https://cdn.discordapp.com/attachments/405336003239477249/641295998395613224/srb20042.gif
* Port MUSICDEFs from Kart.
* Safe to modify without modifying game, so we can put it in music.dta eventually.
* "Title", "AltTitle", "Authors" fields are self-evident.
* "Soundtestpage" and "Soundtestcond" are used to determine which sound test unlockable can play them (set with Unlockable's variable, just like Level Select).
* "Stoppingtime" and "BPM" both accept floats, and are used for presentation stuff on the sound test.
* Ironically, we don't share a single field name with them. Such is the case of differing foci, though, and I expect they'll change their implementation to match (since this is necessary for a sound test).
* Change how S_AddSoundFx works to avoid iterating through all of them, and to allow cv_soundtest to only scroll through defined slots (instead of the infinite wall of thok sounds when scrolling to the left).
* Change V_DrawFixedPatch to allow scaling on two seperate axes.
* Now called "V_DrawStretchyFixedPatch".
* "V_DrawFixedPatch" is a macro to V_DrawStretchyFixedPatch now (same scale on both axes).
* Available to Lua under v.drawStretched!
* Even works in GL!
* Bugfix: Add SR_PLAYER to SOC's menutypes_list.
Stay tuned for the merge request, where I put the onus on the Music Team to finish this off...
2019-11-05 16:23:46 +00:00
|
|
|
{"MUSICDEF", 8}, // Song definitions (thanks kart)
|
2019-12-25 19:22:01 +00:00
|
|
|
|
2014-03-15 16:59:03 +00:00
|
|
|
{NULL, 0},
|
|
|
|
};
|
|
|
|
return W_VerifyFile(filename, NMUSlist, false);
|
|
|
|
}
|
2019-12-11 10:44:46 +00:00
|
|
|
|
|
|
|
/** \brief Generates a virtual resource used for level data loading.
|
|
|
|
*
|
|
|
|
* \param lumpnum_t reference
|
|
|
|
* \return Virtual resource
|
|
|
|
*
|
|
|
|
*/
|
2019-12-15 23:04:48 +00:00
|
|
|
virtres_t* vres_GetMap(lumpnum_t lumpnum)
|
2019-12-11 10:44:46 +00:00
|
|
|
{
|
|
|
|
UINT32 i;
|
2019-12-15 23:04:48 +00:00
|
|
|
virtres_t* vres = NULL;
|
|
|
|
virtlump_t* vlumps = NULL;
|
|
|
|
size_t numlumps = 0;
|
2019-12-11 10:44:46 +00:00
|
|
|
|
|
|
|
if (W_IsLumpWad(lumpnum))
|
|
|
|
{
|
|
|
|
// Remember that we're assuming that the WAD will have a specific set of lumps in a specific order.
|
|
|
|
UINT8 *wadData = W_CacheLumpNum(lumpnum, PU_LEVEL);
|
|
|
|
filelump_t *fileinfo = (filelump_t *)(wadData + ((wadinfo_t *)wadData)->infotableofs);
|
|
|
|
numlumps = ((wadinfo_t *)wadData)->numlumps;
|
|
|
|
vlumps = Z_Malloc(sizeof(virtlump_t)*numlumps, PU_LEVEL, NULL);
|
|
|
|
|
|
|
|
// Build the lumps.
|
|
|
|
for (i = 0; i < numlumps; i++)
|
|
|
|
{
|
|
|
|
vlumps[i].size = (size_t)(((filelump_t *)(fileinfo + i))->size);
|
|
|
|
// Play it safe with the name in this case.
|
|
|
|
memcpy(vlumps[i].name, (fileinfo + i)->name, 8);
|
|
|
|
vlumps[i].name[8] = '\0';
|
|
|
|
vlumps[i].data = Z_Malloc(vlumps[i].size, PU_LEVEL, NULL); // This is memory inefficient, sorry about that.
|
|
|
|
memcpy(vlumps[i].data, wadData + (fileinfo + i)->filepos, vlumps[i].size);
|
|
|
|
}
|
|
|
|
|
|
|
|
Z_Free(wadData);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// Count number of lumps until the end of resource OR up until next "MAPXX" lump.
|
|
|
|
lumpnum_t lumppos = lumpnum + 1;
|
|
|
|
for (i = LUMPNUM(lumppos); i < wadfiles[WADFILENUM(lumpnum)]->numlumps; i++, lumppos++, numlumps++)
|
|
|
|
if (memcmp(W_CheckNameForNum(lumppos), "MAP", 3) == 0)
|
|
|
|
break;
|
|
|
|
numlumps++;
|
|
|
|
|
|
|
|
vlumps = Z_Malloc(sizeof(virtlump_t)*numlumps, PU_LEVEL, NULL);
|
|
|
|
for (i = 0; i < numlumps; i++, lumpnum++)
|
|
|
|
{
|
|
|
|
vlumps[i].size = W_LumpLength(lumpnum);
|
|
|
|
memcpy(vlumps[i].name, W_CheckNameForNum(lumpnum), 8);
|
|
|
|
vlumps[i].name[8] = '\0';
|
|
|
|
vlumps[i].data = W_CacheLumpNum(lumpnum, PU_LEVEL);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
vres = Z_Malloc(sizeof(virtres_t), PU_LEVEL, NULL);
|
2019-12-15 23:04:48 +00:00
|
|
|
vres->vlumps = vlumps;
|
|
|
|
vres->numlumps = numlumps;
|
2019-12-11 15:37:41 +00:00
|
|
|
|
2019-12-11 10:44:46 +00:00
|
|
|
return vres;
|
|
|
|
}
|
|
|
|
|
|
|
|
/** \brief Frees zone memory for a given virtual resource.
|
|
|
|
*
|
|
|
|
* \param Virtual resource
|
|
|
|
*/
|
2019-12-15 23:04:48 +00:00
|
|
|
void vres_Free(virtres_t* vres)
|
2019-12-11 10:44:46 +00:00
|
|
|
{
|
|
|
|
while (vres->numlumps--)
|
|
|
|
Z_Free(vres->vlumps[vres->numlumps].data);
|
|
|
|
Z_Free(vres->vlumps);
|
|
|
|
Z_Free(vres);
|
|
|
|
}
|
|
|
|
|
|
|
|
/** (Debug) Prints lumps from a virtual resource into console.
|
|
|
|
*/
|
2019-12-11 15:37:41 +00:00
|
|
|
/*
|
2019-12-15 23:04:48 +00:00
|
|
|
static void vres_Diag(const virtres_t* vres)
|
2019-12-11 10:44:46 +00:00
|
|
|
{
|
|
|
|
UINT32 i;
|
|
|
|
for (i = 0; i < vres->numlumps; i++)
|
|
|
|
CONS_Printf("%s\n", vres->vlumps[i].name);
|
|
|
|
}
|
2019-12-11 15:37:41 +00:00
|
|
|
*/
|
2019-12-11 10:44:46 +00:00
|
|
|
|
|
|
|
/** \brief Finds a lump in a given virtual resource.
|
|
|
|
*
|
|
|
|
* \param Virtual resource
|
|
|
|
* \param Lump name to look for
|
|
|
|
* \return Virtual lump if found, NULL otherwise
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
virtlump_t* vres_Find(const virtres_t* vres, const char* name)
|
|
|
|
{
|
|
|
|
UINT32 i;
|
|
|
|
for (i = 0; i < vres->numlumps; i++)
|
|
|
|
if (fastcmp(name, vres->vlumps[i].name))
|
|
|
|
return &vres->vlumps[i];
|
|
|
|
return NULL;
|
|
|
|
}
|