int sqlang_sr_init_child(void)
{
memset(&_sr_J_env, 0, sizeof(sr_sqlang_env_t));
_sr_J_env.J = sq_open(1024);
if(_sr_J_env.J==NULL) {
LM_ERR("cannot create SQlang context (exec)\n");
return -1;
}
sq_pushroottable(_sr_J_env.J);
/*sets the print functions*/
sq_setprintfunc(_sr_J_env.J, sqlang_printfunc, sqlang_errorfunc);
//sq_setnativedebughook(_sr_J_env.J, sqlang_debughook);
sq_enabledebuginfo(_sr_J_env.J, 1);
sqstd_register_bloblib(_sr_J_env.J);
sqstd_register_iolib(_sr_J_env.J);
sqstd_register_systemlib(_sr_J_env.J);
sqstd_register_mathlib(_sr_J_env.J);
sqstd_register_stringlib(_sr_J_env.J);
sqstd_seterrorhandlers(_sr_J_env.J);
sqlang_sr_kemi_register_libs(_sr_J_env.J);
if(_sr_sqlang_load_file.s != NULL && _sr_sqlang_load_file.len>0) {
_sr_J_env.JJ = sq_open(1024);
if(_sr_J_env.JJ==NULL) {
LM_ERR("cannot create load SQLang context (load)\n");
return -1;
}
sq_pushroottable(_sr_J_env.JJ);
LM_DBG("*** sqlang top index now is: %d\n", (int)sqlang_gettop(_sr_J_env.JJ));
/*sets the print functions*/
sq_setprintfunc(_sr_J_env.JJ, sqlang_printfunc, sqlang_errorfunc);
//sq_setnativedebughook(_sr_J_env.JJ, sqlang_debughook);
sq_enabledebuginfo(_sr_J_env.JJ, 1);
sqstd_register_bloblib(_sr_J_env.JJ);
sqstd_register_iolib(_sr_J_env.JJ);
sqstd_register_systemlib(_sr_J_env.JJ);
sqstd_register_mathlib(_sr_J_env.JJ);
sqstd_register_stringlib(_sr_J_env.JJ);
sqstd_seterrorhandlers(_sr_J_env.JJ);
sqlang_sr_kemi_register_libs(_sr_J_env.JJ);
LM_DBG("loading sqlang script file: %.*s\n",
_sr_sqlang_load_file.len, _sr_sqlang_load_file.s);
if(sqlang_kemi_load_script()<0) {
return -1;
}
}
LM_DBG("JS initialized!\n");
return 0;
}
void SqEnv::_init(size_t sz)
{
// AutoLock a(&_m);
__vm = sq_open(sz);
_vm= &__vm;
assert( *_vm );
Sqrat::DefaultVM::Set(*_vm);
sq_setprintfunc(*_vm, SqEnv::print_func, SqEnv::print_func);
sq_newclosure(*_vm, SqEnv::error_handler,0);
sq_seterrorhandler(*_vm);
//sq
sq_pushroottable(*_vm);
sqstd_register_iolib(*_vm);
sqstd_register_bloblib(*_vm);
sqstd_register_mathlib(*_vm);
sqstd_register_stringlib(*_vm);
sqstd_register_systemlib(*_vm);
sqstd_seterrorhandlers(*_vm);
sqstd_printcallstack(*_vm);
// setnativedebughook(_vmsys,debug_hook);
sq_notifyallexceptions(*_vm, true);
}
int main(int argc, char *argv[])
{
setbuf(stdout, NULL);
if (argc < 2) {
scprintf(_SC("SQDBG error : no file specified"));
return -1;
}
HSQUIRRELVM v = sq_open(1024);
sqstd_seterrorhandlers(v);
//!! INITIALIZES THE DEBUGGER ON THE TCP PORT 1234
//!! ENABLES AUTOUPDATE
HSQREMOTEDBG rdbg = sq_rdbg_init(v, 1234, SQTrue);
if (rdbg) {
//!! ENABLES DEBUG INFO GENERATION(for the compiler)
sq_enabledebuginfo(v, SQTrue);
sq_setprintfunc(v, printfunc, errorfunc);
//!! SUSPENDS THE APP UNTIL THE DEBUGGER CLIENT CONNECTS
if (SQ_SUCCEEDED(sq_rdbg_waitforconnections(rdbg))) {
scprintf(_SC("connected\n"));
const SQChar *fname = NULL;
#ifdef _UNICODE
SQChar sTemp[256];
mbstowcs(sTemp,argv[1],(int)strlen(argv[1])+1);
fname=sTemp;
#else
fname = argv[1];
#endif
//!!REGISTERS STANDARDS LIBS
sq_pushroottable(v);
sqstd_register_bloblib(v);
sqstd_register_iolib(v);
//!!EXECUTE A SCTIPT
if (SQ_FAILED(sqstd_dofile(v, fname, SQFalse, SQTrue))) {
PrintError(v);
#if defined(_WIN32) || defined(_WIN64)
_getch();
#else
getch();
#endif
}
}
//!! CLEANUP
sq_rdbg_shutdown(rdbg);
}
else {
PrintError(v);
}
sq_close(v);
return 0;
}
/*
* Initialize Squirrel VM
*/
void initSQVM(HSQUIRRELVM v) {
sqstd_seterrorhandlers(v);
sq_setprintfunc(v, sq_printfunc, sq_errorfunc);
sq_pushroottable(v);
sqstd_register_systemlib(v);
#ifndef EMO_WITH_SANDBOX
sqstd_register_iolib(v);
#endif
sqstd_register_bloblib(v);
sqstd_register_mathlib(v);
sqstd_register_stringlib(v);
}
int sqrl_main(int argc, char* argv[])
{
HSQUIRRELVM v;
SQInteger retval = 0;
const SQChar *filename=NULL;
#if defined(_MSC_VER) && defined(_DEBUG)
_CrtSetAllocHook(MemAllocHook);
#endif
v=sq_open(1024);
sq_setprintfunc(v,printfunc,errorfunc);
sq_pushroottable(v);
sqstd_register_bloblib(v);
sqstd_register_iolib(v);
sqstd_register_mathlib(v);
/*
* TODO: system and string library should be implemented for nuttx
* they need 'longjmp' and 'setjmp'.
*/
//sqstd_register_stringlib(v);
//sqstd_register_systemlib(v);
//aux library
//sets error handlers
sqstd_seterrorhandlers(v);
//gets arguments
switch(getargs(v,argc,argv,&retval))
{
case _INTERACTIVE:
Interactive(v);
break;
case _DONE:
case _ERROR:
default:
break;
}
sq_close(v);
#if defined(_MSC_VER) && defined(_DEBUG)
_getch();
_CrtMemDumpAllObjectsSince( NULL );
#endif
return retval;
return 0;
}
int main(int argc, char* argv[])
{
HSQUIRRELVM v;
const SQChar *filename=NULL;
#if defined(_MSC_VER) && defined(_DEBUG)
_CrtSetAllocHook(MemAllocHook);
#endif
//v= sq_open(1024);
v= sqobject::init();
sq_setprintfunc(v,printfunc);
sq_pushroottable(v);
sqstd_register_bloblib(v);
sqstd_register_iolib(v);
sqstd_register_systemlib(v);
// sqstd_register_mathlib(v);
// sqstd_register_stringlib(v);
//aux library
//sets error handlers
// sqstd_seterrorhandlers(v);
sqobject::Object::registerClass();
//gets arguments
int ret;
switch((ret = getargs(v,argc,argv)))
{
case _INTERACTIVE:
Interactive(v);
break;
case _DONE:
default:
break;
}
//sq_close(v);
sqobject::done();
#if defined(_MSC_VER) && defined(_DEBUG)
_getch();
_CrtMemDumpAllObjectsSince( NULL );
#endif
return ret == _ERROR ? -1 : 0;
}
CSquirrel::CSquirrel(CResource* pResource)
{
m_pResource = pResource;
// Create the VM
m_pVM = sq_open(DEFAULT_STACK_SIZE);
// Was the VM created successfully?
if( m_pVM )
{
// Push the root table onto the stack
sq_pushroottable(m_pVM);
// Register the default error handles
sqstd_seterrorhandlers(m_pVM);
// Set the print and error functions
sq_setprintfunc(m_pVM, printfunc, errorfunc);
// Register the blob library
sqstd_register_bloblib(m_pVM);
// Register the input/out library
sqstd_register_iolib(m_pVM);
// Register the math library
sqstd_register_mathlib(m_pVM);
// Register the string library
sqstd_register_stringlib(m_pVM);
// Register the system library
sqstd_register_systemlib(m_pVM);
// Register our shared functions
// Register our own functions
#ifdef _SERVER
CPlayerNatives::Register(this);
CVehicleNatives::Register(this);
C3DLabelNatives::Register(this);
CActorNatives::Register(this);
CCheckpointNatives::Register(this);
CObjectNatives::Register(this);
CServerNatives::Register(this);
CBlipNatives::Register(this);
#endif
}
}
bool CSquirrel::Load(String strName, String strPath)
{
// Check if the script exists
if(!SharedUtility::Exists(strPath.Get()))
return false;
// Set the script name
m_strName = strName;
// Set the script path
m_strPath = strPath;
// Create a squirrel VM with an initial stack size of 1024 bytes (stack will resize as needed)
m_pVM = sq_open(1024);
// Register the default error handlers
sqstd_seterrorhandlers(m_pVM);
// Set the print function and error function
sq_setprintfunc(m_pVM, PrintFunction, PrintFunction);
// Set the compiler error function
sq_setcompilererrorhandler(m_pVM, CompilerErrorFunction);
// Set our error handler
sq_newclosure(m_pVM, PrintErrorFunction, 0);
sq_seterrorhandler(m_pVM);
// Push the root table onto the stack
sq_pushroottable(m_pVM);
#ifdef _SERVER
// Register the input/output library
sqstd_register_iolib(m_pVM);
#endif
// Register the blob library
sqstd_register_bloblib(m_pVM);
// Register the math library
sqstd_register_mathlib(m_pVM);
// Register the string library
sqstd_register_stringlib(m_pVM);
return true;
}
int main(int argc, char* argv[])
{
HSQUIRRELVM v;
SQInteger retval = 0;
#if defined(_MSC_VER) && defined(_DEBUG)
_CrtSetAllocHook(MemAllocHook);
#endif
v=sq_open(1024);
sq_setprintfunc(v,printfunc,errorfunc);
sq_pushroottable(v);
sqstd_register_bloblib(v);
sqstd_register_iolib(v);
sqstd_register_systemlib(v);
sqstd_register_mathlib(v);
sqstd_register_stringlib(v);
//aux library
//sets error handlers
sqstd_seterrorhandlers(v);
//gets arguments
switch(getargs(v,argc,argv,&retval))
{
case _INTERACTIVE:
Interactive(v);
break;
case _DONE:
case _ERROR:
default:
break;
}
sq_close(v);
#if defined(_MSC_VER) && defined(_DEBUG)
_getch();
_CrtMemDumpAllObjectsSince( NULL );
#endif
return retval;
}
void Context::initialize()
{
sq_setforeignptr(vm_, this);
sq_setprintfunc(vm_, Detail::print, Detail::printError);
sq_pushroottable(vm_);
sqstd_register_mathlib(vm_);
sqstd_register_stringlib(vm_);
sqstd_register_bloblib(vm_);
sq_setcompilererrorhandler(vm_, Detail::handleCompilerError);
sq_newclosure(vm_, Detail::handleError, 0);
sq_seterrorhandler(vm_);
sq_pop(vm_, 1);
Table::create(*this, _SC("__sqrew_classes"), TableDomain::Registry);
}
/*
** Creates a new SQuirrel vm.
*/
static SQRESULT sq_slave_vm_constructor (HSQUIRRELVM v)
{
SQ_FUNC_VARS(v);
SQ_OPT_INTEGER(v, 2, stack_size, 1024);
HSQUIRRELVM self = sq_open(stack_size);
/* Initialize environment */
sq_setprintfunc(self,sq_getprintfunc(v),sq_geterrorfunc(v));
/* load base libraries */
sq_pushroottable(self);
sqstd_register_bloblib(self);
sqstd_register_iolib(self);
sqstd_register_systemlib(self);
sqstd_register_mathlib(self);
sqstd_register_stringlib(self);
sq_poptop(self); //remove root table
sq_setinstanceup(v, 1, self);
sq_setreleasehook(v, 1, sq_slave_vm_release_hook);
return 1;
}
CResourceScript::CResourceScript ( CString strFile, int ScriptType, CResource *pResource )
{
// Warp some varibles.
m_pResource = pResource;
m_iScriptType = ScriptType;
// Format script localization.
m_strFile.Format("%s\\%s\\%s", m_pResource->GetDirectory().Get(), m_pResource->GetName().Get(), strFile.Get());
// Check if file exists.
if(!Exists(m_strFile.Get()))
{
CLog::Printf( "[Resources] Script %s not found!", m_strFile.Get() );
return;
}
// Check script type - default server.
if ( ScriptType == SCRIPT_CLIENT )
{
/*
TODO:
- Warp to code WebServ,
- Create class for client resources,
- ..
*/
} else {
// Create root stack for script.
m_pVM = sq_open(1024);
//Register error and print functions.
sqstd_seterrorhandlers(m_pVM);
sq_setprintfunc(m_pVM, PrintFunction, ErrorFunction);
sq_setcompilererrorhandler(m_pVM, CompilerErrorFunction);
// Push root vm table.
sq_pushroottable(m_pVM);
// Register basic systems.
sqstd_register_systemlib(m_pVM);
sqstd_register_iolib(m_pVM);
sqstd_register_bloblib(m_pVM);
sqstd_register_mathlib(m_pVM);
sqstd_register_stringlib(m_pVM);
// Register Squirrel Classes
m_pResource->RegisterClass(this);
// Register all functions.
// Event functions.
CEventNatives::Register(this);
// Funkcje gracza.
CPlayerNatives::Register(this);
if ( SQ_FAILED ( sqstd_dofile(m_pVM, m_strFile.Get(), SQFalse, SQTrue) ) )
{
// cannot compile script file.
return;
}
// Define basic varibles.
CSquirrelArguments pArgs;
pArgs.push(MAX_PLAYERS);
RegisterVarible ( "MAX_PLAYERS", &pArgs );
pArgs.clear();
}
}
void MTR_ScriptsInit(void)
{
#ifdef MTR_MOD_PLUGIN
int i;
int j;
#endif
MTR_LogWrite("Initializing script subsystem", 0, MTR_LMT_INFO);
MTR_LogWrite_s("Reporting Squirrel compile-time version:", 1, MTR_LMT_INFO,
SQUIRREL_VERSION);
MTR_LogWrite_i("Reporting Squirrel linked version:", 1, MTR_LMT_INFO,
sq_getversion());
mtrVm = sq_open(1024);
sq_setprintfunc(mtrVm, MTR_ScriptPrintFunc, MTR_ScriptErrorFunc); //sets the print function
sq_pushroottable(mtrVm);
sqstd_register_bloblib(mtrVm);
sqstd_register_iolib(mtrVm);
sqstd_register_systemlib(mtrVm);
sqstd_register_mathlib(mtrVm);
sqstd_register_stringlib(mtrVm);
sqstd_seterrorhandlers(mtrVm); //registers the default error handlers
MTR_LogWrite("Squirrel VM created", 1, MTR_LMT_INFO);
/* Registering functions and constants from all binding plugins */
MTR_LogWrite("Registering functions and constants of engine", 1,
MTR_LMT_INFO);
MTR_ScriptsRegisterAll();
MTR_LogWrite("Script functions and constants of engine registered",
1, MTR_LMT_INFO);
/* Registering functions and constants from all binding plugins */
MTR_LogWrite("Registering functions and constants of bindings", 1,
MTR_LMT_INFO);
#ifdef MTR_MOD_PLUGIN
for (i = 0; i < mtrPluginsCount; i++)
{
for (j = 0; j < mtrPluginData[i].report->prereqsCount; j++)
{
if (strcmp(mtrPluginData[i].report->prereqs[j], "Script_Squirrel") == 0)
{
MTR_LogWrite_s("Binding found:", 2, MTR_LMT_INFO,
mtrPluginData[i].report->moduleID);
MTR_PluginInit = (mtrPluginInitFunc)MTR_FindFunction(
mtrPluginData[i].report->moduleID, "MTR_PluginInit");
if (MTR_PluginInit != NULL)
MTR_PluginInit();
else
MTR_Notify("Library not contain MTR_PluginInit function", 3,
MTR_LMT_ERROR);
}
}
}
#else
MTR_BifInitAll();
#endif
MTR_LogWrite("Script functions and constants of bindings registered",
1, MTR_LMT_INFO);
MTR_LogWrite("Script subsystem initialized", 0, MTR_LMT_INFO);
}
int main(int argc, char *argv[])
{
if(argc < 2){
scprintf(_SC("SQDBG error : no file specified"));
return -1;
}
// RVF +
int debuggerPort = 0;
for (int i = 1; i < argc; i++) {
const char* arg = argv[i];
if (!strncmp(arg, "-d", 2))
debuggerPort = std::atoi(arg + 2);
}
if (!debuggerPort) {
scprintf(_SC("SQDBG error : Debugger port not specified. Use the -d<PORT> parameter"));
return EXIT_FAILURE;
}
// RVF -
HSQUIRRELVM v = sq_open(1024);
sqstd_seterrorhandlers(v);
//!! INITIALIZES THE DEBUGGER ON THE TCP PORT 1234
//!! ENABLES AUTOUPDATE
HSQREMOTEDBG rdbg = sq_rdbg_init(v,debuggerPort,SQTrue);
if(rdbg) {
//!! ENABLES DEBUG INFO GENERATION(for the compiler)
sq_enabledebuginfo(v,SQTrue);
sq_setprintfunc(v,printfunc,errorfunc);
//!! SUSPENDS THE APP UNTIL THE DEBUGGER CLIENT CONNECTS
if(SQ_SUCCEEDED(sq_rdbg_waitforconnections(rdbg))) {
scprintf(_SC("connected\n"));
const SQChar *fname=NULL;
#ifdef _UNICODE
SQChar sTemp[256];
mbstowcs(sTemp,argv[argc-1],(int)strlen(argv[1])+1);
fname=sTemp;
#else
fname=argv[argc-1];
#endif
//!!REGISTERS STANDARDS LIBS
sq_pushroottable(v);
sqstd_register_bloblib(v);
sqstd_register_iolib(v);
sqstd_register_systemlib(v);
sqstd_register_mathlib(v);
sqstd_register_stringlib(v);
//!!EXECUTE A SCTIPT
if(SQ_FAILED(sqstd_dofile(v,fname,SQFalse,SQTrue))) {
PrintError(v);
_getch();
}
}
//!! CLEANUP
sq_rdbg_shutdown(rdbg);
}
else {
PrintError(v);
}
sq_close(v);
return 0;
}
