forked from len0rd/rockbox
Commit FS#9174: Lua scripting language by Dan Everton
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21020 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Maurus Cuelenaere
parent
c483efadc6
commit
cf87597226
73 changed files with 20254 additions and 2 deletions
364
apps/plugins/lua/rocklib.c
Normal file
364
apps/plugins/lua/rocklib.c
Normal file
|
|
@ -0,0 +1,364 @@
|
|||
/***************************************************************************
|
||||
* __________ __ ___.
|
||||
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
* \/ \/ \/ \/ \/
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (C) 2008 Dan Everton (safetydan)
|
||||
* Copyright (C) 2009 Maurus Cuelenaere
|
||||
*
|
||||
* 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 software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
||||
* KIND, either express or implied.
|
||||
*
|
||||
****************************************************************************/
|
||||
|
||||
#define lrocklib_c
|
||||
#define LUA_LIB
|
||||
|
||||
#include "lua.h"
|
||||
|
||||
#include "lauxlib.h"
|
||||
#include "rocklib.h"
|
||||
|
||||
#define RB_WRAP(M) static int rock_##M(lua_State *L)
|
||||
|
||||
RB_WRAP(splash)
|
||||
{
|
||||
int ticks = luaL_checkint(L, 1);
|
||||
const char *s = luaL_checkstring(L, 2);
|
||||
rb->splash(ticks, s);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_update)
|
||||
{
|
||||
(void)L;
|
||||
rb->lcd_update();
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_clear_display)
|
||||
{
|
||||
(void)L;
|
||||
rb->lcd_clear_display();
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_putsxy)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
const char* string = luaL_checkstring(L, 3);
|
||||
rb->lcd_putsxy(x, y, string);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_puts)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
const char* string = luaL_checkstring(L, 3);
|
||||
rb->lcd_puts(x, y, string);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_puts_scroll)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
const char* string = luaL_checkstring(L, 3);
|
||||
rb->lcd_puts_scroll(x, y, string);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_stop_scroll)
|
||||
{
|
||||
(void)L;
|
||||
rb->lcd_stop_scroll();
|
||||
return 1;
|
||||
}
|
||||
|
||||
#ifdef HAVE_LCD_BITMAP
|
||||
RB_WRAP(lcd_set_drawmode)
|
||||
{
|
||||
int drawmode = luaL_checkint(L, 1);
|
||||
rb->lcd_set_drawmode(drawmode);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_get_drawmode)
|
||||
{
|
||||
int result = rb->lcd_get_drawmode();
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_setfont)
|
||||
{
|
||||
int font = luaL_checkint(L, 1);
|
||||
rb->lcd_setfont(font);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_drawpixel)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
|
||||
rb->lcd_drawpixel(x, y);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_drawline)
|
||||
{
|
||||
int x1 = luaL_checkint(L, 1);
|
||||
int y1 = luaL_checkint(L, 2);
|
||||
int x2 = luaL_checkint(L, 3);
|
||||
int y2 = luaL_checkint(L, 4);
|
||||
|
||||
rb->lcd_drawline(x1, y1, x2, y2);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_hline)
|
||||
{
|
||||
int x1 = luaL_checkint(L, 1);
|
||||
int x2 = luaL_checkint(L, 2);
|
||||
int y = luaL_checkint(L, 3);
|
||||
|
||||
rb->lcd_hline(x1, x2, y);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_vline)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y1 = luaL_checkint(L, 2);
|
||||
int y2 = luaL_checkint(L, 3);
|
||||
|
||||
rb->lcd_vline(x, y1, y2);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_drawrect)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
int width = luaL_checkint(L, 3);
|
||||
int height = luaL_checkint(L, 4);
|
||||
|
||||
rb->lcd_drawrect(x, y, width, height);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(lcd_fillrect)
|
||||
{
|
||||
int x = luaL_checkint(L, 1);
|
||||
int y = luaL_checkint(L, 2);
|
||||
int width = luaL_checkint(L, 3);
|
||||
int height = luaL_checkint(L, 4);
|
||||
|
||||
rb->lcd_fillrect(x, y, width, height);
|
||||
|
||||
return 1;
|
||||
}
|
||||
#endif
|
||||
|
||||
RB_WRAP(yield)
|
||||
{
|
||||
(void)L;
|
||||
rb->yield();
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(sleep)
|
||||
{
|
||||
int ticks = luaL_checkint(L, 1);
|
||||
rb->sleep(ticks);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(current_tick)
|
||||
{
|
||||
lua_pushinteger(L, *rb->current_tick);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(button_get)
|
||||
{
|
||||
bool block = lua_toboolean(L, 1);
|
||||
long result = rb->button_get(block);
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(button_get_w_tmo)
|
||||
{
|
||||
int ticks = luaL_checkint(L, 1);
|
||||
long result = rb->button_get_w_tmo(ticks);
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(button_status)
|
||||
{
|
||||
int result = rb->button_status();
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
#ifdef HAVE_BUTTON_DATA
|
||||
RB_WRAP(button_get_data)
|
||||
{
|
||||
int result = rb->button_get_data();
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
#endif
|
||||
|
||||
#ifdef HAS_BUTTON_HOLD
|
||||
RB_WRAP(button_hold)
|
||||
{
|
||||
bool result = rb->button_hold();
|
||||
lua_pushboolean(L, result);
|
||||
return 1;
|
||||
}
|
||||
#endif
|
||||
|
||||
RB_WRAP(get_action)
|
||||
{
|
||||
int context = luaL_checkint(L, 1);
|
||||
int timeout = luaL_checkint(L, 2);
|
||||
int result = rb->get_action(context, timeout);
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(action_userabort)
|
||||
{
|
||||
int timeout = luaL_checkint(L, 1);
|
||||
bool result = rb->action_userabort(timeout);
|
||||
lua_pushboolean(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(kbd_input)
|
||||
{
|
||||
char* buffer = (char*)luaL_checkstring(L, 1);
|
||||
int buflen = luaL_checkint(L, 2);
|
||||
int result = rb->kbd_input(buffer, buflen);
|
||||
lua_pushinteger(L, result);
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(backlight_on)
|
||||
{
|
||||
(void)L;
|
||||
rb->backlight_on();
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(backlight_off)
|
||||
{
|
||||
(void)L;
|
||||
rb->backlight_off();
|
||||
return 1;
|
||||
}
|
||||
|
||||
RB_WRAP(backlight_set_timeout)
|
||||
{
|
||||
int val = luaL_checkint(L, 1);
|
||||
rb->backlight_set_timeout(val);
|
||||
return 1;
|
||||
}
|
||||
|
||||
#ifdef HAVE_BACKLIGHT_BRIGHTNESS
|
||||
RB_WRAP(backlight_set_brightness)
|
||||
{
|
||||
int val = luaL_checkint(L, 1);
|
||||
rb->backlight_set_brightness(val);
|
||||
return 1;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
#define R(NAME) {#NAME, rock_##NAME}
|
||||
static const luaL_Reg rocklib[] = {
|
||||
/* Graphics */
|
||||
R(lcd_clear_display),
|
||||
R(lcd_update),
|
||||
R(lcd_puts),
|
||||
R(lcd_putsxy),
|
||||
R(lcd_puts_scroll),
|
||||
R(lcd_stop_scroll),
|
||||
R(splash),
|
||||
#ifdef HAVE_LCD_BITMAP
|
||||
R(lcd_set_drawmode),
|
||||
R(lcd_get_drawmode),
|
||||
R(lcd_setfont),
|
||||
R(lcd_drawline),
|
||||
R(lcd_drawpixel),
|
||||
R(lcd_hline),
|
||||
R(lcd_vline),
|
||||
R(lcd_drawrect),
|
||||
R(lcd_fillrect),
|
||||
#endif
|
||||
|
||||
/* Kernel */
|
||||
R(sleep),
|
||||
R(yield),
|
||||
R(current_tick),
|
||||
|
||||
/* Buttons */
|
||||
R(button_get),
|
||||
R(button_get_w_tmo),
|
||||
R(button_status),
|
||||
#ifdef HAVE_BUTTON_DATA
|
||||
R(button_get_data),
|
||||
#endif
|
||||
#ifdef HAS_BUTTON_HOLD
|
||||
R(button_hold),
|
||||
#endif
|
||||
R(get_action),
|
||||
R(action_userabort),
|
||||
R(kbd_input),
|
||||
|
||||
/* Hardware */
|
||||
R(backlight_on),
|
||||
R(backlight_off),
|
||||
R(backlight_set_timeout),
|
||||
#ifdef HAVE_BACKLIGHT_BRIGHTNESS
|
||||
R(backlight_set_brightness),
|
||||
#endif
|
||||
|
||||
{NULL, NULL}
|
||||
};
|
||||
#undef R
|
||||
|
||||
#define RB_CONSTANT(x) lua_pushinteger(L, x); lua_setfield(L, -2, #x);
|
||||
/*
|
||||
** Open Rockbox library
|
||||
*/
|
||||
LUALIB_API int luaopen_rock(lua_State *L)
|
||||
{
|
||||
luaL_register(L, LUA_ROCKLIBNAME, rocklib);
|
||||
RB_CONSTANT(HZ);
|
||||
RB_CONSTANT(LCD_WIDTH);
|
||||
RB_CONSTANT(LCD_HEIGHT);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue