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
|
/* ScummVM - Graphic Adventure Engine
*
* ScummVM 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.
*
*/
#include "director/lingo/lingo.h"
namespace Director {
Lingo *g_lingo;
struct EventHandlerType {
LEvent handler;
const char *name;
} static const eventHanlerDescs[] = {
{ kEventPrepareMovie, "prepareMovie" },
{ kEventStartMovie, "startMovie" },
{ kEventStopMovie, "stopMovie" },
{ kEventNew, "newSprite" },
{ kEventBeginSprite, "beginSprite" },
{ kEventEndSprite, "endSprite" },
{ kEventEnterFrame, "enterFrame" },
{ kEventPrepareFrame, "prepareFrame" },
{ kEventIdle, "idle" },
{ kEventStepFrame, "stepFrame"},
{ kEventExitFrame, "exitFrame" },
{ kEventActivateWindow, "activateWindow" },
{ kEventDeactivateWindow, "deactivateWindow" },
{ kEventMoveWindow, "moveWindow" },
{ kEventResizeWindow, "resizeWindow" },
{ kEventOpenWindow, "openWindow" },
{ kEventCloseWindow, "closeWindow" },
{ kEventStart, "start" },
{ kEventKeyUp, "keyUp" },
{ kEventKeyDown, "keyDown" },
{ kEventMouseUp, "mouseUp" },
{ kEventMouseDown, "mouseDown" },
{ kEventRightMouseDown, "rightMouseDown" },
{ kEventRightMouseUp, "rightMouseUp" },
{ kEventMouseEnter, "mouseEnter" },
{ kEventMouseLeave, "mouseLeave" },
{ kEventMouseUpOutSide, "mouseUpOutSide" },
{ kEventMouseWithin, "mouseWithin" },
{ kEventNone, 0 },
};
Lingo::Lingo(DirectorEngine *vm) : _vm(vm) {
g_lingo = this;
for (const EventHandlerType *t = &eventHanlerDescs[0]; t->handler != kEventNone; ++t)
_eventHandlerTypes[t->handler] = t->name;
_currentScript = 0;
warning("Lingo Inited");
}
Lingo::~Lingo() {
}
int Lingo::codeString(const char *str) {
int instLen = sizeof(inst);
int numInsts = (strlen(str) + 1 + instLen - 1) % instLen;
// Allocate needed space in script
_currentScript->push_back(0);
char *start = (char *)(&_currentScript->back());
for (int i = 0; i < numInsts - 1; i++)
_currentScript->push_back(0);
Common::strlcpy(start, str, numInsts * instLen);
return _currentScript->size();
}
void Lingo::addCode(Common::String code, ScriptType type, uint16 id) {
debug(2, "Add code \"%s\" for type %d with id %d", code.c_str(), type, id);
if (_scripts[type].contains(id)) {
delete _scripts[type][id];
}
_currentScript = new ScriptData;
_scripts[type][id] = _currentScript;
parse(code.c_str());
}
void Lingo::processEvent(LEvent event, int entityId) {
if (!_eventHandlerTypes.contains(event))
error("processEvent: Unknown event %d for entity %d", event, entityId);
debug(2, "processEvent(%s) for %d", _eventHandlerTypes[event], entityId);
}
} // End of namespace Director
|
