This repository has been archived on 2022-06-27. You can view files and clone it, but cannot push or open issues or pull requests.
Xash3DArchive/common/bsplib/bspfile.c

672 lines
19 KiB
C

//=======================================================================
// Copyright XashXT Group 2007 ©
// bspfile.c - read\save bsp file
//=======================================================================
#include <stdio.h> // sscanf support
#include "bsplib.h"
#include "byteorder.h"
#include "const.h"
#define ENTRIES(a) (sizeof(a)/sizeof(*(a)))
#define ENTRYSIZE(a) (sizeof(*(a)))
//=============================================================================
wfile_t *wadfile;
dheader_t *header;
int num_entities;
bsp_entity_t entities[MAX_MAP_ENTITIES];
int nummodels;
dmodel_t dmodels[MAX_MAP_MODELS];
int visdatasize;
byte dvisdata[MAX_MAP_VISIBILITY];
dvis_t *dvis = (dvis_t *)dvisdata;
int lightdatasize;
byte dlightdata[MAX_MAP_LIGHTING];
int entdatasize;
char dentdata[MAX_MAP_ENTSTRING];
int numleafs;
dleaf_t dleafs[MAX_MAP_LEAFS];
int numplanes;
dplane_t dplanes[MAX_MAP_PLANES];
int numvertexes;
dvertex_t dvertexes[MAX_MAP_VERTS];
int numnodes;
dnode_t dnodes[MAX_MAP_NODES];
int numtexinfo;
dtexinfo_t texinfo[MAX_MAP_TEXINFO];
int numsurfaces;
dsurface_t dsurfaces[MAX_MAP_SURFACES];
int numedges;
dedge_t dedges[MAX_MAP_EDGES];
int numleafsurfaces;
dleafface_t dleafsurfaces[MAX_MAP_LEAFFACES];
int numleafbrushes;
dleafbrush_t dleafbrushes[MAX_MAP_LEAFBRUSHES];
int numsurfedges;
dsurfedge_t dsurfedges[MAX_MAP_SURFEDGES];
int numbrushes;
dbrush_t dbrushes[MAX_MAP_BRUSHES];
int numbrushsides;
dbrushside_t dbrushsides[MAX_MAP_BRUSHSIDES];
int numshaders;
dshader_t dshaders[MAX_MAP_SHADERS];
int numareas;
darea_t dareas[MAX_MAP_AREAS];
int numareaportals;
dareaportal_t dareaportals[MAX_MAP_AREAPORTALS];
byte dcollision[MAX_MAP_COLLISION];
int dcollisiondatasize;
//=============================================================================
size_t ArrayUsage( char *szItem, int items, int maxitems, int itemsize )
{
float percentage = maxitems ? items * 100.0 / maxitems : 0.0;
MsgDev( D_INFO, "%-12s %7i/%-7i %7i/%-7i (%4.1f%%)", szItem, items, maxitems, items * itemsize, maxitems * itemsize, percentage );
if( percentage > 80.0 ) MsgDev( D_INFO, "VERY FULL!\n" );
else if( percentage > 95.0 ) MsgDev( D_INFO, "SIZE DANGER!\n" );
else if( percentage > 99.9 ) MsgDev( D_INFO, "SIZE OVERFLOW!!!\n" );
else MsgDev( D_INFO, "\n" );
return items * itemsize;
}
size_t GlobUsage( char *szItem, int itemstorage, int maxstorage )
{
float percentage = maxstorage ? itemstorage * 100.0 / maxstorage : 0.0;
MsgDev( D_INFO, "%-12s [variable] %7i/%-7i (%4.1f%%)", szItem, itemstorage, maxstorage, percentage );
if( percentage > 80.0 ) MsgDev( D_INFO, "VERY FULL!\n" );
else if( percentage > 95.0 ) MsgDev( D_INFO, "SIZE DANGER!\n" );
else if( percentage > 99.9 ) MsgDev( D_INFO, "SIZE OVERFLOW!!!\n" );
else MsgDev( D_INFO, "\n" );
return itemstorage;
}
/*
=============
PrintBSPFileSizes
Dumps info about current file
=============
*/
void PrintBSPFileSizes( void )
{
int totalmemory = 0;
MsgDev( D_INFO, "\n" );
MsgDev( D_INFO, "Object names Objects/Maxobjs Memory / Maxmem Fullness\n" );
MsgDev( D_INFO, "------------ --------------- --------------- --------\n" );
// struct arrays
totalmemory += ArrayUsage( "shaders", numshaders, ENTRIES( dshaders ), ENTRYSIZE( dshaders ));
totalmemory += ArrayUsage( "planes", numplanes, ENTRIES( dplanes ), ENTRYSIZE( dplanes ));
totalmemory += ArrayUsage( "leafs", numleafs, ENTRIES( dleafs ), ENTRYSIZE( dleafs ));
totalmemory += ArrayUsage( "leaffaces", numleafsurfaces, ENTRIES( dleafsurfaces ), ENTRYSIZE( dleafsurfaces ));
totalmemory += ArrayUsage( "leafbrushes", numleafbrushes, ENTRIES( dleafbrushes ), ENTRYSIZE( dleafbrushes ));
totalmemory += ArrayUsage( "nodes", numnodes, ENTRIES( dnodes ), ENTRYSIZE( dnodes ));
totalmemory += ArrayUsage( "vertexes", numvertexes, ENTRIES( dvertexes ), ENTRYSIZE( dvertexes ));
totalmemory += ArrayUsage( "edges", numedges, ENTRIES( dedges ), ENTRYSIZE( dedges ));
totalmemory += ArrayUsage( "surfedges", numsurfedges, ENTRIES( dsurfedges ), ENTRYSIZE( dsurfedges ));
totalmemory += ArrayUsage( "texinfos", numtexinfo, ENTRIES( texinfo ), ENTRYSIZE( texinfo ));
totalmemory += ArrayUsage( "surfaces", numsurfaces, ENTRIES( dsurfaces ), ENTRYSIZE( dsurfaces ));
totalmemory += ArrayUsage( "models", nummodels, ENTRIES( dmodels ), ENTRYSIZE( dmodels ));
totalmemory += ArrayUsage( "brushes", numbrushes, ENTRIES( dbrushes ), ENTRYSIZE( dbrushes ));
totalmemory += ArrayUsage( "brushsides", numbrushsides, ENTRIES( dbrushsides ), ENTRYSIZE( dbrushsides ));
totalmemory += ArrayUsage( "areas", numareas, ENTRIES( dareas ), ENTRYSIZE( dareas ));
totalmemory += ArrayUsage( "areaportals", numareaportals, ENTRIES( dareaportals ), ENTRYSIZE( dareaportals ));
// byte arrays
totalmemory += GlobUsage( "entities", entdatasize, sizeof( dentdata ));
totalmemory += GlobUsage( "lightdata", lightdatasize, sizeof( dlightdata ));
totalmemory += GlobUsage( "visdata", visdatasize, sizeof( dvisdata ));
totalmemory += GlobUsage( "collision", dcollisiondatasize, sizeof( dcollision ));
MsgDev( D_INFO, "=== Total BSP file data space used: %d bytes ===\n", totalmemory );
}
/*
=============
SwapBSPFile
Byte swaps all data in a bsp file.
=============
*/
void SwapBSPFile( bool todisk )
{
int i, j;
// models
SwapBlock((int *)dmodels, nummodels * sizeof( dmodels[0] ));
// vertexes
SwapBlock( (int *)dvertexes, numvertexes * sizeof( dvertexes[0] ));
// planes
SwapBlock( (int *)dplanes, numplanes * sizeof( dplanes[0] ));
// texinfos
SwapBlock( (int *)texinfo, numtexinfo * sizeof( texinfo[0] ));
// nodes
SwapBlock( (int *)dnodes, numnodes * sizeof( dnodes[0] ));
// leafs
SwapBlock( (int *)dleafs, numleafs * sizeof( dleafs[0] ));
// leaffaces
SwapBlock( (int *)dleafsurfaces, numleafsurfaces * sizeof( dleafsurfaces[0] ));
// leafbrushes
SwapBlock( (int *)dleafbrushes, numleafbrushes * sizeof( dleafbrushes[0] ));
// surfedges
SwapBlock( (int *)dsurfedges, numsurfedges * sizeof( dsurfedges[0] ));
// edges
SwapBlock( (int *)dedges, numedges * sizeof( dedges[0] ));
// brushes
SwapBlock( (int *)dbrushes, numbrushes * sizeof( dbrushes[0] ));
// areas
SwapBlock( (int *)dareas, numareas * sizeof( dareas[0] ));
// areasportals
SwapBlock( (int *)dareaportals, numareaportals * sizeof( dareaportals[0] ));
// brushsides
SwapBlock( (int *)dbrushsides, numbrushsides * sizeof( dbrushsides[0] ));
// shaders
for( i = 0; i < numshaders; i++ )
{
dshaders[i].size[0] = LittleLong( dshaders[i].size[0] );
dshaders[i].size[1] = LittleLong( dshaders[i].size[1] );
dshaders[i].surfaceFlags = LittleLong( dshaders[i].surfaceFlags );
dshaders[i].contentFlags = LittleLong( dshaders[i].contentFlags );
}
// faces
for( i = 0; i < numsurfaces; i++ )
{
dsurfaces[i].planenum = LittleLong( dsurfaces[i].planenum );
dsurfaces[i].side = LittleLong (dsurfaces[i].side);
dsurfaces[i].firstedge = LittleLong( dsurfaces[i].firstedge );
dsurfaces[i].numedges = LittleLong( dsurfaces[i].numedges );
dsurfaces[i].texinfo = LittleLong( dsurfaces[i].texinfo );
dsurfaces[i].lightofs = LittleLong( dsurfaces[i].lightofs );
}
// visibility
if( todisk ) j = dvis->numclusters;
else j = LittleLong( dvis->numclusters );
dvis->numclusters = LittleLong( dvis->numclusters );
for( i = 0; i < j; i++ )
{
dvis->bitofs[i][0] = LittleLong( dvis->bitofs[i][0] );
dvis->bitofs[i][1] = LittleLong( dvis->bitofs[i][1] );
}
}
bool CompressLump( const char *lumpname, size_t length )
{
if( !bsplib_compress_bsp->integer )
return false;
if( !com.strcmp( lumpname, LUMP_MAPINFO ))
return false;
if( !com.strcmp( lumpname, LUMP_ENTITIES ))
return false; // never compress entities
if( !com.strcmp( lumpname, LUMP_COLLISION ))
return true;
if( !com.strcmp( lumpname, LUMP_VISIBILITY ))
return true;
if( !com.strcmp( lumpname, LUMP_LIGHTING ))
return true;
// other lumps can be compressed if their size more than 32 kBytes
if( length > 0x8000 )
return true;
return false;
}
char TypeForLump( const char *lumpname )
{
if( !com.strcmp( lumpname, LUMP_ENTITIES ))
return TYPE_SCRIPT;
return TYPE_BINDATA;
}
size_t CopyLump( const char *lumpname, void *dest, size_t block_size )
{
size_t length;
byte *in;
if( !wadfile ) return 0;
in = WAD_Read( wadfile, lumpname, &length, TypeForLump( lumpname ));
if( !in ) return 0; // empty lump
if( length % block_size ) Sys_Break( "LoadBSPFile: %s funny lump size\n", lumpname );
Mem_Copy( dest, in, length );
return length / block_size;
}
void AddLump( const char *lumpname, const void *data, size_t length )
{
int compress = CMP_NONE;
if( !wadfile || !length ) return;
compress = CompressLump( lumpname, length ) ? CMP_ZLIB : CMP_NONE;
WAD_Write( wadfile, lumpname, data, (length + 3) & ~3, TypeForLump( lumpname ), compress );
}
/*
=============
LoadBSPFile
=============
*/
bool LoadBSPFile( void )
{
static dheader_t inheader;
header = &inheader;
wadfile = WAD_Open( va("maps/%s.bsp", gs_filename ), "rb" );
if( !wadfile ) return false;
CopyLump( LUMP_MAPINFO, header, 1 );
if( pe ) pe->LoadBSP( wadfile );
MsgDev( D_NOTE, "reading %s.bsp\n", gs_filename );
// swap the header
header->ident = LittleLong( header->ident );
header->version = LittleLong( header->version );
if( header->ident != IDBSPMODHEADER )
Sys_Break( "%s.bsp is not a IBSP file\n", gs_filename );
if( header->version != BSPMOD_VERSION )
Sys_Break( "%s.bsp is version %i, not %i\n", gs_filename, header->version, BSPMOD_VERSION );
entdatasize = CopyLump( LUMP_ENTITIES, dentdata, 1 );
numplanes = CopyLump( LUMP_PLANES, dplanes, sizeof( dplanes[0] ));
numvertexes = CopyLump( LUMP_VERTEXES, dvertexes, sizeof( dvertexes[0] ));
visdatasize = CopyLump( LUMP_VISIBILITY, dvisdata, 1 );
numnodes = CopyLump( LUMP_NODES, dnodes, sizeof( dnodes[0] ));
numtexinfo = CopyLump( LUMP_TEXINFO, texinfo, sizeof( texinfo[0] ));
numsurfaces = CopyLump( LUMP_SURFACES, dsurfaces, sizeof( dsurfaces[0] ));
lightdatasize = CopyLump( LUMP_LIGHTING, dlightdata, 1 );
numleafs = CopyLump( LUMP_LEAFS, dleafs, sizeof( dleafs[0] ));
numleafsurfaces = CopyLump( LUMP_LEAFFACES, dleafsurfaces, sizeof( dleafsurfaces[0] ));
numleafbrushes = CopyLump( LUMP_LEAFBRUSHES, dleafbrushes, sizeof( dleafbrushes[0] ));
numedges = CopyLump( LUMP_EDGES, dedges, sizeof( dedges[0] ));
numsurfedges = CopyLump( LUMP_SURFEDGES, dsurfedges, sizeof( dsurfedges[0] ));
nummodels = CopyLump( LUMP_MODELS, dmodels, sizeof( dmodels[0] ));
numbrushes = CopyLump( LUMP_BRUSHES, dbrushes, sizeof( dbrushes[0] ));
numbrushsides = CopyLump( LUMP_BRUSHSIDES, dbrushsides, sizeof( dbrushsides[0] ));
dcollisiondatasize = CopyLump( LUMP_COLLISION, dcollision, 1 );
numshaders = CopyLump( LUMP_SHADERS, dshaders, sizeof( dshaders[0] ));
numareas = CopyLump ( LUMP_AREAS, dareas, sizeof( dareas[0] ));
numareaportals = CopyLump( LUMP_AREAPORTALS, dareaportals, sizeof( dareaportals[0] ));
WAD_Close( wadfile ); // release memory
wadfile = NULL;
// swap everything
SwapBSPFile( false );
return true;
}
//============================================================================
/*
=============
WriteBSPFile
Swaps the bsp file in place, so it should not be referenced again
=============
*/
void WriteBSPFile( void )
{
static dheader_t outheader;
header = &outheader;
Mem_Set( header, 0, sizeof( dheader_t ));
SwapBSPFile( true );
header->ident = LittleLong( IDBSPMODHEADER );
header->version = LittleLong( BSPMOD_VERSION );
FindMapMessage( header->message );
MsgDev( D_NOTE, "\n\nwriting %s.bsp\n", gs_filename );
if( pe ) pe->FreeBSP();
wadfile = WAD_Open( va( "maps/%s.bsp", gs_filename ), "wb" );
AddLump( LUMP_MAPINFO, header, sizeof( dheader_t ));
AddLump( LUMP_ENTITIES, dentdata, entdatasize );
AddLump( LUMP_PLANES, dplanes, numplanes * sizeof( dplanes[0] ));
AddLump( LUMP_VERTEXES, dvertexes, numvertexes * sizeof( dvertexes[0] ));
AddLump( LUMP_VISIBILITY, dvisdata, visdatasize );
AddLump( LUMP_NODES, dnodes, numnodes * sizeof( dnodes[0] ));
AddLump( LUMP_TEXINFO, texinfo, numtexinfo * sizeof( texinfo[0] ));
AddLump( LUMP_SURFACES, dsurfaces, numsurfaces * sizeof( dsurfaces[0] ));
AddLump( LUMP_LIGHTING, dlightdata, lightdatasize );
AddLump( LUMP_LEAFS, dleafs, numleafs * sizeof( dleafs[0] ));
AddLump( LUMP_LEAFFACES, dleafsurfaces, numleafsurfaces * sizeof( dleafsurfaces[0] ));
AddLump( LUMP_LEAFBRUSHES, dleafbrushes, numleafbrushes * sizeof( dleafbrushes[0] ));
AddLump( LUMP_EDGES, dedges, numedges * sizeof( dedges[0] ));
AddLump( LUMP_SURFEDGES, dsurfedges, numsurfedges * sizeof( dsurfedges[0] ));
AddLump( LUMP_MODELS, dmodels, nummodels * sizeof( dmodels[0] ));
AddLump( LUMP_BRUSHES, dbrushes, numbrushes * sizeof( dbrushes[0] ));
AddLump( LUMP_BRUSHSIDES, dbrushsides, numbrushsides * sizeof( dbrushsides[0] ));
AddLump( LUMP_COLLISION, dcollision, dcollisiondatasize );
AddLump( LUMP_SHADERS, dshaders, numshaders * sizeof( dshaders[0] ));
AddLump( LUMP_AREAS, dareas, numareas * sizeof( dareas[0] ));
AddLump( LUMP_AREAPORTALS, dareaportals, numareaportals * sizeof( dareaportals[0] ));
WAD_Close( wadfile );
wadfile = NULL;
}
//============================================
// misc parse functions
//============================================
void StripTrailing( char *e )
{
char *s;
s = e + com.strlen( e ) - 1;
while( s >= e && *s <= 32 )
{
*s = 0;
s--;
}
}
/*
=================
ParseEpair
=================
*/
epair_t *ParseEpair( token_t *token )
{
epair_t *e;
e = Malloc( sizeof( epair_t ));
if( com.strlen( token->string ) >= MAX_KEY - 1 )
Sys_Break( "ParseEpair: token too long\n" );
e->key = copystring( token->string );
Com_ReadToken( mapfile, SC_PARSE_GENERIC, token );
if( com.strlen( token->string ) >= MAX_VALUE - 1 )
Sys_Break( "ParseEpair: token too long\n" );
e->value = copystring( token->string );
// strip trailing spaces
StripTrailing( e->key );
StripTrailing( e->value );
return e;
}
/*
================
ParseEntity
================
*/
bool ParseEntity( void )
{
epair_t *e;
token_t token;
bsp_entity_t *mapent;
if( !Com_ReadToken( mapfile, SC_ALLOW_NEWLINES, &token ))
return false;
if( com.stricmp( token.string, "{" )) Sys_Break( "ParseEntity: '{' not found\n" );
if( num_entities == MAX_MAP_ENTITIES ) Sys_Break( "MAX_MAP_ENTITIES limit excceded\n" );
mapent = &entities[num_entities];
num_entities++;
while( 1 )
{
if( !Com_ReadToken( mapfile, SC_ALLOW_NEWLINES|SC_PARSE_GENERIC, &token ))
Sys_Break( "ParseEntity: EOF without closing brace\n" );
if( !com.stricmp( token.string, "}" )) break;
e = ParseEpair( &token );
e->next = mapent->epairs;
mapent->epairs = e;
}
return true;
}
/*
================
ParseEntities
Parses the dentdata string into entities
================
*/
void ParseEntities( void )
{
num_entities = 0;
mapfile = Com_OpenScript( "entities", dentdata, entdatasize );
if( mapfile ) while( ParseEntity( ));
Com_CloseScript( mapfile );
}
/*
================
UnparseEntities
Generates the dentdata string from all the entities
================
*/
void UnparseEntities( void )
{
epair_t *ep;
char *buf, *end;
char line[2048];
char key[MAX_KEY], value[MAX_VALUE];
char *value2;
int i;
buf = dentdata;
end = buf;
*end = 0;
for( i = 0; i < num_entities; i++ )
{
ep = entities[i].epairs;
if( !ep ) continue; // ent got removed
// certain entities get stripped from bsp file */
value2 = ValueForKey( &entities[i], "classname" );
com.strcat( end, "{\n" );
end += 2;
// always place "classname" at first
StripTrailing( value2 );
com.snprintf( line, 2048, "\"classname\" \"%s\"\n", value2 );
com.strcat( end, line );
end += com.strlen( line );
for( ep = entities[i].epairs; ep; ep = ep->next )
{
if( !com.stricmp( ep->key, "classname" ))
continue; // already stored
com.strncpy( key, ep->key, MAX_KEY );
StripTrailing( key );
com.strncpy( value, ep->value, MAX_VALUE );
StripTrailing( value );
com.snprintf( line, 2048, "\"%s\" \"%s\"\n", key, value );
com.strcat( end, line );
end += com.strlen( line );
}
com.strcat( end, "}\n" );
end += 2;
if( end > buf + MAX_MAP_ENTSTRING )
Sys_Break( "Entity text too long\n" );
}
entdatasize = end - buf + 1;
}
void SetKeyValue( bsp_entity_t *ent, const char *key, const char *value )
{
epair_t *ep;
for( ep = ent->epairs; ep; ep = ep->next )
{
if(!com.strcmp( ep->key, key ))
{
Mem_Free( ep->value );
ep->value = copystring( value );
return;
}
}
ep = Malloc( sizeof( *ep ));
ep->next = ent->epairs;
ent->epairs = ep;
ep->key = copystring( key );
ep->value = copystring( value );
}
char *ValueForKey( const bsp_entity_t *ent, const char *key )
{
epair_t *ep;
if( !ent ) return "";
for( ep = ent->epairs; ep; ep = ep->next )
{
if(!com.strcmp( ep->key, key ))
return ep->value;
}
return "";
}
long IntForKey( const bsp_entity_t *ent, const char *key )
{
char *k;
k = ValueForKey( ent, key );
return com.atoi( k );
}
vec_t FloatForKey( const bsp_entity_t *ent, const char *key )
{
char *k;
k = ValueForKey( ent, key );
return com.atof( k );
}
void GetVectorForKey( const bsp_entity_t *ent, const char *key, vec3_t vec )
{
char *k;
double v1, v2, v3;
k = ValueForKey( ent, key );
// scanf into doubles, then assign, so it is vec_t size independent
v1 = v2 = v3 = 0;
sscanf( k, "%lf %lf %lf", &v1, &v2, &v3 );
VectorSet( vec, v1, v2, v3 );
}
/*
================
FindTargetEntity
finds an entity target
================
*/
bsp_entity_t *FindTargetEntity( const char *target )
{
int i;
const char *n;
// walk entity list
for( i = 0; i < num_entities; i++ )
{
n = ValueForKey( &entities[i], "targetname" );
if( !com.strcmp( n, target ))
return &entities[i];
}
return NULL;
}
/*
================
FindTargetEntity
finds an entity target
================
*/
void FindMapMessage( char *message )
{
int i;
const char *value;
bsp_entity_t *e;
if( !message ) return;
// walk entity list
for( i = 0; i < num_entities; i++ )
{
e = &entities[i];
value = ValueForKey( e, "classname" );
if( !com.stricmp( value, "worldspawn" ))
{
value = ValueForKey( e, "message" );
com.strncpy( message, value, MAX_SHADERPATH );
return;
}
}
com.strncpy( message, "", MAX_SHADERPATH );
}
void Com_CheckToken( script_t *script, const char *match )
{
token_t token;
Com_ReadToken( script, SC_ALLOW_NEWLINES, &token );
if( com.stricmp( token.string, match ))
{
Sys_Break( "Com_CheckToken: \"%s\" not found\n", match );
}
}
void Com_Parse1DMatrix( script_t *script, int x, vec_t *m )
{
int i;
Com_CheckToken( script, "(" );
for( i = 0; i < x; i++ )
Com_ReadFloat( script, false, &m[i] );
Com_CheckToken( script, ")" );
}
void Com_Parse2DMatrix( script_t *script, int y, int x, vec_t *m )
{
int i;
Com_CheckToken( script, "(" );
for( i = 0; i < y; i++ )
Com_Parse1DMatrix( script, x, m+i*x );
Com_CheckToken( script, ")" );
}