123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255 |
- /*
- ===========================================================================
- Doom 3 BFG Edition GPL Source Code
- Copyright (C) 1993-2012 id Software LLC, a ZeniMax Media company.
- This file is part of the Doom 3 BFG Edition GPL Source Code ("Doom 3 BFG Edition Source Code").
- Doom 3 BFG Edition 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.
- Doom 3 BFG Edition 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 Doom 3 BFG Edition Source Code. If not, see <http://www.gnu.org/licenses/>.
- In addition, the Doom 3 BFG Edition 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 Doom 3 BFG Edition 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.
- ===========================================================================
- */
- #include "../idlib/precompiled.h"
- #pragma hdrstop
- void idTokenParser::LoadFromParser( idParser &parser, const char *guiName ) {
- idToken tok;
- idTokenIndexes tokIdxs;
- tokIdxs.SetName( guiName );
- while ( parser.ReadToken( &tok ) ) {
- tokIdxs.Append( tokens.AddUnique( idBinaryToken( tok ) ) );
- }
- guiTokenIndexes.Append( tokIdxs );
- currentToken = 0;
- }
- void idTokenParser::LoadFromFile( const char *filename ) {
- Clear();
- idFile *inFile = fileSystem->OpenFileReadMemory( filename );
- if ( inFile != NULL ) {
- int num;
- inFile->ReadBig( num );
- guiTokenIndexes.SetNum( num );
- for ( int i = 0; i < num; i++ ) {
- guiTokenIndexes[ i ].Read( inFile );
- }
- inFile->ReadBig( num );
- tokens.SetNum( num );
- for ( int i = 0; i < num; i++ ) {
- tokens[ i ].Read( inFile );
- }
- }
- delete inFile;
- preloaded = ( tokens.Num() > 0 );
- }
- void idTokenParser::WriteToFile ( const char *filename ) {
- if ( preloaded ) {
- return;
- }
- idFile *outFile = fileSystem->OpenFileWrite( filename, "fs_basepath" );
- if ( outFile != NULL ) {
- outFile->WriteBig( ( int )guiTokenIndexes.Num() );
- for ( int i = 0; i < guiTokenIndexes.Num(); i++ ) {
- guiTokenIndexes[ i ].Write( outFile );
- }
- outFile->WriteBig( ( int )tokens.Num() );
- for ( int i = 0; i < tokens.Num(); i++ ) {
- tokens[ i ].Write( outFile );
- }
- }
- delete outFile;
- }
- bool idTokenParser::StartParsing( const char * filename ) {
- currentTokenList = -1;
- for ( int i = 0; i < guiTokenIndexes.Num(); i++ ) {
- if ( idStr::Icmp( filename, guiTokenIndexes[ i ].GetName() ) == 0 ) {
- currentTokenList = i;
- break;
- }
- }
- currentToken = 0;
- return ( currentTokenList != -1 );
- }
- bool idTokenParser::ReadToken( idToken * tok ) {
- if ( currentToken >= 0 && currentToken < guiTokenIndexes[ currentTokenList ].Num() ) {
- tok->Clear();
- idBinaryToken &btok = tokens[ guiTokenIndexes[ currentTokenList ][ currentToken ] ];
- *tok = btok.token;
- tok->type = btok.tokenType;
- tok->subtype = btok.tokenSubType;
- currentToken++;
- return true;
- }
- return false;
- }
- int idTokenParser::ExpectTokenString( const char *string ) {
- idToken token;
- if ( !ReadToken( &token ) ) {
- Error( "couldn't find expected '%s'", string );
- return 0;
- }
- if ( token != string ) {
- Error( "expected '%s' but found '%s'", string, token.c_str() );
- return 0;
- }
- return 1;
- }
- // expect a certain token type
- int idTokenParser::ExpectTokenType( int type, int subtype, idToken *token ) {
- idStr str;
- if ( !ReadToken( token ) ) {
- Error( "couldn't read expected token" );
- return 0;
- }
- if ( token->type != type ) {
- switch( type ) {
- case TT_STRING: str = "string"; break;
- case TT_LITERAL: str = "literal"; break;
- case TT_NUMBER: str = "number"; break;
- case TT_NAME: str = "name"; break;
- case TT_PUNCTUATION: str = "punctuation"; break;
- default: str = "unknown type"; break;
- }
- Error( "expected a %s but found '%s'", str.c_str(), token->c_str() );
- return 0;
- }
- if ( token->type == TT_NUMBER ) {
- if ( (token->subtype & subtype) != subtype ) {
- str.Clear();
- if ( subtype & TT_DECIMAL ) str = "decimal ";
- if ( subtype & TT_HEX ) str = "hex ";
- if ( subtype & TT_OCTAL ) str = "octal ";
- if ( subtype & TT_BINARY ) str = "binary ";
- if ( subtype & TT_UNSIGNED ) str += "unsigned ";
- if ( subtype & TT_LONG ) str += "long ";
- if ( subtype & TT_FLOAT ) str += "float ";
- if ( subtype & TT_INTEGER ) str += "integer ";
- str.StripTrailing( ' ' );
- Error( "expected %s but found '%s'", str.c_str(), token->c_str() );
- return 0;
- }
- }
- else if ( token->type == TT_PUNCTUATION ) {
- if ( subtype < 0 ) {
- Error( "BUG: wrong punctuation subtype" );
- return 0;
- }
- if ( token->subtype != subtype ) {
- //Error( "expected '%s' but found '%s'", idLexer::GetPunctuationFromId( subtype ), token->c_str() );
- return 0;
- }
- }
- return 1;
- }
- // expect a token
- int idTokenParser::ExpectAnyToken( idToken *token ) {
- if (!ReadToken( token )) {
- Error( "couldn't read expected token" );
- return 0;
- }
- return 1;
- }
- void idTokenParser::UnreadToken( const idToken *token ) {
- if ( currentToken == 0 || currentToken >= guiTokenIndexes[ currentTokenList ].Num() ) {
- idLib::common->FatalError( "idTokenParser::unreadToken, unread token twice\n" );
- }
- currentToken--;
- }
- void idTokenParser::Error( VERIFY_FORMAT_STRING const char *str, ... ) {
- char text[MAX_STRING_CHARS];
- va_list ap;
- va_start(ap, str);
- vsprintf(text, str, ap);
- va_end(ap);
- idLib::common->Warning( text );
- }
- void idTokenParser::Warning( VERIFY_FORMAT_STRING const char *str, ... ) {
- char text[MAX_STRING_CHARS];
- va_list ap;
- va_start(ap, str);
- vsprintf(text, str, ap);
- va_end(ap);
- idLib::common->Warning( text );
- }
- int idTokenParser::ParseInt() {
- idToken token;
- if ( !ReadToken( &token ) ) {
- Error( "couldn't read expected integer" );
- return 0;
- }
- if ( token.type == TT_PUNCTUATION && token == "-" ) {
- ExpectTokenType( TT_NUMBER, TT_INTEGER, &token );
- return -((signed int) token.GetIntValue());
- }
- else if ( token.type != TT_NUMBER || token.subtype == TT_FLOAT ) {
- Error( "expected integer value, found '%s'", token.c_str() );
- }
- return token.GetIntValue();
- }
- // read a boolean
- bool idTokenParser::ParseBool() {
- idToken token;
- if ( !ExpectTokenType( TT_NUMBER, 0, &token ) ) {
- Error( "couldn't read expected boolean" );
- return false;
- }
- return ( token.GetIntValue() != 0 );
- }
- // read a floating point number. If errorFlag is NULL, a non-numeric token will
- // issue an Error(). If it isn't NULL, it will issue a Warning() and set *errorFlag = true
- float idTokenParser::ParseFloat( bool *errorFlag ) {
- idToken token;
- if ( errorFlag ) {
- *errorFlag = false;
- }
- if ( !ReadToken( &token ) ) {
- if ( errorFlag ) {
- Warning( "couldn't read expected floating point number" );
- *errorFlag = true;
- } else {
- Error( "couldn't read expected floating point number" );
- }
- return 0;
- }
- if ( token.type == TT_PUNCTUATION && token == "-" ) {
- ExpectTokenType( TT_NUMBER, 0, &token );
- return -token.GetFloatValue();
- }
- else if ( token.type != TT_NUMBER ) {
- if ( errorFlag ) {
- Warning( "expected float value, found '%s'", token.c_str() );
- *errorFlag = true;
- } else {
- Error( "expected float value, found '%s'", token.c_str() );
- }
- }
- return token.GetFloatValue();
- }
|