Something went wrong. Try again.
A modern, network-enabled music player platform built on Rockbox technology. rockboxd.tsiry-sandratraina.com
rust deno navidrome airplay libadwaita zig mpris snapcast mpd rockbox audio subsonic
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136/*************************************************************************** * __________ __ ___. * Open \______ \ ____ ____ | | _\_ |__ _______ ___ * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ * \/ \/ \/ \/ \/ * * Copyright (C) 2008 Dan Everton (safetydan) * Copyright (C) 2009 Maurus Cuelenaere * Copyright (C) 2018 William Wilgus * * 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 "lstring.h"
#include "lauxlib.h"#include "rocklib.h"#include "lib/helper.h"
/* * http://www.lua.org/manual/5.1/manual.html#lua_CFunction * * In order to communicate properly with Lua, a C function must use the following protocol, * which defines the way parameters and results are passed: a C function receives its arguments * from Lua in its stack in direct order (the first argument is pushed first). To return values to Lua, * a C function just pushes them onto the stack, in direct order (the first result is pushed first), * and returns the number of results. Any other value in the stack below the results will be properly * discarded by Lua. Like a Lua function, a C function called by Lua can also return many results. * * When porting new functions, don't forget to check rocklib_aux.pl whether it automatically creates * wrappers for the function and if so, add the function names to @forbidden_functions. This is to * prevent namespace collisions and adding duplicate wrappers. */
/* * ----------------------------- * * Rockbox wrappers start here! * * ----------------------------- */extern size_t rock_get_allocated_bytes(void); /* tlsf_helper.c */extern size_t rock_get_unused_bytes(void);
#define RB_WRAP(func) static int rock_##func(lua_State UNUSED_ATTR *L)#define SIMPLE_VOID_WRAPPER(func) RB_WRAP(func) { (void)L; func(); return 0; }
/* KERNEL */RB_WRAP(current_tick){ lua_pushinteger(L, *rb->current_tick); return 1;}
#ifdef HAVE_SCHEDULER_BOOSTCTRLRB_WRAP(schedule_cpu_boost){ bool boost = luaL_checkboolean(L, 1);
if(boost) rb->trigger_cpu_boost(); else rb->cancel_cpu_boost();
return 0;}#endif
RB_WRAP(sleep){ unsigned ticks = (unsigned) lua_tonumber(L, 1); rb->sleep(ticks); return 0;}
#ifdef HAVE_PRIORITY_SCHEDULINGRB_WRAP(thread_set_priority){ unsigned int thread_id = rb->thread_self(); int priority = (int) luaL_checkint(L, 1); int result = rb->thread_set_priority(thread_id, priority); lua_pushinteger(L, result); return 1;}#endif
RB_WRAP(current_path){ return get_current_path(L, 1);}
/* DEVICE INPUT CONTROL */
RB_WRAP(get_plugin_action){ int timeout = luaL_checkint(L, 1); bool with_remote = luaL_optint(L, 2, 0); int btn = get_plugin_action(timeout, with_remote); lua_pushinteger(L, btn); return 1;}
#ifdef HAVE_TOUCHSCREENRB_WRAP(action_get_touchscreen_press){ short x, y; int result = rb->action_get_touchscreen_press(&x, &y);
lua_pushinteger(L, result); lua_pushinteger(L, x); lua_pushinteger(L, y); return 3;}
RB_WRAP(touchscreen_mode){ int origmode = rb->touchscreen_get_mode(); if(!lua_isnoneornil(L, 1)) { enum touchscreen_mode mode = luaL_checkint(L, 1); rb->touchscreen_set_mode(mode); } lua_pushinteger(L, origmode); return 1;}
#endif
// XXX this may be broken with 32-bit ucschar_tRB_WRAP(kbd_input){ /*kbd_input(text, layout)* note: layout needs special formatting see includes/create_kbd_layout.lua or lib/kbd_helper.c */ luaL_Buffer b; luaL_buffinit(L, &b);
const char *input = lua_tostring(L, 1); size_t layout_len; const unsigned char *layout = lua_tolstring(L, 2, &layout_len); char *buffer = luaL_prepbuffer(&b);
if(input != NULL) rb->strlcpy(buffer, input, LUAL_BUFFERSIZE); else buffer[0] = '\0';
if(layout_len <= 2 || layout[layout_len - 1] != 0xFE || layout[layout_len - 2] != 0xFF) { layout = NULL; }
if(!rb->kbd_input(buffer, LUAL_BUFFERSIZE, (ucschar_t *)layout)) { luaL_addstring(&b, buffer); luaL_pushresult(&b); } else return 0;
return 1;}
static const char ** get_table_items(lua_State *L, int pos, int *count){ int i; luaL_checktype(L, pos, LUA_TTABLE); *count = lua_objlen(L, pos); int n = *count;
/* newuserdata will be pushed onto stack after args*/ const char **items = (const char**) lua_newuserdata(L, n * sizeof(const char*));
for(i=1; i<= n; i++) { lua_rawgeti(L, pos, i); /* Push item on the stack */ items[i-1] = lua_tostring(L, -1); lua_pop(L, 1); /* Pop it */ }
return items;}
static inline void fill_text_message(lua_State *L, struct text_message * message, int pos){ int n; /* newuserdata will be pushed onto stack after args*/ message->message_lines = get_table_items(L, pos, &n); message->nb_lines = n;}
RB_WRAP(gui_syncyesno_run){ struct text_message main_message, yes_message, no_message; struct text_message *yes = NULL, *no = NULL;
lua_settop(L, 3); /* newuserdata will be pushed onto stack after args*/ fill_text_message(L, &main_message, 1); if(!lua_isnoneornil(L, 2)) fill_text_message(L, (yes = &yes_message), 2); if(!lua_isnoneornil(L, 3)) fill_text_message(L, (no = &no_message), 3);
enum yesno_res result = rb->gui_syncyesno_run(&main_message, yes, no);
lua_pushinteger(L, result); return 1;}
static lua_State* store_luastate(lua_State *L, bool bStore){ /* it is dangerous to store the lua state byond its guaranteed lifetime be sure to clear state asap (as in before you exit the calling function) */ static lua_State *LStored = NULL; if(bStore) LStored = L; return LStored;}
static int menu_callback(int action, const struct menu_item_ex *this_item, struct gui_synclist *this_list){ (void) this_item; (void) this_list; static int lua_ref = LUA_NOREF; lua_State *L = store_luastate(NULL, false); if(!L) { lua_ref = action; action = ACTION_STD_CANCEL; } else if (lua_ref != LUA_NOREF) { lua_rawgeti(L, LUA_REGISTRYINDEX, lua_ref); lua_pushnumber(L, action); lua_pcall (L, 1, 1, 0); action = luaL_optnumber (L, -1, ACTION_STD_CANCEL); lua_pop(L, 1); }
return action;}
RB_WRAP(do_menu){ struct menu_callback_with_desc menu_desc = {NULL, NULL, Icon_NOICON}; struct menu_item_ex menu = {MT_RETURN_ID | MENU_HAS_DESC, {.strings = NULL}, {.callback_and_desc = &menu_desc}}; int n, start_selected; int ref_lua = LUA_NOREF; const char **items, *title;
title = luaL_checkstring(L, 1);
start_selected = lua_tointeger(L, 3);
if (lua_isfunction (L, -1)) { /*lua callback function cb(action) return action end */ ref_lua = luaL_ref(L, LUA_REGISTRYINDEX); menu_callback(ref_lua, NULL, NULL); store_luastate(L, true); menu_desc.menu_callback = &menu_callback; }
/* newuserdata will be pushed onto stack after args*/ items = get_table_items(L, 2, &n);
menu.strings = items; menu.flags |= MENU_ITEM_COUNT(n); menu_desc.desc = (unsigned char*) title;
int result = rb->do_menu(&menu, &start_selected, NULL, false);
if (ref_lua != LUA_NOREF) { store_luastate(NULL, true); luaL_unref (L, LUA_REGISTRYINDEX, ref_lua); menu_callback(LUA_NOREF, NULL, NULL); }
lua_pushinteger(L, result); return 1;}
RB_WRAP(splash){ int timeout = luaL_checkint(L, 1); const char *str = luaL_checkstring(L, 2); splashf(timeout, str); /*rockaux.c*/ return 0;}
RB_WRAP(splash_progress){ int current = luaL_checkint(L, 1); int total = luaL_checkint(L, 2); const char *str = luaL_checkstring(L, 3); rb->splash_progress(current, total, str); return 0;}
RB_WRAP(splash_scroller){ int timeout = luaL_checkint(L, 1); const char *str = luaL_checkstring(L, 2); int action = splash_scroller(timeout, str); /*rockaux.c*/ lua_pushinteger(L, action); return 1;}
/* DEVICE AUDIO / PLAYLIST CONTROL */
RB_WRAP(playlist){ /* just passes NULL to work with the current playlist */ enum e_playlist {PLAYL_AMOUNT = 0, PLAYL_CREATE, PLAYL_START, PLAYL_RESUMETRACK, PLAYL_RESUME, PLAYL_SHUFFLE, PLAYL_SYNC, PLAYL_REMOVEALLTRACKS, PLAYL_INSERTTRACK, PLAYL_INSERTDIRECTORY, PLAYL_INSERTPLAYL, PLAYL_ECOUNT};
const char *playlist_option[] = {"amount", "create", "start", "resume_track", "resume", "shuffle", "sync", "remove_all_tracks", "insert_track", "insert_directory", "insert_playlist", NULL};
const char *filename, *dir; int result = 0; bool queue, recurse, sync; int pos, crc, index, random_seed; unsigned long elapsed, offset;
int option = luaL_checkoption (L, 1, NULL, playlist_option); switch(option) { case PLAYL_AMOUNT: result = rb->playlist_amount(); break; case PLAYL_CREATE: dir = luaL_checkstring(L, 2); filename = luaL_checkstring(L, 3); result = rb->playlist_create(dir, filename); break; case PLAYL_START: index = luaL_checkint(L, 2); elapsed = luaL_checkint(L, 3); offset = luaL_checkint(L, 4); rb->playlist_start(index, elapsed, offset); break; case PLAYL_RESUMETRACK: index = luaL_checkint(L, 2); crc = luaL_checkint(L, 3); elapsed = luaL_checkint(L, 4); offset = luaL_checkint(L, 5); rb->playlist_resume_track(index, (unsigned) crc, elapsed, offset); break; case PLAYL_RESUME: result = rb->playlist_resume(); break; case PLAYL_SHUFFLE: random_seed = luaL_checkint(L, 2); index = luaL_checkint(L, 3); result = rb->playlist_shuffle(random_seed, index); break; case PLAYL_SYNC: rb->playlist_sync(NULL); break; case PLAYL_REMOVEALLTRACKS: result = rb->playlist_remove_all_tracks(NULL); break; case PLAYL_INSERTTRACK: filename = luaL_checkstring(L, 2); /* only required parameter */ pos = luaL_optint(L, 3, PLAYLIST_INSERT); queue = lua_toboolean(L, 4); /* default to false */ sync = lua_toboolean(L, 5); /* default to false */ result = rb->playlist_insert_track(NULL, filename, pos, queue, sync); break; case PLAYL_INSERTDIRECTORY: dir = luaL_checkstring(L, 2); /* only required parameter */ pos = luaL_optint(L, 3, PLAYLIST_INSERT); queue = lua_toboolean(L, 4); /* default to false */ recurse = lua_toboolean(L, 5); /* default to false */ result = rb->playlist_insert_directory(NULL, dir, pos, queue, recurse, NULL); break; case PLAYL_INSERTPLAYL: filename = luaL_checkstring(L, 2); /* only required parameter */ pos = luaL_optint(L, 3, 0); queue = lua_toboolean(L, 4); /* default to false */ result = rb->playlist_insert_playlist(NULL, filename, pos, queue); break; }
yield(); lua_pushinteger(L, result); return 1;}
RB_WRAP(audio){ enum e_audio {AUDIO_STATUS = 0, AUDIO_PLAY, AUDIO_STOP, AUDIO_PAUSE, AUDIO_RESUME, AUDIO_NEXT, AUDIO_PREV, AUDIO_PREFFREWIND, AUDIO_FFREWIND, AUDIO_FLUSHANDRELOADTRACKS, AUDIO_GETPOS, AUDIO_LENGTH, AUDIO_ELAPSED, AUDIO_ECOUNT}; const char *audio_option[] = {"status", "play", "stop", "pause", "resume", "next", "prev", "pre_ff_rewind", "ff_rewind", "flush_and_reload_tracks", "get_file_pos", "length", "elapsed", NULL}; long elapsed, offset, newtime; int status = rb->audio_status();
int option = luaL_checkoption (L, 1, NULL, audio_option); switch(option) { case AUDIO_STATUS: break; case AUDIO_PLAY: elapsed = luaL_checkint(L, 2); offset = luaL_checkint(L, 3);
if (status == (AUDIO_STATUS_PLAY | AUDIO_STATUS_PAUSE)) { /* not perfect but provides a decent compromise */ rb->audio_pre_ff_rewind(); rb->audio_ff_rewind(elapsed + offset); rb->audio_resume(); } else if (status != AUDIO_STATUS_PLAY) rb->audio_play((unsigned long) elapsed, (unsigned long) offset);
break; case AUDIO_STOP: rb->audio_stop(); break; case AUDIO_PAUSE: rb->audio_pause(); break; case AUDIO_RESUME: rb->audio_resume(); break; case AUDIO_NEXT: rb->audio_next(); break; case AUDIO_PREV: rb->audio_prev(); break; case AUDIO_PREFFREWIND: rb->audio_pre_ff_rewind(); break; case AUDIO_FFREWIND: newtime = (long) luaL_checkint(L, 2); rb->audio_ff_rewind(newtime); break; case AUDIO_FLUSHANDRELOADTRACKS: rb->audio_flush_and_reload_tracks(); break; case AUDIO_GETPOS: lua_pushinteger(L, rb->audio_get_file_pos()); return 1; case AUDIO_LENGTH: if ((status & AUDIO_STATUS_PLAY) == AUDIO_STATUS_PLAY) lua_pushinteger(L, rb->audio_current_track()->length); else lua_pushnil(L); return 1; case AUDIO_ELAPSED: if ((status & AUDIO_STATUS_PLAY) == AUDIO_STATUS_PLAY) lua_pushinteger(L, rb->audio_current_track()->elapsed); else lua_pushnil(L); return 1; }
yield(); lua_pushinteger(L, status); /* return previous (or current) audio status */ return 1;}
RB_WRAP(sound){ enum e_snd {SOUND_SET = 0, SOUND_CURRENT, SOUND_DEFAULT, SOUND_MIN, SOUND_MAX, SOUND_UNIT, SOUND_SET_PITCH, SOUND_VAL2PHYS, SOUND_ECOUNT};
const char *snd_option[] = {"set", "current", "default", "min", "max", "unit", "pitch", "val2phys", NULL};
lua_pushnil(L); /*push nil so options w/o return have something to return */
int option = luaL_checkoption (L, 1, NULL, snd_option); int setting = luaL_checkint(L, 2); int value, result; switch(option) { case SOUND_SET: value = luaL_checkint(L, 3); rb->sound_set(setting, value); return 1; /*nil*/ break; case SOUND_CURRENT: result = rb->sound_current(setting); break; case SOUND_DEFAULT: result = rb->sound_default(setting); break; case SOUND_MIN: result = rb->sound_min(setting); break; case SOUND_MAX: result = rb->sound_max(setting); break; case SOUND_UNIT: lua_pushstring (L, rb->sound_unit(setting)); return 1; break;#if defined (HAVE_PITCHCONTROL) case SOUND_SET_PITCH: rb->sound_set_pitch(setting); return 1;/*nil*/ break;#endif case SOUND_VAL2PHYS: value = luaL_checkint(L, 3); result = rb->sound_val2phys(setting, value); break;
default: return 1; break; }
lua_pushinteger(L, result); return 1;}
RB_WRAP(pcm){ enum e_pcm {PCM_PLAYLOCK = 0, PCM_PLAYUNLOCK, PCM_ECOUNT};
const char *pcm_option[] = {"play_lock", "play_unlock", NULL};
lua_pushnil(L); /*push nil so options w/o return have something to return */
int option = luaL_checkoption (L, 1, NULL, pcm_option); switch(option) { case PCM_PLAYLOCK: rb->pcm_play_lock(); break; case PCM_PLAYUNLOCK: rb->pcm_play_unlock(); break; }
yield(); return 1;}
RB_WRAP(mixer_frequency){ unsigned int result = rb->mixer_get_frequency();
if(!lua_isnoneornil(L, 1)) { unsigned int samplerate = (unsigned int) luaL_checkint(L, 1); rb->mixer_set_frequency(samplerate); } lua_pushinteger(L, result); return 1;}
#ifdef HAVE_BACKLIGHT/* DEVICE LIGHTING CONTROL */RB_WRAP(backlight_onoff){ bool on = luaL_checkboolean(L, 1); if(on) rb->backlight_on(); else rb->backlight_off();
return 0;}
SIMPLE_VOID_WRAPPER(backlight_force_on);SIMPLE_VOID_WRAPPER(backlight_use_settings);
#ifdef HAVE_REMOTE_LCDSIMPLE_VOID_WRAPPER(remote_backlight_force_on);SIMPLE_VOID_WRAPPER(remote_backlight_use_settings);#endif
#ifdef HAVE_BACKLIGHT_BRIGHTNESSRB_WRAP(backlight_brightness_set){ if(lua_isnoneornil(L, 1)) backlight_brightness_use_setting(); else { int brightness = luaL_checkint(L, 1); backlight_brightness_set(brightness); }
return 0;}#endif#endif /* HAVE_BACKLIGHT */
#ifdef HAVE_BUTTON_LIGHTSIMPLE_VOID_WRAPPER(buttonlight_force_on);SIMPLE_VOID_WRAPPER(buttonlight_use_settings);#endif
#ifdef HAVE_BUTTONLIGHT_BRIGHTNESSRB_WRAP(buttonlight_brightness_set){ if(lua_isnoneornil(L, 1)) buttonlight_brightness_use_setting(); else { int brightness = luaL_checkint(L, 1); buttonlight_brightness_set(brightness); }
return 0;}#endif
/* DEVICE STRING / FILENAME MANIPULATION */
#if 0 /*See files.lua */RB_WRAP(strip_extension){ const char* filename = luaL_checkstring(L, -1); const char* pos = rb->strrchr(filename, '.'); if(pos != NULL) lua_pushlstring (L, filename, pos - filename);
return 1;}
RB_WRAP(create_numbered_filename){ luaL_Buffer b; luaL_buffinit(L, &b); char *buffer = luaL_prepbuffer(&b); buffer[0] = '\0';
const char * path = luaL_checkstring(L, 1); const char * prefix = luaL_checkstring(L, 2); const char * suffix = luaL_checkstring(L, 3); int numberlen = luaL_checkint(L, 4); int num = luaL_optint(L, 5, -1); (void) num;
if(rb->create_numbered_filename(buffer, path, prefix, suffix, numberlen IF_CNFN_NUM_(, &num))) { luaL_addstring(&b, buffer); luaL_pushresult(&b); } else return 0;
return 1;}#endif
RB_WRAP(utf8encode){ unsigned long ucs = (unsigned long) luaL_checkint(L, 1); unsigned char tmp[9]; unsigned char *end = rb->utf8encode(ucs, tmp); *end = '\0'; lua_pushstring(L, tmp); return 1;}
RB_WRAP(strncasecmp){ int result; const char * s1 = luaL_checkstring(L, 1); const char * s2 = luaL_checkstring(L, 2); if(lua_isnoneornil(L, 3)) result = rb->strcasecmp(s1, s2); else result = rb->strncasecmp(s1, s2, (size_t) luaL_checkint(L, 3));
lua_pushinteger(L, result); return 1;}
/* ROCKBOX SETTINGS / INFO */static int mem_read_write(lua_State *L, uintptr_t address, size_t maxsize, bool isstr_p){ if(isstr_p) /*pointer to string (**char)*/ { lua_settop(L, 2); /* no writes allowed */ } intptr_t offset = (intptr_t) luaL_optnumber(L, 1, 0); size_t size = (size_t) luaL_optnumber(L, 2, maxsize); size_t written; int type = lua_type(L, 3);
if(offset < 0) { /* allows pointer within structure to be calculated offset */ offset = -(address + offset); luaL_argcheck(L, ((size_t) offset) <= maxsize, 1, ERR_IDX_RANGE); size = (size_t) maxsize - offset; }
luaL_argcheck(L, ((uintptr_t) offset) + size <= maxsize, 2, ERR_IDX_RANGE);
char *mem = (char*) address + ((uintptr_t) offset); const void *value = NULL;
lua_Integer var_luaint;#ifdef UINT64_MAX int64_t var_64;#endif int32_t var_32; int16_t var_16; int8_t var_8; bool var_bool;
switch(type) { case LUA_TSTRING: { size_t len; const char* str = lua_tolstring (L, 3, &len);
luaL_argcheck(L, len + 1 <= size, 3, ERR_DATA_OVF); size = len + 1; /* include \0 */ value = str; break; } case LUA_TBOOLEAN: { var_bool = (bool) lua_toboolean(L, 3); value = &var_bool; break; } case LUA_TNUMBER: { var_luaint = lua_tointeger(L, 3); switch(size) { case sizeof(var_8): var_8 = (int8_t) var_luaint; value = &var_8; break; case sizeof(var_16): var_16 = (int16_t) var_luaint; value = &var_16; break; case sizeof(var_32): var_32 = (int32_t) var_luaint; value = &var_32; break;#ifdef UINT64_MAX case sizeof(var_64): var_64 = (int64_t) var_luaint; value = &var_64; break;#endif } /* switch size */ break; } case LUA_TNIL: case LUA_TNONE: /* reader */ { if(isstr_p && mem) { lua_pushstring (L, *(char**) mem); return 1; } luaL_Buffer b; luaL_buffinit(L, &b); while(size > 0) { written = MIN(LUAL_BUFFERSIZE, size); luaL_addlstring (&b, mem, written); mem += written; size -= written; }
luaL_pushresult(&b); return 1; }
default: break; } /* switch type */
/* writer */ luaL_argcheck(L, value != NULL, 3, "Unknown Type"); rb->memcpy(mem, value, size); lua_pushinteger(L, 1);
return 1;}
RB_WRAP(global_status){ const uintptr_t address = (uintptr_t) rb->global_status; const size_t maxsize = sizeof(struct system_status); /*const bool isstr_p = lua_toboolean(L, 4);*/ return mem_read_write(L, address, maxsize, false);}
RB_WRAP(global_settings){ const uintptr_t address = (uintptr_t) rb->global_settings; const size_t maxsize = sizeof(struct user_settings); /*const bool isstr_p = lua_toboolean(L, 4);*/ return mem_read_write(L, address, maxsize, false);}
RB_WRAP(audio_next_track){
const uintptr_t address = (uintptr_t) rb->audio_next_track(); const size_t maxsize = sizeof(struct mp3entry); const bool isstr_p = lua_toboolean(L, 4); lua_settop(L, 2); /* no writes allowed */ return mem_read_write(L, address, maxsize, isstr_p);}
RB_WRAP(audio_current_track){
const uintptr_t address = (uintptr_t) rb->audio_current_track(); const size_t maxsize = sizeof(struct mp3entry); const bool isstr_p = lua_toboolean(L, 4); lua_settop(L, 2); /* no writes allowed */ return mem_read_write(L, address, maxsize, isstr_p);}
RB_WRAP(settings_save){ rb->settings_save(); return 0;}
#if 0RB_WRAP(read_mem){ lua_settop(L, 2); /* no writes allowed */ const uintptr_t address = lua_tonumber(L, 1); const size_t maxsize = luaL_optnumber(L, 2, strlen((char *)address)); luaL_argcheck(L, address > 0, 1, ERR_IDX_RANGE); lua_pushnil(L); lua_replace(L, -3);/* stk pos 1 is no longer offset it is starting address */ return mem_read_write(L, address, maxsize, false);}
/* will add this back if anyone finds a target that needs it */RB_WRAP(system_memory_guard){ int newmode = (int) luaL_checkint(L, 1); int result = rb->system_memory_guard(newmode); lua_pushinteger(L, result); return 1;}#endif
/* SPEAKING */static int rock_talk(lua_State *L){ int result; bool enqueue = lua_toboolean(L, 2); if (lua_isnumber(L, 1)) { long n = (long) lua_tonumber(L, 1); result = rb->talk_number(n, enqueue); } else { const char* spell = luaL_checkstring(L, 1); result = rb->talk_spell(spell, enqueue); }
lua_pushinteger(L, result); return 1;}
RB_WRAP(talk_shutup){ if (lua_toboolean(L, 1)) rb->talk_force_shutup(); else rb->talk_shutup(); return 0;}
/* MISC */RB_WRAP(restart_lua){ /*close lua state, open a new lua state, load script @ filename */ luaL_checktype (L, 1, LUA_TSTRING); lua_settop(L, 1); lua_pushlightuserdata(L, L); /* signal exit handler */ exit(1); /* atexit in rocklua.c */ return -1;}
RB_WRAP(mem_stats){ /* used, allocd, free = rb.mem_stats() */ /* note free is the high watermark */ size_t allocd = rock_get_allocated_bytes(); size_t free = rock_get_unused_bytes();
lua_pushinteger(L, allocd - free); lua_pushinteger(L, allocd); lua_pushinteger(L, free); return 3;}
#define RB_FUNC(func) {#func, rock_##func}#define RB_ALIAS(name, func) {name, rock_##func}static const luaL_Reg rocklib[] ={ /* KERNEL */ RB_FUNC(current_tick),#ifdef HAVE_SCHEDULER_BOOSTCTRL RB_FUNC(schedule_cpu_boost),#endif RB_FUNC(sleep),#ifdef HAVE_PRIORITY_SCHEDULING RB_FUNC(thread_set_priority),#endif
RB_FUNC(current_path),
/* DEVICE INPUT CONTROL */ RB_FUNC(get_plugin_action),#ifdef HAVE_TOUCHSCREEN RB_FUNC(action_get_touchscreen_press), RB_FUNC(touchscreen_mode),#endif RB_FUNC(kbd_input), RB_FUNC(gui_syncyesno_run), RB_FUNC(do_menu), RB_FUNC(splash), RB_FUNC(splash_progress), RB_FUNC(splash_scroller),
/* DEVICE AUDIO / SOUND / PLAYLIST CONTROL */ RB_FUNC(audio), RB_FUNC(playlist), RB_FUNC(sound), RB_FUNC(pcm), RB_FUNC(mixer_frequency),
#ifdef HAVE_BACKLIGHT /* DEVICE LIGHTING CONTROL */ RB_FUNC(backlight_onoff),
/* Backlight helper */ RB_FUNC(backlight_force_on), RB_FUNC(backlight_use_settings),
#ifdef HAVE_REMOTE_LCD RB_FUNC(remote_backlight_force_on), RB_FUNC(remote_backlight_use_settings),#endif
#ifdef HAVE_BACKLIGHT_BRIGHTNESS RB_FUNC(backlight_brightness_set),#endif#endif /* HAVE_BACKLIGHT */
#ifdef HAVE_BUTTON_LIGHT RB_FUNC(buttonlight_force_on), RB_FUNC(buttonlight_use_settings),#endif
#ifdef HAVE_BUTTONLIGHT_BRIGHTNESS RB_FUNC(buttonlight_brightness_set),#endif
/* DEVICE STRING / FILENAME MANIPULATION */#if 0 /*See files.lua */ RB_FUNC(strip_extension), RB_FUNC(create_numbered_filename),#endif RB_FUNC(utf8encode), RB_FUNC(strncasecmp),
/* ROCKBOX SETTINGS / INFO */ RB_FUNC(global_status), RB_FUNC(global_settings), RB_FUNC(audio_next_track), RB_FUNC(audio_current_track), RB_FUNC(settings_save),
/* SPEAKING */ {"talk_number", rock_talk}, {"talk_spell", rock_talk}, RB_FUNC(talk_shutup),
/* MISC */ RB_FUNC(restart_lua), RB_FUNC(mem_stats),
{NULL, NULL}};#undef RB_FUNC#undef RB_ALIAS
extern const luaL_Reg rocklib_aux[];
/* ** Open Rockbox library */LUALIB_API int luaopen_rock(lua_State *L){ luaL_register(L, LUA_ROCKLIBNAME, rocklib); luaL_register(L, LUA_ROCKLIBNAME, rocklib_aux);#ifdef SIMULATOR /* rb.SIMULATOR = true allows checking for the SIM in lua */ lua_pushboolean(L, 1); luaS_newlloc(L, "SIMULATOR", TSTR_INBIN); lua_setfield(L, -2, "SIMULATOR");#endif lua_getglobal(L, "require"); lua_pushstring(L, "rb_defines"); if (lua_pcall (L, 1, 0, 0)) lua_pop(L, 1);#if 0 /* see rb_defines.lua */ static const struct lua_int_reg rlib_const_int[] = { /* useful integer constants */ RB_CONSTANT(HZ),
RB_CONSTANT(LCD_DEPTH), RB_CONSTANT(LCD_HEIGHT), RB_CONSTANT(LCD_WIDTH), RB_CONSTANT(SCREEN_MAIN),#if LCD_DEPTH > 1 RB_CONSTANT(LCD_DEFAULT_FG), RB_CONSTANT(LCD_DEFAULT_BG),#endif#ifdef HAVE_REMOTE_LCD RB_CONSTANT(LCD_REMOTE_DEPTH), RB_CONSTANT(LCD_REMOTE_HEIGHT), RB_CONSTANT(LCD_REMOTE_WIDTH), RB_CONSTANT(SCREEN_REMOTE),#endif
RB_CONSTANT(FONT_SYSFIXED), RB_CONSTANT(FONT_UI),
RB_CONSTANT(PLAYLIST_INSERT), RB_CONSTANT(PLAYLIST_INSERT_LAST), RB_CONSTANT(PLAYLIST_INSERT_FIRST), RB_CONSTANT(PLAYLIST_INSERT_LAST_SHUFFLED), RB_CONSTANT(PLAYLIST_INSERT_SHUFFLED), RB_CONSTANT(PLAYLIST_PREPEND), RB_CONSTANT(PLAYLIST_REPLACE),
/* queue sys events */ RB_CONSTANT(SYS_USB_CONNECTED), RB_CONSTANT(SYS_USB_DISCONNECTED), RB_CONSTANT(SYS_TIMEOUT), RB_CONSTANT(SYS_POWEROFF), RB_CONSTANT(SYS_REBOOT), RB_CONSTANT(SYS_CHARGER_CONNECTED), RB_CONSTANT(SYS_CHARGER_DISCONNECTED),
#ifdef HAVE_TOUCHSCREEN RB_CONSTANT(TOUCHSCREEN_POINT), RB_CONSTANT(TOUCHSCREEN_BUTTON),#endif
{NULL, 0} };
static const struct lua_int_reg* rlci = rlib_const_int; for (; rlci->name; rlci++) { lua_pushinteger(L, rlci->value); luaS_newlloc(L, rlci->name, TSTR_INBIN); lua_setfield(L, -2, rlci->name); }
static const struct lua_str_reg rlib_const_str[] = { /* some useful paths constants */ RB_STRING_CONSTANT(HOME_DIR), RB_STRING_CONSTANT(PLUGIN_DIR), RB_STRING_CONSTANT(PLUGIN_APPS_DATA_DIR), RB_STRING_CONSTANT(PLUGIN_GAMES_DATA_DIR), RB_STRING_CONSTANT(PLUGIN_DATA_DIR), RB_STRING_CONSTANT(ROCKBOX_DIR), RB_STRING_CONSTANT(VIEWERS_DATA_DIR), {NULL,NULL} };
static const struct lua_str_reg* rlcs = rlib_const_str; for (; rlcs->name; rlcs++) { luaS_newlloc(L, rlcs->value, TSTR_INBIN); lua_pushstring(L, rlcs->value); luaS_newlloc(L, rlcs->name, TSTR_INBIN); lua_setfield(L, -2, rlcs->name); }#endif return 1;}