summaryrefslogtreecommitdiff
path: root/apps/plugins/lua/rocklib.c
diff options
context:
space:
mode:
Diffstat (limited to 'apps/plugins/lua/rocklib.c')
-rw-r--r--apps/plugins/lua/rocklib.c364
1 files changed, 364 insertions, 0 deletions
diff --git a/apps/plugins/lua/rocklib.c b/apps/plugins/lua/rocklib.c
new file mode 100644
index 0000000..60c51f3
--- /dev/null
+++ b/apps/plugins/lua/rocklib.c
@@ -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;
+}
+
generated by cgit v1.1 at 2026-04-25 13:17:08 +0000