1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
#ifndef __OBJECTTABLE
#define __OBJECTTABLE
#ifdef __cplusplus
#include <wasabicfg.h>
#include <bfc/ptrlist.h>
class ScriptObjectController;
#ifdef _NOSTUDIO
//CUT #include "../../scriptcompiler/compiler.h"
//CUT #include "../../scriptcompiler/ctrlblock.h"
#endif
#endif
#include <api/script/vcputypes.h>
#define CLASS_ID_BASE 0x100
#define MAKE_NEW_OBJECT(class, objclass) \
case class: \
s = new objclass; \
objclass::instantiate((objclass *)s); \
break;
// For type names table
typedef struct {
wchar_t *name;
int type;
int instantiable;
int referenceable;
} typenames;
// This is the table that link type names as they are
// recognized in scripts to actual basic types.
// Non instantiable means you can't do v = new <type>
// Non referenceable means you can't do <type> v;
// Not a ref means content is not a reference to an object but rather the actual
// content itself
// * special case for strings which is a ref to a char *, but not an object
#define DEFINE_TYPES \
typenames types[] = { \
{L"", SCRIPT_VOID, 0, 0}, /* Non instantiable, non referenceable */ \
{L"Event", SCRIPT_EVENT, 0, 0}, /* Non instantiable, non referenceable */ \
{L"Int", SCRIPT_INT, 0, 1}, /* Not a ref */ \
{L"Float", SCRIPT_FLOAT, 0, 1}, /* Not a ref */ \
{L"Double", SCRIPT_DOUBLE, 0, 1}, /* Not a ref */ \
{L"Boolean", SCRIPT_BOOLEAN, 0, 1}, /* Not a ref */ \
{L"String", SCRIPT_STRING, 0, 1}, /* Not a ref (* special case) */ \
{L"Any", SCRIPT_ANY, 0, 1}, /* Non instantiable, non referenceable */ \
}; \
int ntypes = sizeof(types)/sizeof(typenames);
extern typenames types[];
extern int ntypes;
#define SVC_CLASS_BASE 1024
#ifdef __cplusplus
class class_entry {
public:
const wchar_t *classname;
int classid;
int ancestorclassid;
ScriptObjectController *controller;
GUID classGuid;
int instantiable;
int referenceable;
int external;
waServiceFactory *sf;
};
typedef struct {
void *ptr;
int nargs;
void *host;
} hostrefstruct;
class SystemObject;
class ObjectTable {
public :
static void start(); // initialize tables, internal objects...
static void shutdown(); // free tables
static void unloadExternalClasses(); // unload external classes
static void loadExternalClasses(); // reload external classes
static int registerClass(ScriptObjectController *c, waServiceFactory *sf = NULL); // returns classid. ancestorclass = 0 = Object
// static void instantiate(ScriptObject *o, int classid);
static int addrefDLF(VCPUdlfEntry *dlf, int id);
static void delrefDLF(VCPUdlfEntry *dlf);
static void resetDLF(VCPUdlfEntry *dlf);
static int getClassFromName(const wchar_t *classname);
static int getClassFromGuid(GUID g);
static const wchar_t *getClassName(int classid);
static int isExternal(int classid);
static int getNumGuids();
static GUID enumGuid(int i);
static const wchar_t *enumClassName(int n);
static int getClassEntryIdx(int classid);
static int isDescendant(int class1, int classid);
static int isClassInstantiable(int classid);
static int isClassReferenceable(int classid);
static ScriptObject *instantiate(int classid);
static void *encapsulate(int classid, ScriptObject *o);
static void destroy(ScriptObject *o);
static void deencapsulate(int classid, void *o);
static const wchar_t *getFunction(int dlfid, int *n, ScriptObjectController **p);
static scriptVar callFunction(ScriptObject *obj, int dlfid, scriptVar **params);
static int dlfAddRef(ScriptObjectController *o, const wchar_t *function_name, void *host);
static int dlfAddRef(ScriptObjectController *o, int i, void *host);
static void dlfAddClassRef(ScriptObjectController *o, void *host);
static void dlfRemRef(void *host);
static int checkScript(SystemObject *o);
static ScriptObjectController *getController(GUID g);
static class_entry *getClassEntry(int classid);
static void unlinkClass(class_entry *e);
#ifdef _NOSTUDIO
static int validateMember(int classid, wchar_t *member, ControlBlock *parms, int *ret);
#endif
private:
static PtrList < class_entry > classes;
static PtrList < hostrefstruct > hostrefs;
static int classidx;
static int externalloaded;
};
#endif
#endif
|
