devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Lua: because Rockbox doesn't support any current working directory functionality, 'hack' loadlib so it replace '$' in LUA_PATH_DEFAULT with the directory wherein the current script is.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21595 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Maurus Cuelenaere 2009-07-01 17:01:22 +00:00
parent d5180f7870
commit 9bff845b49
5 changed files with 44 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

33
apps/plugins/lua/rockaux.c
View file

@ -21,6 +21,8 @@
****************************************************************************/
#include "plugin.h"
#define _ROCKCONF_H_ /* Protect against unwanted include */
#include "lua.h"
#if !defined(SIMULATOR) || defined(__MINGW32__) || defined(__CYGWIN__)
int errno = 0;
@ -59,3 +61,34 @@ int strcoll(const char * str1, const char * str2)
return rb->strcmp(str1, str2);
}
const char* get_current_path(lua_State *L, int level)
{
static char buffer[MAX_PATH];
lua_Debug ar;
if(lua_getstack(L, level, &ar))
{
/* Try determining the base path of the current Lua chunk
and write it to dest. */
lua_getinfo(L, "S", &ar);
char* curfile = (char*) &ar.source[1];
char* pos = rb->strrchr(curfile, '/');
if(pos != NULL)
{
unsigned int len = (unsigned int)(pos - curfile);
len = len + 1 > sizeof(buffer) ? sizeof(buffer) - 1 : len;
if(len > 0)
memcpy(buffer, curfile, len);
buffer[len] = '/';
buffer[len+1] = '\0';
return buffer;
}
}
return NULL;
}