Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
2944 lines (2460 sloc) 67.1 KB
/*
===========================================================================
Return to Castle Wolfenstein single player GPL Source Code
Copyright (C) 1999-2010 id Software LLC, a ZeniMax Media company.
This file is part of the Return to Castle Wolfenstein single player GPL Source Code (“RTCW SP Source Code”).
RTCW SP Source Code 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 3 of the License, or
(at your option) any later version.
RTCW SP Source Code 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 RTCW SP Source Code. If not, see <http://www.gnu.org/licenses/>.
In addition, the RTCW SP Source Code is also subject to certain additional terms. You should have received a copy of these additional terms immediately following the terms and conditions of the GNU General Public License which accompanied the RTCW SP Source Code. If not, please request a copy in writing from id Software at the address below.
If you have questions concerning this license or the applicable additional terms, you may contact in writing id Software LLC, c/o ZeniMax Media Inc., Suite 120, Rockville, Maryland 20850 USA.
===========================================================================
*/
// common.c -- misc functions used in client and server
#include "../game/q_shared.h"
#include "qcommon.h"
#include <setjmp.h>
#define MAXPRINTMSG 4096
#define MAX_NUM_ARGVS 50
#define MIN_DEDICATED_COMHUNKMEGS 1
#define MIN_COMHUNKMEGS 54 // RF, optimizing
#define DEF_COMHUNKMEGS "72"
#define DEF_COMZONEMEGS "30"
int com_argc;
char *com_argv[MAX_NUM_ARGVS + 1];
extern char cl_cdkey[34];
jmp_buf abortframe; // an ERR_DROP occured, exit the entire frame
FILE *debuglogfile;
static fileHandle_t logfile;
fileHandle_t com_journalFile; // events are written here
fileHandle_t com_journalDataFile; // config files are written here
cvar_t *com_viewlog;
cvar_t *com_speeds;
cvar_t *com_developer;
cvar_t *com_dedicated;
cvar_t *com_timescale;
cvar_t *com_fixedtime;
cvar_t *com_dropsim; // 0.0 to 1.0, simulated packet drops
cvar_t *com_journal;
cvar_t *com_maxfps;
cvar_t *com_timedemo;
cvar_t *com_sv_running;
cvar_t *com_cl_running;
cvar_t *com_logfile; // 1 = buffer log, 2 = flush after each print
cvar_t *com_showtrace;
cvar_t *com_version;
cvar_t *com_blood;
cvar_t *com_buildScript; // for automated data building scripts
cvar_t *com_introPlayed;
cvar_t *cl_paused;
cvar_t *sv_paused;
cvar_t *com_cameraMode;
#if defined( _WIN32 ) && defined( _DEBUG )
cvar_t *com_noErrorInterrupt;
#endif
cvar_t *com_recommendedSet;
// Rafael Notebook
cvar_t *cl_notebook;
cvar_t *com_hunkused; // Ridah
// com_speeds times
int time_game;
int time_frontend; // renderer frontend time
int time_backend; // renderer backend time
int com_frameTime;
int com_frameMsec;
int com_frameNumber;
qboolean com_errorEntered;
qboolean com_fullyInitialized;
char com_errorMessage[MAXPRINTMSG];
void Com_WriteConfig_f( void );
void CIN_CloseAllVideos();
//============================================================================
static char *rd_buffer;
static int rd_buffersize;
static void ( *rd_flush )( char *buffer );
void Com_BeginRedirect( char *buffer, int buffersize, void ( *flush )( char *) ) {
if ( !buffer || !buffersize || !flush ) {
return;
}
rd_buffer = buffer;
rd_buffersize = buffersize;
rd_flush = flush;
*rd_buffer = 0;
}
void Com_EndRedirect( void ) {
if ( rd_flush ) {
rd_flush( rd_buffer );
}
rd_buffer = NULL;
rd_buffersize = 0;
rd_flush = NULL;
}
/*
=============
Com_Printf
Both client and server can use this, and it will output
to the apropriate place.
A raw string should NEVER be passed as fmt, because of "%f" type crashers.
=============
*/
void QDECL Com_Printf( const char *fmt, ... ) {
va_list argptr;
char msg[MAXPRINTMSG];
static qboolean opening_qconsole = qfalse;
va_start( argptr,fmt );
vsprintf( msg,fmt,argptr );
va_end( argptr );
if ( rd_buffer ) {
if ( ( strlen( msg ) + strlen( rd_buffer ) ) > ( rd_buffersize - 1 ) ) {
rd_flush( rd_buffer );
*rd_buffer = 0;
}
Q_strcat( rd_buffer, rd_buffersize, msg );
// show_bug.cgi?id=51
// only flush the rcon buffer when it's necessary, avoid fragmenting
//rd_flush(rd_buffer);
//*rd_buffer = 0;
return;
}
// echo to console if we're not a dedicated server
if ( com_dedicated && !com_dedicated->integer ) {
CL_ConsolePrint( msg );
}
// echo to dedicated console and early console
Sys_Print( msg );
// logfile
if ( com_logfile && com_logfile->integer ) {
// TTimo: only open the qconsole.log if the filesystem is in an initialized state
// also, avoid recursing in the qconsole.log opening (i.e. if fs_debug is on)
if ( !logfile && FS_Initialized() && !opening_qconsole ) {
struct tm *newtime;
time_t aclock;
opening_qconsole = qtrue;
time( &aclock );
newtime = localtime( &aclock );
#ifdef __MACOS__ //DAJ MacOS file typing
{
extern _MSL_IMP_EXP_C long _fcreator, _ftype;
_ftype = 'TEXT';
_fcreator = 'R*ch';
}
#endif
logfile = FS_FOpenFileWrite( "rtcwconsole.log" ); //----(SA) changed name for Wolf
Com_Printf( "logfile opened on %s\n", asctime( newtime ) );
if ( com_logfile->integer > 1 ) {
// force it to not buffer so we get valid
// data even if we are crashing
FS_ForceFlush( logfile );
}
opening_qconsole = qfalse;
}
if ( logfile && FS_Initialized() ) {
FS_Write( msg, strlen( msg ), logfile );
}
}
}
/*
================
Com_DPrintf
A Com_Printf that only shows up if the "developer" cvar is set
================
*/
void QDECL Com_DPrintf( const char *fmt, ... ) {
va_list argptr;
char msg[MAXPRINTMSG];
if ( !com_developer || !com_developer->integer ) {
return; // don't confuse non-developers with techie stuff...
}
va_start( argptr,fmt );
vsprintf( msg,fmt,argptr );
va_end( argptr );
Com_Printf( "%s", msg );
}
/*
=============
Com_Error
Both client and server can use this, and it will
do the apropriate things.
=============
*/
void QDECL Com_Error( int code, const char *fmt, ... ) {
va_list argptr;
static int lastErrorTime;
static int errorCount;
int currentTime;
#if 0 //#if defined(_WIN32) && defined(_DEBUG)
if ( code != ERR_DISCONNECT && code != ERR_NEED_CD ) {
if ( !com_noErrorInterrupt->integer ) {
__asm {
int 0x03
}
}
}
#endif
// when we are running automated scripts, make sure we
// know if anything failed
if ( com_buildScript && com_buildScript->integer ) {
// ERR_ENDGAME is not really an error, don't die if building a script
if ( code != ERR_ENDGAME ) {
code = ERR_FATAL;
}
}
// make sure we can get at our local stuff
FS_PureServerSetLoadedPaks( "", "" );
// if we are getting a solid stream of ERR_DROP, do an ERR_FATAL
currentTime = Sys_Milliseconds();
if ( currentTime - lastErrorTime < 100 ) {
if ( ++errorCount > 3 ) {
code = ERR_FATAL;
}
} else {
errorCount = 0;
}
lastErrorTime = currentTime;
if ( com_errorEntered ) {
Sys_Error( "recursive error after: %s", com_errorMessage );
}
com_errorEntered = qtrue;
va_start( argptr,fmt );
vsprintf( com_errorMessage,fmt,argptr );
va_end( argptr );
if ( code != ERR_DISCONNECT && code != ERR_NEED_CD && code != ERR_ENDGAME ) {
Cvar_Set( "com_errorMessage", com_errorMessage );
}
if ( code == ERR_SERVERDISCONNECT ) {
CL_Disconnect( qtrue );
CL_FlushMemory();
com_errorEntered = qfalse;
longjmp( abortframe, -1 );
} else if ( code == ERR_ENDGAME ) { //----(SA) added
SV_Shutdown( "endgame" );
if ( com_cl_running && com_cl_running->integer ) {
CL_Disconnect( qtrue );
CL_FlushMemory();
com_errorEntered = qfalse;
CL_EndgameMenu();
}
longjmp( abortframe, -1 );
} else if ( code == ERR_DROP || code == ERR_DISCONNECT ) {
Com_Printf( "********************\nERROR: %s\n********************\n", com_errorMessage );
SV_Shutdown( va( "Server crashed: %s\n", com_errorMessage ) );
CL_Disconnect( qtrue );
CL_FlushMemory();
com_errorEntered = qfalse;
longjmp( abortframe, -1 );
} else if ( code == ERR_NEED_CD ) {
SV_Shutdown( "Server didn't have CD\n" );
if ( com_cl_running && com_cl_running->integer ) {
CL_Disconnect( qtrue );
CL_FlushMemory();
com_errorEntered = qfalse;
CL_CDDialog();
} else {
Com_Printf( "Server didn't have CD\n" );
}
longjmp( abortframe, -1 );
} else {
CL_Shutdown();
SV_Shutdown( va( "Server fatal crashed: %s\n", com_errorMessage ) );
}
Com_Shutdown();
Sys_Error( "%s", com_errorMessage );
}
/*
=============
Com_Quit_f
Both client and server can use this, and it will
do the apropriate things.
=============
*/
void Com_Quit_f( void ) {
// don't try to shutdown if we are in a recursive error
if ( !com_errorEntered ) {
SV_Shutdown( "Server quit\n" );
CL_Shutdown();
Com_Shutdown();
FS_Shutdown( qtrue );
}
Sys_Quit();
}
/*
============================================================================
COMMAND LINE FUNCTIONS
+ characters seperate the commandLine string into multiple console
command lines.
All of these are valid:
quake3 +set test blah +map test
quake3 set test blah+map test
quake3 set test blah + map test
============================================================================
*/
#define MAX_CONSOLE_LINES 32
int com_numConsoleLines;
char *com_consoleLines[MAX_CONSOLE_LINES];
/*
==================
Com_ParseCommandLine
Break it up into multiple console lines
==================
*/
void Com_ParseCommandLine( char *commandLine ) {
com_consoleLines[0] = commandLine;
com_numConsoleLines = 1;
while ( *commandLine ) {
// look for a + seperating character
// if commandLine came from a file, we might have real line seperators
if ( *commandLine == '+' || *commandLine == '\n' ) {
if ( com_numConsoleLines == MAX_CONSOLE_LINES ) {
return;
}
com_consoleLines[com_numConsoleLines] = commandLine + 1;
com_numConsoleLines++;
*commandLine = 0;
}
commandLine++;
}
}
/*
===================
Com_SafeMode
Check for "safe" on the command line, which will
skip loading of wolfconfig.cfg
===================
*/
qboolean Com_SafeMode( void ) {
int i;
for ( i = 0 ; i < com_numConsoleLines ; i++ ) {
Cmd_TokenizeString( com_consoleLines[i] );
if ( !Q_stricmp( Cmd_Argv( 0 ), "safe" )
|| !Q_stricmp( Cmd_Argv( 0 ), "cvar_restart" ) ) {
com_consoleLines[i][0] = 0;
return qtrue;
}
}
return qfalse;
}
/*
===============
Com_StartupVariable
Searches for command line parameters that are set commands.
If match is not NULL, only that cvar will be looked for.
That is necessary because cddir and basedir need to be set
before the filesystem is started, but all other sets shouls
be after execing the config and default.
===============
*/
void Com_StartupVariable( const char *match ) {
int i;
char *s;
cvar_t *cv;
for ( i = 0 ; i < com_numConsoleLines ; i++ ) {
Cmd_TokenizeString( com_consoleLines[i] );
if ( strcmp( Cmd_Argv( 0 ), "set" ) ) {
continue;
}
s = Cmd_Argv( 1 );
if ( !match || !strcmp( s, match ) ) {
Cvar_Set( s, Cmd_Argv( 2 ) );
cv = Cvar_Get( s, "", 0 );
cv->flags |= CVAR_USER_CREATED;
// com_consoleLines[i] = 0;
}
}
}
/*
=================
Com_AddStartupCommands
Adds command line parameters as script statements
Commands are seperated by + signs
Returns qtrue if any late commands were added, which
will keep the demoloop from immediately starting
=================
*/
qboolean Com_AddStartupCommands( void ) {
int i;
qboolean added;
added = qfalse;
// quote every token, so args with semicolons can work
for ( i = 0 ; i < com_numConsoleLines ; i++ ) {
if ( !com_consoleLines[i] || !com_consoleLines[i][0] ) {
continue;
}
// set commands won't override menu startup
if ( Q_stricmpn( com_consoleLines[i], "set", 3 ) ) {
added = qtrue;
}
Cbuf_AddText( com_consoleLines[i] );
Cbuf_AddText( "\n" );
}
return added;
}
//============================================================================
void Info_Print( const char *s ) {
char key[512];
char value[512];
char *o;
int l;
if ( *s == '\\' ) {
s++;
}
while ( *s )
{
o = key;
while ( *s && *s != '\\' )
*o++ = *s++;
l = o - key;
if ( l < 20 ) {
memset( o, ' ', 20 - l );
key[20] = 0;
} else {
*o = 0;
}
Com_Printf( "%s", key );
if ( !*s ) {
Com_Printf( "MISSING VALUE\n" );
return;
}
o = value;
s++;
while ( *s && *s != '\\' )
*o++ = *s++;
*o = 0;
if ( *s ) {
s++;
}
Com_Printf( "%s\n", value );
}
}
/*
============
Com_StringContains
============
*/
char *Com_StringContains( char *str1, char *str2, int casesensitive ) {
int len, i, j;
len = strlen( str1 ) - strlen( str2 );
for ( i = 0; i <= len; i++, str1++ ) {
for ( j = 0; str2[j]; j++ ) {
if ( casesensitive ) {
if ( str1[j] != str2[j] ) {
break;
}
} else {
if ( toupper( str1[j] ) != toupper( str2[j] ) ) {
break;
}
}
}
if ( !str2[j] ) {
return str1;
}
}
return NULL;
}
/*
============
Com_Filter
============
*/
int Com_Filter( char *filter, char *name, int casesensitive ) {
char buf[MAX_TOKEN_CHARS];
char *ptr;
int i, found;
while ( *filter ) {
if ( *filter == '*' ) {
filter++;
for ( i = 0; *filter; i++ ) {
if ( *filter == '*' || *filter == '?' ) {
break;
}
buf[i] = *filter;
filter++;
}
buf[i] = '\0';
if ( strlen( buf ) ) {
ptr = Com_StringContains( name, buf, casesensitive );
if ( !ptr ) {
return qfalse;
}
name = ptr + strlen( buf );
}
} else if ( *filter == '?' ) {
filter++;
name++;
} else if ( *filter == '[' && *( filter + 1 ) == '[' ) {
filter++;
} else if ( *filter == '[' ) {
filter++;
found = qfalse;
while ( *filter && !found ) {
if ( *filter == ']' && *( filter + 1 ) != ']' ) {
break;
}
if ( *( filter + 1 ) == '-' && *( filter + 2 ) && ( *( filter + 2 ) != ']' || *( filter + 3 ) == ']' ) ) {
if ( casesensitive ) {
if ( *name >= *filter && *name <= *( filter + 2 ) ) {
found = qtrue;
}
} else {
if ( toupper( *name ) >= toupper( *filter ) &&
toupper( *name ) <= toupper( *( filter + 2 ) ) ) {
found = qtrue;
}
}
filter += 3;
} else {
if ( casesensitive ) {
if ( *filter == *name ) {
found = qtrue;
}
} else {
if ( toupper( *filter ) == toupper( *name ) ) {
found = qtrue;
}
}
filter++;
}
}
if ( !found ) {
return qfalse;
}
while ( *filter ) {
if ( *filter == ']' && *( filter + 1 ) != ']' ) {
break;
}
filter++;
}
filter++;
name++;
} else {
if ( casesensitive ) {
if ( *filter != *name ) {
return qfalse;
}
} else {
if ( toupper( *filter ) != toupper( *name ) ) {
return qfalse;
}
}
filter++;
name++;
}
}
return qtrue;
}
/*
============
Com_FilterPath
============
*/
int Com_FilterPath( char *filter, char *name, int casesensitive ) {
int i;
char new_filter[MAX_QPATH];
char new_name[MAX_QPATH];
for ( i = 0; i < MAX_QPATH - 1 && filter[i]; i++ ) {
if ( filter[i] == '\\' || filter[i] == ':' ) {
new_filter[i] = '/';
} else {
new_filter[i] = filter[i];
}
}
new_filter[i] = '\0';
for ( i = 0; i < MAX_QPATH - 1 && name[i]; i++ ) {
if ( name[i] == '\\' || name[i] == ':' ) {
new_name[i] = '/';
} else {
new_name[i] = name[i];
}
}
new_name[i] = '\0';
return Com_Filter( new_filter, new_name, casesensitive );
}
/*
============
Com_HashKey
============
*/
int Com_HashKey( char *string, int maxlen ) {
int register hash, i;
hash = 0;
for ( i = 0; i < maxlen && string[i] != '\0'; i++ ) {
hash += string[i] * ( 119 + i );
}
hash = ( hash ^ ( hash >> 10 ) ^ ( hash >> 20 ) );
return hash;
}
/*
================
Com_RealTime
================
*/
int Com_RealTime( qtime_t *qtime ) {
time_t t;
struct tm *tms;
t = time( NULL );
if ( !qtime ) {
return t;
}
tms = localtime( &t );
if ( tms ) {
qtime->tm_sec = tms->tm_sec;
qtime->tm_min = tms->tm_min;
qtime->tm_hour = tms->tm_hour;
qtime->tm_mday = tms->tm_mday;
qtime->tm_mon = tms->tm_mon;
qtime->tm_year = tms->tm_year;
qtime->tm_wday = tms->tm_wday;
qtime->tm_yday = tms->tm_yday;
qtime->tm_isdst = tms->tm_isdst;
}
return t;
}
/*
==============================================================================
ZONE MEMORY ALLOCATION
==============================================================================
The old zone is gone, mallocs replaced it. To keep the widespread code changes down to a bare minimum
Z_Malloc and Z_Free still work.
*/
/*
========================
Z_Free
========================
*/
void Z_Free( void *ptr ) {
free( ptr );
}
/*
================
Z_Malloc
================
*/
void *Z_Malloc( int size ) {
void *buf = malloc( size );
Com_Memset( buf, 0, size );
return buf;
}
#if 0
/*
================
Z_TagMalloc
================
*/
void *Z_TagMalloc( int size, int tag ) {
if ( tag != TAG_RENDERER ) {
assert( 0 );
}
if ( g_numTaggedAllocs < MAX_TAG_ALLOCS ) {
void *ptr = Z_Malloc( size );
g_taggedAllocations[g_numTaggedAllocs++] = ptr;
return ptr;
} else {
Com_Error( ERR_FATAL, "Z_TagMalloc: out of tagged allocation space\n" );
}
return NULL;
}
/*
================
Z_FreeTags
================
*/
void Z_FreeTags( int tag ) {
int i;
if ( tag != TAG_RENDERER ) {
assert( 0 );
}
for ( i = 0; i < g_numTaggedAllocs; i++ ) {
free( g_taggedAllocations[i] );
}
g_numTaggedAllocs = 0;
}
#endif
/*
========================
CopyString
NOTE: never write over the memory CopyString returns because
memory from a memstatic_t might be returned
========================
*/
char *CopyString( const char *in ) {
char *out;
out = Z_Malloc( strlen( in ) + 1 );
strcpy( out, in );
return out;
}
/*
==============================================================================
Goals:
reproducable without history effects -- no out of memory errors on weird map to map changes
allow restarting of the client without fragmentation
minimize total pages in use at run time
minimize total pages needed during load time
Single block of memory with stack allocators coming from both ends towards the middle.
One side is designated the temporary memory allocator.
Temporary memory can be allocated and freed in any order.
A highwater mark is kept of the most in use at any time.
When there is no temporary memory allocated, the permanent and temp sides
can be switched, allowing the already touched temp memory to be used for
permanent storage.
Temp memory must never be allocated on two ends at once, or fragmentation
could occur.
If we have any in-use temp memory, additional temp allocations must come from
that side.
If not, we can choose to make either side the new temp side and push future
permanent allocations to the other side. Permanent allocations should be
kept on the side that has the current greatest wasted highwater mark.
==============================================================================
*/
#define HUNK_MAGIC 0x89537892
#define HUNK_FREE_MAGIC 0x89537893
typedef struct {
int magic;
int size;
} hunkHeader_t;
typedef struct {
int mark;
int permanent;
int temp;
int tempHighwater;
} hunkUsed_t;
typedef struct hunkblock_s {
int size;
byte printed;
struct hunkblock_s *next;
char *label;
char *file;
int line;
} hunkblock_t;
static hunkblock_t *hunkblocks;
static hunkUsed_t hunk_low, hunk_high;
static hunkUsed_t *hunk_permanent, *hunk_temp;
static byte *s_hunkData = NULL;
static int s_hunkTotal;
static int s_zoneTotal;
//static int s_smallZoneTotal; // TTimo: unused
/*
=================
Com_Meminfo_f
=================
*/
void Com_Meminfo_f( void ) {
int unused;
Com_Printf( "%8i bytes total hunk\n", s_hunkTotal );
Com_Printf( "%8i bytes total zone\n", s_zoneTotal );
Com_Printf( "\n" );
Com_Printf( "%8i low mark\n", hunk_low.mark );
Com_Printf( "%8i low permanent\n", hunk_low.permanent );
if ( hunk_low.temp != hunk_low.permanent ) {
Com_Printf( "%8i low temp\n", hunk_low.temp );
}
Com_Printf( "%8i low tempHighwater\n", hunk_low.tempHighwater );
Com_Printf( "\n" );
Com_Printf( "%8i high mark\n", hunk_high.mark );
Com_Printf( "%8i high permanent\n", hunk_high.permanent );
if ( hunk_high.temp != hunk_high.permanent ) {
Com_Printf( "%8i high temp\n", hunk_high.temp );
}
Com_Printf( "%8i high tempHighwater\n", hunk_high.tempHighwater );
Com_Printf( "\n" );
Com_Printf( "%8i total hunk in use\n", hunk_low.permanent + hunk_high.permanent );
unused = 0;
if ( hunk_low.tempHighwater > hunk_low.permanent ) {
unused += hunk_low.tempHighwater - hunk_low.permanent;
}
if ( hunk_high.tempHighwater > hunk_high.permanent ) {
unused += hunk_high.tempHighwater - hunk_high.permanent;
}
Com_Printf( "%8i unused highwater\n", unused );
Com_Printf( "\n" );
//Com_Printf( " %i number of tagged renderer allocations\n", g_numTaggedAllocs);
}
/*
===============
Com_TouchMemory
Touch all known used data to make sure it is paged in
===============
*/
void Com_TouchMemory( void ) {
int start, end;
int i, j;
int sum;
start = Sys_Milliseconds();
sum = 0;
j = hunk_low.permanent >> 2;
for ( i = 0 ; i < j ; i += 64 ) { // only need to touch each page
sum += ( (int *)s_hunkData )[i];
}
i = ( s_hunkTotal - hunk_high.permanent ) >> 2;
j = hunk_high.permanent >> 2;
for ( ; i < j ; i += 64 ) { // only need to touch each page
sum += ( (int *)s_hunkData )[i];
}
end = Sys_Milliseconds();
Com_Printf( "Com_TouchMemory: %i msec\n", end - start );
}
void Com_InitZoneMemory( void ) {
//memset(g_taggedAllocations, 0, sizeof(g_taggedAllocations));
//g_numTaggedAllocs = 0;
}
/*
=================
Hunk_Log
=================
*/
void Hunk_Log( void ) {
hunkblock_t *block;
char buf[4096];
int size, numBlocks;
if ( !logfile || !FS_Initialized() ) {
return;
}
size = 0;
numBlocks = 0;
Com_sprintf( buf, sizeof( buf ), "\r\n================\r\nHunk log\r\n================\r\n" );
FS_Write( buf, strlen( buf ), logfile );
for ( block = hunkblocks ; block; block = block->next ) {
#ifdef HUNK_DEBUG
Com_sprintf( buf, sizeof( buf ), "size = %8d: %s, line: %d (%s)\r\n", block->size, block->file, block->line, block->label );
FS_Write( buf, strlen( buf ), logfile );
#endif
size += block->size;
numBlocks++;
}
Com_sprintf( buf, sizeof( buf ), "%d Hunk memory\r\n", size );
FS_Write( buf, strlen( buf ), logfile );
Com_sprintf( buf, sizeof( buf ), "%d hunk blocks\r\n", numBlocks );
FS_Write( buf, strlen( buf ), logfile );
}
/*
=================
Hunk_SmallLog
=================
*/
void Hunk_SmallLog( void ) {
hunkblock_t *block, *block2;
char buf[4096];
int size, locsize, numBlocks;
if ( !logfile || !FS_Initialized() ) {
return;
}
for ( block = hunkblocks ; block; block = block->next ) {
block->printed = qfalse;
}
size = 0;
numBlocks = 0;
Com_sprintf( buf, sizeof( buf ), "\r\n================\r\nHunk Small log\r\n================\r\n" );
FS_Write( buf, strlen( buf ), logfile );
for ( block = hunkblocks; block; block = block->next ) {
if ( block->printed ) {
continue;
}
locsize = block->size;
for ( block2 = block->next; block2; block2 = block2->next ) {
if ( block->line != block2->line ) {
continue;
}
if ( Q_stricmp( block->file, block2->file ) ) {
continue;
}
size += block2->size;
locsize += block2->size;
block2->printed = qtrue;
}
#ifdef HUNK_DEBUG
Com_sprintf( buf, sizeof( buf ), "size = %8d: %s, line: %d (%s)\r\n", locsize, block->file, block->line, block->label );
FS_Write( buf, strlen( buf ), logfile );
#endif
size += block->size;
numBlocks++;
}
Com_sprintf( buf, sizeof( buf ), "%d Hunk memory\r\n", size );
FS_Write( buf, strlen( buf ), logfile );
Com_sprintf( buf, sizeof( buf ), "%d hunk blocks\r\n", numBlocks );
FS_Write( buf, strlen( buf ), logfile );
}
/*
=================
Com_InitZoneMemory
=================
*/
void Com_InitHunkMemory( void ) {
cvar_t *cv;
int nMinAlloc;
char *pMsg = NULL;
// make sure the file system has allocated and "not" freed any temp blocks
// this allows the config and product id files ( journal files too ) to be loaded
// by the file system without redunant routines in the file system utilizing different
// memory systems
if ( FS_LoadStack() != 0 ) {
Com_Error( ERR_FATAL, "Hunk initialization failed. File system load stack not zero" );
}
// allocate the stack based hunk allocator
cv = Cvar_Get( "com_hunkMegs", DEF_COMHUNKMEGS, CVAR_LATCH | CVAR_ARCHIVE );
// if we are not dedicated min allocation is 56, otherwise min is 1
if ( com_dedicated && com_dedicated->integer ) {
nMinAlloc = MIN_DEDICATED_COMHUNKMEGS;
pMsg = "Minimum com_hunkMegs for a dedicated server is %i, allocating %i megs.\n";
} else {
nMinAlloc = MIN_COMHUNKMEGS;
pMsg = "Minimum com_hunkMegs is %i, allocating %i megs.\n";
}
if ( cv->integer < nMinAlloc ) {
s_hunkTotal = 1024 * 1024 * nMinAlloc;
Com_Printf( pMsg, nMinAlloc, s_hunkTotal / ( 1024 * 1024 ) );
} else {
s_hunkTotal = cv->integer * 1024 * 1024;
}
s_hunkData = malloc( s_hunkTotal + 31 );
if ( !s_hunkData ) {
Com_Error( ERR_FATAL, "Hunk data failed to allocate %i megs", s_hunkTotal / ( 1024 * 1024 ) );
}
// cacheline align
s_hunkData = ( byte * )( ( (int)s_hunkData + 31 ) & ~31 );
Hunk_Clear();
Cmd_AddCommand( "meminfo", Com_Meminfo_f );
#ifdef HUNK_DEBUG
Cmd_AddCommand( "hunklog", Hunk_Log );
Cmd_AddCommand( "hunksmalllog", Hunk_SmallLog );
#endif
}
/*
====================
Hunk_MemoryRemaining
====================
*/
int Hunk_MemoryRemaining( void ) {
int low, high;
low = hunk_low.permanent > hunk_low.temp ? hunk_low.permanent : hunk_low.temp;
high = hunk_high.permanent > hunk_high.temp ? hunk_high.permanent : hunk_high.temp;
return s_hunkTotal - ( low + high );
}
/*
===================
Hunk_SetMark
The server calls this after the level and game VM have been loaded
===================
*/
void Hunk_SetMark( void ) {
hunk_low.mark = hunk_low.permanent;
hunk_high.mark = hunk_high.permanent;
}
/*
=================
Hunk_ClearToMark
The client calls this before starting a vid_restart or snd_restart
=================
*/
void Hunk_ClearToMark( void ) {
hunk_low.permanent = hunk_low.temp = hunk_low.mark;
hunk_high.permanent = hunk_high.temp = hunk_high.mark;
}
/*
=================
Hunk_CheckMark
=================
*/
qboolean Hunk_CheckMark( void ) {
if ( hunk_low.mark || hunk_high.mark ) {
return qtrue;
}
return qfalse;
}
void CL_ShutdownCGame( void );
void CL_ShutdownUI( void );
void SV_ShutdownGameProgs( void );
/*
=================
Hunk_Clear
The server calls this before shutting down or loading a new map
=================
*/
void Hunk_Clear( void ) {
#ifndef DEDICATED
CL_ShutdownCGame();
CL_ShutdownUI();
#endif
SV_ShutdownGameProgs();
#ifndef DEDICATED
CIN_CloseAllVideos();
#endif
hunk_low.mark = 0;
hunk_low.permanent = 0;
hunk_low.temp = 0;
hunk_low.tempHighwater = 0;
hunk_high.mark = 0;
hunk_high.permanent = 0;
hunk_high.temp = 0;
hunk_high.tempHighwater = 0;
hunk_permanent = &hunk_low;
hunk_temp = &hunk_high;
Cvar_Set( "com_hunkused", va( "%i", hunk_low.permanent + hunk_high.permanent ) );
Com_Printf( "Hunk_Clear: reset the hunk ok\n" );
VM_Clear(); // (SA) FIXME:TODO: was commented out in wolf
#ifdef HUNK_DEBUG
hunkblocks = NULL;
#endif
}
static void Hunk_SwapBanks( void ) {
hunkUsed_t *swap;
// can't swap banks if there is any temp already allocated
if ( hunk_temp->temp != hunk_temp->permanent ) {
return;
}
// if we have a larger highwater mark on this side, start making
// our permanent allocations here and use the other side for temp
if ( hunk_temp->tempHighwater - hunk_temp->permanent >
hunk_permanent->tempHighwater - hunk_permanent->permanent ) {
swap = hunk_temp;
hunk_temp = hunk_permanent;
hunk_permanent = swap;
}
}
/*
=================
Hunk_Alloc
Allocate permanent (until the hunk is cleared) memory
=================
*/
#ifdef HUNK_DEBUG
void *Hunk_AllocDebug( int size, ha_pref preference, char *label, char *file, int line ) {
#else
void *Hunk_Alloc( int size, ha_pref preference ) {
#endif
void *buf;
if ( s_hunkData == NULL ) {
Com_Error( ERR_FATAL, "Hunk_Alloc: Hunk memory system not initialized" );
}
Hunk_SwapBanks();
#ifdef HUNK_DEBUG
size += sizeof( hunkblock_t );
#endif
// round to cacheline
size = ( size + 31 ) & ~31;
if ( hunk_low.temp + hunk_high.temp + size > s_hunkTotal ) {
#ifdef HUNK_DEBUG
Hunk_Log();
Hunk_SmallLog();
#endif
Com_Error( ERR_DROP, "Hunk_Alloc failed on %i", size );
}
if ( hunk_permanent == &hunk_low ) {
buf = ( void * )( s_hunkData + hunk_permanent->permanent );
hunk_permanent->permanent += size;
} else {
hunk_permanent->permanent += size;
buf = ( void * )( s_hunkData + s_hunkTotal - hunk_permanent->permanent );
}
hunk_permanent->temp = hunk_permanent->permanent;
memset( buf, 0, size );
#ifdef HUNK_DEBUG
{
hunkblock_t *block;
block = (hunkblock_t *) buf;
block->size = size - sizeof( hunkblock_t );
block->file = file;
block->label = label;
block->line = line;
block->next = hunkblocks;
hunkblocks = block;
buf = ( (byte *) buf ) + sizeof( hunkblock_t );
}
#endif
// Ridah, update the com_hunkused cvar in increments, so we don't update it too often, since this cvar call isn't very efficent
if ( ( hunk_low.permanent + hunk_high.permanent ) > com_hunkused->integer + 10000 ) {
Cvar_Set( "com_hunkused", va( "%i", hunk_low.permanent + hunk_high.permanent ) );
}
return buf;
}
/*
=================
Hunk_AllocateTempMemory
This is used by the file loading system.
Multiple files can be loaded in temporary memory.
When the files-in-use count reaches zero, all temp memory will be deleted
=================
*/
void *Hunk_AllocateTempMemory( int size ) {
void *buf;
hunkHeader_t *hdr;
// return a Z_Malloc'd block if the hunk has not been initialized
// this allows the config and product id files ( journal files too ) to be loaded
// by the file system without redunant routines in the file system utilizing different
// memory systems
if ( s_hunkData == NULL ) {
return Z_Malloc( size );
}
Hunk_SwapBanks();
size = ( ( size + 3 ) & ~3 ) + sizeof( hunkHeader_t );
if ( hunk_temp->temp + hunk_permanent->permanent + size > s_hunkTotal ) {
Com_Error( ERR_DROP, "Hunk_AllocateTempMemory: failed on %i", size );
}
if ( hunk_temp == &hunk_low ) {
buf = ( void * )( s_hunkData + hunk_temp->temp );
hunk_temp->temp += size;
} else {
hunk_temp->temp += size;
buf = ( void * )( s_hunkData + s_hunkTotal - hunk_temp->temp );
}
if ( hunk_temp->temp > hunk_temp->tempHighwater ) {
hunk_temp->tempHighwater = hunk_temp->temp;
}
hdr = (hunkHeader_t *)buf;
buf = ( void * )( hdr + 1 );
hdr->magic = HUNK_MAGIC;
hdr->size = size;
// don't bother clearing, because we are going to load a file over it
return buf;
}
/*
==================
Hunk_FreeTempMemory
==================
*/
void Hunk_FreeTempMemory( void *buf ) {
hunkHeader_t *hdr;
// free with Z_Free if the hunk has not been initialized
// this allows the config and product id files ( journal files too ) to be loaded
// by the file system without redunant routines in the file system utilizing different
// memory systems
if ( s_hunkData == NULL ) {
Z_Free( buf );
return;
}
hdr = ( (hunkHeader_t *)buf ) - 1;
if ( hdr->magic != HUNK_MAGIC ) {
Com_Error( ERR_FATAL, "Hunk_FreeTempMemory: bad magic" );
}
hdr->magic = HUNK_FREE_MAGIC;
// this only works if the files are freed in stack order,
// otherwise the memory will stay around until Hunk_ClearTempMemory
if ( hunk_temp == &hunk_low ) {
if ( hdr == ( void * )( s_hunkData + hunk_temp->temp - hdr->size ) ) {
hunk_temp->temp -= hdr->size;
} else {
Com_Printf( "Hunk_FreeTempMemory: not the final block\n" );
}
} else {
if ( hdr == ( void * )( s_hunkData + s_hunkTotal - hunk_temp->temp ) ) {
hunk_temp->temp -= hdr->size;
} else {
Com_Printf( "Hunk_FreeTempMemory: not the final block\n" );
}
}
}
/*
=================
Hunk_ClearTempMemory
The temp space is no longer needed. If we have left more
touched but unused memory on this side, have future
permanent allocs use this side.
=================
*/
void Hunk_ClearTempMemory( void ) {
if ( s_hunkData != NULL ) {
hunk_temp->temp = hunk_temp->permanent;
}
}
/*
=================
Hunk_Trash
=================
*/
void Hunk_Trash( void ) {
int length, i, rnd;
char *buf, value;
return;
if ( s_hunkData == NULL ) {
return;
}
#ifdef _DEBUG
Com_Error( ERR_DROP, "hunk trashed\n" );
return;
#endif
Cvar_Set( "com_jp", "1" );
Hunk_SwapBanks();
if ( hunk_permanent == &hunk_low ) {
buf = ( void * )( s_hunkData + hunk_permanent->permanent );
} else {
buf = ( void * )( s_hunkData + s_hunkTotal - hunk_permanent->permanent );
}
length = hunk_permanent->permanent;
if ( length > 0x7FFFF ) {
//randomly trash data within buf
rnd = random() * ( length - 0x7FFFF );
value = 31;
for ( i = 0; i < 0x7FFFF; i++ ) {
value *= 109;
buf[rnd + i] ^= value;
}
}
}
/*
===================================================================
EVENTS AND JOURNALING
In addition to these events, .cfg files are also copied to the
journaled file
===================================================================
*/
// bk001129 - here we go again: upped from 64
#define MAX_PUSHED_EVENTS 256
// bk001129 - init, also static
static int com_pushedEventsHead = 0;
static int com_pushedEventsTail = 0;
// bk001129 - static
static sysEvent_t com_pushedEvents[MAX_PUSHED_EVENTS];
/*
=================
Com_InitJournaling
=================
*/
void Com_InitJournaling( void ) {
Com_StartupVariable( "journal" );
com_journal = Cvar_Get( "journal", "0", CVAR_INIT );
if ( !com_journal->integer ) {
return;
}
if ( com_journal->integer == 1 ) {
Com_Printf( "Journaling events\n" );
#ifdef __MACOS__ //DAJ MacOS file typing
{
extern _MSL_IMP_EXP_C long _fcreator, _ftype;
_ftype = 'WlfB';
_fcreator = 'WlfS';
}
#endif
com_journalFile = FS_FOpenFileWrite( "journal.dat" );
com_journalDataFile = FS_FOpenFileWrite( "journaldata.dat" );
} else if ( com_journal->integer == 2 ) {
Com_Printf( "Replaying journaled events\n" );
FS_FOpenFileRead( "journal.dat", &com_journalFile, qtrue );
FS_FOpenFileRead( "journaldata.dat", &com_journalDataFile, qtrue );
}
if ( !com_journalFile || !com_journalDataFile ) {
Cvar_Set( "com_journal", "0" );
com_journalFile = 0;
com_journalDataFile = 0;
Com_Printf( "Couldn't open journal files\n" );
}
}
/*
=================
Com_GetRealEvent
=================
*/
sysEvent_t Com_GetRealEvent( void ) {
int r;
sysEvent_t ev;
// either get an event from the system or the journal file
if ( com_journal->integer == 2 ) {
r = FS_Read( &ev, sizeof( ev ), com_journalFile );
if ( r != sizeof( ev ) ) {
Com_Error( ERR_FATAL, "Error reading from journal file" );
}
if ( ev.evPtrLength ) {
ev.evPtr = Z_Malloc( ev.evPtrLength );
r = FS_Read( ev.evPtr, ev.evPtrLength, com_journalFile );
if ( r != ev.evPtrLength ) {
Com_Error( ERR_FATAL, "Error reading from journal file" );
}
}
} else {
ev = Sys_GetEvent();
// write the journal value out if needed
if ( com_journal->integer == 1 ) {
r = FS_Write( &ev, sizeof( ev ), com_journalFile );
if ( r != sizeof( ev ) ) {
Com_Error( ERR_FATAL, "Error writing to journal file" );
}
if ( ev.evPtrLength ) {
r = FS_Write( ev.evPtr, ev.evPtrLength, com_journalFile );
if ( r != ev.evPtrLength ) {
Com_Error( ERR_FATAL, "Error writing to journal file" );
}
}
}
}
return ev;
}
/*
=================
Com_InitPushEvent
=================
*/
// bk001129 - added
void Com_InitPushEvent( void ) {
// clear the static buffer array
// this requires SE_NONE to be accepted as a valid but NOP event
memset( com_pushedEvents, 0, sizeof( com_pushedEvents ) );
// reset counters while we are at it
// beware: GetEvent might still return an SE_NONE from the buffer
com_pushedEventsHead = 0;
com_pushedEventsTail = 0;
}
/*
=================
Com_PushEvent
=================
*/
void Com_PushEvent( sysEvent_t *event ) {
sysEvent_t *ev;
static int printedWarning = 0; // bk001129 - init, bk001204 - explicit int
ev = &com_pushedEvents[ com_pushedEventsHead & ( MAX_PUSHED_EVENTS - 1 ) ];
if ( com_pushedEventsHead - com_pushedEventsTail >= MAX_PUSHED_EVENTS ) {
// don't print the warning constantly, or it can give time for more...
if ( !printedWarning ) {
printedWarning = qtrue;
Com_Printf( "WARNING: Com_PushEvent overflow\n" );
}
if ( ev->evPtr ) {
Z_Free( ev->evPtr );
}
com_pushedEventsTail++;
} else {
printedWarning = qfalse;
}
*ev = *event;
com_pushedEventsHead++;
}
/*
=================
Com_GetEvent
=================
*/
sysEvent_t Com_GetEvent( void ) {
if ( com_pushedEventsHead > com_pushedEventsTail ) {
com_pushedEventsTail++;
return com_pushedEvents[ ( com_pushedEventsTail - 1 ) & ( MAX_PUSHED_EVENTS - 1 ) ];
}
return Com_GetRealEvent();
}
/*
=================
Com_RunAndTimeServerPacket
=================
*/
void Com_RunAndTimeServerPacket( netadr_t *evFrom, msg_t *buf ) {
int t1, t2, msec;
t1 = 0;
if ( com_speeds->integer ) {
t1 = Sys_Milliseconds();
}
SV_PacketEvent( *evFrom, buf );
if ( com_speeds->integer ) {
t2 = Sys_Milliseconds();
msec = t2 - t1;
if ( com_speeds->integer == 3 ) {
Com_Printf( "SV_PacketEvent time: %i\n", msec );
}
}
}
/*
=================
Com_EventLoop
Returns last event time
=================
*/
int Com_EventLoop( void ) {
sysEvent_t ev;
netadr_t evFrom;
byte bufData[MAX_MSGLEN];
msg_t buf;
MSG_Init( &buf, bufData, sizeof( bufData ) );
while ( 1 ) {
ev = Com_GetEvent();
// if no more events are available
if ( ev.evType == SE_NONE ) {
// manually send packet events for the loopback channel
while ( NET_GetLoopPacket( NS_CLIENT, &evFrom, &buf ) ) {
CL_PacketEvent( evFrom, &buf );
}
while ( NET_GetLoopPacket( NS_SERVER, &evFrom, &buf ) ) {
// if the server just shut down, flush the events
if ( com_sv_running->integer ) {
Com_RunAndTimeServerPacket( &evFrom, &buf );
}
}
return ev.evTime;
}
switch ( ev.evType ) {
default:
// bk001129 - was ev.evTime
Com_Error( ERR_FATAL, "Com_EventLoop: bad event type %i", ev.evType );
break;
case SE_NONE:
break;
case SE_KEY:
CL_KeyEvent( ev.evValue, ev.evValue2, ev.evTime );
break;
case SE_CHAR:
CL_CharEvent( ev.evValue );
break;
case SE_MOUSE:
CL_MouseEvent( ev.evValue, ev.evValue2, ev.evTime );
break;
case SE_JOYSTICK_AXIS:
CL_JoystickEvent( ev.evValue, ev.evValue2, ev.evTime );
break;
case SE_CONSOLE:
Cbuf_AddText( (char *)ev.evPtr );
Cbuf_AddText( "\n" );
break;
case SE_PACKET:
// this cvar allows simulation of connections that
// drop a lot of packets. Note that loopback connections
// don't go through here at all.
if ( com_dropsim->value > 0 ) {
static int seed;
if ( Q_random( &seed ) < com_dropsim->value ) {
break; // drop this packet
}
}
evFrom = *(netadr_t *)ev.evPtr;
buf.cursize = ev.evPtrLength - sizeof( evFrom );
// we must copy the contents of the message out, because
// the event buffers are only large enough to hold the
// exact payload, but channel messages need to be large
// enough to hold fragment reassembly
if ( (unsigned)buf.cursize > buf.maxsize ) {
Com_Printf( "Com_EventLoop: oversize packet\n" );
continue;
}
memcpy( buf.data, ( byte * )( (netadr_t *)ev.evPtr + 1 ), buf.cursize );
if ( com_sv_running->integer ) {
Com_RunAndTimeServerPacket( &evFrom, &buf );
} else {
CL_PacketEvent( evFrom, &buf );
}
break;
}
// free any block data
if ( ev.evPtr ) {
Z_Free( ev.evPtr );
}
}
return 0; // never reached
}
/*
================
Com_Milliseconds
Can be used for profiling, but will be journaled accurately
================
*/
int Com_Milliseconds( void ) {
sysEvent_t ev;
// get events and push them until we get a null event with the current time
do {
ev = Com_GetRealEvent();
if ( ev.evType != SE_NONE ) {
Com_PushEvent( &ev );
}
} while ( ev.evType != SE_NONE );
return ev.evTime;
}
//============================================================================
/*
=============
Com_Error_f
Just throw a fatal error to
test error shutdown procedures
=============
*/
static void Com_Error_f( void ) {
if ( Cmd_Argc() > 1 ) {
Com_Error( ERR_DROP, "Testing drop error" );
} else {
Com_Error( ERR_FATAL, "Testing fatal error" );
}
}
/*
=============
Com_Freeze_f
Just freeze in place for a given number of seconds to test
error recovery
=============
*/
static void Com_Freeze_f( void ) {
float s;
int start, now;
if ( Cmd_Argc() != 2 ) {
Com_Printf( "freeze <seconds>\n" );
return;
}
s = atof( Cmd_Argv( 1 ) );
start = Com_Milliseconds();
while ( 1 ) {
now = Com_Milliseconds();
if ( ( now - start ) * 0.001 > s ) {
break;
}
}
}
/*
=================
Com_Crash_f
A way to force a bus error for development reasons
=================
*/
static void Com_Crash_f( void ) {
*( int * ) 0 = 0x12345678;
}
qboolean CL_CDKeyValidate( const char *key, const char *checksum );
/*
=================
Com_ReadCDKey
=================
*/
void Com_ReadCDKey( const char *filename ) {
fileHandle_t f;
char buffer[33];
char fbuffer[MAX_OSPATH];
sprintf( fbuffer, "%s/rtcwkey", filename );
FS_SV_FOpenFileRead( fbuffer, &f );
if ( !f ) {
Q_strncpyz( cl_cdkey, " ", 17 );
return;
}
Com_Memset( buffer, 0, sizeof( buffer ) );
FS_Read( buffer, 16, f );
FS_FCloseFile( f );
if ( CL_CDKeyValidate( buffer, NULL ) ) {
Q_strncpyz( cl_cdkey, buffer, 17 );
} else {
Q_strncpyz( cl_cdkey, " ", 17 );
}
}
/*
=================
Com_ReadCDKey
=================
*/
void Com_AppendCDKey( const char *filename ) {
fileHandle_t f;
char buffer[33];
char fbuffer[MAX_OSPATH];
sprintf( fbuffer, "%s/rtcwkey", filename );
FS_SV_FOpenFileRead( fbuffer, &f );
if ( !f ) {
Q_strncpyz( &cl_cdkey[16], " ", 17 );
return;
}
Com_Memset( buffer, 0, sizeof( buffer ) );
FS_Read( buffer, 16, f );
FS_FCloseFile( f );
if ( CL_CDKeyValidate( buffer, NULL ) ) {
strcat( &cl_cdkey[16], buffer );
} else {
Q_strncpyz( &cl_cdkey[16], " ", 17 );
}
}
#ifndef DEDICATED // bk001204
/*
=================
Com_WriteCDKey
=================
*/
static void Com_WriteCDKey( const char *filename, const char *ikey ) {
fileHandle_t f;
char fbuffer[MAX_OSPATH];
char key[17];
sprintf( fbuffer, "%s/rtcwkey", filename );
Q_strncpyz( key, ikey, 17 );
if ( !CL_CDKeyValidate( key, NULL ) ) {
return;
}
#ifdef __MACOS__ //DAJ MacOS file typing
{
extern _MSL_IMP_EXP_C long _fcreator, _ftype;
_ftype = 'TEXT';
_fcreator = 'WlfS';
}
#endif
f = FS_SV_FOpenFileWrite( fbuffer );
if ( !f ) {
Com_Printf( "Couldn't write %s.\n", filename );
return;
}
FS_Write( key, 16, f );
FS_Printf( f, "\n// generated by RTCW, do not modify\r\n" );
FS_Printf( f, "// Do not give this file to ANYONE.\r\n" );
#ifdef __MACOS__ // TTimo
FS_Printf( f, "// Aspyr will NOT ask you to send this file to them.\r\n" );
#else
FS_Printf( f, "// id Software and Activision will NOT ask you to send this file to them.\r\n" );
#endif
FS_FCloseFile( f );
}
#endif
void Com_SetRecommended( qboolean vidrestart ) {
cvar_t *cv;
qboolean goodVideo;
qboolean goodCPU;
qboolean lowMemory;
// will use this for recommended settings as well.. do i outside the lower check so it gets done even with command line stuff
cv = Cvar_Get( "r_highQualityVideo", "1", CVAR_ARCHIVE );
goodVideo = ( cv && cv->integer );
goodCPU = Sys_GetHighQualityCPU();
lowMemory = Sys_LowPhysicalMemory();
if ( goodVideo && goodCPU ) {
Com_Printf( "Found high quality video and CPU\n" );
Cbuf_AddText( "exec highVidhighCPU.cfg\n" );
} else if ( goodVideo && !goodCPU ) {
Cbuf_AddText( "exec highVidlowCPU.cfg\n" );
Com_Printf( "Found high quality video and low quality CPU\n" );
} else if ( !goodVideo && goodCPU ) {
Cbuf_AddText( "exec lowVidhighCPU.cfg\n" );
Com_Printf( "Found low quality video and high quality CPU\n" );
} else {
Cbuf_AddText( "exec lowVidlowCPU.cfg\n" );
Com_Printf( "Found low quality video and low quality CPU\n" );
}
// (SA) set the cvar so the menu will reflect this on first run
Cvar_Set( "ui_glCustom", "999" ); // 'recommended'
if ( lowMemory ) {
Com_Printf( "Found minimum memory requirement\n" );
Cvar_Set( "s_khz", "11" );
if ( !goodVideo ) {
Cvar_Set( "r_lowMemTextureSize", "256" );
Cvar_Set( "r_lowMemTextureThreshold", "40.0" );
}
}
if ( vidrestart ) {
Cbuf_AddText( "vid_restart\n" );
}
}
/*
=================
Com_Init
=================
*/
void Com_Init( char *commandLine ) {
char *s;
Com_Printf( "%s %s %s\n", Q3_VERSION, CPUSTRING, __DATE__ );
if ( setjmp( abortframe ) ) {
Sys_Error( "Error during initialization" );
}
// bk001129 - do this before anything else decides to push events
Com_InitPushEvent();
Cvar_Init();
// prepare enough of the subsystems to handle
// cvar and command buffer management
Com_ParseCommandLine( commandLine );
Swap_Init();
Cbuf_Init();
Com_InitZoneMemory();
Cmd_Init();
// override anything from the config files with command line args
Com_StartupVariable( NULL );
// get the developer cvar set as early as possible
Com_StartupVariable( "developer" );
// done early so bind command exists
CL_InitKeyCommands();
FS_InitFilesystem();
Com_InitJournaling();
Cbuf_AddText( "exec default.cfg\n" );
Cbuf_AddText( "exec language.cfg\n" ); //----(SA) added
// skip the q3config.cfg if "safe" is on the command line
if ( !Com_SafeMode() ) {
Cbuf_AddText( "exec wolfconfig.cfg\n" );
}
Cbuf_AddText( "exec autoexec.cfg\n" );
Cbuf_Execute();
// override anything from the config files with command line args
Com_StartupVariable( NULL );
// get dedicated here for proper hunk megs initialization
#ifdef DEDICATED
com_dedicated = Cvar_Get( "dedicated", "1", CVAR_ROM );
#else
com_dedicated = Cvar_Get( "dedicated", "0", CVAR_LATCH );
#endif
// allocate the stack based hunk allocator
Com_InitHunkMemory();
// if any archived cvars are modified after this, we will trigger a writing
// of the config file
cvar_modifiedFlags &= ~CVAR_ARCHIVE;
//
// init commands and vars
//
com_maxfps = Cvar_Get( "com_maxfps", "85", CVAR_ARCHIVE );
com_blood = Cvar_Get( "com_blood", "1", CVAR_ARCHIVE );
com_developer = Cvar_Get( "developer", "0", CVAR_TEMP );
com_logfile = Cvar_Get( "logfile", "0", CVAR_TEMP );
com_timescale = Cvar_Get( "timescale", "1", CVAR_CHEAT | CVAR_SYSTEMINFO );
com_fixedtime = Cvar_Get( "fixedtime", "0", CVAR_CHEAT );
com_showtrace = Cvar_Get( "com_showtrace", "0", CVAR_CHEAT );
com_dropsim = Cvar_Get( "com_dropsim", "0", CVAR_CHEAT );
com_viewlog = Cvar_Get( "viewlog", "0", CVAR_CHEAT );
com_speeds = Cvar_Get( "com_speeds", "0", 0 );
com_timedemo = Cvar_Get( "timedemo", "0", CVAR_CHEAT );
com_cameraMode = Cvar_Get( "com_cameraMode", "0", CVAR_CHEAT );
cl_paused = Cvar_Get( "cl_paused", "0", CVAR_ROM );
sv_paused = Cvar_Get( "sv_paused", "0", CVAR_ROM );
com_sv_running = Cvar_Get( "sv_running", "0", CVAR_ROM );
com_cl_running = Cvar_Get( "cl_running", "0", CVAR_ROM );
com_buildScript = Cvar_Get( "com_buildScript", "0", 0 );
com_introPlayed = Cvar_Get( "com_introplayed", "0", CVAR_ARCHIVE );
com_recommendedSet = Cvar_Get( "com_recommendedSet", "0", CVAR_ARCHIVE );
Cvar_Get( "savegame_loading", "0", CVAR_ROM );
#if defined( _WIN32 ) && defined( _DEBUG )
com_noErrorInterrupt = Cvar_Get( "com_noErrorInterrupt", "0", 0 );
#endif
com_hunkused = Cvar_Get( "com_hunkused", "0", 0 );
if ( com_dedicated->integer ) {
if ( !com_viewlog->integer ) {
Cvar_Set( "viewlog", "1" );
}
}
if ( com_developer && com_developer->integer ) {
Cmd_AddCommand( "error", Com_Error_f );
Cmd_AddCommand( "crash", Com_Crash_f );
Cmd_AddCommand( "freeze", Com_Freeze_f );
}
Cmd_AddCommand( "quit", Com_Quit_f );
Cmd_AddCommand( "changeVectors", MSG_ReportChangeVectors_f );
Cmd_AddCommand( "writeconfig", Com_WriteConfig_f );
s = va( "%s %s %s", Q3_VERSION, CPUSTRING, __DATE__ );
com_version = Cvar_Get( "version", s, CVAR_ROM | CVAR_SERVERINFO );
Sys_Init();
Netchan_Init( Com_Milliseconds() & 0xffff ); // pick a port value that should be nice and random
VM_Init();
SV_Init();
com_dedicated->modified = qfalse;
if ( !com_dedicated->integer ) {
CL_Init();
Sys_ShowConsole( com_viewlog->integer, qfalse );
}
// set com_frameTime so that if a map is started on the
// command line it will still be able to count on com_frameTime
// being random enough for a serverid
com_frameTime = Com_Milliseconds();
// add + commands from command line
if ( !Com_AddStartupCommands() ) {
// if the user didn't give any commands, run default action
}
// start in full screen ui mode
Cvar_Set( "r_uiFullScreen", "1" );
CL_StartHunkUsers();
// delay this so potential wicked3d dll can find a wolf window
if ( !com_dedicated->integer ) {
Sys_ShowConsole( com_viewlog->integer, qfalse );
}
if ( !com_recommendedSet->integer ) {
Com_SetRecommended( qtrue );
Cvar_Set( "com_recommendedSet", "1" );
}
if ( !com_dedicated->integer ) {
//Cbuf_AddText ("cinematic gmlogo.RoQ\n");
if ( !com_introPlayed->integer ) {
#ifdef __MACOS__
extern void PlayIntroMovies( void );
PlayIntroMovies();
#endif
//Cvar_Set( com_introPlayed->name, "1" ); //----(SA) force this to get played every time (but leave cvar for override)
Cbuf_AddText( "cinematic wolfintro.RoQ 3\n" );
//Cvar_Set( "nextmap", "cinematic wolfintro.RoQ" );
}
}
com_fullyInitialized = qtrue;
Com_Printf( "--- Common Initialization Complete ---\n" );
}
//==================================================================
void Com_WriteConfigToFile( const char *filename ) {
fileHandle_t f;
#ifdef __MACOS__ //DAJ MacOS file typing
{
extern _MSL_IMP_EXP_C long _fcreator, _ftype;
_ftype = 'TEXT';
_fcreator = 'R*ch';
}
#endif
f = FS_FOpenFileWrite( filename );
if ( !f ) {
Com_Printf( "Couldn't write %s.\n", filename );
return;
}
FS_Printf( f, "// generated by RTCW, do not modify\n" );
Key_WriteBindings( f );
Cvar_WriteVariables( f );
FS_FCloseFile( f );
}
/*
===============
Com_WriteConfiguration
Writes key bindings and archived cvars to config file if modified
===============
*/
void Com_WriteConfiguration( void ) {
#ifndef DEDICATED // bk001204
cvar_t *fs;
#endif
// if we are quiting without fully initializing, make sure
// we don't write out anything
if ( !com_fullyInitialized ) {
return;
}
if ( !( cvar_modifiedFlags & CVAR_ARCHIVE ) ) {
return;
}
cvar_modifiedFlags &= ~CVAR_ARCHIVE;
Com_WriteConfigToFile( "wolfconfig.cfg" );
// bk001119 - tentative "not needed for dedicated"
#ifndef DEDICATED
fs = Cvar_Get( "fs_game", "", CVAR_INIT | CVAR_SYSTEMINFO );
if ( UI_usesUniqueCDKey() && fs && fs->string[0] != 0 ) {
Com_WriteCDKey( fs->string, &cl_cdkey[16] );
} else {
Com_WriteCDKey( "main", cl_cdkey );
}
#endif
}
/*
===============
Com_WriteConfig_f
Write the config file to a specific name
===============
*/
void Com_WriteConfig_f( void ) {
char filename[MAX_QPATH];
if ( Cmd_Argc() != 2 ) {
Com_Printf( "Usage: writeconfig <filename>\n" );
return;
}
Q_strncpyz( filename, Cmd_Argv( 1 ), sizeof( filename ) );
COM_DefaultExtension( filename, sizeof( filename ), ".cfg" );
Com_Printf( "Writing %s.\n", filename );
Com_WriteConfigToFile( filename );
}
/*
================
Com_ModifyMsec
================
*/
int Com_ModifyMsec( int msec ) {
int clampTime;
//
// modify time for debugging values
//
if ( com_fixedtime->integer ) {
msec = com_fixedtime->integer;
} else if ( com_timescale->value ) {
msec *= com_timescale->value;
// } else if (com_cameraMode->integer) {
// msec *= com_timescale->value;
}
// don't let it scale below 1 msec
if ( msec < 1 && com_timescale->value ) {
msec = 1;
}
if ( com_dedicated->integer ) {
// dedicated servers don't want to clamp for a much longer
// period, because it would mess up all the client's views
// of time.
if ( msec > 500 ) {
Com_Printf( "Hitch warning: %i msec frame time\n", msec );
}
clampTime = 5000;
} else
if ( !com_sv_running->integer ) {
// clients of remote servers do not want to clamp time, because
// it would skew their view of the server's time temporarily
clampTime = 5000;
} else {
// for local single player gaming
// we may want to clamp the time to prevent players from
// flying off edges when something hitches.
clampTime = 200;
}
if ( msec > clampTime ) {
msec = clampTime;
}
return msec;
}
/*
=================
Com_Frame
=================
*/
void Com_Frame( void ) {
int msec, minMsec;
static int lastTime;
int key;
int timeBeforeFirstEvents;
int timeBeforeServer;
int timeBeforeEvents;
int timeBeforeClient;
int timeAfter;
if ( setjmp( abortframe ) ) {
return; // an ERR_DROP was thrown
}
// bk001204 - init to zero.
// also: might be clobbered by `longjmp' or `vfork'
timeBeforeFirstEvents = 0;
timeBeforeServer = 0;
timeBeforeEvents = 0;
timeBeforeClient = 0;
timeAfter = 0;
// old net chan encryption key
key = 0x87243987;
// write config file if anything changed
Com_WriteConfiguration();
// if "viewlog" has been modified, show or hide the log console
if ( com_viewlog->modified ) {
if ( !com_dedicated->value ) {
Sys_ShowConsole( com_viewlog->integer, qfalse );
}
com_viewlog->modified = qfalse;
}
//
// main event loop
//
if ( com_speeds->integer ) {
timeBeforeFirstEvents = Sys_Milliseconds();
}
// we may want to spin here if things are going too fast
if ( !com_dedicated->integer && com_maxfps->integer > 0 && !com_timedemo->integer ) {
minMsec = 1000 / com_maxfps->integer;
} else {
minMsec = 1;
}
do {
com_frameTime = Com_EventLoop();
if ( lastTime > com_frameTime ) {
lastTime = com_frameTime; // possible on first frame
}
msec = com_frameTime - lastTime;
} while ( msec < minMsec );
Cbuf_Execute();
lastTime = com_frameTime;
// mess with msec if needed
com_frameMsec = msec;
msec = Com_ModifyMsec( msec );
//
// server side
//
if ( com_speeds->integer ) {
timeBeforeServer = Sys_Milliseconds();
}
SV_Frame( msec );
// if "dedicated" has been modified, start up
// or shut down the client system.
// Do this after the server may have started,
// but before the client tries to auto-connect
if ( com_dedicated->modified ) {
// get the latched value
Cvar_Get( "dedicated", "0", 0 );
com_dedicated->modified = qfalse;
if ( !com_dedicated->integer ) {
CL_Init();
Sys_ShowConsole( com_viewlog->integer, qfalse );
} else {
CL_Shutdown();
Sys_ShowConsole( 1, qtrue );
}
}
//
// client system
//
if ( !com_dedicated->integer ) {
//
// run event loop a second time to get server to client packets
// without a frame of latency
//
if ( com_speeds->integer ) {
timeBeforeEvents = Sys_Milliseconds();
}
Com_EventLoop();
Cbuf_Execute();
//
// client side
//
if ( com_speeds->integer ) {
timeBeforeClient = Sys_Milliseconds();
}
CL_Frame( msec );
if ( com_speeds->integer ) {
timeAfter = Sys_Milliseconds();
}
}
//
// report timing information
//
if ( com_speeds->integer ) {
int all, sv, ev, cl;
all = timeAfter - timeBeforeServer;
sv = timeBeforeEvents - timeBeforeServer;
ev = timeBeforeServer - timeBeforeFirstEvents + timeBeforeClient - timeBeforeEvents;
cl = timeAfter - timeBeforeClient;
sv -= time_game;
cl -= time_frontend + time_backend;
Com_Printf( "frame:%i all:%3i sv:%3i ev:%3i cl:%3i gm:%3i rf:%3i bk:%3i\n",
com_frameNumber, all, sv, ev, cl, time_game, time_frontend, time_backend );
}
//
// trace optimization tracking
//
if ( com_showtrace->integer ) {
extern int c_traces, c_brush_traces, c_patch_traces;
extern int c_pointcontents;
Com_Printf( "%4i traces (%ib %ip) %4i points\n", c_traces,
c_brush_traces, c_patch_traces, c_pointcontents );
c_traces = 0;
c_brush_traces = 0;
c_patch_traces = 0;
c_pointcontents = 0;
}
// old net chan encryption key
key = lastTime * 0x87243987;
com_frameNumber++;
}
/*
=================
Com_Shutdown
=================
*/
void Com_Shutdown( void ) {
if ( logfile ) {
FS_FCloseFile( logfile );
logfile = 0;
}
if ( com_journalFile ) {
FS_FCloseFile( com_journalFile );
com_journalFile = 0;
}
}
#if !( defined __linux__ || defined __FreeBSD__ ) // r010123 - include FreeBSD
#if ( ( !id386 ) && ( !defined __i386__ ) ) // rcg010212 - for PPC
void Com_Memcpy( void* dest, const void* src, const size_t count ) {
memcpy( dest, src, count );
}
void Com_Memset( void* dest, const int val, const size_t count ) {
memset( dest, val, count );
}
#else
typedef enum
{
PRE_READ, // prefetch assuming that buffer is used for reading only
PRE_WRITE, // prefetch assuming that buffer is used for writing only
PRE_READ_WRITE // prefetch assuming that buffer is used for both reading and writing
} e_prefetch;
void Com_Prefetch( const void *s, const unsigned int bytes, e_prefetch type );
#define EMMS_INSTRUCTION __asm emms
void _copyDWord( unsigned int* dest, const unsigned int constant, const unsigned int count ) {
__asm
{
mov edx,dest
mov eax,constant
mov ecx,count
and ecx,~7
jz padding
sub ecx,8
jmp loopu
align 16
loopu:
test [edx + ecx * 4 + 28],ebx // fetch next block destination to L1 cache
mov [edx + ecx * 4 + 0],eax
mov [edx + ecx * 4 + 4],eax
mov [edx + ecx * 4 + 8],eax
mov [edx + ecx * 4 + 12],eax
mov [edx + ecx * 4 + 16],eax
mov [edx + ecx * 4 + 20],eax
mov [edx + ecx * 4 + 24],eax
mov [edx + ecx * 4 + 28],eax
sub ecx,8
jge loopu
padding: mov ecx,count
mov ebx,ecx
and ecx,7
jz outta
and ebx,~7
lea edx,[edx + ebx * 4] // advance dest pointer
test [edx + 0],eax // fetch destination to L1 cache
cmp ecx,4
jl skip4
mov [edx + 0],eax
mov [edx + 4],eax
mov [edx + 8],eax
mov [edx + 12],eax
add edx,16
sub ecx,4
skip4: cmp ecx,2
jl skip2
mov [edx + 0],eax
mov [edx + 4],eax
add edx,8
sub ecx,2
skip2: cmp ecx,1
jl outta
mov [edx + 0],eax
outta:
}
}
// optimized memory copy routine that handles all alignment
// cases and block sizes efficiently
void Com_Memcpy( void* dest, const void* src, const size_t count ) {
Com_Prefetch( src, count, PRE_READ );
__asm
{
push edi
push esi
mov ecx,count
cmp ecx,0 // count = 0 check (just to be on the safe side)
je outta
mov edx,dest
mov ebx,src
cmp ecx,32 // padding only?
jl padding
mov edi,ecx
and edi,~31 // edi = count&~31
sub edi,32
align 16
loopMisAligned:
mov eax,[ebx + edi + 0 + 0 * 8]
mov esi,[ebx + edi + 4 + 0 * 8]
mov [edx + edi + 0 + 0 * 8],eax
mov [edx + edi + 4 + 0 * 8],esi
mov eax,[ebx + edi + 0 + 1 * 8]
mov esi,[ebx + edi + 4 + 1 * 8]
mov [edx + edi + 0 + 1 * 8],eax
mov [edx + edi + 4 + 1 * 8],esi
mov eax,[ebx + edi + 0 + 2 * 8]
mov esi,[ebx + edi + 4 + 2 * 8]
mov [edx + edi + 0 + 2 * 8],eax
mov [edx + edi + 4 + 2 * 8],esi
mov eax,[ebx + edi + 0 + 3 * 8]
mov esi,[ebx + edi + 4 + 3 * 8]
mov [edx + edi + 0 + 3 * 8],eax
mov [edx + edi + 4 + 3 * 8],esi
sub edi,32
jge loopMisAligned
mov edi,ecx
and edi,~31
add ebx,edi // increase src pointer
add edx,edi // increase dst pointer
and ecx,31 // new count
jz outta // if count = 0, get outta here
padding:
cmp ecx,16
jl skip16
mov eax,dword ptr [ebx]
mov dword ptr [edx],eax
mov eax,dword ptr [ebx + 4]
mov dword ptr [edx + 4],eax
mov eax,dword ptr [ebx + 8]
mov dword ptr [edx + 8],eax
mov eax,dword ptr [ebx + 12]
mov dword ptr [edx + 12],eax
sub ecx,16
add ebx,16
add edx,16
skip16:
cmp ecx,8
jl skip8
mov eax,dword ptr [ebx]
mov dword ptr [edx],eax
mov eax,dword ptr [ebx + 4]
sub ecx,8
mov dword ptr [edx + 4],eax
add ebx,8
add edx,8
skip8:
cmp ecx,4
jl skip4
mov eax,dword ptr [ebx] // here 4-7 bytes
add ebx,4
sub ecx,4
mov dword ptr [edx],eax
add edx,4
skip4: // 0-3 remaining bytes
cmp ecx,2
jl skip2
mov ax,word ptr [ebx] // two bytes
cmp ecx,3 // less than 3?
mov word ptr [edx],ax
jl outta
mov al,byte ptr [ebx + 2] // last byte
mov byte ptr [edx + 2],al
jmp outta
skip2:
cmp ecx,1
jl outta
mov al,byte ptr [ebx]
mov byte ptr [edx],al
outta:
pop esi
pop edi
}
}
void Com_Memset( void* dest, const int val, const size_t count ) {
unsigned int fillval;
if ( count < 8 ) {
__asm
{
mov edx,dest
mov eax, val
mov ah,al
mov ebx,eax
and ebx, 0xffff
shl eax,16
add eax,ebx // eax now contains pattern
mov ecx,count
cmp ecx,4
jl skip4
mov [edx],eax // copy first dword
add edx,4
sub ecx,4
skip4: cmp ecx,2
jl skip2
mov word ptr [edx],ax // copy 2 bytes
add edx,2
sub ecx,2
skip2: cmp ecx,0
je skip1
mov byte ptr [edx],al // copy single byte
skip1:
}
return;
}
fillval = val;
fillval = fillval | ( fillval << 8 );
fillval = fillval | ( fillval << 16 ); // fill dword with 8-bit pattern
_copyDWord( (unsigned int*)( dest ),fillval, count / 4 );
__asm // padding of 0-3 bytes
{
mov ecx,count
mov eax,ecx
and ecx,3
jz skipA
and eax,~3
mov ebx,dest
add ebx,eax
mov eax,fillval
cmp ecx,2
jl skipB
mov word ptr [ebx],ax
cmp ecx,2
je skipA
mov byte ptr [ebx + 2],al
jmp skipA
skipB:
cmp ecx,0
je skipA
mov byte ptr [ebx],al
skipA:
}
}
qboolean Com_Memcmp( const void *src0, const void *src1, const unsigned int count ) {
unsigned int i;
// MMX version anyone?
if ( count >= 16 ) {
unsigned int *dw = (unsigned int*)( src0 );
unsigned int *sw = (unsigned int*)( src1 );
unsigned int nm2 = count / 16;
for ( i = 0; i < nm2; i += 4 )
{
unsigned int tmp = ( dw[i + 0] - sw[i + 0] ) | ( dw[i + 1] - sw[i + 1] ) |
( dw[i + 2] - sw[i + 2] ) | ( dw[i + 3] - sw[i + 3] );
if ( tmp ) {
return qfalse;
}
}
}
if ( count & 15 ) {
byte *d = (byte*)src0;
byte *s = (byte*)src1;
for ( i = count & 0xfffffff0; i < count; i++ )
if ( d[i] != s[i] ) {
return qfalse;
}
}
return qtrue;
}
void Com_Prefetch( const void *s, const unsigned int bytes, e_prefetch type ) {
// write buffer prefetching is performed only if
// the processor benefits from it. Read and read/write
// prefetching is always performed.
switch ( type )
{
case PRE_WRITE: break;
case PRE_READ:
case PRE_READ_WRITE:
__asm
{
mov ebx,s
mov ecx,bytes
cmp ecx,4096 // clamp to 4kB
jle skipClamp
mov ecx,4096
skipClamp:
add ecx,0x1f
shr ecx,5 // number of cache lines
jz skip
jmp loopie
align 16
loopie: test byte ptr [ebx],al
add ebx,32
dec ecx
jnz loopie
skip:
}
break;
}
}
#endif
#endif // bk001208 - memset/memcpy assembly, Q_acos needed (RC4)
//------------------------------------------------------------------------
/*
=====================
Q_acos
the msvc acos doesn't always return a value between -PI and PI:
int i;
i = 1065353246;
acos(*(float*) &i) == -1.#IND0
This should go in q_math but it is too late to add new traps
to game and ui
=====================
*/
float Q_acos( float c ) {
float angle;
angle = acos( c );
if ( angle > M_PI ) {
return (float)M_PI;
}
if ( angle < -M_PI ) {
return (float)M_PI;
}
return angle;
}
/*
===========================================
command line completion
===========================================
*/
/*
==================
Field_Clear
==================
*/
void Field_Clear( field_t *edit ) {
memset( edit->buffer, 0, MAX_EDIT_LINE );
edit->cursor = 0;
edit->scroll = 0;
}
static const char *completionString;
static char shortestMatch[MAX_TOKEN_CHARS];
static int matchCount;
// field we are working on, passed to Field_CompleteCommand (&g_consoleCommand for instance)
static field_t *completionField;
/*
===============
FindMatches
===============
*/
static void FindMatches( const char *s ) {
int i;
if ( Q_stricmpn( s, completionString, strlen( completionString ) ) ) {
return;
}
matchCount++;
if ( matchCount == 1 ) {
Q_strncpyz( shortestMatch, s, sizeof( shortestMatch ) );
return;
}
// cut shortestMatch to the amount common with s
for ( i = 0 ; s[i] ; i++ ) {
if ( tolower( shortestMatch[i] ) != tolower( s[i] ) ) {
shortestMatch[i] = 0;
}
}
}
/*
===============
PrintMatches
===============
*/
static void PrintMatches( const char *s ) {
if ( !Q_stricmpn( s, shortestMatch, strlen( shortestMatch ) ) ) {
Com_Printf( " %s\n", s );
}
}
static void keyConcatArgs( void ) {
int i;
char *arg;
for ( i = 1 ; i < Cmd_Argc() ; i++ ) {
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), " " );
arg = Cmd_Argv( i );
while ( *arg ) {
if ( *arg == ' ' ) {
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), "\"" );
break;
}
arg++;
}
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), Cmd_Argv( i ) );
if ( *arg == ' ' ) {
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), "\"" );
}
}
}
static void ConcatRemaining( const char *src, const char *start ) {
char *str;
str = strstr( src, start );
if ( !str ) {
keyConcatArgs();
return;
}
str += strlen( start );
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), str );
}
/*
===============
Field_CompleteCommand
perform Tab expansion
NOTE TTimo this was originally client code only
moved to common code when writing tty console for *nix dedicated server
===============
*/
void Field_CompleteCommand( field_t *field ) {
field_t temp;
completionField = field;
// only look at the first token for completion purposes
Cmd_TokenizeString( completionField->buffer );
completionString = Cmd_Argv( 0 );
if ( completionString[0] == '\\' || completionString[0] == '/' ) {
completionString++;
}
matchCount = 0;
shortestMatch[0] = 0;
if ( strlen( completionString ) == 0 ) {
return;
}
Cmd_CommandCompletion( FindMatches );
Cvar_CommandCompletion( FindMatches );
if ( matchCount == 0 ) {
return; // no matches
}
Com_Memcpy( &temp, completionField, sizeof( field_t ) );
if ( matchCount == 1 ) {
Com_sprintf( completionField->buffer, sizeof( completionField->buffer ), "\\%s", shortestMatch );
if ( Cmd_Argc() == 1 ) {
Q_strcat( completionField->buffer, sizeof( completionField->buffer ), " " );
} else {
ConcatRemaining( temp.buffer, completionString );
}
completionField->cursor = strlen( completionField->buffer );
return;
}
// multiple matches, complete to shortest
Com_sprintf( completionField->buffer, sizeof( completionField->buffer ), "\\%s", shortestMatch );
completionField->cursor = strlen( completionField->buffer );
ConcatRemaining( temp.buffer, completionString );
Com_Printf( "]%s\n", completionField->buffer );
// run through again, printing matches
Cmd_CommandCompletion( PrintMatches );
Cvar_CommandCompletion( PrintMatches );
}
Something went wrong with that request. Please try again.