/*
Copyright (C) 1999-2007 id Software, Inc. and contributors.
For a list of contributors, see the accompanying CONTRIBUTORS file.
This file is part of GtkRadiant.
GtkRadiant is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
GtkRadiant is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GtkRadiant; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "stdafx.h"
#include <sys/stat.h>
#if defined ( __linux__ ) || defined ( __APPLE__ )
#include <dirent.h>
#endif
#include "assert.h"
eclass_t *eclass = NULL;
eclass_t *eclass_bad = NULL;
const vec3_t smallbox[2] = {{-8,-8,-8},{8,8,8}};
char eclass_directory[1024];
qboolean parsing_single = false;
eclass_t *eclass_e;
/*!
implementation of the EClass manager API
*/
eclass_t** Get_EClass_E(){
return &eclass_e;
}
void Set_Eclass_Found( qboolean b ){
eclass_found = b;
}
qboolean Get_Parsing_Single(){
return parsing_single;
}
// md3 cache for misc_models
//eclass_t *g_md3Cache = NULL;
/*
the classname, color triple, and bounding box are parsed out of comments
A ? size means take the exact brush size.
/ *QUAKED <classname> (0 0 0) ?
/ *QUAKED <classname> (0 0 0) (-8 -8 -8) (8 8 8)
Flag names can follow the size description:
/ *QUAKED func_door (0 .5 .8) ? START_OPEN STONE_SOUND DOOR_DONT_LINK GOLD_KEY SILVER_KEY
*/
void CleanEntityList( eclass_t *&pList ){
while ( pList )
{
eclass_t* pTemp = pList->next;
entitymodel *model = pList->model;
while ( model != NULL )
{
delete []model->pTriList;
if ( model->strSkin ) {
g_string_free( (GString *)model->strSkin, TRUE );
}
model->strSkin = NULL;
model = model->pNext;
}
if ( pList->modelpath ) {
free( pList->modelpath );
pList->modelpath = NULL;
}
if ( pList->skinpath ) {
free( pList->skinpath );
pList->skinpath = NULL;
}
free( pList->name );
free( pList->comments );
free( pList );
pList = pTemp;
}
pList = NULL;
}
void CleanUpEntities(){
// NOTE: maybe some leak checks needed .. older versions of Radiant looked like they were freezing more stuff
CleanEntityList( eclass );
//CleanEntityList(g_md3Cache);
if ( eclass_bad ) {
free( eclass_bad->name );
free( eclass_bad->comments );
free( eclass_bad );
eclass_bad = NULL;
}
}
void EClass_InsertSortedList( eclass_t *&pList, eclass_t *e ){
eclass_t *s;
if ( !pList ) {
pList = e;
return;
}
s = pList;
if ( stricmp( e->name, s->name ) < 0 ) {
e->next = s;
pList = e;
return;
}
do
{
if ( !s->next || stricmp( e->name, s->next->name ) < 0 ) {
e->next = s->next;
s->next = e;
return;
}
s = s->next;
} while ( 1 );
}
/*
=================
Eclass_InsertAlphabetized
=================
*/
void Eclass_InsertAlphabetized( eclass_t *e ){
#if 1
EClass_InsertSortedList( eclass, e );
#else
eclass_t *s;
if ( !eclass ) {
eclass = e;
return;
}
s = eclass;
if ( stricmp( e->name, s->name ) < 0 ) {
e->next = s;
eclass = e;
return;
}
do
{
if ( !s->next || stricmp( e->name, s->next->name ) < 0 ) {
e->next = s->next;
s->next = e;
return;
}
s = s->next;
} while ( 1 );
#endif
}
/*!
This looks at each eclass_t, if it has a "modelpath" set then it leaves it alone
if it's not set it checks to see if a file called "sprites/<eclassname>.*" exists, and
if it does exist then it sets the "modelpath" to "sprites/<eclassname>.spr"
*/
void Eclass_CreateSpriteModelPaths(){
int Counts[4] = { 0, 0, 0, 0 };
char filename[512]; // should be big enough, ExtractFileBase doesn't take a buffer size...
eclass_t *e;
// get a list of all sprite/*>* files in all sprite/ directories
Sys_Printf( "Searching VFS for files in sprites/*.* that match entity names...\n" );
GSList *pFiles = vfsGetFileList( "sprites", NULL );
GSList *pFile;
if ( pFiles ) {
// find an eclass without a modelpath.
for ( e = eclass ; e ; e = e->next )
{
Counts[0]++;
if ( e->modelpath ) {
#ifdef _DEBUG
Sys_Printf( "Ignoring sprite for entity %s (modelpath: \"%s\")\n",e->name,e->modelpath );
#endif
Counts[1]++;
continue; // ignore this eclass, it's already got a model
}
// TODO: remove this check when we can have sprites for non-fixed size entities.
if ( !e->fixedsize ) {
#ifdef _DEBUG
Sys_Printf( "Ignoring sprite for non-fixed-size entity %s\n",e->name );
#endif
Counts[2]++;
continue; // can't have sprites for non-fixed size entities (yet!)
}
Sys_Printf( "Searching for sprite for fixed-size entity %s...",e->name );
pFile = pFiles; // point to start of list
// look for a file that has the same name, with any extension.
bool Found = FALSE;
while ( pFile )
{
// strip the path/ and the .extension.
ExtractFileBase( (char *)pFile->data,filename );
// does the eclass name match the filename?
if ( stricmp( e->name,filename ) == 0 ) {
// yes, so generate a sprite filename using the all-encompasing .spr extension
// so that the model wrapper knows the sprite model plugin will be the model
// plugin used to render it.
CString strSpriteName;
strSpriteName.Format( "sprites/%s.spr",e->name );
e->modelpath = strdup( strSpriteName.GetBuffer() );
Sys_Printf( "Found! (\"%s\")\n",(char *)pFile->data );
Counts[3]++;
Found = TRUE;
}
pFile = pFile->next;
}
if ( !Found ) {
Sys_Printf( "not found\n" );
}
}
vfsClearFileDirList( &pFiles );
}
Sys_Printf( "%d entities were scanned\n"
"%d entities that already had models/sprites were ignored\n"
"%d non-fixed-size entities were ignored\n"
"%d entities did not have matching sprite files\n"
"%d entities had sprite files and have been attached\n",
Counts[0],Counts[1],Counts[2],Counts[0] - Counts[3],Counts[3] );
}
void EClass_InitForFileList( GSList *pFiles, _EClassTable *pTable ){
GSList *pFile = pFiles;
while ( pFile )
{
// for a given name, we grab the first .def in the vfs
// this allows to override baseq3/scripts/entities.def for instance
char relPath[PATH_MAX];
strcpy( relPath, "scripts/" );
strcat( relPath, (char*)pFile->data );
if ( !vfsGetFullPath( relPath, 0, 0 ) ) {
Sys_FPrintf( SYS_ERR, "Failed to find the full path for '%s' in the VFS\n", relPath );
}
else{
pTable->m_pfnScanFile( vfsGetFullPath( relPath, 0, 0 ) );
}
pFile = pFile->next;
}
}
/*!
Manually create an eclass_t, for when no modules exist.
this replaces and centralizes the eclass_t allocation
*/
eclass_t * EClass_Create( const char *name, float col1, float col2, float col3, const vec3_t *mins, const vec3_t *maxs, const char *comments ){
eclass_t *e;
char color[128];
e = (eclass_t*)malloc( sizeof( *e ) );
memset( e, 0, sizeof( *e ) );
e->name = strdup( name );
// grab the color, reformat as texture name
e->color[0] = col1;
e->color[1] = col2;
e->color[2] = col3;
sprintf( color, "(%f %f %f)", e->color[0], e->color[1], e->color[2] );
e->texdef.SetName( color );
// supplied size ?
if ( mins && maxs ) {
// Hydra:
// If we set worldspawn to be a fixed-size all the textures are
// displayed as flat-shaded. This is a KLUDGE now that we have
// multiple game support as the worldspawn entity is game specific.
// Note that this is only ever fixed for the user if a definition
// for the worldspawn entity was not loaded, this can happen for
// several reasons:
// a) no entity definition plugin exists
// b) no entity definition files were found
// c) no entity definition file contained an entry for worldspawn.
if ( stricmp( name, "worldspawn" ) != 0 ) {
e->fixedsize = true;
}
// copy the sizes..
memcpy( e->mins, mins, sizeof( vec3_t ) );
memcpy( e->maxs, maxs, sizeof( vec3_t ) );
}
if ( comments ) {
e->comments = strdup( comments );
}
else
{
e->comments = (char*)malloc( 1 );
e->comments[0] = '\0';
}
return e;
}
void Eclass_Init(){
GSList *pFiles;
// start by creating the default unknown eclass
eclass_bad = EClass_Create( "UNKNOWN_CLASS", 0, 0.5, 0,NULL,NULL,NULL );
// now scan the definitions
_EClassTable *pTable = &g_EClassDefTable;
while ( pTable )
{
// read in all scripts/*.<extension>
pFiles = vfsGetFileList( "scripts", pTable->m_pfnGetExtension() );
if ( pFiles ) {
GSList *pFile = pFiles;
while ( pFile )
{
/*!
\todo the MP/SP filtering rules need to be CLEANED UP and SANITIZED
*/
// HACK
// JKII SP/MP mapping mode
if ( g_pGameDescription->mGameFile == "jk2.game" || g_pGameDescription->mGameFile == "ja.game" ) {
if ( !strcmp( ValueForKey( g_qeglobals.d_project_entity, "gamemode" ), "sp" ) ) {
// SP mapping, ignore mp_*.def
char *name = (char *)pFile->data;
if ( name[0] == 'm' && name[1] == 'p' && name[2] == '_' ) {
Sys_Printf( "Single Player mapping mode. Ignoring '%s'\n", name );
pFile = pFile->next;
continue;
}
}
else
{
// MP mapping, ignore sp_*.def
char *name = (char *)pFile->data;
if ( name[0] == 's' && name[1] == 'p' && name[2] == '_' ) {
Sys_Printf( "Multiplayer mapping mode. Ignoring '%s'\n", name );
pFile = pFile->next;
continue;
}
}
}
// RIANT
// STVEF SP/MP mapping mode
else if ( g_pGameDescription->mGameFile == "stvef.game" ) {
if ( !strcmp( ValueForKey( g_qeglobals.d_project_entity, "gamemode" ), "sp" ) ) {
// SP mapping, ignore mp_*.def
char *name = (char *)pFile->data;
if ( ( name[0] == 'm' && name[1] == 'p' && name[2] == '_' )
|| ( name[0] == 'h' && name[1] == 'm' && name[2] == '_' ) ) {
Sys_Printf( "Single Player mapping mode. Ignoring '%s'\n", name );
pFile = pFile->next;
continue;
}
}
else
{
// HM mapping, ignore sp_*.def
char *name = (char *)pFile->data;
if ( name[0] == 's' && name[1] == 'p' && name[2] == '_' ) {
Sys_Printf( "HoloMatch mapping mode. Ignoring '%s'\n", name );
pFile = pFile->next;
continue;
}
}
}
// for a given name, we grab the first .def in the vfs
// this allows to override baseq3/scripts/entities.def for instance
char relPath[PATH_MAX];
strcpy( relPath, "scripts/" );
strcat( relPath, (char*)pFile->data );
char *fullpath = vfsGetFullPath( relPath, 0, 0 );
if ( !fullpath ) {
Sys_FPrintf( SYS_ERR, "Failed to find the full path for \"%s\" in the VFS\n", relPath );
}
else{
pTable->m_pfnScanFile( fullpath );
}
if ( g_pGameDescription->mEClassSingleLoad ) {
break;
}
pFile = pFile->next;
}
vfsClearFileDirList( &pFiles );
pFiles = NULL;
}
else{
Sys_FPrintf( SYS_ERR, "Didn't find any scripts/*.%s files to load EClass information\n", pTable->m_pfnGetExtension() );
}
// we deal with two formats max, if the other table exists, loop again
if ( g_bHaveEClassExt && pTable == &g_EClassDefTable ) {
pTable = &g_EClassExtTable;
}
else{
pTable = NULL; // done, exit
}
}
Eclass_CreateSpriteModelPaths();
}
eclass_t *Eclass_ForName( const char *name, qboolean has_brushes ){
eclass_t *e;
if ( !name || *name == '\0' ) {
return eclass_bad;
}
#ifdef _DEBUG
// grouping stuff, not an eclass
if ( strcmp( name, "group_info" ) == 0 ) {
Sys_FPrintf( SYS_WRN, "WARNING: unexpected group_info entity in Eclass_ForName\n" );
}
#endif
if ( !name ) {
return eclass_bad;
}
for ( e = eclass ; e ; e = e->next )
if ( !strcmp( name, e->name ) ) {
return e;
}
// create a new class for it
if ( has_brushes ) {
e = EClass_Create( name, 0, 0.5, 0,NULL,NULL,"Not found in source." );
}
else
{
e = EClass_Create( name, 0, 0.5, 0,&smallbox[0],&smallbox[1],"Not found in source." );
}
Eclass_InsertAlphabetized( e );
return e;
}