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
|
// license:BSD-3-Clause
// copyright-holders:Miodrag Milanovic
/***************************************************************************
luaengine.h
Controls execution of the core MAME system.
***************************************************************************/
#pragma once
#ifndef __EMU_H__
#error Dont include this file directly; include emu.h instead.
#endif
#ifndef __LUA_ENGINE_H__
#define __LUA_ENGINE_H__
#include <map>
struct lua_State;
class lua_engine
{
public:
// construction/destruction
lua_engine();
~lua_engine();
void initialize();
void start_console();
void load_script(const char *filename);
void load_string(const char *value);
void serve_lua();
void periodic_check();
void resume(lua_State *L, int nparam = 0, lua_State *root = NULL);
void set_machine(running_machine *machine) { m_machine = machine; update_machine(); }
private:
struct hook {
lua_State *L;
int cb;
hook();
void set(lua_State *L, int idx);
lua_State *precall();
void call(lua_engine *engine, lua_State *T, int nparam);
bool active() const { return L != NULL; }
};
static const char *const tname_ioport;
// internal state
lua_State *m_lua_state;
running_machine * m_machine;
hook hook_output_cb;
bool output_notifier_set;
static lua_engine* luaThis;
std::map<lua_State *, std::pair<lua_State *, int> > thread_registry;
running_machine &machine() const { return *m_machine; }
void update_machine();
void output_notifier(const char *outname, INT32 value);
static void s_output_notifier(const char *outname, INT32 value, void *param);
void emu_after_done(void *_h, INT32 param);
int emu_after(lua_State *L);
int emu_wait(lua_State *L);
void emu_hook_output(lua_State *L);
static int l_ioport_write(lua_State *L);
static int l_emu_after(lua_State *L);
static int l_emu_wait(lua_State *L);
static int l_emu_time(lua_State *L);
static int l_emu_gamename(lua_State *L);
static int l_emu_keypost(lua_State *L);
static int l_emu_hook_output(lua_State *L);
static int l_emu_exit(lua_State *L);
static int l_emu_start(lua_State *L);
void resume(void *L, INT32 param);
void report_errors(int status);
void start();
static int luaopen_ioport(lua_State *L);
void close();
static void *checkparam(lua_State *L, int idx, const char *tname);
static void *getparam(lua_State *L, int idx, const char *tname);
static void push(lua_State *L, void *p, const char *tname);
int report(int status);
int docall(int narg, int nres);
int incomplete(int status) ;
};
#endif /* __LUA_ENGINE_H__ */
|