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
|
/* 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.
*
*/
/*
* This file is based on WME Lite.
* http://dead-code.org/redir.php?target=wmelite
* Copyright (c) 2011 Jan Nedoma
*/
#ifndef WINTERMUTE_SCSCRIPT_H
#define WINTERMUTE_SCSCRIPT_H
#include "engines/wintermute/Base/BBase.h"
#include "engines/wintermute/dcscript.h" // Added by ClassView
#include "engines/wintermute/coll_templ.h"
#include "engines/wintermute/wme_debugger.h"
namespace WinterMute {
class CBScriptHolder;
class CBObject;
class CScEngine;
class CScStack;
class CScScript : public CBBase, public IWmeDebugScript {
public:
HRESULT DbgSendScript(IWmeDebugClient *Client);
HRESULT DbgSendVariables(IWmeDebugClient *Client);
CBArray<int, int> _breakpoints;
bool _tracingMode;
CScScript *_parentScript;
bool _unbreakable;
HRESULT FinishThreads();
HRESULT CopyParameters(CScStack *Stack);
void AfterLoad();
#ifdef __WIN32__
static uint32 Call_cdecl(const void *args, size_t sz, uint32 func, bool *StackCorrupt);
static uint32 Call_stdcall(const void *args, size_t sz, uint32 func, bool *StackCorrupt);
static uint32 GetST0(void);
static double GetST0Double(void);
#endif
CScValue *_operand;
CScValue *_reg1;
bool _freezable;
HRESULT Resume();
HRESULT Pause();
bool canHandleEvent(const char *EventName);
bool canHandleMethod(const char *MethodName);
HRESULT CreateThread(CScScript *Original, uint32 InitIP, const char *EventName);
HRESULT CreateMethodThread(CScScript *Original, const char *MethodName);
CScScript *InvokeEventHandler(const char *EventName, bool Unbreakable = false);
uint32 _timeSlice;
DECLARE_PERSISTENT(CScScript, CBBase)
void RuntimeError(LPCSTR fmt, ...);
HRESULT Run();
HRESULT Finish(bool IncludingThreads = false);
HRESULT Sleep(uint32 Duration);
HRESULT WaitForExclusive(CBObject *Object);
HRESULT WaitFor(CBObject *Object);
uint32 _waitTime;
bool _waitFrozen;
CBObject *_waitObject;
CScScript *_waitScript;
TScriptState _state;
TScriptState _origState;
CScValue *GetVar(char *Name);
uint32 GetFuncPos(const char *Name);
uint32 GetEventPos(const char *Name);
uint32 GetMethodPos(const char *Name);
typedef struct {
uint32 magic;
uint32 version;
uint32 code_start;
uint32 func_table;
uint32 symbol_table;
uint32 event_table;
uint32 externals_table;
uint32 method_table;
} TScriptHeader;
typedef struct {
char *name;
uint32 pos;
} TFunctionPos;
typedef struct {
char *name;
uint32 pos;
} TMethodPos;
typedef struct {
char *name;
uint32 pos;
} TEventPos;
typedef struct {
char *name;
char *dll_name;
TCallType call_type;
TExternalType returns;
int nu_params;
TExternalType *params;
} TExternalFunction;
CScStack *_callStack;
CScStack *_thisStack;
CScStack *_scopeStack;
CScStack *_stack;
CScValue *_globals;
CScEngine *_engine;
int _currentLine;
HRESULT ExecuteInstruction();
char *GetString();
uint32 GetDWORD();
double GetFloat();
void cleanup();
HRESULT Create(const char *Filename, byte *Buffer, uint32 Size, CBScriptHolder *Owner);
uint32 _iP;
uint32 _bufferSize;
byte *_buffer;
CScScript(CBGame *inGame, CScEngine *Engine);
virtual ~CScScript();
char *_filename;
char **_symbols;
int _numSymbols;
TFunctionPos *_functions;
TMethodPos *_methods;
TEventPos *_events;
int _numExternals;
TExternalFunction *_externals;
int _numFunctions;
int _numMethods;
int _numEvents;
bool _thread;
bool _methodThread;
char *_threadEvent;
CBScriptHolder *_owner;
CScScript::TExternalFunction *GetExternal(char *Name);
HRESULT ExternalCall(CScStack *Stack, CScStack *ThisStack, CScScript::TExternalFunction *Function);
private:
HRESULT InitScript();
HRESULT InitTables();
// IWmeDebugScript interface implementation
public:
virtual int DbgGetLine();
virtual const char *DbgGetFilename();
virtual TScriptState DbgGetState();
virtual int DbgGetNumBreakpoints();
virtual int DbgGetBreakpoint(int Index);
virtual bool DbgSetTracingMode(bool IsTracing);
virtual bool DbgGetTracingMode();
};
} // end of namespace WinterMute
#endif
|
