LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
124 lines
2.7 KiB
C++
124 lines
2.7 KiB
C++
// ScriptEngine.cpp : Defines the entry point for the DLL application.
|
|
//
|
|
|
|
#include "ScriptEngine.h"
|
|
#include "SyntaxTree.h"
|
|
#include "IntermediateCode.h"
|
|
#include "VirtualMachine.h"
|
|
#include "Message.h"
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <windows.h>
|
|
/*
|
|
BOOL APIENTRY DllMain( HANDLE hModule,
|
|
DWORD ul_reason_for_call,
|
|
LPVOID lpReserved
|
|
)
|
|
{
|
|
return TRUE;
|
|
}*/
|
|
|
|
SCRIPT _SE_Create( const char * codeFile )
|
|
{
|
|
FILE * fp = fopen( codeFile, "r" );
|
|
if( fp == NULL )
|
|
{
|
|
ErrorMessage2( "Cannot open file : %s", codeFile );
|
|
return NULL;
|
|
}
|
|
|
|
|
|
CVirtualMachine * pVM = new CVirtualMachine;
|
|
|
|
char szFilename[128];
|
|
strcpy( szFilename, codeFile );
|
|
strlwr( szFilename );
|
|
|
|
if( strstr( szFilename, MACHINECODEFILEEXT ) != 0 )
|
|
{
|
|
pVM->Create( codeFile );
|
|
}
|
|
else if( strstr( szFilename, SCRIPTFILEEXT ) != 0 )
|
|
{
|
|
CSyntaxTree SyntaxTree;
|
|
CIntermediateCode IMCode;
|
|
|
|
SyntaxTree.Create( codeFile );
|
|
IMCode.Create( SyntaxTree );
|
|
|
|
pVM->Create( IMCode, *SyntaxTree.GetSymbolTable() );
|
|
}
|
|
else
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
return pVM;
|
|
}
|
|
|
|
void _SE_Destroy( SCRIPT Script )
|
|
{
|
|
delete Script;
|
|
}
|
|
|
|
bool _SE_Save( SCRIPT Script, const char * szFilename )
|
|
{
|
|
return Script->Save( szFilename );
|
|
}
|
|
|
|
void _SE_Execute( SCRIPT Script )
|
|
{
|
|
Script->Execute();
|
|
}
|
|
|
|
void _SE_RegisterFunction( SCRIPT Script, ANY_FUNCTION FuncPtr, eDataType RetType, const char * szFuncName, ... )
|
|
{
|
|
va_list args;
|
|
va_start( args, szFuncName );
|
|
|
|
Script->RegisterFunction( FuncPtr, RetType, szFuncName, args );
|
|
}
|
|
|
|
SE_FUNC _SE_GetScriptFunction( SCRIPT Script, eDataType RetType, const char * szFuncName, ... )
|
|
{
|
|
va_list args;
|
|
va_start( args, szFuncName );
|
|
|
|
return Script->GetScriptFunction( RetType, szFuncName, args );
|
|
}
|
|
|
|
void _SE_SetMessageFunction( MESSAGE_FUNCTION func )
|
|
{
|
|
SetCompilerMessageFunction( func );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func )
|
|
{
|
|
return pScript->CallScriptFunction( Func );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func, AnyData arg1 )
|
|
{
|
|
return pScript->CallScriptFunction( Func, arg1 );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func, AnyData arg1, AnyData arg2 )
|
|
{
|
|
return pScript->CallScriptFunction( Func, arg1, arg2 );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func, AnyData arg1, AnyData arg2, AnyData arg3 )
|
|
{
|
|
return pScript->CallScriptFunction( Func, arg1, arg2, arg3 );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func, AnyData arg1, AnyData arg2, AnyData arg3, AnyData arg4 )
|
|
{
|
|
return pScript->CallScriptFunction( Func, arg1, arg2, arg3, arg4 );
|
|
}
|
|
|
|
AnyData _SE_CallScriptFunction( SCRIPT pScript, SE_FUNC Func, AnyData args[], int nArgs )
|
|
{
|
|
return pScript->CallScriptFunction( Func, args, nArgs );
|
|
}
|