first commit
This commit is contained in:
201
include/modules/script_squirrel/legacy/binding_helpers.h
Normal file
201
include/modules/script_squirrel/legacy/binding_helpers.h
Normal file
@ -0,0 +1,201 @@
|
||||
/* -----------------------------------------------------------------------------
|
||||
GSFramework
|
||||
Copyright 2001-2013 Emmanuel Julien. All Rights Reserved.
|
||||
----------------------------------------------------------------------------- */
|
||||
|
||||
|
||||
#ifndef __NBINDING_HELPERS__
|
||||
#define __NBINDING_HELPERS__
|
||||
|
||||
|
||||
#include "script_squirrel/cobject/uc_binding.h"
|
||||
#include "script_squirrel/cobject/cobject.h"
|
||||
#include "script_squirrel/cobject/vector_decl.h"
|
||||
#include "math/vector.h"
|
||||
#include "log/log.h"
|
||||
|
||||
|
||||
namespace GS {
|
||||
class MinMax;
|
||||
struct Color;
|
||||
struct Vector4;
|
||||
|
||||
template <class T> struct Rect;
|
||||
|
||||
namespace Script {
|
||||
|
||||
/// Register a native closure in the vm.
|
||||
void sq_register(HSQUIRRELVM v, SQFUNCTION f, const char *fname, const SQChar *mask);
|
||||
/// Create a new class instance on the vm stack.
|
||||
bool CreateClassInstance(HSQUIRRELVM vm, const char *class_name, bool call = false);
|
||||
|
||||
void PushColor(HSQUIRRELVM vm, const Color &c);
|
||||
void PushVector2(HSQUIRRELVM vm, const Vector2 &v);
|
||||
void GetVector2(HSQUIRRELVM vm, SQInteger idx, Vector2 &v);
|
||||
void PushVector(HSQUIRRELVM vm, const Vector4 &v, bool push_w = false);
|
||||
|
||||
void GetVector(HSQUIRRELVM vm, SQInteger idx, Vector4 &v, bool get_w = false);
|
||||
void GetUV(HSQUIRRELVM vm, SQInteger idx, Vector2 &uv);
|
||||
|
||||
void PushMinMax(HSQUIRRELVM vm, const MinMax &v);
|
||||
void GetMinMax(HSQUIRRELVM vm, SQInteger idx, MinMax &v);
|
||||
|
||||
void PushRect(HSQUIRRELVM vm, const Rect <float> &r);
|
||||
void GetRect(HSQUIRRELVM vm, SQInteger idx, Rect <float> &r);
|
||||
void PushRect(HSQUIRRELVM vm, const Rect <int> &r);
|
||||
void GetRect(HSQUIRRELVM vm, SQInteger idx, Rect <int> &r);
|
||||
|
||||
#define GetTableKey(_KEY_, _TYPE_GET_, _IDX_, _TO_)\
|
||||
{\
|
||||
sq_pushstring(vm, _KEY_, -1);\
|
||||
sq_get(vm, (_IDX_) - 1);\
|
||||
_TYPE_GET_(vm, -1, &_TO_);\
|
||||
sq_pop(vm, 1);\
|
||||
}
|
||||
#define SetTableKey(_KEY_, _TYPE_PUSH_, _IDX_, _V_)\
|
||||
{\
|
||||
sq_pushstring(vm, _KEY_, -1);\
|
||||
_TYPE_PUSH_(vm, _V_);\
|
||||
sq_set(vm, (_IDX_) - 2);\
|
||||
}
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
#define __SQ_INVALIDATENATIVEREF(__PTR__) ((SquirrelVM *)sq_getforeignptr(vm))->InvalidateNativeReference(__PTR__);
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
#define __SQ_GETSTART(__ARGCOUNT__) \
|
||||
int __sq_stackpos = -(__ARGCOUNT__), __sq_argcount = __ARGCOUNT__;
|
||||
#define __SQ_GETUPDATESTACK \
|
||||
__sq_stackpos++;
|
||||
#define __SQ_GETEND \
|
||||
sq_pop(vm, __sq_argcount);
|
||||
/*
|
||||
sq_pop(vm, __sq_argcount);\
|
||||
if (sq_gettop(vm) != 1)\
|
||||
return sq_throwerror(vm, "Internal binding error, stack configuration is invalid");
|
||||
*/
|
||||
|
||||
#define __SQ_STACKPOS __sq_stackpos
|
||||
|
||||
#define __SQ_GETSAFEPTR(__VARNAME__, __TYPE__, __TAG__) \
|
||||
__TYPE__ *__VARNAME__; if (!GS::Script::CObject::Get(vm, __sq_stackpos, (void **)&__VARNAME__, __TAG__)) return -1; if (!__VARNAME__) return sq_throwerror(vm, "Object is null"); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETSAFEPTRALLOWNULL(__VARNAME__, __TYPE__, __TAG__) \
|
||||
__TYPE__ *__VARNAME__; if (!GS::Script::CObject::Get(vm, __sq_stackpos, (void **)&__VARNAME__, __TAG__)) return -1; __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETCOBJECTBASE(__VARNAME__, __TYPE__, __TAGS__) \
|
||||
__TYPE__ *__VARNAME__; if (!GS::Script::CObject::GetBase(vm, __sq_stackpos, (void **)&__VARNAME__, __TAGS__)) return -1; if (!__VARNAME__) return sq_throwerror(vm, "Object is null"); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETCOBJECTBASEALLOWNULL(__VARNAME__, __TYPE__, __TAGS__) \
|
||||
__TYPE__ *__VARNAME__; if (!GS::Script::CObject::GetBase(vm, __sq_stackpos, (void **)&__VARNAME__, __TAGS__)) return -1; __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETOBJECT(__VARNAME__) \
|
||||
HSQOBJECT __VARNAME__; sq_getstackobj(vm, __sq_stackpos, &__VARNAME__); __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETINT(__VARNAME__) \
|
||||
SQInteger __VARNAME__; sq_getinteger(vm, __sq_stackpos, &__VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETFLOAT(__VARNAME__) \
|
||||
SQFloat __VARNAME__; sq_getfloat(vm, __sq_stackpos, &__VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETBOOL(__VARNAME__) \
|
||||
SQBool __VARNAME__; sq_getbool(vm, __sq_stackpos, &__VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETSTRING(__VARNAME__) \
|
||||
const SQChar *__VARNAME__; sq_getstring(vm, __sq_stackpos, &__VARNAME__); __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETCOLOR(__VARNAME__) \
|
||||
GS::Color __VARNAME__; GetVector(vm, __sq_stackpos, __VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETVECTOR2(__VARNAME__) \
|
||||
GS::Vector2 __VARNAME__; GetVector2(vm, __sq_stackpos, __VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETVECTORTO(__VECTOR__, __CONDITION__) \
|
||||
if (__CONDITION__) GetVector(vm, __sq_stackpos, __VECTOR__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETVECTORTOALWAYS(__VECTOR__) \
|
||||
GetVector(vm, __sq_stackpos, __VECTOR__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETUVTO(__UV__) \
|
||||
GetUV(vm, __sq_stackpos, __UV__); __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETRECT(__VARNAME__) \
|
||||
GS::Rect <int> __VARNAME__; GetRect(vm, __sq_stackpos, __VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETFRECT(__VARNAME__) \
|
||||
GS::Rect <float> __VARNAME__; GetRect(vm, __sq_stackpos, __VARNAME__); __SQ_GETUPDATESTACK
|
||||
#define __SQ_GETRECTTO(__RECT__) \
|
||||
GetRect(vm, __sq_stackpos, __RECT__); __SQ_GETUPDATESTACK
|
||||
|
||||
#define __SQ_GETSINGLE(__G) \
|
||||
__SQ_GETSTART(1) __G __SQ_GETEND
|
||||
|
||||
#define __SQ_RETURNSAFEPTR(Val, Tag) { GS::Script::CObject::Push(vm, Val, Tag); return 1; }
|
||||
#define __SQ_RETURNMANAGEDSAFEPTR(Val, Tag) { GS::Script::CObject::Push(vm, Val, Tag, true); return 1; }
|
||||
|
||||
#define __SQ_RETURNMINMAX(Val) { PushMinMax(vm, Val); return 1; }
|
||||
#define __SQ_RETURNRECT(Val) { PushRect(vm, Val); return 1; }
|
||||
|
||||
#define __SQ_RETURNCOLOR(Val) { PushColor(vm, Val); return 1; }
|
||||
#define __SQ_RETURNVECTOR2(Val) { PushVector2(vm, Val); return 1; }
|
||||
#define __SQ_RETURNVECTORW(Val) { PushVector(vm, Val, true); return 1; }
|
||||
|
||||
#define __SQ_RETURNMINMAX(Val) { PushMinMax(vm, Val); return 1; }
|
||||
|
||||
//------------------------------------------------------------------------------
|
||||
// Wrap old accessors to the much faster OO ones.
|
||||
#ifndef _T
|
||||
#define _T
|
||||
#endif
|
||||
|
||||
#define __SQ_GETMATRIX3(__VARNAME__) \
|
||||
GS::Matrix3 __VARNAME__;\
|
||||
{ HSQUIRRELVM v = vm;\
|
||||
_GetTypedParam(__mtx, __sq_stackpos, GS::Matrix3, Matrix3);\
|
||||
__VARNAME__ = *__mtx;\
|
||||
__SQ_GETUPDATESTACK }
|
||||
#define __SQ_GETMATRIX4(__VARNAME__) \
|
||||
GS::Matrix4 __VARNAME__;\
|
||||
{ HSQUIRRELVM v = vm;\
|
||||
_GetTypedParam(__mtx, __sq_stackpos, GS::Matrix4, Matrix4);\
|
||||
__VARNAME__ = *__mtx;\
|
||||
__SQ_GETUPDATESTACK }
|
||||
|
||||
#define __SQ_RETURNMATRIX3(__V__) \
|
||||
{ StackHandler sa(vm);\
|
||||
_SA_RETURN_OBJECT(new_Matrix3(vm, __V__)) }
|
||||
#define __SQ_RETURNMATRIX4(__V__) \
|
||||
{ StackHandler sa(vm);\
|
||||
_SA_RETURN_OBJECT(new_Matrix4(vm, __V__)) }
|
||||
|
||||
#define __SQ_GETVECTORW(__VARNAME__) \
|
||||
GS::Vector4 __VARNAME__;\
|
||||
{ HSQUIRRELVM v = vm;\
|
||||
_GetTypedParam(__vec, __sq_stackpos, GS::Vector4, Vector);\
|
||||
__VARNAME__ = *__vec;\
|
||||
__SQ_GETUPDATESTACK }
|
||||
#define __SQ_GETVECTOR(__VARNAME__) \
|
||||
__SQ_GETVECTORW(__VARNAME__) \
|
||||
__VARNAME__.w = 1;
|
||||
|
||||
#define __SQ_RETURNVECTOR(Val) \
|
||||
{ StackHandler sa(vm);\
|
||||
_SA_RETURN_OBJECT(new_Vector(vm, Val)) }
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
#define __SQ_RETURNINT(Val) { sq_pushinteger(vm, Val); return 1; }
|
||||
#define __SQ_RETURNFLOAT(Val) { sq_pushfloat(vm, Val); return 1; }
|
||||
#define __SQ_RETURNBOOL(Val) { sq_pushbool(vm, Val ? SQTrue : SQFalse); return 1; }
|
||||
#define __SQ_RETURNNULL { sq_pushnull(vm); return 1; }
|
||||
#define __SQ_RETURNSTRING(Val) { sq_pushstring(vm, Val, -1); return 1; }
|
||||
#define __SQ_RETURNOBJECT(Val) { sq_pushobject(vm, Val); return 1; }
|
||||
|
||||
#define __SQ_RETURN return 0;
|
||||
|
||||
#define __SQ_GETSINGLESAFEPTR(Name, Type, Tag) \
|
||||
__SQ_GETSTART(1) \
|
||||
__SQ_GETSAFEPTR(Name, Type, Tag) \
|
||||
__SQ_GETEND
|
||||
|
||||
#define __SQ_GETSINGLESAFEPTRALLOWNULL(Name, Type, Tag) \
|
||||
__SQ_GETSTART(1) \
|
||||
__SQ_GETSAFEPTRALLOWNULL(Name, Type, Tag) \
|
||||
__SQ_GETEND
|
||||
//------------------------------------------------------------------------------
|
||||
|
||||
} // Script
|
||||
} // GS
|
||||
|
||||
|
||||
#endif // __NBINDING_HELPERS__
|
||||
63
include/modules/script_squirrel/legacy/squirrel_binding.h
Normal file
63
include/modules/script_squirrel/legacy/squirrel_binding.h
Normal file
@ -0,0 +1,63 @@
|
||||
/* -----------------------------------------------------------------------------
|
||||
GSFramework
|
||||
Copyright 2001-2013 Emmanuel Julien. All Rights Reserved.
|
||||
----------------------------------------------------------------------------- */
|
||||
|
||||
|
||||
#ifndef __NMANAGER_SCRIPT_BINDING__
|
||||
#define __NMANAGER_SCRIPT_BINDING__
|
||||
|
||||
|
||||
/// Squirrel API compatible version.
|
||||
#define __SQUIRREL_API_VERSION_COMPATIBILITY__ 1
|
||||
/// Current Squirrel API version.
|
||||
#define __SQUIRREL_API_VERSION__ 2
|
||||
|
||||
typedef struct SQVM* HSQUIRRELVM;
|
||||
|
||||
|
||||
void RegisterAIBinding(HSQUIRRELVM);
|
||||
void RegisterAnimationBinding(HSQUIRRELVM);
|
||||
void RegisterCameraBinding(HSQUIRRELVM);
|
||||
void RegisterClockBinding(HSQUIRRELVM);
|
||||
void RegisterCollisionBinding(HSQUIRRELVM);
|
||||
void RegisterEmitterBinding(HSQUIRRELVM);
|
||||
void RegisterGeometryBinding(HSQUIRRELVM);
|
||||
void RegisterFontBinding(HSQUIRRELVM);
|
||||
void RegisterGroupBinding(HSQUIRRELVM);
|
||||
void RegisterHashBinding(HSQUIRRELVM);
|
||||
void RegisterHTTPBinding(HSQUIRRELVM);
|
||||
void RegisterWebSocketBinding(HSQUIRRELVM);
|
||||
void RegisterInstanceBinding(HSQUIRRELVM);
|
||||
void RegisterIOBinding(HSQUIRRELVM);
|
||||
void RegisterItemBinding(HSQUIRRELVM);
|
||||
void RegisterLightBinding(HSQUIRRELVM);
|
||||
void RegisterProfilerBinding(HSQUIRRELVM);
|
||||
void RegisterMaterialBinding(HSQUIRRELVM);
|
||||
void RegisterMatrixBinding(HSQUIRRELVM);
|
||||
void RegisterMixerBinding(HSQUIRRELVM);
|
||||
void RegisterMotionBinding(HSQUIRRELVM);
|
||||
void RegisterNMLBinding(HSQUIRRELVM);
|
||||
void RegisterObjectBinding(HSQUIRRELVM);
|
||||
void RegisterPhysicBinding(HSQUIRRELVM);
|
||||
void RegisterPictureBinding(HSQUIRRELVM);
|
||||
void RegisterProjectBinding(HSQUIRRELVM);
|
||||
void RegisterRaytracerBinding(HSQUIRRELVM);
|
||||
void RegisterRendererBinding(HSQUIRRELVM);
|
||||
void RegisterResourceFactoryBinding(HSQUIRRELVM);
|
||||
void RegisterSceneBinding(HSQUIRRELVM);
|
||||
void RegisterSoundBinding(HSQUIRRELVM);
|
||||
void RegisterSystemBinding(HSQUIRRELVM);
|
||||
void RegisterTextureBinding(HSQUIRRELVM);
|
||||
void RegisterTriggerBinding(HSQUIRRELVM);
|
||||
void RegisterUIBinding(HSQUIRRELVM);
|
||||
void RegisterPlatformBinding(HSQUIRRELVM);
|
||||
void RegisterMaterialShaderBinding(HSQUIRRELVM);
|
||||
|
||||
void RegisterAllSquirrelBinding(HSQUIRRELVM);
|
||||
|
||||
|
||||
#define GetVMObject(__VM__) ((GS::Script::SquirrelVM *)sq_getforeignptr(__VM__))
|
||||
|
||||
|
||||
#endif // __NMANAGER_SCRIPT_BINDING__
|
||||
118
include/modules/script_squirrel/legacy/ws_manager.h
Normal file
118
include/modules/script_squirrel/legacy/ws_manager.h
Normal file
@ -0,0 +1,118 @@
|
||||
#ifndef WS_MANAGER_H
|
||||
#define WS_MANAGER_H
|
||||
|
||||
// Must be defined before including any Windows headers
|
||||
#ifndef WIN32_LEAN_AND_MEAN
|
||||
#define WIN32_LEAN_AND_MEAN
|
||||
#include <queue>
|
||||
#endif
|
||||
|
||||
#ifndef NOMINMAX
|
||||
#define NOMINMAX
|
||||
#endif
|
||||
|
||||
#ifndef _WIN32_WINNT
|
||||
#define _WIN32_WINNT 0x0601 // Windows 7 or later
|
||||
#endif
|
||||
|
||||
// Winsock and Bluetooth headers
|
||||
#include <winsock2.h>
|
||||
#include <ws2bth.h>
|
||||
#include <bluetoothapis.h>
|
||||
#include <thread>
|
||||
#include <mutex>
|
||||
#include <chrono>
|
||||
#include <vector>
|
||||
#include <atomic>
|
||||
#include <squirrel.h>
|
||||
|
||||
// Link required libraries
|
||||
#pragma comment(lib, "ws2_32.lib")
|
||||
#pragma comment(lib, "Bthprops.lib")
|
||||
|
||||
#ifndef BT_PORT_ANY
|
||||
#define BT_PORT_ANY ((ULONG)-1)
|
||||
#endif
|
||||
|
||||
#ifndef BTH_ADDR_NULL
|
||||
#define BTH_ADDR_NULL ((BTH_ADDR)0)
|
||||
#endif
|
||||
|
||||
class WebSocketManager {
|
||||
public:
|
||||
struct CallbackEvent {
|
||||
enum Type { CONNECT, DISCONNECT, MESSAGE };
|
||||
Type type;
|
||||
std::string data;
|
||||
SOCKET client_socket;
|
||||
};
|
||||
|
||||
struct ClientConnection {
|
||||
SOCKET socket;
|
||||
std::thread receive_thread;
|
||||
std::atomic<bool> active;
|
||||
|
||||
ClientConnection(SOCKET s) : socket(s), active(true) {}
|
||||
};
|
||||
|
||||
private:
|
||||
SOCKET m_listen_socket;
|
||||
std::vector<ClientConnection*> m_connections;
|
||||
mutable std::mutex m_connections_mutex;
|
||||
std::thread m_accept_thread;
|
||||
std::atomic<bool> m_running;
|
||||
bool m_initialized;
|
||||
std::chrono::steady_clock::time_point m_start_time;
|
||||
uint16_t m_port;
|
||||
|
||||
// Squirrel VM and callbacks
|
||||
HSQUIRRELVM m_vm;
|
||||
HSQOBJECT m_on_connect_callback;
|
||||
HSQOBJECT m_on_disconnect_callback;
|
||||
HSQOBJECT m_on_message_callback;
|
||||
bool m_has_on_connect;
|
||||
bool m_has_on_disconnect;
|
||||
bool m_has_on_message;
|
||||
|
||||
// Event queue - car la VM Squirrel n'est pas thread-safe
|
||||
// Les callbacks doivent être appelés depuis le thread principal
|
||||
std::queue<CallbackEvent> m_event_queue;
|
||||
mutable std::mutex m_queue_mutex;
|
||||
|
||||
void InternalOnConnect(SOCKET client_socket);
|
||||
void InternalOnDisconnect(SOCKET client_socket);
|
||||
void InternalOnMessage(SOCKET client_socket, const std::string& message);
|
||||
|
||||
void InitializeServer();
|
||||
void AcceptLoop();
|
||||
void ReceiveLoop(ClientConnection* connection);
|
||||
bool SendToClient(SOCKET client_socket, const std::string& message);
|
||||
|
||||
public:
|
||||
WebSocketManager(HSQUIRRELVM vm);
|
||||
~WebSocketManager();
|
||||
|
||||
// Server control
|
||||
bool Start(uint16_t port);
|
||||
void Stop();
|
||||
bool IsRunning() const { return m_running; }
|
||||
|
||||
// Messaging
|
||||
void Broadcast(const std::string& message);
|
||||
|
||||
// Statistics
|
||||
int GetConnectionCount() const;
|
||||
float GetUptime() const;
|
||||
uint16_t GetPort() const { return m_port; }
|
||||
|
||||
// Squirrel callbacks
|
||||
void SetOnConnectCallback(HSQOBJECT callback);
|
||||
void SetOnDisconnectCallback(HSQOBJECT callback);
|
||||
void SetOnMessageCallback(HSQOBJECT callback);
|
||||
|
||||
// Process events - DOIT être appelé depuis le thread principal !
|
||||
// C'est ici que les callbacks Squirrel sont réellement invoqués
|
||||
void ProcessEvents();
|
||||
};
|
||||
|
||||
#endif // WS_MANAGER_H
|
||||
Reference in New Issue
Block a user