Embedded/elua
1
0
Fork 0
mirror of https://github.com/elua/elua.git synced 2025-01-25 01:02:54 +08:00
Code Issues Projects Releases Wiki Activity

added the piano example (so far only for LM3S8962) and modified the term interface a bit

Browse Source
This commit is contained in:
Bogdan Marinescu 2008-08-25 20:18:50 +00:00
parent 86386ae363
commit edf326cffd
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/modules/term.c
View File

@ -106,6 +106,25 @@ static int luaterm_put( lua_State* L )
return 0;
}
// Lua: putxy( x, y, c1, c2, ... )
static int luaterm_putxy( lua_State* L )
{
int total = lua_gettop( L ), i;
unsigned x, y;
u8 data;
MOD_CHECK_MIN_ARGS( 3 );
x = ( unsigned )luaL_checkinteger( L, 1 );
y = ( unsigned )luaL_checkinteger( L, 2 );
term_gotoxy( x, y );
for( i = 3; i <= total; i ++ )
{
data = ( u8 )luaL_checkinteger( L, 1 );
term_putch( data );
}
return 0;
}
// Lua: putstr( string1, string2, ... )
static int luaterm_putstr( lua_State* L )
{
@ -124,6 +143,28 @@ static int luaterm_putstr( lua_State* L )
return 0;
}
// Lua: putstrxy( x, y, string1, string2, ... )
static int luaterm_putstrxy( lua_State* L )
{
const char* buf;
unsigned x, y;
size_t len, i;
int total = lua_gettop( L ), s;
MOD_CHECK_MIN_ARGS( 3 );
x = ( unsigned )luaL_checkinteger( L, 1 );
y = ( unsigned )luaL_checkinteger( L, 2 );
term_gotoxy( x, y );
for( s = 3; s <= total; s ++ )
{
luaL_checktype( L, s, LUA_TSTRING );
buf = lua_tolstring( L, s, &len );
for( i = 0; i < len; i ++ )
term_putch( buf[ i ] );
}
return 0;
}
// Lua: cursorx = cursorx()
static int luaterm_cx( lua_State* L )
{
@ -163,6 +204,8 @@ static const luaL_reg term_map[] =
{ "cols", luaterm_cols },
{ "put", luaterm_put },
{ "putstr", luaterm_putstr },
{ "putxy", luaterm_putxy },
{ "putstrxy", luaterm_putstrxy },
{ "cursorx", luaterm_cx },
{ "cursory", luaterm_cy },
{ "getch", luaterm_getch },