2013-04-19 02:52:48 +00:00
// win_main.h
// leave this as first line for PCH reasons...
//
# include "../server/exe_headers.h"
# include "../client/client.h"
# include "win_local.h"
# include "resource.h"
# include <errno.h>
# include <float.h>
# include <fcntl.h>
# include <stdio.h>
# include <direct.h>
# include <io.h>
# include <conio.h>
# include <crtdbg.h>
// The following macros set and clear, respectively, given bits
// of the C runtime library debug flag, as specified by a bitmask.
# ifdef _DEBUG
# define SET_CRT_DEBUG_FIELD(a) \
_CrtSetDbgFlag ( ( a ) | _CrtSetDbgFlag ( _CRTDBG_REPORT_FLAG ) )
# define CLEAR_CRT_DEBUG_FIELD(a) \
_CrtSetDbgFlag ( ~ ( a ) & _CrtSetDbgFlag ( _CRTDBG_REPORT_FLAG ) )
# else
# define SET_CRT_DEBUG_FIELD(a) ((void) 0)
# define CLEAR_CRT_DEBUG_FIELD(a) ((void) 0)
# endif
# define CD_BASEDIR "gamedata\\gamedata"
# define CD_EXE "jasp.exe"
# define CD_VOLUME "JEDIACAD"
# define MEM_THRESHOLD 128*1024*1024
static char sys_cmdline [ MAX_STRING_CHARS ] ;
/*
= = = = = = = = = = = = = = = = = =
Sys_GetFileTime ( )
= = = = = = = = = = = = = = = = = =
*/
bool Sys_GetFileTime ( LPCSTR psFileName , FILETIME & ft )
{
bool bSuccess = false ;
HANDLE hFile = INVALID_HANDLE_VALUE ;
hFile = CreateFile ( psFileName , // LPCTSTR lpFileName, // pointer to name of the file
GENERIC_READ , // DWORD dwDesiredAccess, // access (read-write) mode
FILE_SHARE_READ , // DWORD dwShareMode, // share mode
NULL , // LPSECURITY_ATTRIBUTES lpSecurityAttributes, // pointer to security attributes
OPEN_EXISTING , // DWORD dwCreationDisposition, // how to create
FILE_FLAG_NO_BUFFERING , // DWORD dwFlagsAndAttributes, // file attributes
NULL // HANDLE hTemplateFile // handle to file with attributes to
) ;
if ( hFile ! = INVALID_HANDLE_VALUE )
{
if ( GetFileTime ( hFile , // handle to file
NULL , // LPFILETIME lpCreationTime
NULL , // LPFILETIME lpLastAccessTime
& ft // LPFILETIME lpLastWriteTime
)
)
{
bSuccess = true ;
}
CloseHandle ( hFile ) ;
}
return bSuccess ;
}
/*
= = = = = = = = = = = = = = = = = =
Sys_FileOutOfDate ( )
= = = = = = = = = = = = = = = = = =
*/
qboolean Sys_FileOutOfDate ( LPCSTR psFinalFileName /* dest */ , LPCSTR psDataFileName /* src */ )
{
FILETIME ftFinalFile , ftDataFile ;
if ( Sys_GetFileTime ( psFinalFileName , ftFinalFile ) & & Sys_GetFileTime ( psDataFileName , ftDataFile ) )
{
// timer res only accurate to within 2 seconds on FAT, so can't do exact compare...
//
//LONG l = CompareFileTime( &ftFinalFile, &ftDataFile );
if ( ( abs ( ftFinalFile . dwLowDateTime - ftDataFile . dwLowDateTime ) < = 20000000 ) & &
ftFinalFile . dwHighDateTime = = ftDataFile . dwHighDateTime
)
{
return false ; // file not out of date, ie use it.
}
return true ; // flag return code to copy over a replacement version of this file
}
// extra error check, report as suspicious if you find a file locally but not out on the net.,.
//
if ( com_developer - > integer )
{
if ( ! Sys_GetFileTime ( psDataFileName , ftDataFile ) )
{
Com_Printf ( " Sys_FileOutOfDate: reading %s but it's not on the net! \n " , psFinalFileName ) ;
}
}
return false ;
}
/*
= = = = = = = = = = = = = = = = = =
Sys_LowPhysicalMemory ( )
= = = = = = = = = = = = = = = = = =
*/
qboolean Sys_CopyFile ( LPCSTR lpExistingFileName , LPCSTR lpNewFileName , qboolean bOverWrite )
{
qboolean bOk = qtrue ;
if ( ! CopyFile ( lpExistingFileName , lpNewFileName , ! bOverWrite ) & & bOverWrite )
{
DWORD dwAttrs = GetFileAttributes ( lpNewFileName ) ;
SetFileAttributes ( lpNewFileName , dwAttrs & ~ FILE_ATTRIBUTE_READONLY ) ;
bOk = CopyFile ( lpExistingFileName , lpNewFileName , FALSE ) ;
}
return bOk ;
}
/*
= = = = = = = = = = = = = = = = = =
Sys_LowPhysicalMemory ( )
= = = = = = = = = = = = = = = = = =
*/
qboolean Sys_LowPhysicalMemory ( )
{
static MEMORYSTATUS stat ;
static qboolean bAsked = qfalse ;
static cvar_t * sys_lowmem = Cvar_Get ( " sys_lowmem " , " 0 " , 0 ) ;
if ( ! bAsked ) // just in case it takes a little time for GlobalMemoryStatus() to gather stats on
{ // stuff we don't care about such as virtual mem etc.
bAsked = qtrue ;
GlobalMemoryStatus ( & stat ) ;
}
if ( sys_lowmem - > integer )
{
return qtrue ;
}
return ( stat . dwTotalPhys < = MEM_THRESHOLD ) ? qtrue : qfalse ;
}
/*
= = = = = = = = = = = = = = = = = =
Sys_BeginProfiling
= = = = = = = = = = = = = = = = = =
*/
void Sys_BeginProfiling ( void ) {
// this is just used on the mac build
}
/*
= = = = = = = = = = = = =
Sys_Error
Show the early console as an error dialog
= = = = = = = = = = = = =
*/
void QDECL Sys_Error ( const char * error , . . . ) {
va_list argptr ;
char text [ 4096 ] ;
MSG msg ;
va_start ( argptr , error ) ;
vsprintf ( text , error , argptr ) ;
va_end ( argptr ) ;
Conbuf_AppendText ( text ) ;
Conbuf_AppendText ( " \n " ) ;
Sys_SetErrorText ( text ) ;
Sys_ShowConsole ( 1 , qtrue ) ;
timeEndPeriod ( 1 ) ;
IN_Shutdown ( ) ;
// wait for the user to quit
while ( 1 ) {
if ( ! GetMessage ( & msg , NULL , 0 , 0 ) )
Com_Quit_f ( ) ;
TranslateMessage ( & msg ) ;
DispatchMessage ( & msg ) ;
}
Sys_DestroyConsole ( ) ;
Com_ShutdownZoneMemory ( ) ;
Com_ShutdownHunkMemory ( ) ;
exit ( 1 ) ;
}
/*
= = = = = = = = = = = = = =
Sys_Quit
= = = = = = = = = = = = = =
*/
void Sys_Quit ( void ) {
timeEndPeriod ( 1 ) ;
IN_Shutdown ( ) ;
Sys_DestroyConsole ( ) ;
Com_ShutdownZoneMemory ( ) ;
Com_ShutdownHunkMemory ( ) ;
exit ( 0 ) ;
}
/*
= = = = = = = = = = = = = =
Sys_Print
= = = = = = = = = = = = = =
*/
void Sys_Print ( const char * msg ) {
Conbuf_AppendText ( msg ) ;
}
/*
= = = = = = = = = = = = = =
Sys_Mkdir
= = = = = = = = = = = = = =
*/
void Sys_Mkdir ( const char * path ) {
_mkdir ( path ) ;
}
/*
= = = = = = = = = = = = = =
Sys_Cwd
= = = = = = = = = = = = = =
*/
char * Sys_Cwd ( void ) {
static char cwd [ MAX_OSPATH ] ;
_getcwd ( cwd , sizeof ( cwd ) - 1 ) ;
cwd [ MAX_OSPATH - 1 ] = 0 ;
return cwd ;
}
/*
= = = = = = = = = = = = = =
Sys_DefaultCDPath
= = = = = = = = = = = = = =
*/
char * Sys_DefaultCDPath ( void ) {
return " " ;
}
/*
= = = = = = = = = = = = = =
Sys_DefaultBasePath
= = = = = = = = = = = = = =
*/
char * Sys_DefaultBasePath ( void ) {
return Sys_Cwd ( ) ;
}
/*
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
DIRECTORY SCANNING
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
*/
# define MAX_FOUND_FILES 0x1000
char * * Sys_ListFiles ( const char * directory , const char * extension , int * numfiles , qboolean wantsubs ) {
char search [ MAX_OSPATH ] ;
int nfiles ;
char * * listCopy ;
char * list [ MAX_FOUND_FILES ] ;
struct _finddata_t findinfo ;
int findhandle ;
int flag ;
int i ;
if ( ! extension ) {
extension = " " ;
}
// passing a slash as extension will find directories
if ( extension [ 0 ] = = ' / ' & & extension [ 1 ] = = 0 ) {
extension = " " ;
flag = 0 ;
} else {
flag = _A_SUBDIR ;
}
Com_sprintf ( search , sizeof ( search ) , " %s \\ *%s " , directory , extension ) ;
// search
nfiles = 0 ;
findhandle = _findfirst ( search , & findinfo ) ;
if ( findhandle = = - 1 ) {
* numfiles = 0 ;
return NULL ;
}
do {
if ( ( ! wantsubs & & flag ^ ( findinfo . attrib & _A_SUBDIR ) ) | | ( wantsubs & & findinfo . attrib & _A_SUBDIR ) ) {
if ( nfiles = = MAX_FOUND_FILES - 1 ) {
break ;
}
list [ nfiles ] = CopyString ( findinfo . name ) ;
nfiles + + ;
}
} while ( _findnext ( findhandle , & findinfo ) ! = - 1 ) ;
list [ nfiles ] = 0 ;
_findclose ( findhandle ) ;
// return a copy of the list
* numfiles = nfiles ;
if ( ! nfiles ) {
return NULL ;
}
listCopy = ( char * * ) Z_Malloc ( ( nfiles + 1 ) * sizeof ( * listCopy ) , TAG_LISTFILES , qfalse ) ;
for ( i = 0 ; i < nfiles ; i + + ) {
listCopy [ i ] = list [ i ] ;
}
listCopy [ i ] = NULL ;
return listCopy ;
}
void Sys_FreeFileList ( char * * filelist ) {
int i ;
if ( ! filelist ) {
return ;
}
for ( i = 0 ; filelist [ i ] ; i + + ) {
Z_Free ( filelist [ i ] ) ;
}
Z_Free ( filelist ) ;
}
//========================================================
/*
= = = = = = = = = = = = = = = =
Sys_ScanForCD
Search all the drives to see if there is a valid CD to grab
the cddir from
= = = = = = = = = = = = = = = =
*/
# ifdef FINAL_BUILD
static qboolean Sys_ScanForCD ( void ) {
char drive [ 4 ] ;
FILE * f ;
char test [ MAX_OSPATH ] ;
drive [ 0 ] = ' c ' ;
drive [ 1 ] = ' : ' ;
drive [ 2 ] = ' \\ ' ;
drive [ 3 ] = 0 ;
// scan the drives
for ( drive [ 0 ] = ' c ' ; drive [ 0 ] < = ' z ' ; drive [ 0 ] + + ) {
if ( GetDriveType ( drive ) = = DRIVE_CDROM ) {
BOOL Result ;
char VolumeName [ MAX_PATH ] , FileSystemName [ MAX_PATH ] ;
DWORD VolumeSerialNumber , MaximumComponentLength , FileSystemFlags ;
Result = GetVolumeInformation ( drive , VolumeName , sizeof ( VolumeName ) , & VolumeSerialNumber ,
& MaximumComponentLength , & FileSystemFlags , FileSystemName , sizeof ( FileSystemName ) ) ;
if ( Result & & ( strnicmp ( VolumeName , CD_VOLUME , 8 ) = = 0 ) )
{
sprintf ( test , " %s%s \\ %s " , drive , CD_BASEDIR , CD_EXE ) ;
f = fopen ( test , " r " ) ;
if ( f ) {
fclose ( f ) ;
return Result ;
}
}
}
}
return qfalse ;
}
# endif
/*
= = = = = = = = = = = = = = = =
Sys_CheckCD
Return true if the proper CD is in the drive
= = = = = = = = = = = = = = = =
*/
qboolean Sys_CheckCD ( void ) {
# ifdef FINAL_BUILD
return Sys_ScanForCD ( ) ;
# else
return qtrue ;
# endif
}
/*
= = = = = = = = = = = = = = = =
Sys_GetClipboardData
= = = = = = = = = = = = = = = =
*/
char * Sys_GetClipboardData ( void ) {
char * data = NULL ;
char * cliptext ;
if ( OpenClipboard ( NULL ) ! = 0 ) {
HANDLE hClipboardData ;
if ( ( hClipboardData = GetClipboardData ( CF_TEXT ) ) ! = 0 ) {
if ( ( cliptext = ( char * ) GlobalLock ( hClipboardData ) ) ! = 0 ) {
data = ( char * ) Z_Malloc ( GlobalSize ( hClipboardData ) + 1 , TAG_CLIPBOARD , qfalse ) ;
strcpy ( data , cliptext ) ;
GlobalUnlock ( hClipboardData ) ;
strtok ( data , " \n \r \b " ) ;
}
}
CloseClipboard ( ) ;
}
return data ;
}
/*
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
GAME DLL
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
*/
static HINSTANCE game_library ;
/*
= = = = = = = = = = = = = = = = =
Sys_UnloadGame
= = = = = = = = = = = = = = = = =
*/
void Sys_UnloadGame ( void ) {
if ( ! game_library ) {
return ;
}
if ( ! FreeLibrary ( game_library ) ) {
Com_Error ( ERR_FATAL , " FreeLibrary failed for game library " ) ;
}
game_library = NULL ;
}
/*
= = = = = = = = = = = = = = = = =
Sys_GetGameAPI
Loads the game dll
= = = = = = = = = = = = = = = = =
*/
void * Sys_GetGameAPI ( void * parms )
{
void * ( * GetGameAPI ) ( void * ) ;
char name [ MAX_OSPATH ] ;
char cwd [ MAX_OSPATH ] ;
# if defined _M_IX86
const char * gamename = " jagamex86.dll " ;
# ifdef NDEBUG
const char * debugdir = " release " ;
# elif MEM_DEBUG
const char * debugdir = " shdebug " ;
# else
const char * debugdir = " debug " ;
# endif //NDEBUG
# elif defined _M_ALPHA
const char * gamename = " jagameaxp.dll " ;
# ifdef NDEBUG
const char * debugdir = " releaseaxp " ;
# else
const char * debugdir = " debugaxp " ;
# endif //NDEBUG
# endif //_M__IX86
if ( game_library )
Com_Error ( ERR_FATAL , " Sys_GetGameAPI without Sys_UnloadingGame " ) ;
// check the current debug directory first for development purposes
_getcwd ( cwd , sizeof ( cwd ) ) ;
Com_sprintf ( name , sizeof ( name ) , " %s/%s/%s " , cwd , debugdir , gamename ) ;
game_library = LoadLibrary ( name ) ;
if ( game_library )
{
Com_DPrintf ( " LoadLibrary (%s) \n " , name ) ;
}
else
{
// check the current directory for other development purposes
Com_sprintf ( name , sizeof ( name ) , " %s/%s " , cwd , gamename ) ;
game_library = LoadLibrary ( name ) ;
if ( game_library )
{
Com_DPrintf ( " LoadLibrary (%s) \n " , name ) ;
} else {
char * buf ;
FormatMessage ( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM , NULL , GetLastError ( ) , MAKELANGID ( LANG_NEUTRAL , SUBLANG_DEFAULT ) , ( LPTSTR ) & buf , 0 , NULL ) ;
Com_Printf ( " LoadLibrary( \" %s \" ) failed \n " , name ) ;
Com_Printf ( " ...reason: '%s' \n " , buf ) ;
Com_Error ( ERR_FATAL , " Couldn't load game " ) ;
}
}
GetGameAPI = ( void * ( * ) ( void * ) ) GetProcAddress ( game_library , " GetGameAPI " ) ;
if ( ! GetGameAPI )
{
Sys_UnloadGame ( ) ;
return NULL ;
}
return GetGameAPI ( parms ) ;
}
/*
= = = = = = = = = = = = = = = = =
Sys_LoadCgame
Used to hook up a development dll
= = = = = = = = = = = = = = = = =
*/
void * Sys_LoadCgame ( int ( * * entryPoint ) ( int , . . . ) , int ( * systemcalls ) ( int , . . . ) )
{
void ( * dllEntry ) ( int ( * syscallptr ) ( int , . . . ) ) ;
dllEntry = ( void ( * ) ( int ( * ) ( int , . . . ) ) ) GetProcAddress ( game_library , " dllEntry " ) ;
* entryPoint = ( int ( * ) ( int , . . . ) ) GetProcAddress ( game_library , " vmMain " ) ;
if ( ! * entryPoint | | ! dllEntry ) {
FreeLibrary ( game_library ) ;
return NULL ;
}
dllEntry ( systemcalls ) ;
return game_library ;
}
/*
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
BACKGROUND FILE STREAMING
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
*/
# if 1
void Sys_InitStreamThread ( void ) {
}
void Sys_ShutdownStreamThread ( void ) {
}
void Sys_BeginStreamedFile ( fileHandle_t f , int readAhead ) {
}
void Sys_EndStreamedFile ( fileHandle_t f ) {
}
int Sys_StreamedRead ( void * buffer , int size , int count , fileHandle_t f ) {
return FS_Read ( buffer , size * count , f ) ;
}
void Sys_StreamSeek ( fileHandle_t f , int offset , int origin ) {
FS_Seek ( f , offset , origin ) ;
}
# else
typedef struct {
HANDLE threadHandle ;
int threadId ;
CRITICAL_SECTION crit ;
fileHandle_t file ;
byte * buffer ;
qboolean eof ;
int bufferSize ;
int streamPosition ; // next byte to be returned by Sys_StreamRead
int threadPosition ; // next byte to be read from file
} streamState_t ;
streamState_t stream ;
/*
= = = = = = = = = = = = = = =
Sys_StreamThread
A thread will be sitting in this loop forever
= = = = = = = = = = = = = = = =
*/
void Sys_StreamThread ( void ) {
int buffer ;
int count ;
int readCount ;
int bufferPoint ;
int r ;
while ( 1 ) {
Sleep ( 10 ) ;
EnterCriticalSection ( & stream . crit ) ;
// if there is any space left in the buffer, fill it up
while ( ! stream . eof ) {
count = stream . bufferSize - ( stream . threadPosition - stream . streamPosition ) ;
if ( ! count ) {
break ;
}
bufferPoint = stream . threadPosition % stream . bufferSize ;
buffer = stream . bufferSize - bufferPoint ;
readCount = buffer < count ? buffer : count ;
r = FS_Read ( stream . buffer + bufferPoint , readCount , stream . file ) ;
stream . threadPosition + = r ;
if ( r ! = readCount ) {
stream . eof = qtrue ;
break ;
}
}
LeaveCriticalSection ( & stream . crit ) ;
}
}
/*
= = = = = = = = = = = = = = =
Sys_InitStreamThread
= = = = = = = = = = = = = = = =
*/
void Sys_InitStreamThread ( void ) {
InitializeCriticalSection ( & stream . crit ) ;
// don't leave the critical section until there is a
// valid file to stream, which will cause the StreamThread
// to sleep without any overhead
EnterCriticalSection ( & stream . crit ) ;
stream . threadHandle = CreateThread (
NULL , // LPSECURITY_ATTRIBUTES lpsa,
0 , // DWORD cbStack,
( LPTHREAD_START_ROUTINE ) Sys_StreamThread , // LPTHREAD_START_ROUTINE lpStartAddr,
0 , // LPVOID lpvThreadParm,
0 , // DWORD fdwCreate,
( unsigned long * ) & stream . threadId ) ;
}
/*
= = = = = = = = = = = = = = =
Sys_ShutdownStreamThread
= = = = = = = = = = = = = = = =
*/
void Sys_ShutdownStreamThread ( void ) {
}
/*
= = = = = = = = = = = = = = =
Sys_BeginStreamedFile
= = = = = = = = = = = = = = = =
*/
void Sys_BeginStreamedFile ( fileHandle_t f , int readAhead ) {
if ( stream . file ) {
Sys_EndStreamedFile ( stream . file ) ;
}
stream . file = f ;
stream . buffer = ( unsigned char * ) Z_Malloc ( readAhead ) ;
stream . bufferSize = readAhead ;
stream . streamPosition = 0 ;
stream . threadPosition = 0 ;
stream . eof = qfalse ;
// let the thread start running
LeaveCriticalSection ( & stream . crit ) ;
}
/*
= = = = = = = = = = = = = = =
Sys_EndStreamedFile
= = = = = = = = = = = = = = = =
*/
void Sys_EndStreamedFile ( fileHandle_t f ) {
if ( f ! = stream . file ) {
Com_Error ( ERR_FATAL , " Sys_EndStreamedFile: wrong file " ) ;
}
// don't leave critical section until another stream is started
EnterCriticalSection ( & stream . crit ) ;
stream . file = 0 ;
Z_Free ( stream . buffer ) ;
}
/*
= = = = = = = = = = = = = = =
Sys_StreamedRead
= = = = = = = = = = = = = = = =
*/
int Sys_StreamedRead ( void * buffer , int size , int count , fileHandle_t f ) {
int available ;
int remaining ;
int sleepCount ;
int copy ;
int bufferCount ;
int bufferPoint ;
byte * dest ;
dest = ( byte * ) buffer ;
remaining = size * count ;
if ( remaining < = 0 ) {
Com_Error ( ERR_FATAL , " Streamed read with non-positive size " ) ;
}
sleepCount = 0 ;
while ( remaining > 0 ) {
available = stream . threadPosition - stream . streamPosition ;
if ( ! available ) {
if ( stream . eof ) {
break ;
}
if ( sleepCount = = 1 ) {
Com_DPrintf ( " Sys_StreamedRead: waiting \n " ) ;
}
if ( + + sleepCount > 100 ) {
Com_Error ( ERR_FATAL , " Sys_StreamedRead: thread has died " ) ;
}
Sleep ( 10 ) ;
continue ;
}
bufferPoint = stream . streamPosition % stream . bufferSize ;
bufferCount = stream . bufferSize - bufferPoint ;
copy = available < bufferCount ? available : bufferCount ;
if ( copy > remaining ) {
copy = remaining ;
}
memcpy ( dest , stream . buffer + bufferPoint , copy ) ;
stream . streamPosition + = copy ;
dest + = copy ;
remaining - = copy ;
}
return ( count * size - remaining ) / size ;
}
/*
= = = = = = = = = = = = = = =
Sys_StreamSeek
= = = = = = = = = = = = = = = =
*/
void Sys_StreamSeek ( fileHandle_t f , int offset , int origin ) {
// halt the thread
EnterCriticalSection ( & stream . crit ) ;
// clear to that point
FS_Seek ( f , offset , origin ) ;
stream . streamPosition = 0 ;
stream . threadPosition = 0 ;
stream . eof = qfalse ;
// let the thread start running at the new position
LeaveCriticalSection ( & stream . crit ) ;
}
# endif
/*
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
EVENT LOOP
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
*/
# define MAX_QUED_EVENTS 256
# define MASK_QUED_EVENTS ( MAX_QUED_EVENTS - 1 )
sysEvent_t eventQue [ MAX_QUED_EVENTS ] ;
int eventHead , eventTail ;
byte sys_packetReceived [ MAX_MSGLEN ] ;
/*
= = = = = = = = = = = = = = = =
Sys_QueEvent
A time of 0 will get the current time
Ptr should either be null , or point to a block of data that can
be freed by the game later .
= = = = = = = = = = = = = = = =
*/
void Sys_QueEvent ( int time , sysEventType_t type , int value , int value2 , int ptrLength , void * ptr ) {
sysEvent_t * ev ;
ev = & eventQue [ eventHead & MASK_QUED_EVENTS ] ;
if ( eventHead - eventTail > = MAX_QUED_EVENTS ) {
Com_Printf ( " Sys_QueEvent: overflow \n " ) ;
// we are discarding an event, but don't leak memory
if ( ev - > evPtr ) {
Z_Free ( ev - > evPtr ) ;
}
eventTail + + ;
}
eventHead + + ;
if ( time = = 0 ) {
time = Sys_Milliseconds ( ) ;
}
ev - > evTime = time ;
ev - > evType = type ;
ev - > evValue = value ;
ev - > evValue2 = value2 ;
ev - > evPtrLength = ptrLength ;
ev - > evPtr = ptr ;
}
/*
= = = = = = = = = = = = = = = =
Sys_GetEvent
= = = = = = = = = = = = = = = =
*/
sysEvent_t Sys_GetEvent ( void ) {
MSG msg ;
sysEvent_t ev ;
char * s ;
msg_t netmsg ;
// return if we have data
if ( eventHead > eventTail ) {
eventTail + + ;
return eventQue [ ( eventTail - 1 ) & MASK_QUED_EVENTS ] ;
}
// pump the message loop
while ( PeekMessage ( & msg , NULL , 0 , 0 , PM_NOREMOVE ) ) {
if ( ! GetMessage ( & msg , NULL , 0 , 0 ) ) {
Com_Quit_f ( ) ;
}
// save the msg time, because wndprocs don't have access to the timestamp
g_wv . sysMsgTime = msg . time ;
TranslateMessage ( & msg ) ;
DispatchMessage ( & msg ) ;
}
// check for console commands
s = Sys_ConsoleInput ( ) ;
if ( s ) {
char * b ;
int len ;
len = strlen ( s ) + 1 ;
b = ( char * ) Z_Malloc ( len , TAG_EVENT , qfalse ) ;
strcpy ( b , s ) ;
Sys_QueEvent ( 0 , SE_CONSOLE , 0 , 0 , len , b ) ;
}
// check for network packets
MSG_Init ( & netmsg , sys_packetReceived , sizeof ( sys_packetReceived ) ) ;
// return if we have data
if ( eventHead > eventTail ) {
eventTail + + ;
return eventQue [ ( eventTail - 1 ) & MASK_QUED_EVENTS ] ;
}
// create an empty event to return
memset ( & ev , 0 , sizeof ( ev ) ) ;
ev . evTime = timeGetTime ( ) ;
return ev ;
}
//================================================================
/*
= = = = = = = = = = = = = = = = =
Sys_In_Restart_f
Restart the input subsystem
= = = = = = = = = = = = = = = = =
*/
void Sys_In_Restart_f ( void ) {
IN_Shutdown ( ) ;
IN_Init ( ) ;
}
static bool Sys_IsExpired ( )
{
#if 0
// sec min Hr Day Mon Yr
struct tm t_valid_start = { 0 , 0 , 8 , 23 , 6 , 103 } ; //zero based months!
// sec min Hr Day Mon Yr
struct tm t_valid_end = { 0 , 0 , 20 , 30 , 6 , 103 } ;
// struct tm t_valid_end = t_valid_start;
// t_valid_end.tm_mday += 8;
time_t startTime = mktime ( & t_valid_start ) ;
time_t expireTime = mktime ( & t_valid_end ) ;
time_t now ;
time ( & now ) ;
if ( ( now < startTime ) | | ( now > expireTime ) )
{
return true ;
}
# endif
return false ;
}
/*
= = = = = = = = = = = = = = = =
Sys_Init
Called after the common systems ( cvars , files , etc )
are initialized
= = = = = = = = = = = = = = = =
*/
# define OSR2_BUILD_NUMBER 1111
# define WIN98_BUILD_NUMBER 1998
# if MEM_DEBUG
void SH_Register ( void ) ;
# endif
void Sys_Init ( void ) {
int cpuid ;
// make sure the timer is high precision, otherwise
// NT gets 18ms resolution
timeBeginPeriod ( 1 ) ;
Cmd_AddCommand ( " in_restart " , Sys_In_Restart_f ) ;
# if MEM_DEBUG
SH_Register ( ) ;
# endif
g_wv . osversion . dwOSVersionInfoSize = sizeof ( g_wv . osversion ) ;
if ( ! GetVersionEx ( & g_wv . osversion ) )
Sys_Error ( " Couldn't get OS info " ) ;
if ( Sys_IsExpired ( ) ) {
g_wv . osversion . dwPlatformId = VER_PLATFORM_WIN32s ; //sneaky: hide the expire with this error
}
if ( g_wv . osversion . dwMajorVersion < 4 )
Sys_Error ( " This game requires Windows version 4 or greater " ) ;
if ( g_wv . osversion . dwPlatformId = = VER_PLATFORM_WIN32s )
Sys_Error ( " This game doesn't run on Win32s " ) ;
if ( g_wv . osversion . dwPlatformId = = VER_PLATFORM_WIN32_NT )
{
Cvar_Set ( " arch " , " winnt " ) ;
}
else if ( g_wv . osversion . dwPlatformId = = VER_PLATFORM_WIN32_WINDOWS )
{
if ( LOWORD ( g_wv . osversion . dwBuildNumber ) > = WIN98_BUILD_NUMBER )
{
Cvar_Set ( " arch " , " win98 " ) ;
}
else if ( LOWORD ( g_wv . osversion . dwBuildNumber ) > = OSR2_BUILD_NUMBER )
{
Cvar_Set ( " arch " , " win95 osr2.x " ) ;
}
else
{
Cvar_Set ( " arch " , " win95 " ) ;
}
}
else
{
Cvar_Set ( " arch " , " unknown Windows variant " ) ;
}
// save out a couple things in rom cvars for the renderer to access
Cvar_Get ( " win_hinstance " , va ( " %i " , ( int ) g_wv . hInstance ) , CVAR_ROM ) ;
Cvar_Get ( " win_wndproc " , va ( " %i " , ( int ) MainWndProc ) , CVAR_ROM ) ;
//
// figure out our CPU
//
Cvar_Get ( " sys_cpustring " , " detect " , CVAR_ROM ) ;
if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " detect " ) )
{
Com_Printf ( " ...detecting CPU, found " ) ;
cpuid = Sys_GetProcessorId ( ) ;
switch ( cpuid )
{
case CPUID_GENERIC :
Cvar_Set ( " sys_cpustring " , " generic " ) ;
break ;
case CPUID_INTEL_UNSUPPORTED :
Cvar_Set ( " sys_cpustring " , " x86 (pre-Pentium) " ) ;
break ;
case CPUID_INTEL_PENTIUM :
Cvar_Set ( " sys_cpustring " , " x86 (P5/PPro, non-MMX) " ) ;
break ;
case CPUID_INTEL_MMX :
Cvar_Set ( " sys_cpustring " , " x86 (P5/Pentium2, MMX) " ) ;
break ;
case CPUID_INTEL_KATMAI :
Cvar_Set ( " sys_cpustring " , " Intel Pentium III " ) ;
break ;
case CPUID_INTEL_WILLIAMETTE :
Cvar_Set ( " sys_cpustring " , " Intel Pentium IV " ) ;
break ;
case CPUID_AMD_3DNOW :
Cvar_Set ( " sys_cpustring " , " AMD w/ 3DNow! " ) ;
break ;
case CPUID_AXP :
Cvar_Set ( " sys_cpustring " , " Alpha AXP " ) ;
break ;
default :
Com_Error ( ERR_FATAL , " Unknown cpu type %d \n " , cpuid ) ;
break ;
}
}
else
{
Com_Printf ( " ...forcing CPU type to " ) ;
if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " generic " ) )
{
cpuid = CPUID_GENERIC ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " x87 " ) )
{
cpuid = CPUID_INTEL_PENTIUM ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " mmx " ) )
{
cpuid = CPUID_INTEL_MMX ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " 3dnow " ) )
{
cpuid = CPUID_AMD_3DNOW ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " PentiumIII " ) )
{
cpuid = CPUID_INTEL_KATMAI ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " PentiumIV " ) )
{
cpuid = CPUID_INTEL_WILLIAMETTE ;
}
else if ( ! Q_stricmp ( Cvar_VariableString ( " sys_cpustring " ) , " axp " ) )
{
cpuid = CPUID_AXP ;
}
else
{
Com_Printf ( " WARNING: unknown sys_cpustring '%s' \n " , Cvar_VariableString ( " sys_cpustring " ) ) ;
cpuid = CPUID_GENERIC ;
}
}
Cvar_SetValue ( " sys_cpuid " , cpuid ) ;
Com_Printf ( " %s \n " , Cvar_VariableString ( " sys_cpustring " ) ) ;
Cvar_Set ( " username " , Sys_GetCurrentUser ( ) ) ;
IN_Init ( ) ; // FIXME: not in dedicated?
}
// do a quick mem test to check for any potential future mem problems...
//
static void QuickMemTest ( void )
{
// if (!Sys_LowPhysicalMemory())
{
const int iMemTestMegs = 128 ; // useful search label
// special test,
void * pvData = malloc ( iMemTestMegs * 1024 * 1024 ) ;
if ( pvData )
{
free ( pvData ) ;
}
else
{
// err...
//
extern qboolean Language_IsAsian ( void ) ;
LPCSTR psContinue = Language_IsAsian ( ) ?
" Your machine failed to allocate %dMB in a memory test, which may mean you'll have problems running this game all the way through. \n \n Continue anyway? "
:
SE_GetString ( " CON_TEXT_FAILED_MEMTEST " ) ;
// ( since it's too much hassle doing MBCS code pages and decodings etc for MessageBox command )
# define GetYesNo(psQuery) (!!(MessageBox(NULL,psQuery,"Query",MB_YESNO|MB_ICONWARNING|MB_TASKMODAL)==IDYES))
if ( ! GetYesNo ( va ( psContinue , iMemTestMegs ) ) )
{
LPCSTR psNoMem = Language_IsAsian ( ) ?
" Insufficient memory to run this game! \n "
:
SE_GetString ( " CON_TEXT_INSUFFICIENT_MEMORY " ) ;
// ( since it's too much hassle doing MBCS code pages and decodings etc for MessageBox command )
Com_Error ( ERR_FATAL , psNoMem ) ;
}
}
}
}
//=======================================================================
//int totalMsec, countMsec;
/*
= = = = = = = = = = = = = = = = = =
WinMain
= = = = = = = = = = = = = = = = = =
*/
int WINAPI WinMain ( HINSTANCE hInstance , HINSTANCE hPrevInstance , LPSTR lpCmdLine , int nCmdShow ) {
char cwd [ MAX_OSPATH ] ;
// int startTime, endTime;
SET_CRT_DEBUG_FIELD ( _CRTDBG_LEAK_CHECK_DF ) ;
// _CrtSetBreakAlloc(34804);
// should never get a previous instance in Win32
if ( hPrevInstance ) {
return 0 ;
}
g_wv . hInstance = hInstance ;
Q_strncpyz ( sys_cmdline , lpCmdLine , sizeof ( sys_cmdline ) ) ;
// done before Com/Sys_Init since we need this for error output
Sys_CreateConsole ( ) ;
// no abort/retry/fail errors
SetErrorMode ( SEM_FAILCRITICALERRORS ) ;
// get the initial time base
Sys_Milliseconds ( ) ;
#if 0
// if we find the CD, add a +set cddir xxx command line
Sys_ScanForCD ( ) ;
# endif
Sys_InitStreamThread ( ) ;
Com_Init ( sys_cmdline ) ;
QuickMemTest ( ) ;
_getcwd ( cwd , sizeof ( cwd ) ) ;
Com_Printf ( " Working directory: %s \n " , cwd ) ;
// hide the early console since we've reached the point where we
// have a working graphics subsystems
if ( ! com_viewlog - > integer ) {
Sys_ShowConsole ( 0 , qfalse ) ;
}
// main game loop
while ( 1 ) {
// if not running as a game client, sleep a bit
if ( g_wv . isMinimized ) {
Sleep ( 5 ) ;
}
# ifdef _DEBUG
if ( ! g_wv . activeApp )
{
Sleep ( 50 ) ;
}
# endif // _DEBUG
// set low precision every frame, because some system calls
// reset it arbitrarily
// _controlfp( _PC_24, _MCW_PC );
// startTime = Sys_Milliseconds();
// make sure mouse and joystick are only called once a frame
IN_Frame ( ) ;
// run the game
Com_Frame ( ) ;
// endTime = Sys_Milliseconds();
// totalMsec += endTime - startTime;
// countMsec++;
}
// never gets here
}
