mirror of
https://github.com/dhewm/dhewm3-sdk.git
synced 2024-11-30 08:21:07 +00:00
afebd7e1e5
Don't include the lazy precompiled.h everywhere, only what's required for the compilation unit. platform.h needs to be included instead to provide all essential defines and types. All includes use the relative path to the neo or the game specific root. Move all idlib related includes from idlib/Lib.h to precompiled.h. precompiled.h still exists for the MFC stuff in tools/. Add some missing header guards.
1835 lines
45 KiB
C++
1835 lines
45 KiB
C++
/*
|
|
===========================================================================
|
|
|
|
Doom 3 GPL Source Code
|
|
Copyright (C) 1999-2011 id Software LLC, a ZeniMax Media company.
|
|
|
|
This file is part of the Doom 3 GPL Source Code ("Doom 3 Source Code").
|
|
|
|
Doom 3 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 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 Source Code. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
In addition, the Doom 3 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 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 "sys/platform.h"
|
|
#include "gamesys/SysCvar.h"
|
|
#include "script/Script_Compiler.h"
|
|
#include "script/Script_Thread.h"
|
|
|
|
#include "script/Script_Interpreter.h"
|
|
|
|
/*
|
|
================
|
|
idInterpreter::idInterpreter()
|
|
================
|
|
*/
|
|
idInterpreter::idInterpreter() {
|
|
localstackUsed = 0;
|
|
terminateOnExit = true;
|
|
debug = 0;
|
|
memset( localstack, 0, sizeof( localstack ) );
|
|
memset( callStack, 0, sizeof( callStack ) );
|
|
Reset();
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::Save
|
|
================
|
|
*/
|
|
void idInterpreter::Save( idSaveGame *savefile ) const {
|
|
int i;
|
|
|
|
savefile->WriteInt( callStackDepth );
|
|
for( i = 0; i < callStackDepth; i++ ) {
|
|
savefile->WriteInt( callStack[i].s );
|
|
if ( callStack[i].f ) {
|
|
savefile->WriteInt( gameLocal.program.GetFunctionIndex( callStack[i].f ) );
|
|
} else {
|
|
savefile->WriteInt( -1 );
|
|
}
|
|
savefile->WriteInt( callStack[i].stackbase );
|
|
}
|
|
savefile->WriteInt( maxStackDepth );
|
|
|
|
savefile->WriteInt( localstackUsed );
|
|
savefile->Write( &localstack, localstackUsed );
|
|
|
|
savefile->WriteInt( localstackBase );
|
|
savefile->WriteInt( maxLocalstackUsed );
|
|
|
|
if ( currentFunction ) {
|
|
savefile->WriteInt( gameLocal.program.GetFunctionIndex( currentFunction ) );
|
|
} else {
|
|
savefile->WriteInt( -1 );
|
|
}
|
|
savefile->WriteInt( instructionPointer );
|
|
|
|
savefile->WriteInt( popParms );
|
|
|
|
if ( multiFrameEvent ) {
|
|
savefile->WriteString( multiFrameEvent->GetName() );
|
|
} else {
|
|
savefile->WriteString( "" );
|
|
}
|
|
savefile->WriteObject( eventEntity );
|
|
|
|
savefile->WriteObject( thread );
|
|
|
|
savefile->WriteBool( doneProcessing );
|
|
savefile->WriteBool( threadDying );
|
|
savefile->WriteBool( terminateOnExit );
|
|
savefile->WriteBool( debug );
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::Restore
|
|
================
|
|
*/
|
|
void idInterpreter::Restore( idRestoreGame *savefile ) {
|
|
int i;
|
|
idStr funcname;
|
|
int func_index;
|
|
|
|
savefile->ReadInt( callStackDepth );
|
|
for( i = 0; i < callStackDepth; i++ ) {
|
|
savefile->ReadInt( callStack[i].s );
|
|
|
|
savefile->ReadInt( func_index );
|
|
if ( func_index >= 0 ) {
|
|
callStack[i].f = gameLocal.program.GetFunction( func_index );
|
|
} else {
|
|
callStack[i].f = NULL;
|
|
}
|
|
|
|
savefile->ReadInt( callStack[i].stackbase );
|
|
}
|
|
savefile->ReadInt( maxStackDepth );
|
|
|
|
savefile->ReadInt( localstackUsed );
|
|
savefile->Read( &localstack, localstackUsed );
|
|
|
|
savefile->ReadInt( localstackBase );
|
|
savefile->ReadInt( maxLocalstackUsed );
|
|
|
|
savefile->ReadInt( func_index );
|
|
if ( func_index >= 0 ) {
|
|
currentFunction = gameLocal.program.GetFunction( func_index );
|
|
} else {
|
|
currentFunction = NULL;
|
|
}
|
|
savefile->ReadInt( instructionPointer );
|
|
|
|
savefile->ReadInt( popParms );
|
|
|
|
savefile->ReadString( funcname );
|
|
if ( funcname.Length() ) {
|
|
multiFrameEvent = idEventDef::FindEvent( funcname );
|
|
}
|
|
|
|
savefile->ReadObject( reinterpret_cast<idClass *&>( eventEntity ) );
|
|
savefile->ReadObject( reinterpret_cast<idClass *&>( thread ) );
|
|
|
|
savefile->ReadBool( doneProcessing );
|
|
savefile->ReadBool( threadDying );
|
|
savefile->ReadBool( terminateOnExit );
|
|
savefile->ReadBool( debug );
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::Reset
|
|
================
|
|
*/
|
|
void idInterpreter::Reset( void ) {
|
|
callStackDepth = 0;
|
|
localstackUsed = 0;
|
|
localstackBase = 0;
|
|
|
|
maxLocalstackUsed = 0;
|
|
maxStackDepth = 0;
|
|
|
|
popParms = 0;
|
|
multiFrameEvent = NULL;
|
|
eventEntity = NULL;
|
|
|
|
currentFunction = 0;
|
|
NextInstruction( 0 );
|
|
|
|
threadDying = false;
|
|
doneProcessing = true;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::GetRegisterValue
|
|
|
|
Returns a string representation of the value of the register. This is
|
|
used primarily for the debugger and debugging
|
|
|
|
//FIXME: This is pretty much wrong. won't access data in most situations.
|
|
================
|
|
*/
|
|
bool idInterpreter::GetRegisterValue( const char *name, idStr &out, int scopeDepth ) {
|
|
varEval_t reg;
|
|
idVarDef *d;
|
|
char funcObject[ 1024 ];
|
|
char *funcName;
|
|
const idVarDef *scope;
|
|
const idTypeDef *field;
|
|
const idScriptObject *obj;
|
|
const function_t *func;
|
|
|
|
out.Empty();
|
|
|
|
if ( scopeDepth == -1 ) {
|
|
scopeDepth = callStackDepth;
|
|
}
|
|
|
|
if ( scopeDepth == callStackDepth ) {
|
|
func = currentFunction;
|
|
} else {
|
|
func = callStack[ scopeDepth ].f;
|
|
}
|
|
if ( !func ) {
|
|
return false;
|
|
}
|
|
|
|
idStr::Copynz( funcObject, func->Name(), sizeof( funcObject ) );
|
|
funcName = strstr( funcObject, "::" );
|
|
if ( funcName ) {
|
|
*funcName = '\0';
|
|
scope = gameLocal.program.GetDef( NULL, funcObject, &def_namespace );
|
|
funcName += 2;
|
|
} else {
|
|
funcName = funcObject;
|
|
scope = &def_namespace;
|
|
}
|
|
|
|
// Get the function from the object
|
|
d = gameLocal.program.GetDef( NULL, funcName, scope );
|
|
if ( !d ) {
|
|
return false;
|
|
}
|
|
|
|
// Get the variable itself and check various namespaces
|
|
d = gameLocal.program.GetDef( NULL, name, d );
|
|
if ( !d ) {
|
|
if ( scope == &def_namespace ) {
|
|
return false;
|
|
}
|
|
|
|
d = gameLocal.program.GetDef( NULL, name, scope );
|
|
if ( !d ) {
|
|
d = gameLocal.program.GetDef( NULL, name, &def_namespace );
|
|
if ( !d ) {
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
reg = GetVariable( d );
|
|
switch( d->Type() ) {
|
|
case ev_float:
|
|
if ( reg.floatPtr ) {
|
|
out = va("%g", *reg.floatPtr );
|
|
} else {
|
|
out = "0";
|
|
}
|
|
return true;
|
|
break;
|
|
|
|
case ev_vector:
|
|
if ( reg.vectorPtr ) {
|
|
out = va( "%g,%g,%g", reg.vectorPtr->x, reg.vectorPtr->y, reg.vectorPtr->z );
|
|
} else {
|
|
out = "0,0,0";
|
|
}
|
|
return true;
|
|
break;
|
|
|
|
case ev_boolean:
|
|
if ( reg.intPtr ) {
|
|
out = va( "%d", *reg.intPtr );
|
|
} else {
|
|
out = "0";
|
|
}
|
|
return true;
|
|
break;
|
|
|
|
case ev_field:
|
|
if ( scope == &def_namespace ) {
|
|
// should never happen, but handle it safely anyway
|
|
return false;
|
|
}
|
|
|
|
field = scope->TypeDef()->GetParmType( reg.ptrOffset )->FieldType();
|
|
obj = *reinterpret_cast<const idScriptObject **>( &localstack[ callStack[ callStackDepth ].stackbase ] );
|
|
if ( !field || !obj ) {
|
|
return false;
|
|
}
|
|
|
|
switch ( field->Type() ) {
|
|
case ev_boolean:
|
|
out = va( "%d", *( reinterpret_cast<int *>( &obj->data[ reg.ptrOffset ] ) ) );
|
|
return true;
|
|
|
|
case ev_float:
|
|
out = va( "%g", *( reinterpret_cast<float *>( &obj->data[ reg.ptrOffset ] ) ) );
|
|
return true;
|
|
|
|
default:
|
|
return false;
|
|
}
|
|
break;
|
|
|
|
case ev_string:
|
|
if ( reg.stringPtr ) {
|
|
out = "\"";
|
|
out += reg.stringPtr;
|
|
out += "\"";
|
|
} else {
|
|
out = "\"\"";
|
|
}
|
|
return true;
|
|
|
|
default:
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::GetCallstackDepth
|
|
================
|
|
*/
|
|
int idInterpreter::GetCallstackDepth( void ) const {
|
|
return callStackDepth;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::GetCallstack
|
|
================
|
|
*/
|
|
const prstack_t *idInterpreter::GetCallstack( void ) const {
|
|
return &callStack[ 0 ];
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::GetCurrentFunction
|
|
================
|
|
*/
|
|
const function_t *idInterpreter::GetCurrentFunction( void ) const {
|
|
return currentFunction;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::GetThread
|
|
================
|
|
*/
|
|
idThread *idInterpreter::GetThread( void ) const {
|
|
return thread;
|
|
}
|
|
|
|
|
|
/*
|
|
================
|
|
idInterpreter::SetThread
|
|
================
|
|
*/
|
|
void idInterpreter::SetThread( idThread *pThread ) {
|
|
thread = pThread;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::CurrentLine
|
|
================
|
|
*/
|
|
int idInterpreter::CurrentLine( void ) const {
|
|
if ( instructionPointer < 0 ) {
|
|
return 0;
|
|
}
|
|
return gameLocal.program.GetLineNumberForStatement( instructionPointer );
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::CurrentFile
|
|
================
|
|
*/
|
|
const char *idInterpreter::CurrentFile( void ) const {
|
|
if ( instructionPointer < 0 ) {
|
|
return "";
|
|
}
|
|
return gameLocal.program.GetFilenameForStatement( instructionPointer );
|
|
}
|
|
|
|
/*
|
|
============
|
|
idInterpreter::StackTrace
|
|
============
|
|
*/
|
|
void idInterpreter::StackTrace( void ) const {
|
|
const function_t *f;
|
|
int i;
|
|
int top;
|
|
|
|
if ( callStackDepth == 0 ) {
|
|
gameLocal.Printf( "<NO STACK>\n" );
|
|
return;
|
|
}
|
|
|
|
top = callStackDepth;
|
|
if ( top >= MAX_STACK_DEPTH ) {
|
|
top = MAX_STACK_DEPTH - 1;
|
|
}
|
|
|
|
if ( !currentFunction ) {
|
|
gameLocal.Printf( "<NO FUNCTION>\n" );
|
|
} else {
|
|
gameLocal.Printf( "%12s : %s\n", gameLocal.program.GetFilename( currentFunction->filenum ), currentFunction->Name() );
|
|
}
|
|
|
|
for( i = top; i >= 0; i-- ) {
|
|
f = callStack[ i ].f;
|
|
if ( !f ) {
|
|
gameLocal.Printf( "<NO FUNCTION>\n" );
|
|
} else {
|
|
gameLocal.Printf( "%12s : %s\n", gameLocal.program.GetFilename( f->filenum ), f->Name() );
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
============
|
|
idInterpreter::Error
|
|
|
|
Aborts the currently executing function
|
|
============
|
|
*/
|
|
void idInterpreter::Error( const char *fmt, ... ) const {
|
|
va_list argptr;
|
|
char text[ 1024 ];
|
|
|
|
va_start( argptr, fmt );
|
|
vsprintf( text, fmt, argptr );
|
|
va_end( argptr );
|
|
|
|
StackTrace();
|
|
|
|
if ( ( instructionPointer >= 0 ) && ( instructionPointer < gameLocal.program.NumStatements() ) ) {
|
|
statement_t &line = gameLocal.program.GetStatement( instructionPointer );
|
|
common->Error( "%s(%d): Thread '%s': %s\n", gameLocal.program.GetFilename( line.file ), line.linenumber, thread->GetThreadName(), text );
|
|
} else {
|
|
common->Error( "Thread '%s': %s\n", thread->GetThreadName(), text );
|
|
}
|
|
}
|
|
|
|
/*
|
|
============
|
|
idInterpreter::Warning
|
|
|
|
Prints file and line number information with warning.
|
|
============
|
|
*/
|
|
void idInterpreter::Warning( const char *fmt, ... ) const {
|
|
va_list argptr;
|
|
char text[ 1024 ];
|
|
|
|
va_start( argptr, fmt );
|
|
vsprintf( text, fmt, argptr );
|
|
va_end( argptr );
|
|
|
|
if ( ( instructionPointer >= 0 ) && ( instructionPointer < gameLocal.program.NumStatements() ) ) {
|
|
statement_t &line = gameLocal.program.GetStatement( instructionPointer );
|
|
common->Warning( "%s(%d): Thread '%s': %s", gameLocal.program.GetFilename( line.file ), line.linenumber, thread->GetThreadName(), text );
|
|
} else {
|
|
common->Warning( "Thread '%s' : %s", thread->GetThreadName(), text );
|
|
}
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::DisplayInfo
|
|
================
|
|
*/
|
|
void idInterpreter::DisplayInfo( void ) const {
|
|
const function_t *f;
|
|
int i;
|
|
|
|
gameLocal.Printf( " Stack depth: %d bytes, %d max\n", localstackUsed, maxLocalstackUsed );
|
|
gameLocal.Printf( " Call depth: %d, %d max\n", callStackDepth, maxStackDepth );
|
|
gameLocal.Printf( " Call Stack: " );
|
|
|
|
if ( callStackDepth == 0 ) {
|
|
gameLocal.Printf( "<NO STACK>\n" );
|
|
} else {
|
|
if ( !currentFunction ) {
|
|
gameLocal.Printf( "<NO FUNCTION>\n" );
|
|
} else {
|
|
gameLocal.Printf( "%12s : %s\n", gameLocal.program.GetFilename( currentFunction->filenum ), currentFunction->Name() );
|
|
}
|
|
|
|
for( i = callStackDepth; i > 0; i-- ) {
|
|
gameLocal.Printf( " " );
|
|
f = callStack[ i ].f;
|
|
if ( !f ) {
|
|
gameLocal.Printf( "<NO FUNCTION>\n" );
|
|
} else {
|
|
gameLocal.Printf( "%12s : %s\n", gameLocal.program.GetFilename( f->filenum ), f->Name() );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
====================
|
|
idInterpreter::ThreadCall
|
|
|
|
Copys the args from the calling thread's stack
|
|
====================
|
|
*/
|
|
void idInterpreter::ThreadCall( idInterpreter *source, const function_t *func, int args ) {
|
|
Reset();
|
|
|
|
memcpy( localstack, &source->localstack[ source->localstackUsed - args ], args );
|
|
|
|
localstackUsed = args;
|
|
localstackBase = 0;
|
|
|
|
maxLocalstackUsed = localstackUsed;
|
|
EnterFunction( func, false );
|
|
|
|
thread->SetThreadName( currentFunction->Name() );
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::EnterObjectFunction
|
|
|
|
Calls a function on a script object.
|
|
|
|
NOTE: If this is called from within a event called by this interpreter, the function arguments will be invalid after calling this function.
|
|
================
|
|
*/
|
|
void idInterpreter::EnterObjectFunction( idEntity *self, const function_t *func, bool clearStack ) {
|
|
if ( clearStack ) {
|
|
Reset();
|
|
}
|
|
if ( popParms ) {
|
|
PopParms( popParms );
|
|
popParms = 0;
|
|
}
|
|
Push( self->entityNumber + 1 );
|
|
EnterFunction( func, false );
|
|
}
|
|
|
|
/*
|
|
====================
|
|
idInterpreter::EnterFunction
|
|
|
|
Returns the new program statement counter
|
|
|
|
NOTE: If this is called from within a event called by this interpreter, the function arguments will be invalid after calling this function.
|
|
====================
|
|
*/
|
|
void idInterpreter::EnterFunction( const function_t *func, bool clearStack ) {
|
|
int c;
|
|
prstack_t *stack;
|
|
|
|
if ( clearStack ) {
|
|
Reset();
|
|
}
|
|
if ( popParms ) {
|
|
PopParms( popParms );
|
|
popParms = 0;
|
|
}
|
|
|
|
if ( callStackDepth >= MAX_STACK_DEPTH ) {
|
|
Error( "call stack overflow" );
|
|
}
|
|
|
|
stack = &callStack[ callStackDepth ];
|
|
|
|
stack->s = instructionPointer + 1; // point to the next instruction to execute
|
|
stack->f = currentFunction;
|
|
stack->stackbase = localstackBase;
|
|
|
|
callStackDepth++;
|
|
if ( callStackDepth > maxStackDepth ) {
|
|
maxStackDepth = callStackDepth;
|
|
}
|
|
|
|
if ( !func ) {
|
|
Error( "NULL function" );
|
|
}
|
|
|
|
if ( debug ) {
|
|
if ( currentFunction ) {
|
|
gameLocal.Printf( "%d: call '%s' from '%s'(line %d)%s\n", gameLocal.time, func->Name(), currentFunction->Name(),
|
|
gameLocal.program.GetStatement( instructionPointer ).linenumber, clearStack ? " clear stack" : "" );
|
|
} else {
|
|
gameLocal.Printf( "%d: call '%s'%s\n", gameLocal.time, func->Name(), clearStack ? " clear stack" : "" );
|
|
}
|
|
}
|
|
|
|
currentFunction = func;
|
|
assert( !func->eventdef );
|
|
NextInstruction( func->firstStatement );
|
|
|
|
// allocate space on the stack for locals
|
|
// parms are already on stack
|
|
c = func->locals - func->parmTotal;
|
|
assert( c >= 0 );
|
|
|
|
if ( localstackUsed + c > LOCALSTACK_SIZE ) {
|
|
Error( "EnterFuncton: locals stack overflow\n" );
|
|
}
|
|
|
|
// initialize local stack variables to zero
|
|
memset( &localstack[ localstackUsed ], 0, c );
|
|
|
|
localstackUsed += c;
|
|
localstackBase = localstackUsed - func->locals;
|
|
|
|
if ( localstackUsed > maxLocalstackUsed ) {
|
|
maxLocalstackUsed = localstackUsed ;
|
|
}
|
|
}
|
|
|
|
/*
|
|
====================
|
|
idInterpreter::LeaveFunction
|
|
====================
|
|
*/
|
|
void idInterpreter::LeaveFunction( idVarDef *returnDef ) {
|
|
prstack_t *stack;
|
|
varEval_t ret;
|
|
|
|
if ( callStackDepth <= 0 ) {
|
|
Error( "prog stack underflow" );
|
|
}
|
|
|
|
// return value
|
|
if ( returnDef ) {
|
|
switch( returnDef->Type() ) {
|
|
case ev_string :
|
|
gameLocal.program.ReturnString( GetString( returnDef ) );
|
|
break;
|
|
|
|
case ev_vector :
|
|
ret = GetVariable( returnDef );
|
|
gameLocal.program.ReturnVector( *ret.vectorPtr );
|
|
break;
|
|
|
|
default :
|
|
ret = GetVariable( returnDef );
|
|
gameLocal.program.ReturnInteger( *ret.intPtr );
|
|
}
|
|
}
|
|
|
|
// remove locals from the stack
|
|
PopParms( currentFunction->locals );
|
|
assert( localstackUsed == localstackBase );
|
|
|
|
if ( debug ) {
|
|
statement_t &line = gameLocal.program.GetStatement( instructionPointer );
|
|
gameLocal.Printf( "%d: %s(%d): exit %s", gameLocal.time, gameLocal.program.GetFilename( line.file ), line.linenumber, currentFunction->Name() );
|
|
if ( callStackDepth > 1 ) {
|
|
gameLocal.Printf( " return to %s(line %d)\n", callStack[ callStackDepth - 1 ].f->Name(), gameLocal.program.GetStatement( callStack[ callStackDepth - 1 ].s ).linenumber );
|
|
} else {
|
|
gameLocal.Printf( " done\n" );
|
|
}
|
|
}
|
|
|
|
// up stack
|
|
callStackDepth--;
|
|
stack = &callStack[ callStackDepth ];
|
|
currentFunction = stack->f;
|
|
localstackBase = stack->stackbase;
|
|
NextInstruction( stack->s );
|
|
|
|
if ( !callStackDepth ) {
|
|
// all done
|
|
doneProcessing = true;
|
|
threadDying = true;
|
|
currentFunction = 0;
|
|
}
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::CallEvent
|
|
================
|
|
*/
|
|
void idInterpreter::CallEvent( const function_t *func, int argsize ) {
|
|
int i;
|
|
int j;
|
|
varEval_t var;
|
|
int pos;
|
|
int start;
|
|
intptr_t data[ D_EVENT_MAXARGS ];
|
|
const idEventDef *evdef;
|
|
const char *format;
|
|
|
|
if ( !func ) {
|
|
Error( "NULL function" );
|
|
}
|
|
|
|
assert( func->eventdef );
|
|
evdef = func->eventdef;
|
|
|
|
start = localstackUsed - argsize;
|
|
var.intPtr = ( int * )&localstack[ start ];
|
|
eventEntity = GetEntity( *var.entityNumberPtr );
|
|
|
|
if ( !eventEntity || !eventEntity->RespondsTo( *evdef ) ) {
|
|
if ( eventEntity && developer.GetBool() ) {
|
|
// give a warning in developer mode
|
|
Warning( "Function '%s' not supported on entity '%s'", evdef->GetName(), eventEntity->name.c_str() );
|
|
}
|
|
// always return a safe value when an object doesn't exist
|
|
switch( evdef->GetReturnType() ) {
|
|
case D_EVENT_INTEGER :
|
|
gameLocal.program.ReturnInteger( 0 );
|
|
break;
|
|
|
|
case D_EVENT_FLOAT :
|
|
gameLocal.program.ReturnFloat( 0 );
|
|
break;
|
|
|
|
case D_EVENT_VECTOR :
|
|
gameLocal.program.ReturnVector( vec3_zero );
|
|
break;
|
|
|
|
case D_EVENT_STRING :
|
|
gameLocal.program.ReturnString( "" );
|
|
break;
|
|
|
|
case D_EVENT_ENTITY :
|
|
case D_EVENT_ENTITY_NULL :
|
|
gameLocal.program.ReturnEntity( ( idEntity * )NULL );
|
|
break;
|
|
|
|
case D_EVENT_TRACE :
|
|
default:
|
|
// unsupported data type
|
|
break;
|
|
}
|
|
|
|
PopParms( argsize );
|
|
eventEntity = NULL;
|
|
return;
|
|
}
|
|
|
|
format = evdef->GetArgFormat();
|
|
for( j = 0, i = 0, pos = type_object.Size(); ( pos < argsize ) || ( format[ i ] != 0 ); i++ ) {
|
|
switch( format[ i ] ) {
|
|
case D_EVENT_INTEGER :
|
|
var.intPtr = ( int * )&localstack[ start + pos ];
|
|
( *( int * )&data[ i ] ) = int( *var.floatPtr );
|
|
break;
|
|
|
|
case D_EVENT_FLOAT :
|
|
var.intPtr = ( int * )&localstack[ start + pos ];
|
|
( *( float * )&data[ i ] ) = *var.floatPtr;
|
|
break;
|
|
|
|
case D_EVENT_VECTOR :
|
|
var.intPtr = ( int * )&localstack[ start + pos ];
|
|
( *( idVec3 ** )&data[ i ] ) = var.vectorPtr;
|
|
break;
|
|
|
|
case D_EVENT_STRING :
|
|
( *( const char ** )&data[ i ] ) = ( char * )&localstack[ start + pos ];
|
|
break;
|
|
|
|
case D_EVENT_ENTITY :
|
|
var.intPtr = ( int * )&localstack[ start + pos ];
|
|
( *( idEntity ** )&data[ i ] ) = GetEntity( *var.entityNumberPtr );
|
|
if ( !( *( idEntity ** )&data[ i ] ) ) {
|
|
Warning( "Entity not found for event '%s'. Terminating thread.", evdef->GetName() );
|
|
threadDying = true;
|
|
PopParms( argsize );
|
|
return;
|
|
}
|
|
break;
|
|
|
|
case D_EVENT_ENTITY_NULL :
|
|
var.intPtr = ( int * )&localstack[ start + pos ];
|
|
( *( idEntity ** )&data[ i ] ) = GetEntity( *var.entityNumberPtr );
|
|
break;
|
|
|
|
case D_EVENT_TRACE :
|
|
Error( "trace type not supported from script for '%s' event.", evdef->GetName() );
|
|
break;
|
|
|
|
default :
|
|
Error( "Invalid arg format string for '%s' event.", evdef->GetName() );
|
|
break;
|
|
}
|
|
|
|
pos += func->parmSize[ j++ ];
|
|
}
|
|
|
|
popParms = argsize;
|
|
eventEntity->ProcessEventArgPtr( evdef, data );
|
|
|
|
if ( !multiFrameEvent ) {
|
|
if ( popParms ) {
|
|
PopParms( popParms );
|
|
}
|
|
eventEntity = NULL;
|
|
} else {
|
|
doneProcessing = true;
|
|
}
|
|
popParms = 0;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::BeginMultiFrameEvent
|
|
================
|
|
*/
|
|
bool idInterpreter::BeginMultiFrameEvent( idEntity *ent, const idEventDef *event ) {
|
|
if ( eventEntity != ent ) {
|
|
Error( "idInterpreter::BeginMultiFrameEvent called with wrong entity" );
|
|
}
|
|
if ( multiFrameEvent ) {
|
|
if ( multiFrameEvent != event ) {
|
|
Error( "idInterpreter::BeginMultiFrameEvent called with wrong event" );
|
|
}
|
|
return false;
|
|
}
|
|
|
|
multiFrameEvent = event;
|
|
return true;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::EndMultiFrameEvent
|
|
================
|
|
*/
|
|
void idInterpreter::EndMultiFrameEvent( idEntity *ent, const idEventDef *event ) {
|
|
if ( multiFrameEvent != event ) {
|
|
Error( "idInterpreter::EndMultiFrameEvent called with wrong event" );
|
|
}
|
|
|
|
multiFrameEvent = NULL;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::MultiFrameEventInProgress
|
|
================
|
|
*/
|
|
bool idInterpreter::MultiFrameEventInProgress( void ) const {
|
|
return multiFrameEvent != NULL;
|
|
}
|
|
|
|
/*
|
|
================
|
|
idInterpreter::CallSysEvent
|
|
================
|
|
*/
|
|
void idInterpreter::CallSysEvent( const function_t *func, int argsize ) {
|
|
int i;
|
|
int j;
|
|
varEval_t source;
|
|
int pos;
|
|
int start;
|
|
intptr_t data[ D_EVENT_MAXARGS ];
|
|
const idEventDef *evdef;
|
|
const char *format;
|
|
|
|
if ( !func ) {
|
|
Error( "NULL function" );
|
|
}
|
|
|
|
assert( func->eventdef );
|
|
evdef = func->eventdef;
|
|
|
|
start = localstackUsed - argsize;
|
|
|
|
format = evdef->GetArgFormat();
|
|
for( j = 0, i = 0, pos = 0; ( pos < argsize ) || ( format[ i ] != 0 ); i++ ) {
|
|
switch( format[ i ] ) {
|
|
case D_EVENT_INTEGER :
|
|
source.intPtr = ( int * )&localstack[ start + pos ];
|
|
*( int * )&data[ i ] = int( *source.floatPtr );
|
|
break;
|
|
|
|
case D_EVENT_FLOAT :
|
|
source.intPtr = ( int * )&localstack[ start + pos ];
|
|
*( float * )&data[ i ] = *source.floatPtr;
|
|
break;
|
|
|
|
case D_EVENT_VECTOR :
|
|
source.intPtr = ( int * )&localstack[ start + pos ];
|
|
*( idVec3 ** )&data[ i ] = source.vectorPtr;
|
|
break;
|
|
|
|
case D_EVENT_STRING :
|
|
*( const char ** )&data[ i ] = ( char * )&localstack[ start + pos ];
|
|
break;
|
|
|
|
case D_EVENT_ENTITY :
|
|
source.intPtr = ( int * )&localstack[ start + pos ];
|
|
*( idEntity ** )&data[ i ] = GetEntity( *source.entityNumberPtr );
|
|
if ( !*( idEntity ** )&data[ i ] ) {
|
|
Warning( "Entity not found for event '%s'. Terminating thread.", evdef->GetName() );
|
|
threadDying = true;
|
|
PopParms( argsize );
|
|
return;
|
|
}
|
|
break;
|
|
|
|
case D_EVENT_ENTITY_NULL :
|
|
source.intPtr = ( int * )&localstack[ start + pos ];
|
|
*( idEntity ** )&data[ i ] = GetEntity( *source.entityNumberPtr );
|
|
break;
|
|
|
|
case D_EVENT_TRACE :
|
|
Error( "trace type not supported from script for '%s' event.", evdef->GetName() );
|
|
break;
|
|
|
|
default :
|
|
Error( "Invalid arg format string for '%s' event.", evdef->GetName() );
|
|
break;
|
|
}
|
|
|
|
pos += func->parmSize[ j++ ];
|
|
}
|
|
|
|
popParms = argsize;
|
|
thread->ProcessEventArgPtr( evdef, data );
|
|
if ( popParms ) {
|
|
PopParms( popParms );
|
|
}
|
|
popParms = 0;
|
|
}
|
|
|
|
/*
|
|
====================
|
|
idInterpreter::Execute
|
|
====================
|
|
*/
|
|
bool idInterpreter::Execute( void ) {
|
|
varEval_t var_a;
|
|
varEval_t var_b;
|
|
varEval_t var_c;
|
|
varEval_t var;
|
|
statement_t *st;
|
|
int runaway;
|
|
idThread *newThread;
|
|
float floatVal;
|
|
idScriptObject *obj;
|
|
const function_t *func;
|
|
|
|
if ( threadDying || !currentFunction ) {
|
|
return true;
|
|
}
|
|
|
|
if ( multiFrameEvent ) {
|
|
// move to previous instruction and call it again
|
|
instructionPointer--;
|
|
}
|
|
|
|
runaway = 5000000;
|
|
|
|
doneProcessing = false;
|
|
while( !doneProcessing && !threadDying ) {
|
|
instructionPointer++;
|
|
|
|
if ( !--runaway ) {
|
|
Error( "runaway loop error" );
|
|
}
|
|
|
|
// next statement
|
|
st = &gameLocal.program.GetStatement( instructionPointer );
|
|
|
|
switch( st->op ) {
|
|
case OP_RETURN:
|
|
LeaveFunction( st->a );
|
|
break;
|
|
|
|
case OP_THREAD:
|
|
newThread = new idThread( this, st->a->value.functionPtr, st->b->value.argSize );
|
|
newThread->Start();
|
|
|
|
// return the thread number to the script
|
|
gameLocal.program.ReturnFloat( newThread->GetThreadNum() );
|
|
PopParms( st->b->value.argSize );
|
|
break;
|
|
|
|
case OP_OBJTHREAD:
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
func = obj->GetTypeDef()->GetFunction( st->b->value.virtualFunction );
|
|
assert( st->c->value.argSize == func->parmTotal );
|
|
newThread = new idThread( this, GetEntity( *var_a.entityNumberPtr ), func, func->parmTotal );
|
|
newThread->Start();
|
|
|
|
// return the thread number to the script
|
|
gameLocal.program.ReturnFloat( newThread->GetThreadNum() );
|
|
} else {
|
|
// return a null thread to the script
|
|
gameLocal.program.ReturnFloat( 0.0f );
|
|
}
|
|
PopParms( st->c->value.argSize );
|
|
break;
|
|
|
|
case OP_CALL:
|
|
EnterFunction( st->a->value.functionPtr, false );
|
|
break;
|
|
|
|
case OP_EVENTCALL:
|
|
CallEvent( st->a->value.functionPtr, st->b->value.argSize );
|
|
break;
|
|
|
|
case OP_OBJECTCALL:
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
func = obj->GetTypeDef()->GetFunction( st->b->value.virtualFunction );
|
|
EnterFunction( func, false );
|
|
} else {
|
|
// return a 'safe' value
|
|
gameLocal.program.ReturnVector( vec3_zero );
|
|
gameLocal.program.ReturnString( "" );
|
|
PopParms( st->c->value.argSize );
|
|
}
|
|
break;
|
|
|
|
case OP_SYSCALL:
|
|
CallSysEvent( st->a->value.functionPtr, st->b->value.argSize );
|
|
break;
|
|
|
|
case OP_IFNOT:
|
|
var_a = GetVariable( st->a );
|
|
if ( *var_a.intPtr == 0 ) {
|
|
NextInstruction( instructionPointer + st->b->value.jumpOffset );
|
|
}
|
|
break;
|
|
|
|
case OP_IF:
|
|
var_a = GetVariable( st->a );
|
|
if ( *var_a.intPtr != 0 ) {
|
|
NextInstruction( instructionPointer + st->b->value.jumpOffset );
|
|
}
|
|
break;
|
|
|
|
case OP_GOTO:
|
|
NextInstruction( instructionPointer + st->a->value.jumpOffset );
|
|
break;
|
|
|
|
case OP_ADD_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = *var_a.floatPtr + *var_b.floatPtr;
|
|
break;
|
|
|
|
case OP_ADD_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.vectorPtr = *var_a.vectorPtr + *var_b.vectorPtr;
|
|
break;
|
|
|
|
case OP_ADD_S:
|
|
SetString( st->c, GetString( st->a ) );
|
|
AppendString( st->c, GetString( st->b ) );
|
|
break;
|
|
|
|
case OP_ADD_FS:
|
|
var_a = GetVariable( st->a );
|
|
SetString( st->c, FloatToString( *var_a.floatPtr ) );
|
|
AppendString( st->c, GetString( st->b ) );
|
|
break;
|
|
|
|
case OP_ADD_SF:
|
|
var_b = GetVariable( st->b );
|
|
SetString( st->c, GetString( st->a ) );
|
|
AppendString( st->c, FloatToString( *var_b.floatPtr ) );
|
|
break;
|
|
|
|
case OP_ADD_VS:
|
|
var_a = GetVariable( st->a );
|
|
SetString( st->c, var_a.vectorPtr->ToString() );
|
|
AppendString( st->c, GetString( st->b ) );
|
|
break;
|
|
|
|
case OP_ADD_SV:
|
|
var_b = GetVariable( st->b );
|
|
SetString( st->c, GetString( st->a ) );
|
|
AppendString( st->c, var_b.vectorPtr->ToString() );
|
|
break;
|
|
|
|
case OP_SUB_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = *var_a.floatPtr - *var_b.floatPtr;
|
|
break;
|
|
|
|
case OP_SUB_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.vectorPtr = *var_a.vectorPtr - *var_b.vectorPtr;
|
|
break;
|
|
|
|
case OP_MUL_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = *var_a.floatPtr * *var_b.floatPtr;
|
|
break;
|
|
|
|
case OP_MUL_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = *var_a.vectorPtr * *var_b.vectorPtr;
|
|
break;
|
|
|
|
case OP_MUL_FV:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.vectorPtr = *var_a.floatPtr * *var_b.vectorPtr;
|
|
break;
|
|
|
|
case OP_MUL_VF:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.vectorPtr = *var_a.vectorPtr * *var_b.floatPtr;
|
|
break;
|
|
|
|
case OP_DIV_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
|
|
if ( *var_b.floatPtr == 0.0f ) {
|
|
Warning( "Divide by zero" );
|
|
*var_c.floatPtr = idMath::INFINITY;
|
|
} else {
|
|
*var_c.floatPtr = *var_a.floatPtr / *var_b.floatPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_MOD_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable ( st->c );
|
|
|
|
if ( *var_b.floatPtr == 0.0f ) {
|
|
Warning( "Divide by zero" );
|
|
*var_c.floatPtr = *var_a.floatPtr;
|
|
} else {
|
|
*var_c.floatPtr = static_cast<int>( *var_a.floatPtr ) % static_cast<int>( *var_b.floatPtr );
|
|
}
|
|
break;
|
|
|
|
case OP_BITAND:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = static_cast<int>( *var_a.floatPtr ) & static_cast<int>( *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_BITOR:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = static_cast<int>( *var_a.floatPtr ) | static_cast<int>( *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_GE:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr >= *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_LE:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr <= *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_GT:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr > *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_LT:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr < *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_AND:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr != 0.0f ) && ( *var_b.floatPtr != 0.0f );
|
|
break;
|
|
|
|
case OP_AND_BOOLF:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.intPtr != 0 ) && ( *var_b.floatPtr != 0.0f );
|
|
break;
|
|
|
|
case OP_AND_FBOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr != 0.0f ) && ( *var_b.intPtr != 0 );
|
|
break;
|
|
|
|
case OP_AND_BOOLBOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.intPtr != 0 ) && ( *var_b.intPtr != 0 );
|
|
break;
|
|
|
|
case OP_OR:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr != 0.0f ) || ( *var_b.floatPtr != 0.0f );
|
|
break;
|
|
|
|
case OP_OR_BOOLF:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.intPtr != 0 ) || ( *var_b.floatPtr != 0.0f );
|
|
break;
|
|
|
|
case OP_OR_FBOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr != 0.0f ) || ( *var_b.intPtr != 0 );
|
|
break;
|
|
|
|
case OP_OR_BOOLBOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.intPtr != 0 ) || ( *var_b.intPtr != 0 );
|
|
break;
|
|
|
|
case OP_NOT_BOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.intPtr == 0 );
|
|
break;
|
|
|
|
case OP_NOT_F:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr == 0.0f );
|
|
break;
|
|
|
|
case OP_NOT_V:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.vectorPtr == vec3_zero );
|
|
break;
|
|
|
|
case OP_NOT_S:
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( strlen( GetString( st->a ) ) == 0 );
|
|
break;
|
|
|
|
case OP_NOT_ENT:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( GetEntity( *var_a.entityNumberPtr ) == NULL );
|
|
break;
|
|
|
|
case OP_NEG_F:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = -*var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_NEG_V:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.vectorPtr = -*var_a.vectorPtr;
|
|
break;
|
|
|
|
case OP_INT_F:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = static_cast<int>( *var_a.floatPtr );
|
|
break;
|
|
|
|
case OP_EQ_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr == *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_EQ_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.vectorPtr == *var_b.vectorPtr );
|
|
break;
|
|
|
|
case OP_EQ_S:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( idStr::Cmp( GetString( st->a ), GetString( st->b ) ) == 0 );
|
|
break;
|
|
|
|
case OP_EQ_E:
|
|
case OP_EQ_EO:
|
|
case OP_EQ_OE:
|
|
case OP_EQ_OO:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.entityNumberPtr == *var_b.entityNumberPtr );
|
|
break;
|
|
|
|
case OP_NE_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.floatPtr != *var_b.floatPtr );
|
|
break;
|
|
|
|
case OP_NE_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.vectorPtr != *var_b.vectorPtr );
|
|
break;
|
|
|
|
case OP_NE_S:
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( idStr::Cmp( GetString( st->a ), GetString( st->b ) ) != 0 );
|
|
break;
|
|
|
|
case OP_NE_E:
|
|
case OP_NE_EO:
|
|
case OP_NE_OE:
|
|
case OP_NE_OO:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ( *var_a.entityNumberPtr != *var_b.entityNumberPtr );
|
|
break;
|
|
|
|
case OP_UADD_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr += *var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_UADD_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.vectorPtr += *var_a.vectorPtr;
|
|
break;
|
|
|
|
case OP_USUB_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr -= *var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_USUB_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.vectorPtr -= *var_a.vectorPtr;
|
|
break;
|
|
|
|
case OP_UMUL_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr *= *var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_UMUL_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.vectorPtr *= *var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_UDIV_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
|
|
if ( *var_a.floatPtr == 0.0f ) {
|
|
Warning( "Divide by zero" );
|
|
*var_b.floatPtr = idMath::INFINITY;
|
|
} else {
|
|
*var_b.floatPtr = *var_b.floatPtr / *var_a.floatPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_UDIV_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
|
|
if ( *var_a.floatPtr == 0.0f ) {
|
|
Warning( "Divide by zero" );
|
|
var_b.vectorPtr->Set( idMath::INFINITY, idMath::INFINITY, idMath::INFINITY );
|
|
} else {
|
|
*var_b.vectorPtr = *var_b.vectorPtr / *var_a.floatPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_UMOD_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
|
|
if ( *var_a.floatPtr == 0.0f ) {
|
|
Warning( "Divide by zero" );
|
|
*var_b.floatPtr = *var_a.floatPtr;
|
|
} else {
|
|
*var_b.floatPtr = static_cast<int>( *var_b.floatPtr ) % static_cast<int>( *var_a.floatPtr );
|
|
}
|
|
break;
|
|
|
|
case OP_UOR_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr = static_cast<int>( *var_b.floatPtr ) | static_cast<int>( *var_a.floatPtr );
|
|
break;
|
|
|
|
case OP_UAND_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr = static_cast<int>( *var_b.floatPtr ) & static_cast<int>( *var_a.floatPtr );
|
|
break;
|
|
|
|
case OP_UINC_F:
|
|
var_a = GetVariable( st->a );
|
|
( *var_a.floatPtr )++;
|
|
break;
|
|
|
|
case OP_UINCP_F:
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
( *var.floatPtr )++;
|
|
}
|
|
break;
|
|
|
|
case OP_UDEC_F:
|
|
var_a = GetVariable( st->a );
|
|
( *var_a.floatPtr )--;
|
|
break;
|
|
|
|
case OP_UDECP_F:
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
( *var.floatPtr )--;
|
|
}
|
|
break;
|
|
|
|
case OP_COMP_F:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
*var_c.floatPtr = ~static_cast<int>( *var_a.floatPtr );
|
|
break;
|
|
|
|
case OP_STORE_F:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr = *var_a.floatPtr;
|
|
break;
|
|
|
|
case OP_STORE_ENT:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.entityNumberPtr = *var_a.entityNumberPtr;
|
|
break;
|
|
|
|
case OP_STORE_BOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.intPtr = *var_a.intPtr;
|
|
break;
|
|
|
|
case OP_STORE_OBJENT:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( !obj ) {
|
|
*var_b.entityNumberPtr = 0;
|
|
} else if ( !obj->GetTypeDef()->Inherits( st->b->TypeDef() ) ) {
|
|
//Warning( "object '%s' cannot be converted to '%s'", obj->GetTypeName(), st->b->TypeDef()->Name() );
|
|
*var_b.entityNumberPtr = 0;
|
|
} else {
|
|
*var_b.entityNumberPtr = *var_a.entityNumberPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STORE_OBJ:
|
|
case OP_STORE_ENTOBJ:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.entityNumberPtr = *var_a.entityNumberPtr;
|
|
break;
|
|
|
|
case OP_STORE_S:
|
|
SetString( st->b, GetString( st->a ) );
|
|
break;
|
|
|
|
case OP_STORE_V:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.vectorPtr = *var_a.vectorPtr;
|
|
break;
|
|
|
|
case OP_STORE_FTOS:
|
|
var_a = GetVariable( st->a );
|
|
SetString( st->b, FloatToString( *var_a.floatPtr ) );
|
|
break;
|
|
|
|
case OP_STORE_BTOS:
|
|
var_a = GetVariable( st->a );
|
|
SetString( st->b, *var_a.intPtr ? "true" : "false" );
|
|
break;
|
|
|
|
case OP_STORE_VTOS:
|
|
var_a = GetVariable( st->a );
|
|
SetString( st->b, var_a.vectorPtr->ToString() );
|
|
break;
|
|
|
|
case OP_STORE_FTOBOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
if ( *var_a.floatPtr != 0.0f ) {
|
|
*var_b.intPtr = 1;
|
|
} else {
|
|
*var_b.intPtr = 0;
|
|
}
|
|
break;
|
|
|
|
case OP_STORE_BOOLTOF:
|
|
var_a = GetVariable( st->a );
|
|
var_b = GetVariable( st->b );
|
|
*var_b.floatPtr = static_cast<float>( *var_a.intPtr );
|
|
break;
|
|
|
|
case OP_STOREP_F:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->floatPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->floatPtr = *var_a.floatPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_ENT:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->entityNumberPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->entityNumberPtr = *var_a.entityNumberPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_FLD:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->intPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->intPtr = *var_a.intPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_BOOL:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->intPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->intPtr = *var_a.intPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_S:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->stringPtr ) {
|
|
idStr::Copynz( var_b.evalPtr->stringPtr, GetString( st->a ), MAX_STRING_LEN );
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_V:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->vectorPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->vectorPtr = *var_a.vectorPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_FTOS:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->stringPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
idStr::Copynz( var_b.evalPtr->stringPtr, FloatToString( *var_a.floatPtr ), MAX_STRING_LEN );
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_BTOS:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->stringPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
if ( *var_a.floatPtr != 0.0f ) {
|
|
idStr::Copynz( var_b.evalPtr->stringPtr, "true", MAX_STRING_LEN );
|
|
} else {
|
|
idStr::Copynz( var_b.evalPtr->stringPtr, "false", MAX_STRING_LEN );
|
|
}
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_VTOS:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->stringPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
idStr::Copynz( var_b.evalPtr->stringPtr, var_a.vectorPtr->ToString(), MAX_STRING_LEN );
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_FTOBOOL:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->intPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
if ( *var_a.floatPtr != 0.0f ) {
|
|
*var_b.evalPtr->intPtr = 1;
|
|
} else {
|
|
*var_b.evalPtr->intPtr = 0;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_BOOLTOF:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->floatPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->floatPtr = static_cast<float>( *var_a.intPtr );
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_OBJ:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->entityNumberPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
*var_b.evalPtr->entityNumberPtr = *var_a.entityNumberPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_STOREP_OBJENT:
|
|
var_b = GetVariable( st->b );
|
|
if ( var_b.evalPtr && var_b.evalPtr->entityNumberPtr ) {
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( !obj ) {
|
|
*var_b.evalPtr->entityNumberPtr = 0;
|
|
|
|
// st->b points to type_pointer, which is just a temporary that gets its type reassigned, so we store the real type in st->c
|
|
// so that we can do a type check during run time since we don't know what type the script object is at compile time because it
|
|
// comes from an entity
|
|
} else if ( !obj->GetTypeDef()->Inherits( st->c->TypeDef() ) ) {
|
|
//Warning( "object '%s' cannot be converted to '%s'", obj->GetTypeName(), st->c->TypeDef()->Name() );
|
|
*var_b.evalPtr->entityNumberPtr = 0;
|
|
} else {
|
|
*var_b.evalPtr->entityNumberPtr = *var_a.entityNumberPtr;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case OP_ADDRESS:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var_c.evalPtr->bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
} else {
|
|
var_c.evalPtr->bytePtr = NULL;
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_F:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
*var_c.floatPtr = *var.floatPtr;
|
|
} else {
|
|
*var_c.floatPtr = 0.0f;
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_ENT:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
*var_c.entityNumberPtr = *var.entityNumberPtr;
|
|
} else {
|
|
*var_c.entityNumberPtr = 0;
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_BOOL:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
*var_c.intPtr = *var.intPtr;
|
|
} else {
|
|
*var_c.intPtr = 0;
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_S:
|
|
var_a = GetVariable( st->a );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
SetString( st->c, var.stringPtr );
|
|
} else {
|
|
SetString( st->c, "" );
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_V:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( obj ) {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
*var_c.vectorPtr = *var.vectorPtr;
|
|
} else {
|
|
var_c.vectorPtr->Zero();
|
|
}
|
|
break;
|
|
|
|
case OP_INDIRECT_OBJ:
|
|
var_a = GetVariable( st->a );
|
|
var_c = GetVariable( st->c );
|
|
obj = GetScriptObject( *var_a.entityNumberPtr );
|
|
if ( !obj ) {
|
|
*var_c.entityNumberPtr = 0;
|
|
} else {
|
|
var.bytePtr = &obj->data[ st->b->value.ptrOffset ];
|
|
*var_c.entityNumberPtr = *var.entityNumberPtr;
|
|
}
|
|
break;
|
|
|
|
case OP_PUSH_F:
|
|
var_a = GetVariable( st->a );
|
|
Push( *var_a.intPtr );
|
|
break;
|
|
|
|
case OP_PUSH_FTOS:
|
|
var_a = GetVariable( st->a );
|
|
PushString( FloatToString( *var_a.floatPtr ) );
|
|
break;
|
|
|
|
case OP_PUSH_BTOF:
|
|
var_a = GetVariable( st->a );
|
|
floatVal = *var_a.intPtr;
|
|
Push( *reinterpret_cast<int *>( &floatVal ) );
|
|
break;
|
|
|
|
case OP_PUSH_FTOB:
|
|
var_a = GetVariable( st->a );
|
|
if ( *var_a.floatPtr != 0.0f ) {
|
|
Push( 1 );
|
|
} else {
|
|
Push( 0 );
|
|
}
|
|
break;
|
|
|
|
case OP_PUSH_VTOS:
|
|
var_a = GetVariable( st->a );
|
|
PushString( var_a.vectorPtr->ToString() );
|
|
break;
|
|
|
|
case OP_PUSH_BTOS:
|
|
var_a = GetVariable( st->a );
|
|
PushString( *var_a.intPtr ? "true" : "false" );
|
|
break;
|
|
|
|
case OP_PUSH_ENT:
|
|
var_a = GetVariable( st->a );
|
|
Push( *var_a.entityNumberPtr );
|
|
break;
|
|
|
|
case OP_PUSH_S:
|
|
PushString( GetString( st->a ) );
|
|
break;
|
|
|
|
case OP_PUSH_V:
|
|
var_a = GetVariable( st->a );
|
|
PushVector(*var_a.vectorPtr);
|
|
break;
|
|
|
|
case OP_PUSH_OBJ:
|
|
var_a = GetVariable( st->a );
|
|
Push( *var_a.entityNumberPtr );
|
|
break;
|
|
|
|
case OP_PUSH_OBJENT:
|
|
var_a = GetVariable( st->a );
|
|
Push( *var_a.entityNumberPtr );
|
|
break;
|
|
|
|
case OP_BREAK:
|
|
case OP_CONTINUE:
|
|
default:
|
|
Error( "Bad opcode %i", st->op );
|
|
break;
|
|
}
|
|
}
|
|
|
|
return threadDying;
|
|
}
|