summaryrefslogtreecommitdiffstats
path: root/ctl-lib/ctl-lua.c
diff options
context:
space:
mode:
Diffstat (limited to 'ctl-lib/ctl-lua.c')
-rw-r--r--ctl-lib/ctl-lua.c33
1 files changed, 33 insertions, 0 deletions
diff --git a/ctl-lib/ctl-lua.c b/ctl-lib/ctl-lua.c
index 78eb4ba..02487b5 100644
--- a/ctl-lib/ctl-lua.c
+++ b/ctl-lib/ctl-lua.c
@@ -34,6 +34,8 @@
#define LUA_FIST_ARG 2 // when using luaL_newlib callback receive libtable as 1st arg
#define LUA_MSG_MAX_LENGTH 2048
#define JSON_ERROR (json_object*)-1
+#define LUA_PATH_VALUE "package.path = package.path .. ';?.lua;"
+#define LUA_GLOB_PATTERN "/?.lua;"
static lua_State* luaState;
CtlPluginT *ctlPlugins = NULL;
@@ -1273,6 +1275,7 @@ int LuaConfigExec(AFB_ApiT apiHandle) {
int LuaConfigLoad(AFB_ApiT apiHandle) {
static int luaLoaded = 0;
+ int i;
//int err = 0;
// Lua loads only once
@@ -1294,6 +1297,36 @@ int LuaConfigLoad(AFB_ApiT apiHandle) {
luaL_newlib(luaState, afbFunction);
lua_setglobal(luaState, "AFB");
+ // set package.path lua variable use the CONTROL_PLUGIN_PATH as it could
+ // have to find external lua packages in those directories
+ size_t base_len = strlen(LUA_PATH_VALUE);
+ size_t spath_len = strlen(CONTROL_PLUGIN_PATH);
+
+ int token_nb = spath_len ? 1:0;
+ char *spath = strdup(CONTROL_PLUGIN_PATH);
+ char *sep = spath;
+ while((sep = strchr(sep, ':')) != NULL) {
+ token_nb++;
+ sep++;
+ }
+
+ // token + the lua glob pattern which is 7 char length
+ size_t total_len = base_len + spath_len + token_nb * 7 + 1;
+ char *lua_str = malloc(total_len + 1);
+ strncpy(lua_str, LUA_PATH_VALUE, total_len);
+ for (i = 0; i < token_nb; i++) {
+ sep = strsep(&spath, ":");
+ strncat(lua_str, sep, total_len - strlen(lua_str));
+ strncat(lua_str, LUA_GLOB_PATTERN, total_len - strlen(lua_str));
+ }
+ strncat(lua_str, "'", 2);
+
+ if(luaL_dostring(luaState, lua_str))
+ printf("Fail change package.path error=%s", lua_tostring(luaState, -1));
+
+ free(spath);
+ free(lua_str);
+
// initialise static magic for context
#ifndef CTX_MAGIC
CTX_MAGIC = CtlConfigMagicNew();