317 lines
14 KiB
C++
317 lines
14 KiB
C++
#ifndef __SCRIPTOBJECTCONTROLLER_H
|
|
#define __SCRIPTOBJECTCONTROLLER_H
|
|
|
|
#include <api/script/scriptguid.h>
|
|
|
|
//#include <wasabicfg.h>
|
|
|
|
#include <bfc/ptrlist.h>
|
|
#include <bfc/dispatch.h>
|
|
#include <api/script/scriptobj.h>
|
|
#include <api/script/vcputypes.h>
|
|
#include <api/service/svcs/svc_scriptobj.h>
|
|
|
|
#define SCRIPT_MAXARGS 10 // 10 args max per function
|
|
|
|
#define MAKI_CMD_NONE 0
|
|
#define MAKI_CMD_SETDLF 1
|
|
#define MAKI_CMD_GETDLF 2
|
|
#define MAKI_CMD_ADDREF 3
|
|
#define MAKI_CMD_REMREF 4
|
|
#define MAKI_CMD_RESETDLF 5
|
|
|
|
#define SCRIPT_FUNCTION_INIT static int __dlfid=-1, __linkcount=0; if (__cmd != NULL) return WASABI_API_MAKI->maki_updateDlf(__cmd, &__dlfid, &__linkcount);
|
|
#define SCRIPT_FUNCTION_CHECKABORTEVENT if (__dlfid==-1) RETURN_SCRIPT_VOID;
|
|
#define SCRIPT_FUNCTION_CHECKABORTEVENT_SYS(o) { SCRIPT_FUNCTION_CHECKABORTEVENT { SystemObject *so = static_cast<SystemObject *>(o->vcpu_getInterface(systemObjectGuid)); if (!so || !so->isLoaded()) RETURN_SCRIPT_VOID; } }
|
|
#define PROCESS_HOOKS0(object, controller) { controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, NULL, 0); }
|
|
#define PROCESS_HOOKS1(object, controller, p1) { scriptVar *__table[1] = {&p1}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 1); }
|
|
#define PROCESS_HOOKS2(object, controller, p1, p2) { scriptVar *__table[2] = {&p1, &p2}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 2); }
|
|
#define PROCESS_HOOKS3(object, controller, p1, p2, p3) { scriptVar *__table[3] = {&p1, &p2, &p3}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 3); }
|
|
#define PROCESS_HOOKS4(object, controller, p1, p2, p3, p4) { scriptVar *__table[4] = {&p1, &p2, &p3, &p4}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 4); }
|
|
#define PROCESS_HOOKS5(object, controller, p1, p2, p3, p4, p5) { scriptVar *__table[5] = {&p1, &p2, &p3, &p4, &p5}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 5); }
|
|
#define PROCESS_HOOKS6(object, controller, p1, p2, p3, p4, p5, p6) { scriptVar *__table[6] = {&p1, &p2, &p3, &p4, &p5, &p6}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 6); }
|
|
#define PROCESS_HOOKS7(object, controller, p1, p2, p3, p4, p5, p6, p7) { scriptVar *__table[7] = {&p1, &p2, &p3, &p4, &p5, &p6, &p7}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 7); }
|
|
#define PROCESS_HOOKS8(object, controller, p1, p2, p3, p4, p5, p6, p7, p8) { scriptVar *__table[8] = {&p1, &p2, &p3, &p4, &p5, &p6, &p7, &p8}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 8); }
|
|
#define PROCESS_HOOKS9(object, controller, p1, p2, p3, p4, p5, p6, p7, p8, p9) { scriptVar *__table[9] = {&p1, &p2, &p3, &p4, &p5, &p6, &p7, &p8, &p9}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 9); }
|
|
#define PROCESS_HOOKS10(object, controller, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10) { scriptVar *__table[10] = {&p1, &p2, &p3, &p4, &p5, &p6, &p7, &p8, &p9, &p10}; controller->processHooks(static_cast<ScriptObject *>(object), DLF_ID, __table, 10); }
|
|
#define SCRIPT_EXEC_EVENT0(object) { return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 0); }
|
|
#define SCRIPT_EXEC_EVENT1(object, p1) { WASABI_API_MAKI->maki_pushAny(p1); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 1); }
|
|
#define SCRIPT_EXEC_EVENT2(object, p1, p2) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 2); }
|
|
#define SCRIPT_EXEC_EVENT3(object, p1, p2, p3) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 3); }
|
|
#define SCRIPT_EXEC_EVENT4(object, p1, p2, p3, p4) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 4); }
|
|
#define SCRIPT_EXEC_EVENT5(object, p1, p2, p3, p4, p5) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 5); }
|
|
#define SCRIPT_EXEC_EVENT6(object, p1, p2, p3, p4, p5, p6) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); WASABI_API_MAKI->maki_pushAny(p6); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 6); }
|
|
#define SCRIPT_EXEC_EVENT7(object, p1, p2, p3, p4, p5, p6, p7) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); WASABI_API_MAKI->maki_pushAny(p6); WASABI_API_MAKI->maki_pushAny(p7); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 7); }
|
|
#define SCRIPT_EXEC_EVENT8(object, p1, p2, p3, p4, p5, p6, p7, p8) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); WASABI_API_MAKI->maki_pushAny(p6); WASABI_API_MAKI->maki_pushAny(p7); WASABI_API_MAKI->maki_pushAny(p8); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 8); }
|
|
#define SCRIPT_EXEC_EVENT9(object, p1, p2, p3, p4, p5, p6, p7, p8, p9) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); WASABI_API_MAKI->maki_pushAny(p6); WASABI_API_MAKI->maki_pushAny(p7); WASABI_API_MAKI->maki_pushAny(p8); WASABI_API_MAKI->maki_pushAny(p9); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 9); }
|
|
#define SCRIPT_EXEC_EVENT10(object, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10) { WASABI_API_MAKI->maki_pushAny(p1); WASABI_API_MAKI->maki_pushAny(p2); WASABI_API_MAKI->maki_pushAny(p3); WASABI_API_MAKI->maki_pushAny(p4); WASABI_API_MAKI->maki_pushAny(p5); WASABI_API_MAKI->maki_pushAny(p6); WASABI_API_MAKI->maki_pushAny(p7); WASABI_API_MAKI->maki_pushAny(p8); WASABI_API_MAKI->maki_pushAny(p9); WASABI_API_MAKI->maki_pushAny(p10); return WASABI_API_MAKI->maki_triggerEvent(object, DLF_ID, 10); }
|
|
|
|
#define SCRIPT_FUNCTION_PARAMS maki_cmd *__cmd, int __vsd
|
|
#define SCRIPT_CALL NULL, -1
|
|
#define GET_SCRIPT_INT(v) WASABI_API_MAKI->maki_getScriptInt(v)
|
|
//CUT#define GET_SCRIPT_INT(v) ((v).getAsInt())
|
|
#define GET_SCRIPT_BOOLEAN(v) WASABI_API_MAKI->maki_getScriptBoolean(v)
|
|
#define GET_SCRIPT_FLOAT(v) WASABI_API_MAKI->maki_getScriptFloat(v)
|
|
#define GET_SCRIPT_DOUBLE(v) WASABI_API_MAKI->maki_getScriptDouble(v)
|
|
#define GET_SCRIPT_STRING(v) WASABI_API_MAKI->maki_getScriptString(v)
|
|
#define GET_SCRIPT_OBJECT(v) WASABI_API_MAKI->maki_getScriptObject(v)
|
|
|
|
scriptVar COMEXP MAKE_SCRIPT_INT(int i);
|
|
scriptVar COMEXP MAKE_SCRIPT_VOID();
|
|
scriptVar COMEXP MAKE_SCRIPT_FLOAT(float f);
|
|
scriptVar COMEXP MAKE_SCRIPT_DOUBLE(double d);
|
|
scriptVar COMEXP MAKE_SCRIPT_BOOLEAN(int b);
|
|
scriptVar COMEXP MAKE_SCRIPT_OBJECT(ScriptObject *o);
|
|
scriptVar COMEXP MAKE_SCRIPT_STRING(const wchar_t *s);
|
|
void COMEXP *GET_SCRIPT_OBJECT_AS(scriptVar v, GUID g);
|
|
|
|
#define FIXUP_FUNCTION_DLF SCRIPT_FUNCTION_INIT
|
|
/*#define FIXUP_FUNCTION_DLF \
|
|
static int fn_DLF=-1; \
|
|
if (fn_DLF == -1 && DLFid == -1) { RETURN_SCRIPT_ZERO } \
|
|
if (fn_DLF == -1 && DLFid != -1 && o == NULL) { \
|
|
fn_DLF = DLFid; \
|
|
RETURN_SCRIPT_VOID \
|
|
} else if (DLFid != -1) { \
|
|
ASSERTPR(0, "DLFId already set"); \
|
|
RETURN_SCRIPT_VOID \
|
|
}*/
|
|
|
|
#define DLF_ID __dlfid
|
|
|
|
#define RETURN_SCRIPT_EVENT \
|
|
{ scriptVar script_event_return={SCRIPT_EVENT,0}; \
|
|
return script_event_return; }
|
|
|
|
#define RETURN_SCRIPT_VOID \
|
|
{ scriptVar script_event_return={SCRIPT_VOID,0}; \
|
|
return script_event_return; }
|
|
|
|
#define RETURN_SCRIPT_ZERO \
|
|
{ scriptVar script_event_return={SCRIPT_INT,0}; \
|
|
return script_event_return; }
|
|
|
|
#define RETURN_SCRIPT_NULL \
|
|
{ scriptVar script_event_return={SCRIPT_OBJECT,NULL}; \
|
|
return script_event_return; }
|
|
|
|
#define SCRIPT_FUNCTION_INT(_class, func, call) \
|
|
scriptVar _class::func(int DLFid, ScriptObject *o) { \
|
|
FIXUP_FUNCTION_DLF \
|
|
ASSERT(o != NULL); \
|
|
scriptVar s = SOM::makeVar(SCRIPT_INT); \
|
|
SOM::assign(&s, ((_class *)o)->call()); \
|
|
return s;\
|
|
}
|
|
|
|
#define DEC_SCRIPT_FUNCTION_INT(func1, func2) \
|
|
static scriptVar func1(int DLFid, ScriptObject *o); \
|
|
virtual int func2();
|
|
|
|
|
|
#define EVENT_ID __dlfid
|
|
|
|
typedef struct {
|
|
const wchar_t *function_name;
|
|
int nparams;
|
|
void *physical_ptr;
|
|
} function_descriptor_struct;
|
|
|
|
typedef struct {
|
|
ScriptHook *hook;
|
|
ScriptObject *object;
|
|
} object_hook_struct;
|
|
|
|
static const GUID ROOT_GUID =
|
|
{ 0x00000000, 0x0000, 0x0000, { 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 } };
|
|
|
|
|
|
class ScriptObjectController : public Dispatchable {
|
|
protected:
|
|
ScriptObjectController() {};
|
|
|
|
public:
|
|
|
|
void onRegisterClass(ScriptObjectController *rootController);
|
|
GUID getClassGuid();
|
|
const wchar_t *getClassName();
|
|
const wchar_t *getAncestorClassName();
|
|
ScriptObjectController *getAncestorController();
|
|
int getNumFunctions();
|
|
const function_descriptor_struct *getExportedFunctions();
|
|
ScriptObject *instantiate();
|
|
void destroy(ScriptObject *o);
|
|
void *encapsulate(ScriptObject *o);
|
|
void deencapsulate(void *o);
|
|
ScriptObject *cast(ScriptObject *o, GUID g);
|
|
void setClassId(int id);
|
|
int getClassId();
|
|
void setAncestorClassId(int id);
|
|
int getAncestorClassId();
|
|
int getInstantiable();
|
|
int getReferenceable();
|
|
int processHooks(ScriptObject *o, int dlfid, scriptVar **table, int nparams);
|
|
void addClassHook(ScriptHook *h);
|
|
void addObjectHook(ScriptHook *h, ScriptObject *o);
|
|
void removeHooks(ScriptHook *h);
|
|
|
|
enum {
|
|
GETCLASSGUID = 100,
|
|
GETCLASSNAME = 200,
|
|
GETANCESTORCLASSNAME = 300,
|
|
GETNUMFUNCTIONS = 400,
|
|
GETEXPORTEDFUNCTIONS = 500,
|
|
INSTANTIATE = 600,
|
|
DESTROY = 700,
|
|
GETCLASSID = 800,
|
|
SETCLASSID = 900,
|
|
SETANCESTORCLASSID = 1000,
|
|
GETANCESTORCLASSID = 1100,
|
|
GETINSTANTIABLE = 1200,
|
|
GETREFERENCEABLE = 1300,
|
|
PROCESSHOOKS = 1400,
|
|
GETANCESTORCONTROLLER = 1500,
|
|
ADDCLASSHOOK = 1600,
|
|
ADDOBJHOOK = 1700,
|
|
REMHOOKS = 1800,
|
|
ONREGISTERCLASS = 1900,
|
|
ENCAPSULATE = 2000,
|
|
DEENCAPSULATE = 2100,
|
|
CAST = 2200,
|
|
};
|
|
};
|
|
|
|
inline GUID ScriptObjectController::getClassGuid() {
|
|
return _call(GETCLASSGUID, ROOT_GUID);
|
|
}
|
|
|
|
inline const wchar_t *ScriptObjectController::getClassName()
|
|
{
|
|
return _call(GETCLASSNAME, (const wchar_t *)NULL);
|
|
}
|
|
|
|
inline const wchar_t *ScriptObjectController::getAncestorClassName() {
|
|
return _call(GETANCESTORCLASSNAME, (const wchar_t *)NULL);
|
|
}
|
|
|
|
inline int ScriptObjectController::getNumFunctions() {
|
|
return _call(GETNUMFUNCTIONS, 0);
|
|
}
|
|
|
|
inline const function_descriptor_struct *ScriptObjectController::getExportedFunctions() {
|
|
return _call(GETEXPORTEDFUNCTIONS, (const function_descriptor_struct *)NULL);
|
|
}
|
|
|
|
inline ScriptObject *ScriptObjectController::instantiate() {
|
|
return _call(INSTANTIATE, (ScriptObject *)NULL);
|
|
}
|
|
|
|
inline void ScriptObjectController::destroy(ScriptObject *o) {
|
|
_voidcall(DESTROY, o);
|
|
}
|
|
|
|
inline int ScriptObjectController::getClassId() {
|
|
return _call(GETCLASSID, 0);
|
|
}
|
|
|
|
inline void ScriptObjectController::setClassId(int id) {
|
|
_voidcall(SETCLASSID, id);
|
|
}
|
|
|
|
inline int ScriptObjectController::getAncestorClassId() {
|
|
return _call(GETANCESTORCLASSID, 0);
|
|
}
|
|
|
|
inline void ScriptObjectController::setAncestorClassId(int id) {
|
|
_voidcall(SETANCESTORCLASSID, id);
|
|
}
|
|
|
|
inline int ScriptObjectController::getInstantiable() {
|
|
return _call(GETINSTANTIABLE, 0);
|
|
}
|
|
|
|
inline int ScriptObjectController::getReferenceable() {
|
|
return _call(GETREFERENCEABLE, 0);
|
|
}
|
|
|
|
inline ScriptObjectController *ScriptObjectController::getAncestorController() {
|
|
return _call(GETANCESTORCONTROLLER, (ScriptObjectController *)NULL);
|
|
}
|
|
|
|
inline int ScriptObjectController::processHooks(ScriptObject *o, int dlfid, scriptVar **table, int nparams) {
|
|
return _call(PROCESSHOOKS, 0, o, dlfid, table, nparams);
|
|
}
|
|
|
|
inline void ScriptObjectController::addClassHook(ScriptHook *h) {
|
|
_voidcall(ADDCLASSHOOK, h);
|
|
}
|
|
|
|
inline void ScriptObjectController::addObjectHook(ScriptHook *h, ScriptObject *o) {
|
|
_voidcall(ADDOBJHOOK, h, o);
|
|
}
|
|
|
|
inline void ScriptObjectController::removeHooks(ScriptHook *h) {
|
|
_voidcall(REMHOOKS, h);
|
|
}
|
|
|
|
inline void ScriptObjectController::onRegisterClass(ScriptObjectController *rootController) {
|
|
_voidcall(ONREGISTERCLASS, rootController);
|
|
}
|
|
|
|
inline void *ScriptObjectController::encapsulate(ScriptObject *o) {
|
|
return _call(ENCAPSULATE, (void *) NULL, o);
|
|
}
|
|
|
|
inline void ScriptObjectController::deencapsulate(void *o) {
|
|
_voidcall(DEENCAPSULATE, o);
|
|
}
|
|
|
|
inline ScriptObject *ScriptObjectController::cast(ScriptObject *o, GUID g) {
|
|
return _call(CAST, (ScriptObject *)NULL, o, g);
|
|
}
|
|
|
|
class ScriptObjectControllerI : public ScriptObjectController {
|
|
public:
|
|
|
|
ScriptObjectControllerI();
|
|
virtual ~ScriptObjectControllerI();
|
|
|
|
virtual void onRegisterClass(ScriptObjectController *rootController);
|
|
virtual GUID getClassGuid()=0;
|
|
virtual const wchar_t *getClassName()=0;
|
|
virtual const wchar_t *getAncestorClassName()=0;
|
|
virtual ScriptObjectController *getAncestorController()=0;
|
|
virtual int getNumFunctions()=0;
|
|
virtual const function_descriptor_struct *getExportedFunctions()=0;
|
|
virtual ScriptObject *instantiate()=0;
|
|
virtual void destroy(ScriptObject *o)=0;
|
|
virtual void *encapsulate(ScriptObject *o)=0;
|
|
virtual void deencapsulate(void *o)=0;
|
|
virtual ScriptObject *cast(ScriptObject *o, GUID g);
|
|
|
|
virtual void setClassId(int id) { my_class_id = id; }
|
|
virtual int getClassId() { return my_class_id; }
|
|
virtual void setAncestorClassId(int id) { my_ancestor_class_id = id; }
|
|
virtual int getAncestorClassId() { return my_ancestor_class_id; }
|
|
virtual int getInstantiable() { return 1; };
|
|
virtual int getReferenceable() { return 1; };
|
|
virtual int processHooks(ScriptObject *o, int dlfid, scriptVar **table, int nparams);
|
|
virtual void addClassHook(ScriptHook *h);
|
|
virtual void addObjectHook(ScriptHook *h, ScriptObject *o);
|
|
virtual void removeHooks(ScriptHook *h);
|
|
|
|
private:
|
|
int my_class_id;
|
|
int my_ancestor_class_id;
|
|
|
|
PtrList<object_hook_struct> objhooks;
|
|
PtrList<ScriptHook> classhooks;
|
|
ScriptObjectController *rootController;
|
|
int incast;
|
|
|
|
protected:
|
|
RECVS_DISPATCH;
|
|
};
|
|
|
|
#endif
|