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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
|
/* ResidualVM - A 3D game interpreter
*
* ResidualVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
#ifndef GRIM_LUABASE_H
#define GRIM_LUABASE_H
#include "common/str.h"
#include "common/list.h"
#include "engines/grim/color.h"
namespace Grim {
typedef uint32 lua_Object; // from lua/lua.h
class Actor;
class Bitmap;
class Costume;
class Font;
class ObjectState;
class PrimitiveObject;
class TextObject;
class TextObjectDefaults;
class TextObjectCommon;
class PoolObjectBase;
/**
* Declare a Lua opcode in the current class.
*/
#define DECLARE_LUA_OPCODE(func) \
public:\
inline static void static_##func() {\
static_cast<LuaClass *>(LuaBase::instance())->func();\
}\
protected:\
virtual void func()
/**
* Retrieve the opcode "func" of the class "class".
*/
#define LUA_OPCODE(class, func) \
class::static_##func
/**
* @brief A list of arguments to be passed to a Lua function.
*
* This is a convenience class to pass arguments to a Lua function, using
* LuaBase::callback(const char *name, const LuaObjects &objects).
*/
class LuaObjects {
public:
void add(float number);
void add(int number);
void add(const PoolObjectBase *obj);
void add(const char *str);
void addNil();
private:
/**
* Pushes all the objects to Lua, in the same order as they were added.
*/
void pushObjects() const;
/**
* The struct wrapping the value and the type of the objects.
*/
struct Obj {
enum {
Nil,
Number,
Object,
String
} _type;
union {
float number;
const PoolObjectBase *object;
const char *string;
} _value;
};
Common::List<Obj> _objects;
friend class LuaBase;
};
class LuaBase {
public:
typedef LuaBase LuaClass;
LuaBase();
virtual ~LuaBase();
inline static LuaBase *instance() { return s_instance; }
int dofile(const char *filename);
virtual bool findCostume(lua_Object costumeObj, Actor *actor, Costume **costume);
virtual Common::String parseMsgText(const char *msg, char *msgId);
virtual void parseSayLineTable(lua_Object paramObj, bool *background, int *vol, int *pan, float *x, float *y);
virtual void setTextObjectParams(TextObjectCommon *textObject, lua_Object tableObj);
void update(int frameTime, int movieTime);
void setFrameTime(float frameTime);
void setMovieTime(float movieTime);
virtual void registerLua();
virtual void registerOpcodes();
virtual void loadSystemScript();
virtual void boot();
virtual void postRestoreHandle() { }
// Force the demo flag
virtual void forceDemo();
/**
* Call a Lua function in the system table.
*
* @param name The name of the function.
*/
bool callback(const char *name);
/**
* Call a Lua function in the system table passing the specified arguments.
*
* @param name The name of the function;
* @param objects The arguments to be passed to the function.
*/
bool callback(const char *name, const LuaObjects &objects);
protected:
bool getbool(int num);
void pushbool(bool val);
void pushobject(const PoolObjectBase *o);
int getobject(lua_Object obj);
Actor *getactor(lua_Object obj);
Bitmap *getbitmap(lua_Object obj);
TextObject *gettextobject(lua_Object obj);
Font *getfont(lua_Object obj);
Color getcolor(lua_Object obj);
PrimitiveObject *getprimitive(lua_Object obj);
ObjectState *getobjectstate(lua_Object obj);
DECLARE_LUA_OPCODE(dummyHandler);
DECLARE_LUA_OPCODE(typeOverride);
DECLARE_LUA_OPCODE(concatFallback);
private:
// 0 - translate from '/msgId/'
// 1 - don't translate - message after '/msgId'
// 2 - return '/msgId/'
int _translationMode;
unsigned int _frameTimeCollection;
int refSystemTable;
int refTypeOverride;
int refOldConcatFallback;
int refTextObjectX;
int refTextObjectY;
int refTextObjectFont;
int refTextObjectWidth;
int refTextObjectHeight;
int refTextObjectFGColor;
int refTextObjectBGColor;
int refTextObjectFXColor;
int refTextObjectHIColor;
int refTextObjectDuration;
int refTextObjectCenter;
int refTextObjectLJustify;
int refTextObjectRJustify;
int refTextObjectVolume;
int refTextObjectBackground;
int refTextObjectPan;
int refTextObjectLayer;
static LuaBase *s_instance;
friend class LuaObjects;
};
} // end of namespace Grim
#endif
|
