Previous

199869 Revisions

Next

r22723 Thursday 9th May, 2013 at 14:32:21 UTC by Miodrag Milanović
added emu.keypost function to lua, and made autoboot_command execute that one instead of direct execution, note that you need to add \n for new line at the end now (nw)

[src/emu]

luaengine.c luaengine.h machine.c

trunk/src/emu/luaengine.c

r22722	r22723
53	53	//  emu_gamename - returns game full name
54	54	//-------------------------------------------------
55	55
56		int lua_engine::emu_gamename(lua_State *L) {
	56	int lua_engine::emu_gamename(lua_State *L)
	57	{
57	58	lua_pushstring(L, luaThis->machine().system().description);
58	59	return 1;
59	60	}
60	61
	62	//-------------------------------------------------
	63	//  emu_keypost - post keys to natural keyboard
	64	//-------------------------------------------------
	65
	66	int lua_engine::emu_keypost(lua_State *L)
	67	{
	68	const char *keys = luaL_checkstring(L,1);
	69	luaThis->machine().ioport().natkeyboard().post_utf8(keys);
	70	return 1;
	71	}
	72
61	73	static const struct luaL_Reg emu_funcs [] =
62	74	{
63	75	{ "gamename", lua_engine::emu_gamename },
	76	{ "keypost", lua_engine::emu_keypost },
64	77	{ NULL, NULL }  /* sentinel */
65	78	};
66	79
r22722	r22723
141	154	}
142	155	}
143	156
144
145	157	//-------------------------------------------------
146		//  execute - setup lua VM and load script
	158	//  createvm - setup lua VM and load script
147	159	//-------------------------------------------------
148	160
149		void lua_engine::execute(const char *filename)
	161	void lua_engine::createvm()
150	162	{
151	163	close();
152	164
r22722	r22723
155	167	luaL_openlibs(m_lua_state);
156	168	luaL_requiref(m_lua_state, "emu", luaopen_emu, 1);
157	169	lua_sethook(m_lua_state, hook, LUA_MASKLINE, 0);
	170	}
158	171
	172	//-------------------------------------------------
	173	//  execute - load and execute script
	174	//-------------------------------------------------
	175
	176	void lua_engine::execute(const char *filename)
	177	{
	178	createvm();
	179
159	180	int s = luaL_loadfile(m_lua_state, filename);
160	181	report_errors(s);
161	182
r22722	r22723
163	184	}
164	185
165	186	//-------------------------------------------------
	187	//  execute_string - execute script from string
	188	//-------------------------------------------------
	189
	190	void lua_engine::execute_string(const char *value)
	191	{
	192	createvm();
	193
	194	int s = luaL_loadstring(m_lua_state, value);
	195	report_errors(s);
	196
	197	mame_printf_verbose("[LUA] Start executing script\n");
	198	}
	199	//-------------------------------------------------
166	200	//  lua_execute - execute slice of lua script
167	201	//  this callback is hooked to frame notification
168	202	//-------------------------------------------------

trunk/src/emu/luaengine.h

r22722	r22723
62	62	void lua_execute();
63	63	void report_errors(int status);
64	64
65		void execute(const char *filename);
66
	65	void createvm();
	66	void execute(const char *filename);
	67	void execute_string(const char *value);
67	68	void close();
68	69
69	70	//static
70	71	static int emu_gamename(lua_State *L);
	72	static int emu_keypost(lua_State *L);
71	73	private:
72	74	// internal state
73	75	running_machine &   m_machine;                          // reference to our machine

trunk/src/emu/machine.c

r22722	r22723
239	239	m_lua_engine.execute(options().autoboot_script());
240	240	}
241	241	if (strlen(options().autoboot_command())!=0) {
242		astring val = astring(options().autoboot_command());
243		val.replace("\\n","\n");
244		val.replace("\\r","\r");
245		ioport().natkeyboard().post_utf8(val);
246		ioport().natkeyboard().post_utf8("\r");
	242	astring cmd = astring(options().autoboot_command());
	243	cmd.replace("'","\\'");
	244	astring val = astring("emu.keypost('",cmd,"')");
	245	m_lua_engine.execute_string(val);
247	246	}
248	247	}
249	248

Previous

199869 Revisions

Next

---

© 1997-2024 The MAME Team