commit x64 compilation from lulu cause the other branch dont seems to compile properly at home
This commit is contained in:
549
include/modules/script_squirrel/legacy/squirrel_binding.cpp
Normal file
549
include/modules/script_squirrel/legacy/squirrel_binding.cpp
Normal file
@ -0,0 +1,549 @@
|
||||
/* -----------------------------------------------------------------------------
|
||||
GSFramework
|
||||
Copyright 2001-2013 Emmanuel Julien. All Rights Reserved.
|
||||
----------------------------------------------------------------------------- */
|
||||
|
||||
|
||||
#include <cstdio>
|
||||
#include <cmath>
|
||||
|
||||
#include "squirrel.h"
|
||||
#include "script_squirrel/cobject/uc_binding.h"
|
||||
#include "script_squirrel/cobject/cobject.h"
|
||||
#include "script_squirrel/cobject/vector_decl.h"
|
||||
#include "script_squirrel/cobject/uv_decl.h"
|
||||
|
||||
#include "squirrel_binding.h"
|
||||
#include "binding_helpers.h"
|
||||
|
||||
#if __PLATFORM_NINTENDO_WII__
|
||||
#include "platform/wii/script/wii_binding.h"
|
||||
#endif
|
||||
#include "geometry/bounding_box.h"
|
||||
#include "color/color.h"
|
||||
#include "geometry/rect.h"
|
||||
#include "filesystem/filesystem.h"
|
||||
#include "platform.h"
|
||||
|
||||
|
||||
namespace GS {
|
||||
namespace Script {
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
static bool BindingError(HSQUIRRELVM vm, const char *msg)
|
||||
{
|
||||
// if (sq_getforeignptr(vm))
|
||||
// ((Script::VM *)sq_getforeignptr(vm))->Kill();
|
||||
SquirrelVM::DumpCallStack(vm, String::Format("Binding error: %s", msg).c_str());
|
||||
return false;
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
bool CreateClassInstance(HSQUIRRELVM vm, const char *class_name, bool call)
|
||||
{
|
||||
sq_pushroottable(vm);
|
||||
sq_pushstring(vm, class_name, -1);
|
||||
if (SQ_FAILED(sq_get(vm, -2)))
|
||||
{
|
||||
sq_pop(vm, 1);
|
||||
return BindingError(vm, String::Format("Class '%s' is not declared.", class_name).c_str());
|
||||
}
|
||||
if (call)
|
||||
{
|
||||
sq_pushroottable(vm);
|
||||
if (SQ_FAILED(sq_call(vm, 1, SQTrue, SQTrue)))
|
||||
{
|
||||
sq_pop(vm, 1);
|
||||
return BindingError(vm, String::Format("Failed to instantiate class '%s'.", class_name).c_str());
|
||||
}
|
||||
}
|
||||
else
|
||||
sq_createinstance(vm, -1);
|
||||
sq_remove(vm, -2); // Remove root table.
|
||||
sq_remove(vm, -2); // Remove class.
|
||||
return true;
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushColor(HSQUIRRELVM vm, const Color &c)
|
||||
{
|
||||
if (!CreateClassInstance(vm, "Vector", true))
|
||||
BindingError(vm, "Failed to create Vector instance.");
|
||||
SetTableKey("x", sq_pushfloat, -1, c.x);
|
||||
SetTableKey("y", sq_pushfloat, -1, c.y);
|
||||
SetTableKey("z", sq_pushfloat, -1, c.z);
|
||||
SetTableKey("w", sq_pushfloat, -1, c.w);
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushVector2(HSQUIRRELVM vm, const Vector2 &v)
|
||||
{
|
||||
if (!CreateClassInstance(vm, "Vector2", true))
|
||||
BindingError(vm, "Failed to create Vector2 instance.");
|
||||
SetTableKey("x", sq_pushfloat, -1, v.x);
|
||||
SetTableKey("y", sq_pushfloat, -1, v.y);
|
||||
}
|
||||
void GetVector2(HSQUIRRELVM vm, SQInteger idx, Vector2 &v)
|
||||
{
|
||||
SQFloat x, y;
|
||||
GetTableKey("x", sq_getfloat, idx, x)
|
||||
GetTableKey("y", sq_getfloat, idx, y)
|
||||
v.Set(x, y);
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushVector(HSQUIRRELVM vm, const Vector4 &v, bool push_w)
|
||||
{
|
||||
push_Vector(vm, v);
|
||||
}
|
||||
void GetVector(HSQUIRRELVM v, SQInteger idx, Vector4 &vo, bool get_w)
|
||||
{
|
||||
_CHECK_INST_PARAM_RAW(pv, idx, Vector4, Vector);
|
||||
vo = *pv;
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushUV(HSQUIRRELVM vm, const Vector2 &uv)
|
||||
{
|
||||
if (!CreateClassInstance(vm, "UV", true))
|
||||
BindingError(vm, "Failed to create UV instance.");
|
||||
SetTableKey("u", sq_pushfloat, -1, uv.x);
|
||||
SetTableKey("v", sq_pushfloat, -1, uv.y);
|
||||
}
|
||||
void GetUV(HSQUIRRELVM v, SQInteger idx, Vector2 &uv)
|
||||
{
|
||||
_CHECK_INST_PARAM_RAW(pv, idx, Vector2, UV);
|
||||
uv = *pv;
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushMinMax(HSQUIRRELVM vm, const MinMax &v)
|
||||
{
|
||||
if (!CreateClassInstance(vm, "MinMax", true))
|
||||
BindingError(vm, "Failed to create MinMax instance.");
|
||||
|
||||
sq_pushstring(vm, "min", -1);
|
||||
sq_get(vm, -2);
|
||||
SetTableKey("x", sq_pushfloat, -1, v.mn.x)
|
||||
SetTableKey("y", sq_pushfloat, -1, v.mn.y)
|
||||
SetTableKey("z", sq_pushfloat, -1, v.mn.z)
|
||||
sq_pop(vm, 1);
|
||||
|
||||
sq_pushstring(vm, "max", -1);
|
||||
sq_get(vm, -2);
|
||||
SetTableKey("x", sq_pushfloat, -1, v.mx.x)
|
||||
SetTableKey("y", sq_pushfloat, -1, v.mx.y)
|
||||
SetTableKey("z", sq_pushfloat, -1, v.mx.z)
|
||||
sq_pop(vm, 1);
|
||||
}
|
||||
void GetMinMax(HSQUIRRELVM vm, SQInteger idx, MinMax &v)
|
||||
{
|
||||
sq_pushstring(vm, "min", -1);
|
||||
sq_get(vm, -2);
|
||||
GetVector(vm, -1, v.mn);
|
||||
sq_pop(vm, 1);
|
||||
|
||||
sq_pushstring(vm, "max", -1);
|
||||
sq_get(vm, -2);
|
||||
GetVector(vm, -1, v.mx);
|
||||
sq_pop(vm, 1);
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void PushRect(HSQUIRRELVM vm, const fRect &r)
|
||||
{
|
||||
if (!CreateClassInstance(vm, "Rect"))
|
||||
BindingError(vm, "Failed to create Rect instance.");
|
||||
SetTableKey("sx", sq_pushfloat, -1, r.sx);
|
||||
SetTableKey("sy", sq_pushfloat, -1, r.sy);
|
||||
SetTableKey("ex", sq_pushfloat, -1, r.ex);
|
||||
SetTableKey("ey", sq_pushfloat, -1, r.ey);
|
||||
}
|
||||
void GetRect(HSQUIRRELVM vm, SQInteger idx, fRect &r)
|
||||
{
|
||||
SQFloat sx, sy, ex, ey;
|
||||
GetTableKey("sx", sq_getfloat, idx, sx)
|
||||
GetTableKey("sy", sq_getfloat, idx, sy)
|
||||
GetTableKey("ex", sq_getfloat, idx, ex)
|
||||
GetTableKey("ey", sq_getfloat, idx, ey)
|
||||
r.Set(sx, sy, ex, ey);
|
||||
}
|
||||
void PushRect(HSQUIRRELVM vm, const iRect &r)
|
||||
{ PushRect(vm, r.AsFloat()); }
|
||||
void GetRect(HSQUIRRELVM vm, SQInteger idx, iRect &r)
|
||||
{
|
||||
fRect t;
|
||||
GetRect(vm, idx, t);
|
||||
r.Set(int(t.sx), int(t.sy), int(t.ex), int(t.ey));
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
void sq_register(HSQUIRRELVM v, SQFUNCTION f, const char *fname, const SQChar *mask)
|
||||
{
|
||||
sq_pushroottable(v);
|
||||
sq_pushstring(v, (const SQChar *)fname, -1);
|
||||
sq_newclosure(v, f, 0); // Create a new function.
|
||||
sq_setnativeclosurename(v, -1, fname);
|
||||
sq_setparamscheck(v, SQ_MATCHTYPEMASKSTRING, mask);
|
||||
sq_newslot(v, -3, false);
|
||||
sq_pop(v, 1); // Pop the root table.
|
||||
}
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
} // Script
|
||||
} // GS
|
||||
|
||||
using namespace GS;
|
||||
using namespace GS::Script;
|
||||
|
||||
//------------------------------------------
|
||||
SQInteger SQAssert(HSQUIRRELVM vm)
|
||||
//------------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(2)
|
||||
__SQ_GETBOOL(c)
|
||||
__SQ_GETSTRING(d)
|
||||
if (!c)
|
||||
return sq_throwerror(vm, d);
|
||||
__SQ_GETEND
|
||||
__SQ_RETURN
|
||||
}
|
||||
|
||||
//---------------------------------------
|
||||
SQInteger SQPow(HSQUIRRELVM vm)
|
||||
//---------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(2)
|
||||
__SQ_GETFLOAT(v)
|
||||
__SQ_GETFLOAT(p)
|
||||
__SQ_GETEND
|
||||
__SQ_RETURNFLOAT(pow(v, p))
|
||||
}
|
||||
|
||||
//---------------------------------------
|
||||
SQInteger SQExp(HSQUIRRELVM vm)
|
||||
//---------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(1)
|
||||
__SQ_GETFLOAT(v)
|
||||
__SQ_GETEND
|
||||
__SQ_RETURNFLOAT(exp(v))
|
||||
}
|
||||
|
||||
//---------------------------------------
|
||||
SQInteger SQMod(HSQUIRRELVM vm)
|
||||
//---------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(2)
|
||||
__SQ_GETINT(v)
|
||||
__SQ_GETINT(m)
|
||||
__SQ_GETEND
|
||||
__SQ_RETURNINT(v % m)
|
||||
}
|
||||
|
||||
//------------------------------------------
|
||||
SQInteger SQAbsMod(HSQUIRRELVM vm)
|
||||
//------------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(2)
|
||||
__SQ_GETINT(v)
|
||||
__SQ_GETINT(m)
|
||||
__SQ_GETEND
|
||||
v %= m;
|
||||
if (v < 0)
|
||||
v = m + v;
|
||||
__SQ_RETURNINT(v)
|
||||
}
|
||||
|
||||
//-----------------------------------------------
|
||||
SQInteger ObjectIsValid(HSQUIRRELVM vm)
|
||||
//-----------------------------------------------
|
||||
{
|
||||
void *p;
|
||||
if (!CObject::Get(vm, -1, &p))
|
||||
return -1;
|
||||
sq_pop(vm, 1);
|
||||
__SQ_RETURNBOOL(asbool(p));
|
||||
}
|
||||
|
||||
//----------------------------------------------
|
||||
SQInteger ObjectIsSame(HSQUIRRELVM vm)
|
||||
//----------------------------------------------
|
||||
{
|
||||
void *a, *b;
|
||||
if (!CObject::Get(vm, -2, &a) || !CObject::Get(vm, -1, &b))
|
||||
return -1;
|
||||
sq_pop(vm, 2);
|
||||
__SQ_RETURNBOOL(a == b);
|
||||
}
|
||||
|
||||
//----------------------------------------------
|
||||
SQInteger ShellExecute(HSQUIRRELVM vm)
|
||||
//----------------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(2)
|
||||
__SQ_GETSTRING(path)
|
||||
__SQ_GETSTRING(parm)
|
||||
|
||||
int r = -1;
|
||||
|
||||
#if __PLATFORM_WINDOWS__
|
||||
if (path)
|
||||
{
|
||||
String cmd = parm ? String::Format("%s %s", path, parm).c_str() : path;
|
||||
__LOG_H__ << "Execute command '" << cmd << "'\n\n";
|
||||
|
||||
#if 0
|
||||
char szBuffer[_MAX_PATH * 10 + 1];
|
||||
|
||||
DWORD dw;
|
||||
HANDLE hIn, hOut;
|
||||
PROCESS_INFORMATION pi;
|
||||
SECURITY_ATTRIBUTES sa;
|
||||
STARTUPINFO si;
|
||||
|
||||
if (CreatePipe(&hIn, &hOut, NULL, sizeof(szBuffer) * 2))
|
||||
{
|
||||
memset(&si, 0, sizeof(si));
|
||||
si.cb = sizeof(si);
|
||||
si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
|
||||
si.wShowWindow = SW_HIDE;
|
||||
si.hStdOutput = hOut;
|
||||
si.hStdError = hOut;
|
||||
|
||||
//if (!CreateProcess("C:\\WINDOWS\\system32\\cmd.exe", (LPSTR)cmd.c_str(), NULL, NULL, TRUE, NORMAL_PRIORITY_CLASS | CREATE_NO_WINDOW, NULL, NULL, &si, &pi))
|
||||
if (!CreateProcess(NULL, (LPSTR)cmd.c_str(), NULL, NULL, TRUE, NORMAL_PRIORITY_CLASS | CREATE_NO_WINDOW, NULL, NULL, &si, &pi))
|
||||
__LOG_N__ << "Couldn't create process: " << GetLastError() << "\n";
|
||||
else
|
||||
{
|
||||
CloseHandle(hOut);
|
||||
__LOG_N__ << "Reading ShellExecute...\n";
|
||||
|
||||
forever
|
||||
{
|
||||
if (ReadFile(hIn, szBuffer, sizeof(szBuffer) - 1, &dw, NULL) == 0)
|
||||
{
|
||||
if (GetLastError() == ERROR_NO_DATA)
|
||||
Sleep(1);
|
||||
|
||||
else if (GetLastError() == ERROR_BROKEN_PIPE)
|
||||
{
|
||||
GetExitCodeProcess(pi.hProcess, &dw);
|
||||
r = dw;
|
||||
break;
|
||||
}
|
||||
else
|
||||
break;
|
||||
}
|
||||
else
|
||||
if (dw > 0)
|
||||
{
|
||||
szBuffer[dw] = 0;
|
||||
__LOG__ << szBuffer << "\n";
|
||||
}
|
||||
|
||||
if ((GetExitCodeProcess(pi.hProcess, &dw) == 0) || (dw != STILL_ACTIVE))
|
||||
{
|
||||
r = dw;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
CloseHandle(hIn);
|
||||
}
|
||||
else {
|
||||
__LOG_N__ << "Couldn't create pipe: " << GetLastError() << "\n";
|
||||
}
|
||||
#else
|
||||
char psBuffer[256];
|
||||
FILE *iopipe;
|
||||
|
||||
if ((iopipe = _popen(cmd.c_str(), "r" )) != 0)
|
||||
while (!feof(iopipe))
|
||||
if (fgets(psBuffer, 256, iopipe))
|
||||
__LOG__ << psBuffer;
|
||||
|
||||
r = _pclose(iopipe);
|
||||
#endif
|
||||
}
|
||||
#elif __PLATFORM_OSX__
|
||||
__LOG_E__ << "ShellExecute(): STUB\n";
|
||||
#elif __PLATFORM_LINUX__
|
||||
r = path ? system(parm ? String::Format("%s %s", path, parm).c_str() : path) : -1;
|
||||
#endif
|
||||
|
||||
__SQ_GETEND
|
||||
__SQ_RETURNINT(r)
|
||||
}
|
||||
|
||||
|
||||
//---------------------------------------
|
||||
SQInteger Sleep(HSQUIRRELVM vm)
|
||||
//---------------------------------------
|
||||
{
|
||||
__SQ_GETSTART(1)
|
||||
__SQ_GETINT(ms)
|
||||
__SQ_GETEND
|
||||
Platform::Get().Sleep(ms);
|
||||
__SQ_RETURN
|
||||
}
|
||||
|
||||
//------------------------------------------------------------
|
||||
void RegisterAllSquirrelBinding(HSQUIRRELVM vm)
|
||||
//------------------------------------------------------------
|
||||
{
|
||||
/*#
|
||||
Topic: Script
|
||||
#*/
|
||||
|
||||
/*#
|
||||
Section: ScriptDebug
|
||||
Desc: Debugging
|
||||
#*/
|
||||
/*#
|
||||
Func: __Assert
|
||||
Proto: void:bool,string
|
||||
Desc: Assert an expression, throw an engine exception and suspend the VM if not verified.
|
||||
#*/
|
||||
sq_register(vm, SQAssert, "__Assert", _SC(".bs"));
|
||||
|
||||
/*#
|
||||
Section: ScriptGeneric
|
||||
Desc: Generic
|
||||
#*/
|
||||
/*#
|
||||
Func: SQPow
|
||||
Proto: float:float value,float pow
|
||||
Desc: Returns value raised to power.
|
||||
#*/
|
||||
sq_register(vm, SQPow, "Pow", _SC(".ff"));
|
||||
/*#
|
||||
Func: SQExp
|
||||
Proto: float:float value
|
||||
Desc: Returns value in exponential .
|
||||
#*/
|
||||
sq_register(vm, SQExp, "Exp", _SC(".f"));
|
||||
/*#
|
||||
Func: SQMod
|
||||
Proto: int:int value,int divider
|
||||
Desc: Returns integer modulo of a value.
|
||||
#*/
|
||||
sq_register(vm, SQMod, "Mod", _SC(".ii"));
|
||||
/*#
|
||||
Func: SQAbsMod
|
||||
Proto: int:int value,int divider
|
||||
Desc: Returns integer modulo of the absolute of a given value.
|
||||
#*/
|
||||
sq_register(vm, SQAbsMod, "AbsMod", _SC(".ii"));
|
||||
/*#
|
||||
Func: ObjectIsValid
|
||||
Proto: bool:Object
|
||||
Desc: Returns true if the given engine object is valid, false otherwise.<br>This function can be used to test the validity of all engine types like geometry, material, item, scene and others.
|
||||
#*/
|
||||
sq_register(vm, ObjectIsValid, "ObjectIsValid", _SC(".x"));
|
||||
/*#
|
||||
Func: ObjectIsSame
|
||||
Proto: bool:Object,Object
|
||||
Desc: Returns true if two given engine object references are pointing to the same object.
|
||||
#*/
|
||||
sq_register(vm, ObjectIsSame, "ObjectIsSame", _SC(".xx"));
|
||||
|
||||
/*#
|
||||
Topic: System
|
||||
#*/
|
||||
|
||||
/*#
|
||||
Section: SystemGeneric
|
||||
Desc: Generic
|
||||
#*/
|
||||
/*#
|
||||
Func: ShellExecute
|
||||
Proto: int:string path,string param
|
||||
Desc: Execute an external program, returns its return code.
|
||||
#*/
|
||||
sq_register(vm, ShellExecute, "ShellExecute", _SC(".ss"));
|
||||
|
||||
|
||||
sq_register(vm, Sleep, "_Sleep", _SC(".i"));
|
||||
|
||||
// Legacy support.
|
||||
#if 1
|
||||
sq_register(vm, ObjectIsValid, "AIPathIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "GeometryIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "ItemIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "MetatagIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "TextureIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "WidgetIsValid", _SC(".x"));
|
||||
sq_register(vm, ObjectIsValid, "WindowIsValid", _SC(".x"));
|
||||
#endif
|
||||
|
||||
sq_pushroottable(vm);
|
||||
|
||||
/*#
|
||||
Enum: SystemConstant
|
||||
Values: SystemClockFrequency
|
||||
#*/
|
||||
sq_pushstring(vm, "SystemClockFrequency", -1); sq_pushinteger(vm, Platform::Get().GetClockFrequency()); sq_newslot(vm, -3, true);
|
||||
|
||||
// Register engine types.
|
||||
for (int n = 0; n < typetag_End; ++n)
|
||||
{
|
||||
String type_string = String::Format("EngineType%s", CObjectTypeToString((CObjectType)n));
|
||||
sq_pushstring(vm, type_string.TrimChar(' ').c_str(), -1); sq_pushinteger(vm, n); sq_newslot(vm, -3, true);
|
||||
}
|
||||
|
||||
// Newer faster bindings.
|
||||
RegisterUCBinding(vm);
|
||||
|
||||
//
|
||||
RegisterClockBinding(vm);
|
||||
RegisterMatrixBinding(vm);
|
||||
RegisterAnimationBinding(vm);
|
||||
RegisterAIBinding(vm);
|
||||
RegisterSystemBinding(vm);
|
||||
RegisterRendererBinding(vm);
|
||||
RegisterMixerBinding(vm);
|
||||
RegisterSceneBinding(vm);
|
||||
RegisterInstanceBinding(vm);
|
||||
RegisterGroupBinding(vm);
|
||||
RegisterCameraBinding(vm);
|
||||
RegisterObjectBinding(vm);
|
||||
RegisterMaterialBinding(vm);
|
||||
RegisterLightBinding(vm);
|
||||
RegisterProfilerBinding(vm);
|
||||
RegisterItemBinding(vm);
|
||||
RegisterMotionBinding(vm);
|
||||
RegisterCollisionBinding(vm);
|
||||
RegisterPhysicBinding(vm);
|
||||
RegisterPictureBinding(vm);
|
||||
RegisterTextureBinding(vm);
|
||||
RegisterSoundBinding(vm);
|
||||
RegisterGeometryBinding(vm);
|
||||
RegisterIOBinding(vm);
|
||||
RegisterUIBinding(vm);
|
||||
RegisterNMLBinding(vm);
|
||||
RegisterResourceFactoryBinding(vm);
|
||||
RegisterRaytracerBinding(vm);
|
||||
RegisterProjectBinding(vm);
|
||||
RegisterTriggerBinding(vm);
|
||||
RegisterEmitterBinding(vm);
|
||||
RegisterHashBinding(vm);
|
||||
RegisterHTTPBinding(vm);
|
||||
RegisterFontBinding(vm);
|
||||
RegisterPlatformBinding(vm);
|
||||
RegisterMaterialShaderBinding(vm);
|
||||
|
||||
#if __PLATFORM_NINTENDO_WII__
|
||||
RegisterWiiBinding(vm);
|
||||
#endif
|
||||
|
||||
sq_pop(vm, 1);
|
||||
}
|
||||
Reference in New Issue
Block a user