void SaveWadincludeFile(const char* const filename)
{
char* fname;
FILE* file;
int x;
unsigned len = strlen(filename) + 5;
fname = (char*)Alloc(len);
safe_snprintf(fname, len, "%s.wic", filename);
_unlink(fname);
file = SafeOpenWrite(fname);
WadInclude_i it;
for (it = g_WadInclude.begin(); it != g_WadInclude.end(); it++)
{
x = it->size();
if (x)
{
SafeWrite(file, it->c_str(), x);
SafeWrite(file, ";", 1);
}
}
Free(fname);
fclose(file);
}
void HandleWadinclude()
{
// Code somewhat copied from TEX_InitFromWad()
char szTmpPath[MAXTOKEN];
char szNewWad[MAXTOKEN];
char* pszWadFile;
bool bExcludeThisWad;
const char* path = ValueForKey(&g_entities[0], "wad");
szNewWad[0] = 0;
safe_strncpy(szTmpPath, path, MAXTOKEN);
// temporary kludge so we don't have to deal with no occurances of a semicolon
// in the path name ..
if (strchr(szTmpPath, ';') == NULL)
{
safe_strncat(szTmpPath, ";", MAXTOKEN);
}
pszWadFile = strtok(szTmpPath, ";");
while (pszWadFile)
{
bExcludeThisWad = false;
// look and see if we're supposed to include the textures from this WAD in the bsp.
WadInclude_i it;
for (it = g_WadInclude.begin(); it != g_WadInclude.end(); it++)
{
if (stristr(pszWadFile, it->c_str()))
{
Log("Embedding textures from WAD File [%s] into BSP\n", pszWadFile);
bExcludeThisWad = true;
}
}
if (!bExcludeThisWad)
{
safe_strncat(szNewWad, pszWadFile, MAXTOKEN);
safe_strncat(szNewWad, ";", MAXTOKEN);
}
if (!bExcludeThisWad)
{
Log("Using WAD File: %s\n", pszWadFile);
}
// next wad file
pszWadFile = strtok(NULL, ";");
}
SetKeyValue(&g_entities[0], "wad", szNewWad);
}
// this function is called in place of tex_initfromwad for onlyents compiles
void HandleWadinclude()
{
int i;
char szTmpWad[1024]; // arbitrary, but needs to be large.
char* pszWadFile;
wadpath_t* currentwad;
Log("\n"); // looks cleaner
szTmpWad[0] = 0;
#ifdef HLCSG_AUTOWAD
if (g_bWadAutoDetect)
{
autowad_UpdateUsedWads();
}
#endif
// for eachwadpath
for (i = 0; i < g_iNumWadPaths; i++)
{
bool bExcludeThisWad = false;
currentwad = g_pWadPaths[i];
pszWadFile = currentwad->path;
#ifdef HLCSG_AUTOWAD/*
#ifdef _DEBUG
Log("[dbg] HandleWIC: attempting to parse wad '%s'\n", currentwad->path);
#endif*/
if (g_bWadAutoDetect && !currentwad->usedtextures)
continue;/*
#ifdef _DEBUG
Log("[dbg] HandleWIC: parsing wad\n");
#endif*/
#endif // HLCSG_AUTOWAD
// look and see if we're supposed to include the textures from this WAD in the bsp.
WadInclude_i it;
for (it = g_WadInclude.begin(); it != g_WadInclude.end(); it++)
{
if (stristr(pszWadFile, it->c_str()))
{
Log("Including Wadfile: %s\n", pszWadFile);
bExcludeThisWad = true; // wadincluding this one
}
}
if (!bExcludeThisWad)
{
Log("Using Wadfile: %s\n", pszWadFile);
#ifdef HLCSG_STRIPWADPATH
char tmp[_MAX_PATH];
ExtractFile (pszWadFile, tmp);
safe_snprintf(szTmpWad, 1024, "%s%s;", szTmpWad, tmp);
#else
safe_snprintf(szTmpWad, 1024, "%s%s;", szTmpWad, pszWadFile);
#endif
}
}
Log("\"wad\" is \"%s\"\n", szTmpWad);
SetKeyValue(&g_entities[0], "wad", szTmpWad);
Log("\n");
CheckFatal();
}
void autowad_UpdateUsedWads()
{
// see which wadfiles are needed
// code for this wad loop somewhat copied from below
wadinfo_t thiswad;
lumpinfo_t* thislump = NULL;
wadpath_t* currentwad;
char* pszWadFile;
FILE* texfile;
const char* pszWadroot = getenv("WADROOT");
int i, j;
int nTexLumps = 0;
#ifdef _DEBUG
Log("[dbg] Starting wad dependency check\n");
#endif
// open each wadpath and sort though its contents
for (i = 0; i < g_iNumWadPaths; i++)
{
currentwad = g_pWadPaths[i];
pszWadFile = currentwad->path;
currentwad->usedbymap = false; // guilty until proven innocent
#ifdef _DEBUG
Log(" Parsing wad: '%s'\n", pszWadFile);
#endif
texfile = fopen(pszWadFile, "rb");
#ifdef SYSTEM_WIN32
if (!texfile)
{
// cant find it, maybe this wad file has a hard code drive
if (pszWadFile[1] == ':')
{
pszWadFile += 2; // skip past the drive
texfile = fopen(pszWadFile, "rb");
}
}
#endif
char szTmp[_MAX_PATH];
if (!texfile && pszWadroot)
{
char szFile[_MAX_PATH];
char szSubdir[_MAX_PATH];
ExtractFile(pszWadFile, szFile);
ExtractFilePath(pszWadFile, szTmp);
ExtractFile(szTmp, szSubdir);
// szSubdir will have a trailing separator
safe_snprintf(szTmp, _MAX_PATH, "%s" SYSTEM_SLASH_STR "%s%s", pszWadroot, szSubdir, szFile);
texfile = fopen(szTmp, "rb");
#ifdef SYSTEM_POSIX
if (!texfile)
{
// cant find it, Convert to lower case and try again
strlwr(szTmp);
texfile = fopen(szTmp, "rb");
}
#endif
}
#ifdef HLCSG_SEARCHWADPATH_VL
#ifdef SYSTEM_WIN32
if (!texfile && pszWadFile[0] == '\\')
{
char tmp[_MAX_PATH];
int l;
for (l = 'C'; l <= 'Z'; ++l)
{
safe_snprintf (tmp, _MAX_PATH, "%c:%s", l, pszWadFile);
texfile = fopen (tmp, "rb");
if (texfile)
{
break;
}
}
}
#endif
#endif
if (!texfile) // still cant find it, skip this one
{
#ifdef HLCSG_SEARCHWADPATH_VL
pszWadFile = currentwad->path; // correct it back
#endif
if(pszWadroot)
{
Warning("Wad file '%s' not found, also tried '%s'",pszWadFile,szTmp);
}
else
{
Warning("Wad file '%s' not found",pszWadFile);
}
continue;
}
// look and see if we're supposed to include the textures from this WAD in the bsp.
{
WadInclude_i it;
bool including = false;
for (it = g_WadInclude.begin(); it != g_WadInclude.end(); it++)
{
if (stristr(pszWadFile, it->c_str()))
{
#ifdef _DEBUG
Log(" - including wad\n");
#endif
including = true;
currentwad->usedbymap = true;
break;
}
}
if (including)
{
//fclose(texfile);
//continue;
}
}
// read in this wadfiles information
SafeRead(texfile, &thiswad, sizeof(thiswad));
// make sure its a valid format
if (strncmp(thiswad.identification, "WAD2", 4) && strncmp(thiswad.identification, "WAD3", 4))
{
fclose(texfile);
continue;
}
thiswad.numlumps = LittleLong(thiswad.numlumps);
thiswad.infotableofs = LittleLong(thiswad.infotableofs);
// read in lump
if (fseek(texfile, thiswad.infotableofs, SEEK_SET))
{
fclose(texfile);
continue; // had trouble reading, skip this wad
}
// memalloc for this lump
thislump = (lumpinfo_t*)realloc(thislump, (nTexLumps + thiswad.numlumps) * sizeof(lumpinfo_t));
// BUGBUG: is this destructed?
// for each texlump
for (j = 0; j < thiswad.numlumps; j++, nTexLumps++)
{
SafeRead(texfile, &thislump[nTexLumps], (sizeof(lumpinfo_t) - sizeof(int)) ); // iTexFile is NOT read from file
CleanupName(thislump[nTexLumps].name, thislump[nTexLumps].name);
if (autowad_IsUsedTexture(thislump[nTexLumps].name))
{
currentwad->usedbymap = true;
currentwad->usedtextures++;
#ifdef _DEBUG
Log(" - Used wadfile: [%s]\n", thislump[nTexLumps].name);
#endif
autowad_PurgeName(thislump[nTexLumps].name);
}
}
fclose(texfile);
}
#ifdef _DEBUG
Log("[dbg] End wad dependency check\n\n");
#endif
return;
}
// =====================================================================================
// TEX_InitFromWad
// =====================================================================================
bool TEX_InitFromWad()
{
int i, j;
wadinfo_t wadinfo;
char szTmpWad[1024]; // arbitrary, but needs to be large.
char* pszWadFile;
const char* pszWadroot;
wadpath_t* currentwad;
Log("\n"); // looks cleaner
szTmpWad[0] = 0;
pszWadroot = getenv("WADROOT");
#ifdef HLCSG_AUTOWAD
autowad_UpdateUsedWads();
#endif
// for eachwadpath
for (i = 0; i < g_iNumWadPaths; i++)
{
FILE* texfile; // temporary used in this loop
bool bExcludeThisWad = false;
currentwad = g_pWadPaths[i];
pszWadFile = currentwad->path;
#ifdef HLCSG_AUTOWAD
#ifdef _DEBUG
Log("[dbg] Attempting to parse wad: '%s'\n", pszWadFile);
#endif
if (g_bWadAutoDetect && !currentwad->usedtextures)
continue;
#ifdef _DEBUG
Log("[dbg] Parsing wad\n");
#endif
#endif
texfiles[nTexFiles] = fopen(pszWadFile, "rb");
#ifdef SYSTEM_WIN32
if (!texfiles[nTexFiles])
{
// cant find it, maybe this wad file has a hard code drive
if (pszWadFile[1] == ':')
{
pszWadFile += 2; // skip past the drive
texfiles[nTexFiles] = fopen(pszWadFile, "rb");
}
}
#endif
if (!texfiles[nTexFiles] && pszWadroot)
{
char szTmp[_MAX_PATH];
char szFile[_MAX_PATH];
char szSubdir[_MAX_PATH];
ExtractFile(pszWadFile, szFile);
ExtractFilePath(pszWadFile, szTmp);
ExtractFile(szTmp, szSubdir);
// szSubdir will have a trailing separator
safe_snprintf(szTmp, _MAX_PATH, "%s" SYSTEM_SLASH_STR "%s%s", pszWadroot, szSubdir, szFile);
texfiles[nTexFiles] = fopen(szTmp, "rb");
#ifdef SYSTEM_POSIX
if (!texfiles[nTexFiles])
{
// if we cant find it, Convert to lower case and try again
strlwr(szTmp);
texfiles[nTexFiles] = fopen(szTmp, "rb");
}
#endif
}
if (!texfiles[nTexFiles])
{
// still cant find it, error out
Fatal(assume_COULD_NOT_FIND_WAD, "Could not open wad file %s", pszWadFile);
continue;
}
// look and see if we're supposed to include the textures from this WAD in the bsp.
WadInclude_i it;
for (it = g_WadInclude.begin(); it != g_WadInclude.end(); it++)
{
if (stristr(pszWadFile, it->c_str()))
{
Log("Including Wadfile: %s\n", pszWadFile);
bExcludeThisWad = true; // wadincluding this one
s_WadIncludeMap[nTexFiles] = true;
break;
}
}
if (!bExcludeThisWad)
{
Log("Using Wadfile: %s\n", pszWadFile);
safe_snprintf(szTmpWad, 1024, "%s%s;", szTmpWad, pszWadFile);
}
// temp assignment to make things cleaner:
texfile = texfiles[nTexFiles];
// read in this wadfiles information
SafeRead(texfile, &wadinfo, sizeof(wadinfo));
// make sure its a valid format
if (strncmp(wadinfo.identification, "WAD2", 4) && strncmp(wadinfo.identification, "WAD3", 4))
{
Log(" - ");
Error("%s isn't a Wadfile!", pszWadFile);
}
wadinfo.numlumps = LittleLong(wadinfo.numlumps);
wadinfo.infotableofs = LittleLong(wadinfo.infotableofs);
// read in lump
if (fseek(texfile, wadinfo.infotableofs, SEEK_SET))
Warning("fseek to %d in wadfile %s failed\n", wadinfo.infotableofs, pszWadFile);
// memalloc for this lump
lumpinfo = (lumpinfo_t*)realloc(lumpinfo, (nTexLumps + wadinfo.numlumps) * sizeof(lumpinfo_t));
// for each texlump
for (j = 0; j < wadinfo.numlumps; j++, nTexLumps++)
{
SafeRead(texfile, &lumpinfo[nTexLumps], (sizeof(lumpinfo_t) - sizeof(int)) ); // iTexFile is NOT read from file
if (!TerminatedString(lumpinfo[nTexLumps].name, MAXWADNAME))
{
lumpinfo[nTexLumps].name[MAXWADNAME - 1] = 0;
Log(" - ");
Warning("Unterminated texture name : wad[%s] texture[%d] name[%s]\n", pszWadFile, nTexLumps, lumpinfo[nTexLumps].name);
}
CleanupName(lumpinfo[nTexLumps].name, lumpinfo[nTexLumps].name);
lumpinfo[nTexLumps].filepos = LittleLong(lumpinfo[nTexLumps].filepos);
lumpinfo[nTexLumps].disksize = LittleLong(lumpinfo[nTexLumps].disksize);
lumpinfo[nTexLumps].iTexFile = nTexFiles;
if (lumpinfo[nTexLumps].disksize > MAX_TEXTURE_SIZE)
{
Log(" - ");
Warning("Larger than expected texture (%d bytes): '%s'",
lumpinfo[nTexLumps].disksize, lumpinfo[nTexLumps].name);
}
}
// AJM: this feature is dependant on autowad. :(
// CONSIDER: making it standard?
#ifdef HLCSG_AUTOWAD
{
double percused = ((float)(currentwad->usedtextures) / (float)(g_numUsedTextures)) * 100;
Log(" - Contains %i used texture%s, %2.2f percent of map (%d textures in wad)\n",
currentwad->usedtextures, currentwad->usedtextures == 1 ? "" : "s", percused, wadinfo.numlumps);
}
#endif
nTexFiles++;
hlassume(nTexFiles < MAX_TEXFILES, assume_MAX_TEXFILES);
}
//Log("num of used textures: %i\n", g_numUsedTextures);
// AJM: Tommy suggested i add this warning message in, and it certianly doesnt
// hurt to be cautious. Especially one of the possible side effects he mentioned was svc_bad
if (nTexFiles > 8)
{
Log("\n");
Warning("More than 8 wadfiles are in use. (%i)\n"
"This may be harmless, and if no strange side effects are occurring, then\n"
"it can safely be ignored. However, if your map starts exhibiting strange\n"
"or obscure errors, consider this as suspect.\n"
, nTexFiles);
}
// sort texlumps in memory by name
qsort((void*)lumpinfo, (size_t) nTexLumps, sizeof(lumpinfo[0]), lump_sorter_by_name);
SetKeyValue(&g_entities[0], "wad", szTmpWad);
Log("\n");
CheckFatal();
return true;
}
