2 Copyright (C) 1999-2007 id Software, Inc. and contributors.
3 For a list of contributors, see the accompanying CONTRIBUTORS file.
5 This file is part of GtkRadiant.
7 GtkRadiant is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 GtkRadiant is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GtkRadiant; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
22 // Nurail: Swiped from quake3/common
25 #include "globaldefs.h"
29 #include <sys/types.h>
35 #else // !GDEF_OS_WINDOWS
37 #endif // !GDEF_OS_WINDOWS
43 #define BASEDIRNAME "quake" // assumed to have a 2 or 3 following
44 #define HERETIC2_BASEDIRNAME "h"
45 #define PATHSEPERATOR '/'
47 // qboolean verbose = false;
49 void *safe_malloc( size_t size ){
54 Error( "safe_malloc failed on allocation of %i bytes", size );
61 void *safe_malloc_info( size_t size, char* info ){
66 Error( "%s: safe_malloc failed on allocation of %i bytes", info, size );
73 // set these before calling CheckParm
81 char archivedir[1024];
88 Mimic unix command line expansion
91 #define MAX_EX_ARGC 1024
93 char *ex_argv[MAX_EX_ARGC];
96 void ExpandWildcards( int *argc, char ***argv ){
97 struct _finddata_t fileinfo;
105 for ( i = 0 ; i < *argc ; i++ )
109 || ( !strstr( path, "*" ) && !strstr( path, "?" ) ) ) {
110 ex_argv[ex_argc++] = path;
114 handle = _findfirst( path, &fileinfo );
115 if ( handle == -1 ) {
119 ExtractFilePath( path, filebase );
123 sprintf( filename, "%s%s", filebase, fileinfo.name );
124 ex_argv[ex_argc++] = copystring( filename );
125 } while ( _findnext( handle, &fileinfo ) != -1 );
127 _findclose( handle );
134 void ExpandWildcards( int *argc, char ***argv ){
140 qdir will hold the path up to the quake directory, including the slash
145 gamedir will hold qdir + the game directory (id1, id2, etc)
153 void SetQdirFromPath( const char *path ){
158 char basedirname[256];
160 if ( !( path[0] == '/' || path[0] == '\\' || path[1] == ':' ) ) { // path is partial
162 strcat( temp, path );
166 // search for "quake2" in path
168 if ( !strcmp( game, "heretic2" ) ) {
169 strncpy( basedirname, HERETIC2_BASEDIRNAME, 256 );
172 strncpy( basedirname, BASEDIRNAME, 256 );
175 len = strlen( basedirname );
176 for ( c = path + strlen( path ) - 1 ; c != path ; c-- )
180 if ( !Q_strncasecmp( c, basedirname, len ) ) {
182 //strncpy (qdir, path, c+len+2-path);
183 // the +2 assumes a 2 or 3 following quake which is not the
184 // case with a retail install
185 // so we need to add up how much to the next separator
188 while ( *sep && *sep != '/' && *sep != '\\' )
193 strncpy( qdir, path, c + len + count - path );
194 Sys_FPrintf( SYS_VRB, "qdir: %s\n", qdir );
195 for ( i = 0; i < strlen( qdir ); i++ )
197 if ( qdir[i] == '\\' ) {
205 if ( *c == '/' || *c == '\\' ) {
206 strncpy( gamedir, path, c + 1 - path );
208 for ( i = 0; i < strlen( gamedir ); i++ )
210 if ( gamedir[i] == '\\' ) {
215 Sys_FPrintf( SYS_VRB, "gamedir: %s\n", gamedir );
217 if ( !writedir[0] ) {
218 strcpy( writedir, gamedir );
220 else if ( writedir[strlen( writedir ) - 1] != '/' ) {
221 writedir[strlen( writedir )] = '/';
222 writedir[strlen( writedir ) + 1] = 0;
229 Error( "No gamedir in %s", path );
233 Error( "SetQdirFromPath: no '%s' in %s", basedirname, path );
236 char *ExpandArg( const char *path ){
237 static char full[1024];
239 if ( path[0] != '/' && path[0] != '\\' && path[1] != ':' ) {
241 strcat( full, path );
244 strcpy( full, path );
249 char *ExpandPath( const char *path ){
250 static char full[1024];
252 Error( "ExpandPath called without qdir set" );
254 if ( path[0] == '/' || path[0] == '\\' || path[1] == ':' ) {
255 strcpy( full, path );
258 sprintf( full, "%s%s", qdir, path );
262 char *ExpandGamePath( const char *path ){
263 static char full[1024];
265 Error( "ExpandGamePath called without qdir set" );
267 if ( path[0] == '/' || path[0] == '\\' || path[1] == ':' ) {
268 strcpy( full, path );
271 sprintf( full, "%s%s", gamedir, path );
275 char *ExpandPathAndArchive( const char *path ){
277 char archivename[1024];
279 expanded = ExpandPath( path );
282 sprintf( archivename, "%s/%s", archivedir, path );
283 QCopyFile( expanded, archivename );
289 char *copystring( const char *s ){
291 b = safe_malloc( strlen( s ) + 1 );
303 double I_FloatTime( void ){
310 // more precise, less portable
315 gettimeofday( &tp, &tzp );
319 return tp.tv_usec / 1000000.0;
322 return ( tp.tv_sec - secbase ) + tp.tv_usec / 1000000.0;
326 void Q_getwd( char *out ){
333 // Gef: Changed from getwd() to getcwd() to avoid potential buffer overflow
337 while ( out[i] != 0 )
339 if ( out[i] == '\\' ) {
347 void Q_mkdir( const char *path ){
349 if ( _mkdir( path ) != -1 ) {
353 if ( mkdir( path, 0777 ) != -1 ) {
357 if ( errno != EEXIST ) {
358 Error( "mkdir %s: %s",path, strerror( errno ) );
366 returns -1 if not present
369 int FileTime( const char *path ){
372 if ( stat( path,&buf ) == -1 ) {
385 Parse a token out of a string
388 char *COM_Parse( char *data ){
401 while ( ( c = *data ) <= ' ' )
405 return NULL; // end of file;
411 if ( c == '/' && data[1] == '/' ) {
412 while ( *data && *data != '\n' )
418 // handle quoted strings specially
433 // parse single characters
434 if ( c == '{' || c == '}' || c == ')' || c == '(' || c == '\'' || c == ':' ) {
441 // parse a regular word
448 if ( c == '{' || c == '}' || c == ')' || c == '(' || c == '\'' || c == ':' ) {
457 int Q_strncasecmp( const char *s1, const char *s2, int n ){
466 return 0; // strings are equal until end point
470 if ( c1 >= 'a' && c1 <= 'z' ) {
473 if ( c2 >= 'a' && c2 <= 'z' ) {
477 return -1; // strings not equal
482 return 0; // strings are equal
485 int Q_stricmp( const char *s1, const char *s2 ){
486 return Q_strncasecmp( s1, s2, 99999 );
489 int Q_strcasecmp( const char *s1, const char *s2 ){
490 return Q_strncasecmp( s1, s2, 99999 );
494 char *strupr (char *start)
507 char *strlower( char *start ){
512 *in = tolower( *in );
520 =============================================================================
524 =============================================================================
532 Checks for the given parameter in the program's command line arguments
533 Returns the argument number (1 to argc-1) or 0 if not present
536 int CheckParm( const char *check ){
539 for ( i = 1; i < myargc; i++ )
541 if ( !Q_stricmp( check, myargv[i] ) ) {
556 int Q_filelength( FILE *f ){
561 fseek( f, 0, SEEK_END );
563 fseek( f, pos, SEEK_SET );
569 FILE *SafeOpenWrite( const char *filename ){
572 f = fopen( filename, "wb" );
575 Error( "Error opening %s: %s",filename,strerror( errno ) );
581 FILE *SafeOpenRead( const char *filename ){
584 f = fopen( filename, "rb" );
587 Error( "Error opening %s: %s",filename,strerror( errno ) );
594 void SafeRead( FILE *f, void *buffer, int count ){
595 if ( fread( buffer, 1, count, f ) != (size_t)count ) {
596 Error( "File read failure" );
601 void SafeWrite( FILE *f, const void *buffer, int count ){
602 if ( fwrite( buffer, 1, count, f ) != (size_t)count ) {
603 Error( "File write failure" );
613 qboolean FileExists( const char *filename ){
616 f = fopen( filename, "r" );
629 int LoadFile( const char *filename, void **bufferptr ){
634 f = SafeOpenRead( filename );
635 length = Q_filelength( f );
636 buffer = safe_malloc( length + 1 );
637 ( (char *)buffer )[length] = 0;
638 SafeRead( f, buffer, length );
650 rounds up memory allocation to 4K boundry
654 int LoadFileBlock( const char *filename, void **bufferptr ){
656 int length, nBlock, nAllocSize;
659 f = SafeOpenRead( filename );
660 length = Q_filelength( f );
662 nBlock = nAllocSize % MEM_BLOCKSIZE;
664 nAllocSize += MEM_BLOCKSIZE - nBlock;
666 buffer = safe_malloc( nAllocSize + 1 );
667 memset( buffer, 0, nAllocSize + 1 );
668 SafeRead( f, buffer, length );
683 int TryLoadFile( const char *filename, void **bufferptr ){
690 f = fopen( filename, "rb" );
694 length = Q_filelength( f );
695 buffer = safe_malloc( length + 1 );
696 ( (char *)buffer )[length] = 0;
697 SafeRead( f, buffer, length );
710 void SaveFile( const char *filename, const void *buffer, int count ){
713 f = SafeOpenWrite( filename );
714 SafeWrite( f, buffer, count );
720 void DefaultExtension( char *path, const char *extension ){
723 // if path doesnt have a .EXT, append extension
724 // (extension should include the .)
726 src = path + strlen( path ) - 1;
728 while ( *src != '/' && *src != '\\' && src != path )
731 return; // it has an extension
736 strcat( path, extension );
740 void DefaultPath( char *path, const char *basepath ){
743 if ( path[ 0 ] == '/' || path[ 0 ] == '\\' ) {
744 return; // absolute path location
747 strcpy( path,basepath );
752 void StripFilename( char *path ){
755 length = strlen( path ) - 1;
756 while ( length > 0 && path[length] != '/' && path[ length ] != '\\' )
761 void StripExtension( char *path ){
764 length = strlen( path ) - 1;
765 while ( length > 0 && path[length] != '.' )
768 if ( path[length] == '/' || path[ length ] == '\\' ) {
769 return; // no extension
783 // FIXME: should include the slash, otherwise
784 // backing to an empty path will be wrong when appending a slash
785 void ExtractFilePath( const char *path, char *dest ){
788 src = path + strlen( path ) - 1;
791 // back up until a \ or the start
793 while ( src != path && *( src - 1 ) != '\\' && *( src - 1 ) != '/' )
796 memcpy( dest, path, src - path );
797 dest[src - path] = 0;
800 void ExtractFileBase( const char *path, char *dest ){
803 src = path + strlen( path ) - 1;
806 // back up until a \ or the start
808 while ( src != path && *( src - 1 ) != '/' && *( src - 1 ) != '\\' )
811 while ( *src && *src != '.' )
818 void ExtractFileExtension( const char *path, char *dest ){
821 src = path + strlen( path ) - 1;
824 // back up until a . or the start
826 while ( src != path && *( src - 1 ) != '.' )
829 *dest = 0; // no extension
842 int ParseHex( const char *hex ){
852 if ( *str >= '0' && *str <= '9' ) {
855 else if ( *str >= 'a' && *str <= 'f' ) {
856 num += 10 + *str - 'a';
858 else if ( *str >= 'A' && *str <= 'F' ) {
859 num += 10 + *str - 'A';
862 Error( "Bad hex number: %s",hex );
871 int ParseNum( const char *str ){
872 if ( str[0] == '$' ) {
873 return ParseHex( str + 1 );
875 if ( str[0] == '0' && str[1] == 'x' ) {
876 return ParseHex( str + 2 );
881 // all output ends up through here
882 void FPrintf (int flag, char *buf)
888 void Sys_FPrintf (int flag, const char *format, ...)
890 char out_buffer[4096];
893 if ((flag == SYS_VRB) && (verbose == false))
896 va_start (argptr, format);
897 vsprintf (out_buffer, format, argptr);
900 FPrintf (flag, out_buffer);
903 void Sys_Printf (const char *format, ...)
905 char out_buffer[4096];
908 va_start (argptr, format);
909 vsprintf (out_buffer, format, argptr);
912 FPrintf (SYS_STD, out_buffer);
919 //For abnormal program terminations
922 void Error( const char *error, ...)
924 char out_buffer[4096];
928 va_start (argptr,error);
929 vsprintf (tmp, error, argptr);
932 sprintf( out_buffer, "************ ERROR ************\n%s\n", tmp );
934 FPrintf( SYS_ERR, out_buffer );
942 ============================================================================
946 ============================================================================
949 #if GDEF_ARCH_ENDIAN_BIG
951 short LittleShort( short l ){
955 b2 = ( l >> 8 ) & 255;
957 return ( b1 << 8 ) + b2;
960 short BigShort( short l ){
965 int LittleLong( int l ){
969 b2 = ( l >> 8 ) & 255;
970 b3 = ( l >> 16 ) & 255;
971 b4 = ( l >> 24 ) & 255;
973 return ( (int)b1 << 24 ) + ( (int)b2 << 16 ) + ( (int)b3 << 8 ) + b4;
976 int BigLong( int l ){
981 float LittleFloat( float l ){
982 union {byte b[4]; float f; } in, out;
993 float BigFloat( float l ){
1001 short BigShort( short l ){
1005 b2 = ( l >> 8 ) & 255;
1007 return ( b1 << 8 ) + b2;
1010 short LittleShort( short l ){
1015 int BigLong( int l ){
1019 b2 = ( l >> 8 ) & 255;
1020 b3 = ( l >> 16 ) & 255;
1021 b4 = ( l >> 24 ) & 255;
1023 return ( (int)b1 << 24 ) + ( (int)b2 << 16 ) + ( (int)b3 << 8 ) + b4;
1026 int LittleLong( int l ){
1030 float BigFloat( float l ){
1031 union {byte b[4]; float f; } in, out;
1042 float LittleFloat( float l ){
1050 //=======================================================
1053 // FIXME: byte swap?
1055 // this is a 16 bit, non-reflected CRC using the polynomial 0x1021
1056 // and the initial and final xor values shown below... in other words, the
1057 // CCITT standard CRC used by XMODEM
1059 #define CRC_INIT_VALUE 0xffff
1060 #define CRC_XOR_VALUE 0x0000
1062 static unsigned short crctable[256] =
1064 0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7,
1065 0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef,
1066 0x1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6,
1067 0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de,
1068 0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485,
1069 0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d,
1070 0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4,
1071 0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc,
1072 0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823,
1073 0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b,
1074 0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12,
1075 0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a,
1076 0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41,
1077 0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49,
1078 0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70,
1079 0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78,
1080 0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f,
1081 0x1080, 0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067,
1082 0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f, 0xf35e,
1083 0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256,
1084 0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e, 0xe54f, 0xd52c, 0xc50d,
1085 0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405,
1086 0xa7db, 0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c,
1087 0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634,
1088 0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab,
1089 0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3,
1090 0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a,
1091 0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92,
1092 0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9,
1093 0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1,
1094 0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8,
1095 0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0
1098 void CRC_Init( unsigned short *crcvalue ){
1099 *crcvalue = CRC_INIT_VALUE;
1102 void CRC_ProcessByte( unsigned short *crcvalue, byte data ){
1103 *crcvalue = ( *crcvalue << 8 ) ^ crctable[( *crcvalue >> 8 ) ^ data];
1106 unsigned short CRC_Value( unsigned short crcvalue ){
1107 return crcvalue ^ CRC_XOR_VALUE;
1109 //=============================================================================
1116 void CreatePath( const char *path ){
1124 if ( path[1] == ':' ) {
1125 olddrive = _getdrive();
1126 _chdrive( toupper( path[0] ) - 'A' + 1 );
1130 if ( path[1] == ':' ) {
1134 for ( ofs = path + 1 ; *ofs ; ofs++ )
1137 if ( c == '/' || c == '\\' ) { // create the directory
1138 memcpy( dir, path, ofs - path );
1139 dir[ ofs - path ] = 0;
1145 if ( olddrive != -1 ) {
1146 _chdrive( olddrive );
1156 Used to archive source files
1159 void QCopyFile( const char *from, const char *to ){
1163 length = LoadFile( from, &buffer );
1165 SaveFile( to, buffer, length );
1169 void Sys_Sleep( int n ){
1172 #else // !GDEF_OS_WINDOWS
1174 #endif // !GDEF_OS_WINDOWS