winamp/Src/Wasabi/api/script/objcontroller.h

317 lines
14 KiB
C
Raw Normal View History

2024-09-24 12:54:57 +00:00
#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