Fix: Dyn API Action loading procedure

Change-Id: Ibb7dbc32580100c588d06e283abb57cc37875312
Signed-off-by: Romain Forlot <romain.forlot@iot.bzh>

1 files changed, 388 insertions, 364 deletions

diff --git a/ctl-lib/ctl-lua.c b/ctl-lib/ctl-lua.c
index 6bbfe58..f932edf 100644
--- a/ctl-lib/ctl-lua.c
+++ b/ctl-lib/ctl-lua.c
@@ -35,20 +35,20 @@
 #define LUA_MSG_MAX_LENGTH 512
 #define JSON_ERROR (json_object*)-1
 
-static  lua_State* luaState;
+static lua_State* luaState;
 CtlPluginT *ctlPlugins = NULL;
 
 #ifndef CTX_MAGIC
- static int CTX_MAGIC;
+static int CTX_MAGIC;
 #endif
 
 #ifndef TIMER_MAGIC
- static int TIMER_MAGIC;
+static int TIMER_MAGIC;
 #endif
 
 typedef struct {
     char *name;
-    int  count;
+    int count;
     AFB_EventT event;
 } LuaAfbEvent;
 
@@ -58,65 +58,68 @@ typedef struct {
 } LuaAfbSourceT;
 
 typedef struct {
-  const char *callback;
-  json_object *context;
-  CtlSourceT *source;
+    const char *callback;
+    json_object *context;
+    CtlSourceT *source;
 } LuaCbHandleT;
 
-
 /*
  * Note(Fulup): I fail to use luaL_setmetatable and replaced it with a simple opaque
  * handle while waiting for someone smarter than me to find a better solution
  *  https://stackoverflow.com/questions/45596493/lua-using-lua-newuserdata-from-lua-pcall
-*/
-static CtlSourceT *LuaSourcePop (lua_State *luaState, int index) {
-  LuaAfbSourceT *afbSource;
-  luaL_checktype(luaState, index, LUA_TLIGHTUSERDATA);
-  afbSource = (LuaAfbSourceT *) lua_touserdata(luaState, index);
-  if (afbSource == NULL || afbSource->ctxMagic != CTX_MAGIC) {
-      luaL_error(luaState, "(Hoops) Invalid source handle");
-      return NULL;
-  }
-  return afbSource->source;
+ */
+static CtlSourceT *LuaSourcePop(lua_State *luaState, int index) {
+    LuaAfbSourceT *afbSource;
+    luaL_checktype(luaState, index, LUA_TLIGHTUSERDATA);
+    afbSource = (LuaAfbSourceT *) lua_touserdata(luaState, index);
+    if (afbSource == NULL || afbSource->ctxMagic != CTX_MAGIC) {
+        luaL_error(luaState, "(Hoops) Invalid source handle");
+        return NULL;
+    }
+    return afbSource->source;
 }
 
-static LuaAfbSourceT *LuaSourcePush (lua_State *luaState, CtlSourceT *source) {
-  LuaAfbSourceT *afbSource = (LuaAfbSourceT *)calloc(1, sizeof(LuaAfbSourceT));
-  if (!afbSource) {
-      AFB_ApiError(source->api, "LuaSourcePush fail to allocate user data context");
-      return NULL;
-  }
-
-  lua_pushlightuserdata(luaState, afbSource);
-  afbSource->ctxMagic=CTX_MAGIC;
-  afbSource->source= source;
-  return afbSource;
+static LuaAfbSourceT *LuaSourcePush(lua_State *luaState, CtlSourceT *source) {
+    LuaAfbSourceT *afbSource = (LuaAfbSourceT *) calloc(1, sizeof (LuaAfbSourceT));
+    if (!afbSource) {
+        AFB_ApiError(source->api, "LuaSourcePush fail to allocate user data context");
+        return NULL;
+    }
+
+    lua_pushlightuserdata(luaState, afbSource);
+    afbSource->ctxMagic = CTX_MAGIC;
+    afbSource->source = source;
+    return afbSource;
 }
 
 // Push a json structure on the stack as a LUA table
-static int LuaPushArgument (CtlSourceT *source, json_object *argsJ) {
+
+static int LuaPushArgument(CtlSourceT *source, json_object *argsJ) {
 
     //AFB_NOTICE("LuaPushArgument argsJ=%s", json_object_get_string(argsJ));
 
-    json_type jtype= json_object_get_type(argsJ);
+    json_type jtype = json_object_get_type(argsJ);
     switch (jtype) {
-        case json_type_object: {
-            lua_newtable (luaState);
-            json_object_object_foreach (argsJ, key, val) {
-                int done = LuaPushArgument (source, val);
+        case json_type_object:
+        {
+            lua_newtable(luaState);
+
+            json_object_object_foreach(argsJ, key, val) {
+                int done = LuaPushArgument(source, val);
                 if (done) {
-                    lua_setfield(luaState,-2, key);
+                    lua_setfield(luaState, -2, key);
                 }
             }
             break;
         }
-        case json_type_array: {
-            size_t length= json_object_array_length(argsJ);
-            lua_newtable (luaState);
-            for (int idx=0; idx < length; idx ++) {
-                json_object *val=json_object_array_get_idx(argsJ, idx);
-                LuaPushArgument (source, val);
-                lua_seti (luaState,-2, idx);
+        case json_type_array:
+        {
+            size_t length = json_object_array_length(argsJ);
+            lua_newtable(luaState);
+            for (int idx = 0; idx < length; idx++) {
+                json_object *val = json_object_array_get_idx(argsJ, idx);
+                LuaPushArgument(source, val);
+                lua_seti(luaState, -2, idx);
             }
             break;
         }
@@ -144,48 +147,49 @@ static int LuaPushArgument (CtlSourceT *source, json_object *argsJ) {
     return 1;
 }
 
-static  json_object *LuaPopOneArg (CtlSourceT *source, lua_State* luaState, int idx);
+static json_object *LuaPopOneArg(CtlSourceT *source, lua_State* luaState, int idx);
 
 // Move a table from Internal Lua representation to Json one
 // Numeric table are transformed in json array, string one in object
 // Mix numeric/string key are not supported
-static json_object *LuaTableToJson (CtlSourceT *source, lua_State* luaState, int index) {
-    #define LUA_KEY_INDEX -2
-    #define LUA_VALUE_INDEX -1
+
+static json_object *LuaTableToJson(CtlSourceT *source, lua_State* luaState, int index) {
+#define LUA_KEY_INDEX -2
+#define LUA_VALUE_INDEX -1
 
     int idx;
     int tableType;
-    json_object *tableJ= NULL;
+    json_object *tableJ = NULL;
 
     lua_pushnil(luaState); // 1st key
     if (index < 0) index--;
-    for (idx=1; lua_next(luaState, index) != 0; idx++) {
+    for (idx = 1; lua_next(luaState, index) != 0; idx++) {
 
         // uses 'key' (at index -2) and 'value' (at index -1)
-        if (lua_type(luaState,LUA_KEY_INDEX) == LUA_TSTRING) {
+        if (lua_type(luaState, LUA_KEY_INDEX) == LUA_TSTRING) {
 
             if (!tableJ) {
-                tableJ= json_object_new_object();
-                tableType=LUA_TSTRING;
-            } else if (tableType != LUA_TSTRING){
+                tableJ = json_object_new_object();
+                tableType = LUA_TSTRING;
+            } else if (tableType != LUA_TSTRING) {
                 AFB_ApiError(source->api, "MIX Lua Table with key string/numeric not supported");
                 return NULL;
             }
 
-            const char *key= lua_tostring(luaState, LUA_KEY_INDEX);
-            json_object *argJ= LuaPopOneArg(source, luaState, LUA_VALUE_INDEX);
+            const char *key = lua_tostring(luaState, LUA_KEY_INDEX);
+            json_object *argJ = LuaPopOneArg(source, luaState, LUA_VALUE_INDEX);
             json_object_object_add(tableJ, key, argJ);
 
         } else {
             if (!tableJ) {
-                tableJ= json_object_new_array();
-                tableType=LUA_TNUMBER;
-            } else if(tableType != LUA_TNUMBER) {
+                tableJ = json_object_new_array();
+                tableType = LUA_TNUMBER;
+            } else if (tableType != LUA_TNUMBER) {
                 AFB_ApiError(source->api, "MIX Lua Table with key numeric/string not supported");
                 return NULL;
             }
 
-            json_object *argJ= LuaPopOneArg(source, luaState, LUA_VALUE_INDEX);
+            json_object *argJ = LuaPopOneArg(source, luaState, LUA_VALUE_INDEX);
             json_object_array_add(tableJ, argJ);
         }
 
@@ -201,209 +205,208 @@ static json_object *LuaTableToJson (CtlSourceT *source, lua_State* luaState, int
     return tableJ;
 }
 
-static  json_object *LuaPopOneArg (CtlSourceT *source, lua_State* luaState, int idx) {
-    json_object *value=NULL;
+static json_object *LuaPopOneArg(CtlSourceT *source, lua_State* luaState, int idx) {
+    json_object *value = NULL;
 
     int luaType = lua_type(luaState, idx);
-    switch(luaType)  {
-        case LUA_TNUMBER: {
-            lua_Number number= lua_tonumber(luaState, idx);;
-            int nombre = (int)number; // evil trick to determine wether n fits in an integer. (stolen from ltcl.c)
+    switch (luaType) {
+        case LUA_TNUMBER:
+        {
+            lua_Number number = lua_tonumber(luaState, idx);
+            ;
+            int nombre = (int) number; // evil trick to determine wether n fits in an integer. (stolen from ltcl.c)
             if (number == nombre) {
-                value= json_object_new_int((int)number);
+                value = json_object_new_int((int) number);
             } else {
-                value= json_object_new_double(number);
+                value = json_object_new_double(number);
             }
             break;
         }
         case LUA_TBOOLEAN:
-            value=  json_object_new_boolean(lua_toboolean(luaState, idx));
+            value = json_object_new_boolean(lua_toboolean(luaState, idx));
             break;
         case LUA_TSTRING:
-           value=  json_object_new_string(lua_tostring(luaState, idx));
+            value = json_object_new_string(lua_tostring(luaState, idx));
             break;
         case LUA_TTABLE:
-            value= LuaTableToJson(source, luaState, idx);
+            value = LuaTableToJson(source, luaState, idx);
             break;
         case LUA_TNIL:
-            value=json_object_new_string("nil") ;
+            value = json_object_new_string("nil");
             break;
         case LUA_TUSERDATA:
-            value=json_object_new_int64((int64_t)lua_touserdata(luaState, idx)); // store userdata as int !!!
+            value = json_object_new_int64((int64_t) lua_touserdata(luaState, idx)); // store userdata as int !!!
             break;
 
         default:
-            AFB_ApiNotice (source->api, "LuaPopOneArg: script returned Unknown/Unsupported idx=%d type:%d/%s", idx, luaType, lua_typename(luaState, luaType));
-            value=NULL;
+            AFB_ApiNotice(source->api, "LuaPopOneArg: script returned Unknown/Unsupported idx=%d type:%d/%s", idx, luaType, lua_typename(luaState, luaType));
+            value = NULL;
     }
 
     return value;
 }
 
-static json_object *LuaPopArgs (CtlSourceT *source, lua_State* luaState, int start) {
+static json_object *LuaPopArgs(CtlSourceT *source, lua_State* luaState, int start) {
     json_object *responseJ;
 
     int stop = lua_gettop(luaState);
-    if(stop-start <0) return NULL;
+    if (stop - start < 0) return NULL;
 
     // start at 2 because we are using a function array lib
     if (start == stop) {
-        responseJ=LuaPopOneArg (source, luaState, start);
+        responseJ = LuaPopOneArg(source, luaState, start);
     } else {
         // loop on remaining return arguments
-        responseJ= json_object_new_array();
-        for (int idx=start; idx <= stop; idx++) {
-            json_object *argJ=LuaPopOneArg (source, luaState, idx);
+        responseJ = json_object_new_array();
+        for (int idx = start; idx <= stop; idx++) {
+            json_object *argJ = LuaPopOneArg(source, luaState, idx);
             if (!argJ)
                 return NULL;
             json_object_array_add(responseJ, argJ);
-       }
+        }
     }
 
     return responseJ;
 }
 
-
-
 static int LuaFormatMessage(lua_State* luaState, int verbosity, int level) {
     char *message;
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source)
         return 1;
 
     // if log level low then silently ignore message
 #ifdef AFB_BINDING_PREV3
-    if(source->api->verbosity < verbosity) return 0;
+    if (source->api->verbosity < verbosity) return 0;
 #else
-    if(afb_get_verbosity() < verbosity) return 0;
+    if (afb_get_verbosity() < verbosity) return 0;
 #endif
 
-    json_object *responseJ= LuaPopArgs(source, luaState, LUA_FIST_ARG+1);
+    json_object *responseJ = LuaPopArgs(source, luaState, LUA_FIST_ARG + 1);
 
     if (!responseJ) {
-        luaL_error(luaState,"LuaFormatMessage empty message");
+        luaL_error(luaState, "LuaFormatMessage empty message");
         return 1;
     }
 
     // if we have only on argument just return the value.
-    if (json_object_get_type(responseJ)!=json_type_array || json_object_array_length(responseJ) <2) {
-        message= (char*)json_object_get_string(responseJ);
+    if (json_object_get_type(responseJ) != json_type_array || json_object_array_length(responseJ) < 2) {
+        message = (char*) json_object_get_string(responseJ);
         goto PrintMessage;
     }
 
     // extract format and push all other parameter on the stack
-    message = alloca (LUA_MSG_MAX_LENGTH);
+    message = alloca(LUA_MSG_MAX_LENGTH);
     const char *format = json_object_get_string(json_object_array_get_idx(responseJ, 0));
 
-    int arrayIdx=1;
-    int uidIdx=0;
+    int arrayIdx = 1;
+    int uidIdx = 0;
 
-    for (int idx=0; format[idx] !='\0'; idx++) {
+    for (int idx = 0; format[idx] != '\0'; idx++) {
 
-        if (format[idx]=='%' && format[idx] !='\0') {
-            json_object *slotJ= json_object_array_get_idx(responseJ, arrayIdx);
+        if (format[idx] == '%' && format[idx] != '\0') {
+            json_object *slotJ = json_object_array_get_idx(responseJ, arrayIdx);
             //if (slotJ) AFB_NOTICE("**** idx=%d slotJ=%s", arrayIdx, json_object_get_string(slotJ));
 
 
             switch (format[++idx]) {
                 case 'd':
-                    if (slotJ) uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"%d", json_object_get_int(slotJ));
-                    else  uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"nil");
+                    if (slotJ) uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "%d", json_object_get_int(slotJ));
+                    else uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "nil");
                     arrayIdx++;
                     break;
                 case 'f':
-                    if (slotJ) uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"%f", json_object_get_double(slotJ));
-                    else  uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"nil");
+                    if (slotJ) uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "%f", json_object_get_double(slotJ));
+                    else uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "nil");
                     arrayIdx++;
                     break;
 
                 case'%':
-                    message[uidIdx]='%';
+                    message[uidIdx] = '%';
                     uidIdx++;
                     break;
 
                 case 'A':
-                    uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"level: %s", source->uid);
+                    uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "level: %s", source->uid);
                     break;
 
                 case 's':
                 default:
-                    if (slotJ) uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"%s", json_object_get_string(slotJ));
-                    else  uidIdx += snprintf (&message[uidIdx], LUA_MSG_MAX_LENGTH-uidIdx,"nil");
+                    if (slotJ) uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "%s", json_object_get_string(slotJ));
+                    else uidIdx += snprintf(&message[uidIdx], LUA_MSG_MAX_LENGTH - uidIdx, "nil");
                     arrayIdx++;
-                }
+            }
 
         } else {
             if (uidIdx >= LUA_MSG_MAX_LENGTH) {
-                AFB_ApiWarning (source->api, "LuaFormatMessage: message[%s] owerverflow LUA_MSG_MAX_LENGTH=%d", format, LUA_MSG_MAX_LENGTH);
-                uidIdx --; // move backward for EOL
+                AFB_ApiWarning(source->api, "LuaFormatMessage: message[%s] owerverflow LUA_MSG_MAX_LENGTH=%d", format, LUA_MSG_MAX_LENGTH);
+                uidIdx--; // move backward for EOL
                 break;
             } else {
                 message[uidIdx++] = format[idx];
             }
         }
     }
-    message[uidIdx]='\0';
+    message[uidIdx] = '\0';
 
 PrintMessage:
     // TBD: __file__ and __line__ should match LUA source code
-    AFB_ApiVerbose(source->api, level,__FILE__,__LINE__,source->uid, "%s", message);
+    AFB_ApiVerbose(source->api, level, __FILE__, __LINE__, source->uid, "%s", message);
     json_object_put(responseJ);
-    return 0;  // nothing return to lua
+    return 0; // nothing return to lua
 }
 
-
 static int LuaPrintInfo(lua_State* luaState) {
-    int err=LuaFormatMessage (luaState, AFB_VERBOSITY_LEVEL_INFO, _AFB_SYSLOG_LEVEL_INFO_);
+    int err = LuaFormatMessage(luaState, AFB_VERBOSITY_LEVEL_INFO, _AFB_SYSLOG_LEVEL_INFO_);
     return err;
 }
 
 static int LuaPrintError(lua_State* luaState) {
-    int err=LuaFormatMessage (luaState, AFB_VERBOSITY_LEVEL_ERROR,  _AFB_SYSLOG_LEVEL_ERROR_);
+    int err = LuaFormatMessage(luaState, AFB_VERBOSITY_LEVEL_ERROR, _AFB_SYSLOG_LEVEL_ERROR_);
     return err; // no value return
 }
 
 static int LuaPrintWarning(lua_State* luaState) {
-    int err=LuaFormatMessage (luaState, AFB_VERBOSITY_LEVEL_WARNING,  _AFB_SYSLOG_LEVEL_WARNING_);
+    int err = LuaFormatMessage(luaState, AFB_VERBOSITY_LEVEL_WARNING, _AFB_SYSLOG_LEVEL_WARNING_);
     return err;
 }
 
 static int LuaPrintNotice(lua_State* luaState) {
-    int err=LuaFormatMessage (luaState, AFB_VERBOSITY_LEVEL_NOTICE,  _AFB_SYSLOG_LEVEL_NOTICE_);
+    int err = LuaFormatMessage(luaState, AFB_VERBOSITY_LEVEL_NOTICE, _AFB_SYSLOG_LEVEL_NOTICE_);
     return err;
 }
 
 static int LuaPrintDebug(lua_State* luaState) {
-    int err=LuaFormatMessage (luaState, AFB_VERBOSITY_LEVEL_DEBUG,  _AFB_SYSLOG_LEVEL_DEBUG_);
+    int err = LuaFormatMessage(luaState, AFB_VERBOSITY_LEVEL_DEBUG, _AFB_SYSLOG_LEVEL_DEBUG_);
     return err;
 }
 
 static int LuaAfbSuccess(lua_State* luaState) {
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
         lua_error(luaState);
         return 1;
     }
 
     // ignore context argument
-    json_object *responseJ= LuaPopArgs(source, luaState, LUA_FIST_ARG+1);
+    json_object *responseJ = LuaPopArgs(source, luaState, LUA_FIST_ARG + 1);
     if (responseJ == JSON_ERROR) return 1;
 
-    AFB_ReqSucess (source->request, responseJ, NULL);
+    AFB_ReqSucess(source->request, responseJ, NULL);
 
     json_object_put(responseJ);
     return 0;
 }
 
 static int LuaAfbFail(lua_State* luaState) {
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
         lua_error(luaState);
         return 1;
     }
 
-    json_object *responseJ= LuaPopArgs(source, luaState, LUA_FIST_ARG+1);
+    json_object *responseJ = LuaPopArgs(source, luaState, LUA_FIST_ARG + 1);
     if (responseJ == JSON_ERROR) return 1;
 
     AFB_ReqFail(source->request, source->uid, json_object_get_string(responseJ));
@@ -413,12 +416,14 @@ static int LuaAfbFail(lua_State* luaState) {
 }
 
 #ifdef AFB_BINDING_PREV3
+
 static void LuaAfbServiceCB(void *handle, int iserror, struct json_object *responseJ, AFB_ApiT apiHandle) {
 #else
+
 static void LuaAfbServiceCB(void *handle, int iserror, struct json_object *responseJ) {
 #endif
-    LuaCbHandleT *handleCb= (LuaCbHandleT*)handle;
-    int count=1;
+    LuaCbHandleT *handleCb = (LuaCbHandleT*) handle;
+    int count = 1;
 
     lua_getglobal(luaState, handleCb->callback);
 
@@ -428,49 +433,48 @@ static void LuaAfbServiceCB(void *handle, int iserror, struct json_object *respo
     LuaSourcePush(luaState, handleCb->source);
 
     // push response
-    count+= LuaPushArgument(handleCb->source, responseJ);
-    if (handleCb->context) count+= LuaPushArgument(handleCb->source, handleCb->context);
+    count += LuaPushArgument(handleCb->source, responseJ);
+    if (handleCb->context) count += LuaPushArgument(handleCb->source, handleCb->context);
 
-    int err=lua_pcall(luaState, count, LUA_MULTRET, 0);
+    int err = lua_pcall(luaState, count, LUA_MULTRET, 0);
     if (err) {
-        AFB_ApiError(apiHandle, "LUA-SERVICE-CB:FAIL response=%s err=%s", json_object_get_string(responseJ), lua_tostring(luaState,-1) );
+        AFB_ApiError(apiHandle, "LUA-SERVICE-CB:FAIL response=%s err=%s", json_object_get_string(responseJ), lua_tostring(luaState, -1));
     }
 
-    free (handleCb->source);
-    free (handleCb);
+    free(handleCb->source);
+    free(handleCb);
 }
 
-
 static int LuaAfbService(lua_State* luaState) {
     int count = lua_gettop(luaState);
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbService-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbService-Fail Invalid request handle");
         lua_error(luaState);
         return 1;
     }
 
     // note: argument start at 2 because of AFB: table
-    if (count <6 || !lua_isstring(luaState, 3) || !lua_isstring(luaState, 4) || !lua_isstring(luaState, 6)) {
-        lua_pushliteral (luaState, "ERROR: syntax AFB:service(source, api, verb, {[Lua Table]})");
+    if (count < 6 || !lua_isstring(luaState, 3) || !lua_isstring(luaState, 4) || !lua_isstring(luaState, 6)) {
+        lua_pushliteral(luaState, "ERROR: syntax AFB:service(source, api, verb, {[Lua Table]})");
         lua_error(luaState);
         return 1;
     }
 
     // get api/verb+query
-    const char *api = lua_tostring(luaState,3);
-    const char *verb= lua_tostring(luaState,4);
-    json_object *queryJ= LuaTableToJson(source, luaState, 5);
+    const char *api = lua_tostring(luaState, 3);
+    const char *verb = lua_tostring(luaState, 4);
+    json_object *queryJ = LuaTableToJson(source, luaState, 5);
     if (queryJ == JSON_ERROR) return 1;
 
-    LuaCbHandleT *handleCb = calloc (1, sizeof(LuaCbHandleT));
-    handleCb->callback= lua_tostring(luaState, 6);
+    LuaCbHandleT *handleCb = calloc(1, sizeof (LuaCbHandleT));
+    handleCb->callback = lua_tostring(luaState, 6);
     handleCb->context = LuaPopArgs(source, luaState, 7);
 
     // source need to be duplicate because request return free it
-    handleCb->source  = malloc(sizeof(CtlSourceT));
-    handleCb->source  = memcpy (handleCb->source, source, sizeof(CtlSourceT));
+    handleCb->source = malloc(sizeof (CtlSourceT));
+    handleCb->source = memcpy(handleCb->source, source, sizeof (CtlSourceT));
 
     AFB_ServiceCall(source->api, api, verb, queryJ, LuaAfbServiceCB, handleCb);
 
@@ -481,31 +485,32 @@ static int LuaAfbServiceSync(lua_State* luaState) {
     int count = lua_gettop(luaState);
     json_object *responseJ;
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbServiceSync-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbServiceSync-Fail Invalid request handle");
         lua_error(luaState);
         return 1;
     }
 
     // note: argument start at 2 because of AFB: table
-    if (count != 5 || !lua_isstring(luaState, LUA_FIST_ARG+1) || !lua_isstring(luaState, LUA_FIST_ARG+2) || !lua_istable(luaState, LUA_FIST_ARG+3)) {
-        lua_pushliteral (luaState, "ERROR: syntax AFB:servsync(api, verb, {[Lua Table]})");
+    if (count != 5 || !lua_isstring(luaState, LUA_FIST_ARG + 1) || !lua_isstring(luaState, LUA_FIST_ARG + 2) || !lua_istable(luaState, LUA_FIST_ARG + 3)) {
+        lua_pushliteral(luaState, "ERROR: syntax AFB:servsync(api, verb, {[Lua Table]})");
         lua_error(luaState);
         return 1;
     }
 
 
     // get source/api/verb+query
-    const char *api = lua_tostring(luaState,LUA_FIST_ARG+1);
-    const char *verb= lua_tostring(luaState,LUA_FIST_ARG+2);
-    json_object *queryJ= LuaTableToJson(source, luaState, LUA_FIST_ARG+3);
+    const char *api = lua_tostring(luaState, LUA_FIST_ARG + 1);
+    const char *verb = lua_tostring(luaState, LUA_FIST_ARG + 2);
+    json_object *queryJ = LuaTableToJson(source, luaState, LUA_FIST_ARG + 3);
 
-    int iserror=AFB_ServiceSync(source->api, api, verb, queryJ, &responseJ);
+    int iserror = AFB_ServiceSync(source->api, api, verb, queryJ, &responseJ);
 
     // push error status & response
-    count=1; lua_pushboolean(luaState, iserror);
-    count+= LuaPushArgument(source, responseJ);
+    count = 1;
+    lua_pushboolean(luaState, iserror);
+    count += LuaPushArgument(source, responseJ);
 
     return count; // return count values
 }
@@ -513,38 +518,38 @@ static int LuaAfbServiceSync(lua_State* luaState) {
 static int LuaAfbEventPush(lua_State* luaState) {
     LuaAfbEvent *afbevt;
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
         lua_error(luaState);
         return 1;
     }
 
     // if no private event handle then use default binding event
-    if (!lua_islightuserdata(luaState, LUA_FIST_ARG+1)) {
-        lua_pushliteral (luaState, "LuaAfbMakePush-Fail missing event handle");
+    if (!lua_islightuserdata(luaState, LUA_FIST_ARG + 1)) {
+        lua_pushliteral(luaState, "LuaAfbMakePush-Fail missing event handle");
         lua_error(luaState);
         return 1;
     }
 
-    afbevt = (LuaAfbEvent*) lua_touserdata(luaState, LUA_FIST_ARG+1);
+    afbevt = (LuaAfbEvent*) lua_touserdata(luaState, LUA_FIST_ARG + 1);
 
     if (!AFB_EventIsValid(afbevt->event)) {
-        lua_pushliteral (luaState, "LuaAfbMakePush-Fail invalid event");
+        lua_pushliteral(luaState, "LuaAfbMakePush-Fail invalid event");
         lua_error(luaState);
         return 1;
     }
 
-    json_object *ctlEventJ= LuaTableToJson(source, luaState, LUA_FIST_ARG+2);
+    json_object *ctlEventJ = LuaTableToJson(source, luaState, LUA_FIST_ARG + 2);
     if (!ctlEventJ) {
-        lua_pushliteral (luaState, "LuaAfbEventPush-Syntax is AFB:signal ([evtHandle], {lua table})");
+        lua_pushliteral(luaState, "LuaAfbEventPush-Syntax is AFB:signal ([evtHandle], {lua table})");
         lua_error(luaState);
         return 1;
     }
 
     int done = AFB_EventPush(afbevt->event, ctlEventJ);
     if (!done) {
-        lua_pushliteral (luaState, "LuaAfbEventPush-Fail No Subscriber to event");
+        lua_pushliteral(luaState, "LuaAfbEventPush-Fail No Subscriber to event");
         AFB_ApiError(source->api, "LuaAfbEventPush-Fail name subscriber event=%s count=%d", afbevt->name, afbevt->count);
         lua_error(luaState);
         return 1;
@@ -556,31 +561,31 @@ static int LuaAfbEventPush(lua_State* luaState) {
 static int LuaAfbEventSubscribe(lua_State* luaState) {
     LuaAfbEvent *afbevt;
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
         lua_error(luaState);
         return 1;
     }
 
     // if no private event handle then use default binding event
-    if (!lua_islightuserdata(luaState, LUA_FIST_ARG+1)) {
-        lua_pushliteral (luaState, "LuaAfbMakePush-Fail missing event handle");
+    if (!lua_islightuserdata(luaState, LUA_FIST_ARG + 1)) {
+        lua_pushliteral(luaState, "LuaAfbMakePush-Fail missing event handle");
         lua_error(luaState);
         return 1;
     }
 
-    afbevt = (LuaAfbEvent*) lua_touserdata(luaState, LUA_FIST_ARG+1);
+    afbevt = (LuaAfbEvent*) lua_touserdata(luaState, LUA_FIST_ARG + 1);
 
     if (!AFB_EventIsValid(afbevt->event)) {
-        lua_pushliteral (luaState, "LuaAfbMakePush-Fail invalid event handle");
+        lua_pushliteral(luaState, "LuaAfbMakePush-Fail invalid event handle");
         lua_error(luaState);
         return 1;
     }
 
     int err = AFB_ReqSubscribe(source->request, afbevt->event);
     if (err) {
-        lua_pushliteral (luaState, "LuaAfbEventSubscribe-Fail No Subscriber to event");
+        lua_pushliteral(luaState, "LuaAfbEventSubscribe-Fail No Subscriber to event");
         AFB_ApiError(source->api, "LuaAfbEventPush-Fail name subscriber event=%s count=%d", afbevt->name, afbevt->count);
         lua_error(luaState);
         return 1;
@@ -591,29 +596,29 @@ static int LuaAfbEventSubscribe(lua_State* luaState) {
 
 static int LuaAfbEventMake(lua_State* luaState) {
     int count = lua_gettop(luaState);
-    LuaAfbEvent *afbevt=calloc(1,sizeof(LuaAfbEvent));
+    LuaAfbEvent *afbevt = calloc(1, sizeof (LuaAfbEvent));
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbEventMake-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbEventMake-Fail Invalid request handle");
         lua_error(luaState);
         return 1;
     }
 
-    if (count != LUA_FIST_ARG+1 || !lua_isstring(luaState, LUA_FIST_ARG+1)) {
-        lua_pushliteral (luaState, "LuaAfbEventMake-Syntax is evtHandle= AFB:event ('myEventName')");
+    if (count != LUA_FIST_ARG + 1 || !lua_isstring(luaState, LUA_FIST_ARG + 1)) {
+        lua_pushliteral(luaState, "LuaAfbEventMake-Syntax is evtHandle= AFB:event ('myEventName')");
         lua_error(luaState);
         return 1;
     }
 
     // event name should be the only argument
-    afbevt->name= strdup (lua_tostring(luaState,LUA_FIST_ARG+1));
+    afbevt->name = strdup(lua_tostring(luaState, LUA_FIST_ARG + 1));
 
     // create a new binder event
     afbevt->event = AFB_EventMake(source->api, afbevt->name);
     if (!AFB_EventIsValid(afbevt->event)) {
-        AFB_ApiError (source->api,"Fail to CreateEvent evtname=%s",  afbevt->name);
-        lua_pushliteral (luaState, "LuaAfbEventMake-Fail to Create Binder event");
+        AFB_ApiError(source->api, "Fail to CreateEvent evtname=%s", afbevt->name);
+        lua_pushliteral(luaState, "LuaAfbEventMake-Fail to Create Binder event");
         lua_error(luaState);
         return 1;
     }
@@ -623,11 +628,11 @@ static int LuaAfbEventMake(lua_State* luaState) {
     return 1;
 }
 
-static int LuaAfbGetUid (lua_State* luaState) {
+static int LuaAfbGetUid(lua_State* luaState) {
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
         return 0;
     }
 
@@ -637,11 +642,11 @@ static int LuaAfbGetUid (lua_State* luaState) {
     return 1; // return argument
 }
 
-static int LuaAfbGetStatus (lua_State* luaState) {
+static int LuaAfbGetStatus(lua_State* luaState) {
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
-        lua_pushliteral (luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
+        lua_pushliteral(luaState, "LuaAfbEventSubscribe-Fail Invalid request handle");
         return 0;
     }
 
@@ -652,30 +657,32 @@ static int LuaAfbGetStatus (lua_State* luaState) {
 }
 
 // Function call from LUA when lua2c plugin L2C is used
+
 int Lua2cWrapper(void* luaHandle, char *funcname, Lua2cFunctionT callback) {
-    lua_State* luaState = (lua_State*)luaHandle;
-    json_object *responseJ=NULL;
+    lua_State* luaState = (lua_State*) luaHandle;
+    json_object *responseJ = NULL;
 
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
 
-    json_object *argsJ= LuaPopArgs(source, luaState, LUA_FIST_ARG+1);
-    int err= (*callback) (source, argsJ, &responseJ);
+    json_object *argsJ = LuaPopArgs(source, luaState, LUA_FIST_ARG + 1);
+    int err = (*callback) (source, argsJ, &responseJ);
 
     // push error code and eventual response to LUA
-    int count=1;
-    lua_pushinteger (luaState, err);
-    count += LuaPushArgument (source, responseJ);
+    int count = 1;
+    lua_pushinteger(luaState, err);
+    if (responseJ)count += LuaPushArgument(source, responseJ);
 
     return count;
 }
 
 // Call a Lua function from a control action
-int LuaCallFunc (CtlSourceT *source, CtlActionT *action, json_object *queryJ) {
+
+int LuaCallFunc(CtlSourceT *source, CtlActionT *action, json_object *queryJ) {
 
     int err = 0, count = 1;
 
-    json_object* argsJ   = action->argsJ;
-    const char*  func    = action->exec.lua.funcname;
+    json_object* argsJ = action->argsJ;
+    const char* func = action->exec.lua.funcname;
 
     // load function (should exist in CONTROL_PATH_LUA)
     lua_getglobal(luaState, func);
@@ -704,21 +711,20 @@ int LuaCallFunc (CtlSourceT *source, CtlActionT *action, json_object *queryJ) {
 
     // effectively exec LUA script code
     err = lua_pcall(luaState, count, 1, 0);
-    if (err)  {
-        AFB_ApiError(source->api, "LuaCallFunc Fail calling %s error=%s", func, lua_tostring(luaState,-1));
+    if (err) {
+        AFB_ApiError(source->api, "LuaCallFunc Fail calling %s error=%s", func, lua_tostring(luaState, -1));
         return -1;
     }
 
     // return LUA script value
-    int rc= (int)lua_tointeger(luaState, -1);
+    int rc = (int) lua_tointeger(luaState, -1);
     return rc;
 }
 
-int LuaLoadScript(const char *luaScriptPath)
-{
+int LuaLoadScript(const char *luaScriptPath) {
     int err = 0;
 
-    if(!luaScriptPath)
+    if (!luaScriptPath)
         return -1;
 
     err = luaL_loadfile(luaState, luaScriptPath);
@@ -731,41 +737,40 @@ int LuaLoadScript(const char *luaScriptPath)
     return err;
 }
 
-static int LuaDoScript(json_object *queryJ, CtlSourceT *source)
-{
+static int LuaDoScript(json_object *queryJ, CtlSourceT *source) {
     const char *uid = NULL, *func = NULL;
     char luaScriptPath[CONTROL_MAXPATH_LEN];
     char *filename, *fullpath;
     int index, err = 0;
-    json_object *argsJ=NULL;
+    json_object *argsJ = NULL;
     static json_object *luaScriptPathJ = NULL;
 
     if (!queryJ) {
         return -1;
     }
 
-    err= wrap_json_unpack (queryJ, "{s:s,s?s,s?s,s?o !}",
-        "uid", &uid,
-        "spath",&luaScriptPathJ,
-        "function",&func,
-        "args",&argsJ);
+    err = wrap_json_unpack(queryJ, "{s:s,s?s,s?s,s?o !}",
+            "uid", &uid,
+            "spath", &luaScriptPathJ,
+            "function", &func,
+            "args", &argsJ);
 
     if (err) {
         return -1;
     }
 
     // search for filename=script in CONTROL_LUA_PATH
-    if (!luaScriptPathJ)  {
-        strncpy(luaScriptPath,CONTROL_DOSCRIPT_PRE, strlen(CONTROL_DOSCRIPT_PRE)+1);
-        strncat(luaScriptPath,"-", strlen("-"));
-        strncat(luaScriptPath,uid, strlen(uid));
-        luaScriptPathJ= ScanForConfig(luaScriptPath , CTL_SCAN_RECURSIVE, luaScriptPath, ".lua");
+    if (!luaScriptPathJ) {
+        strncpy(luaScriptPath, CONTROL_DOSCRIPT_PRE, strlen(CONTROL_DOSCRIPT_PRE) + 1);
+        strncat(luaScriptPath, "-", strlen("-"));
+        strncat(luaScriptPath, uid, strlen(uid));
+        luaScriptPathJ = ScanForConfig(luaScriptPath, CTL_SCAN_RECURSIVE, luaScriptPath, ".lua");
     }
 
-    for (index=0; index < json_object_array_length(luaScriptPathJ); index++) {
-        json_object *entryJ=json_object_array_get_idx(luaScriptPathJ, index);
+    for (index = 0; index < json_object_array_length(luaScriptPathJ); index++) {
+        json_object *entryJ = json_object_array_get_idx(luaScriptPathJ, index);
 
-        err= wrap_json_unpack (entryJ, "{s:s, s:s !}", "fullpath",  &fullpath,"filename", &filename);
+        err = wrap_json_unpack(entryJ, "{s:s, s:s !}", "fullpath", &fullpath, "filename", &filename);
         if (err) {
             AFB_ApiError(source->api, "LUA-DOSCRIPT-SCAN:HOOPs invalid config file path = %s", json_object_get_string(entryJ));
             return -2;
@@ -773,23 +778,23 @@ static int LuaDoScript(json_object *queryJ, CtlSourceT *source)
 
         // Ignoring other found script. Only take the first one.
         if (!index) {
-            strncpy (luaScriptPath, fullpath, strlen(fullpath)+1);
-            strncat (luaScriptPath, "/", strlen("/"));
-            strncat (luaScriptPath, filename, strlen(filename));
+            strncpy(luaScriptPath, fullpath, strlen(fullpath) + 1);
+            strncat(luaScriptPath, "/", strlen("/"));
+            strncat(luaScriptPath, filename, strlen(filename));
         }
     }
 
     err = LuaLoadScript(luaScriptPath);
-    if(err) {
-        AFB_ApiError(source->api, "LUA-DOSCRIPT HOOPs Error in LUA loading scripts=%s err=%s", luaScriptPath, lua_tostring(luaState,-1));
+    if (err) {
+        AFB_ApiError(source->api, "LUA-DOSCRIPT HOOPs Error in LUA loading scripts=%s err=%s", luaScriptPath, lua_tostring(luaState, -1));
         return err;
     }
 
     // if no func name given try to deduct from filename
-    if (!func && (func=(char*)GetMidleName(filename))!=NULL) {
-        strncpy(luaScriptPath,"_", strlen("_")+1);
-        strncat(luaScriptPath,func, strlen(func));
-        func=luaScriptPath;
+    if (!func && (func = (char*) GetMidleName(filename)) != NULL) {
+        strncpy(luaScriptPath, "_", strlen("_") + 1);
+        strncat(luaScriptPath, func, strlen(func));
+        func = luaScriptPath;
     }
     if (!func) {
         AFB_ApiError(source->api, "LUA-DOSCRIPT:FAIL to deduct funcname from %s", filename);
@@ -807,14 +812,13 @@ static int LuaDoScript(json_object *queryJ, CtlSourceT *source)
     return 0;
 }
 
-static int LuaDoCall(json_object *queryJ, CtlSourceT *source)
-{
+static int LuaDoCall(json_object *queryJ, CtlSourceT *source) {
     int err = 0;
     int count = 0;
     const char *func;
     json_object *argsJ = NULL;
 
-    if(!queryJ)
+    if (!queryJ)
         return -1;
 
     err = wrap_json_unpack(queryJ, "{s:s, s?o !}", "uid", &func, "args", &argsJ);
@@ -825,7 +829,7 @@ static int LuaDoCall(json_object *queryJ, CtlSourceT *source)
     lua_getglobal(luaState, func);
 
     // Push AFB client context on the stack
-    LuaAfbSourceT *afbSource= LuaSourcePush(luaState, source);
+    LuaAfbSourceT *afbSource = LuaSourcePush(luaState, source);
     if (!afbSource)
         return -3;
 
@@ -834,14 +838,13 @@ static int LuaDoCall(json_object *queryJ, CtlSourceT *source)
         lua_pushnil(luaState);
         count++;
     } else {
-        count+= LuaPushArgument (source, argsJ);
+        count += LuaPushArgument(source, argsJ);
     }
 
     return count;
 }
 
-static int LuaDoString(const char *script, CtlSourceT *source)
-{
+static int LuaDoString(const char *script, CtlSourceT *source) {
     int err = 0;
 
     err = luaL_loadstring(luaState, script);
@@ -849,8 +852,8 @@ static int LuaDoString(const char *script, CtlSourceT *source)
         return -1;
 
     // Push AFB client context on the stack
-    if(source) {
-        LuaAfbSourceT *afbSource= LuaSourcePush(luaState, source);
+    if (source) {
+        LuaAfbSourceT *afbSource = LuaSourcePush(luaState, source);
         if (!afbSource)
             return -2;
     }
@@ -859,81 +862,84 @@ static int LuaDoString(const char *script, CtlSourceT *source)
 }
 
 // Execute LUA code from received API request
-static void LuaDoAction (LuaDoActionT action, AFB_ReqT request) {
-    int err, count=0;
-    CtlSourceT *source = alloca(sizeof(CtlSourceT));
+
+static void LuaDoAction(LuaDoActionT action, AFB_ReqT request) {
+    int err, count = 0;
+    CtlSourceT *source = alloca(sizeof (CtlSourceT));
     source->request = request;
 
     json_object* queryJ = AFB_ReqJson(request);
 
     switch (action) {
 
-        case LUA_DOSTRING: {
+        case LUA_DOSTRING:
+        {
             const char *script = json_object_get_string(queryJ);
             count = LuaDoString(script, source);
-            if(count)
+            if (count)
                 AFB_ApiError(source->api, "DOSTRING goes wrong err=%d, String=%s ", count, script);
             break;
         }
 
-        case LUA_DOCALL: {
+        case LUA_DOCALL:
+        {
             count = LuaDoCall(queryJ, source);
-            if(count)
+            if (count)
                 AFB_ApiError(source->api, "DOCALL goes wrong, error = %d, query=%s", count, json_object_get_string(queryJ));
             break;
         }
 
-        case LUA_DOSCRIPT: {   // Fulup need to fix argument passing
+        case LUA_DOSCRIPT:
+        { // Fulup need to fix argument passing
             count = LuaDoScript(queryJ, source);
-            if(count)
+            if (count)
                 AFB_ApiError(source->api, "DOSCRIPT goes wrong error=%d query=%s", count, json_object_get_string(queryJ));
             break;
         }
 
         default:
             AFB_ApiError(source->api, "LUA-DOSCRIPT-ACTION unknown query=%s", json_object_get_string(queryJ));
-            AFB_ReqFail(request,"LUA:ERROR", lua_tostring(luaState,-1));
+            AFB_ReqFail(request, "LUA:ERROR", lua_tostring(luaState, -1));
             return;
     }
 
-    if(count >= 0)
-        err=lua_pcall(luaState, count+1, 0, 0);
+    if (count >= 0)
+        err = lua_pcall(luaState, count + 1, 0, 0);
     if (err) {
-        AFB_ApiError(source->api, "LUA-DO-EXEC:FAIL query=%s err=%s", json_object_get_string(queryJ), lua_tostring(luaState,-1));
-        AFB_ReqFail(request,"LUA:ERROR", lua_tostring(luaState,-1));
+        AFB_ApiError(source->api, "LUA-DO-EXEC:FAIL query=%s err=%s", json_object_get_string(queryJ), lua_tostring(luaState, -1));
+        AFB_ReqFail(request, "LUA:ERROR", lua_tostring(luaState, -1));
         return;
     }
     return;
 }
 
-void ctlapi_execlua (AFB_ReqT request) {
-    LuaDoAction (LUA_DOSTRING, request);
+void ctlapi_execlua(AFB_ReqT request) {
+    LuaDoAction(LUA_DOSTRING, request);
 }
 
-void ctlapi_request (AFB_ReqT request) {
-    LuaDoAction (LUA_DOCALL, request);
+void ctlapi_request(AFB_ReqT request) {
+    LuaDoAction(LUA_DOCALL, request);
 }
 
-void ctlapi_debuglua (AFB_ReqT request) {
-    LuaDoAction (LUA_DOSCRIPT, request);
+void ctlapi_debuglua(AFB_ReqT request) {
+    LuaDoAction(LUA_DOSCRIPT, request);
 }
 
+static TimerHandleT *LuaTimerPop(lua_State *luaState, int index) {
+    TimerHandleT *timerHandle;
 
-static TimerHandleT *LuaTimerPop (lua_State *luaState, int index) {
-  TimerHandleT *timerHandle;
-
-  luaL_checktype(luaState, index, LUA_TLIGHTUSERDATA);
-  timerHandle = (TimerHandleT *) lua_touserdata(luaState, index);
+    luaL_checktype(luaState, index, LUA_TLIGHTUSERDATA);
+    timerHandle = (TimerHandleT *) lua_touserdata(luaState, index);
 
-  if (timerHandle == NULL && timerHandle->magic != TIMER_MAGIC) {
-      luaL_error(luaState, "Invalid source handle");
-      fprintf(stderr, "LuaSourcePop error retrieving afbSource");
-      return NULL;
-  }
-  return timerHandle;
+    if (timerHandle == NULL && timerHandle->magic != TIMER_MAGIC) {
+        luaL_error(luaState, "Invalid source handle");
+        fprintf(stderr, "LuaSourcePop error retrieving afbSource");
+        return NULL;
+    }
+    return timerHandle;
 }
 
-static int LuaTimerClear (lua_State* luaState) {
+static int LuaTimerClear(lua_State* luaState) {
 
     // retrieve useful information opaque handle
     TimerHandleT *timerHandle = LuaTimerPop(luaState, LUA_FIST_ARG);
@@ -944,12 +950,13 @@ static int LuaTimerClear (lua_State* luaState) {
     // API handle does not exit in API-V2
     LuaCbHandleT *luaCbHandle = (LuaCbHandleT*) timerHandle->context;
 #endif
-    AFB_ApiNotice (luaCbHandle->source->api,"LuaTimerClear timer=%s", timerHandle->uid);
+    AFB_ApiNotice(luaCbHandle->source->api, "LuaTimerClear timer=%s", timerHandle->uid);
     TimerEvtStop(timerHandle);
 
     return 0; //happy end
 }
-static int LuaTimerGet (lua_State* luaState) {
+
+static int LuaTimerGet(lua_State* luaState) {
 
     // retrieve useful information opaque handle
     TimerHandleT *timerHandle = LuaTimerPop(luaState, LUA_FIST_ARG);
@@ -958,13 +965,13 @@ static int LuaTimerGet (lua_State* luaState) {
     LuaCbHandleT *luaCbHandle = (LuaCbHandleT*) timerHandle->context;
 
     // create response as a JSON object
-    json_object *responseJ= json_object_new_object();
-    json_object_object_add(responseJ,"uid", json_object_new_string(timerHandle->uid));
-    json_object_object_add(responseJ,"delay", json_object_new_int(timerHandle->delay));
-    json_object_object_add(responseJ,"count", json_object_new_int(timerHandle->count));
+    json_object *responseJ = json_object_new_object();
+    json_object_object_add(responseJ, "uid", json_object_new_string(timerHandle->uid));
+    json_object_object_add(responseJ, "delay", json_object_new_int(timerHandle->delay));
+    json_object_object_add(responseJ, "count", json_object_new_int(timerHandle->count));
 
     // return JSON object as Lua table
-    int count=LuaPushArgument(luaCbHandle->source, responseJ);
+    int count = LuaPushArgument(luaCbHandle->source, responseJ);
 
     // free json object
     json_object_put(responseJ);
@@ -975,7 +982,8 @@ static int LuaTimerGet (lua_State* luaState) {
 // Timer Callback
 
 // Set timer
-static int LuaTimerSetCB (TimerHandleT *timer) {
+
+static int LuaTimerSetCB(TimerHandleT *timer) {
     LuaCbHandleT *LuaCbHandle = (LuaCbHandleT*) timer->context;
     int count;
 
@@ -983,23 +991,23 @@ static int LuaTimerSetCB (TimerHandleT *timer) {
     lua_getglobal(luaState, LuaCbHandle->callback);
 
     // Push AFB client context on the stack
-    count=1;
-    LuaAfbSourceT *afbSource= LuaSourcePush(luaState, LuaCbHandle->source);
+    count = 1;
+    LuaAfbSourceT *afbSource = LuaSourcePush(luaState, LuaCbHandle->source);
     if (!afbSource)
         return 1;
 
     // Push AFB client context on the stack
-    count ++;
+    count++;
     lua_pushlightuserdata(luaState, timer);
     if (!afbSource)
         return 1;
 
     // Push user Context
-    count+= LuaPushArgument(LuaCbHandle->source, LuaCbHandle->context);
+    count += LuaPushArgument(LuaCbHandle->source, LuaCbHandle->context);
 
-    int err=lua_pcall(luaState, count, LUA_MULTRET, 0);
+    int err = lua_pcall(luaState, count, LUA_MULTRET, 0);
     if (err) {
-        AFB_ApiError (LuaCbHandle->source->api,"LUA-TIMER-CB:FAIL response=%s err=%s", json_object_get_string(LuaCbHandle->context), lua_tostring(luaState,-1));
+        AFB_ApiError(LuaCbHandle->source->api, "LUA-TIMER-CB:FAIL response=%s err=%s", json_object_get_string(LuaCbHandle->context), lua_tostring(luaState, -1));
         return 1;
     }
 
@@ -1008,45 +1016,46 @@ static int LuaTimerSetCB (TimerHandleT *timer) {
         return (lua_toboolean(luaState, -1));
     }
 
-    return 0;  // By default we are happy
+    return 0; // By default we are happy
 }
 
 // Free Timer context handle
+
 static int LuaTimerCtxFree(void *handle) {
     LuaCbHandleT *LuaCbHandle = (LuaCbHandleT*) handle;
 
-    free (LuaCbHandle->source);
-    free (LuaCbHandle);
+    free(LuaCbHandle->source);
+    free(LuaCbHandle);
 
     return 0;
 }
 
 static int LuaTimerSet(lua_State* luaState) {
-    const char *uid=NULL, *info=NULL;
-    int delay=0, count=0;
+    const char *uid = NULL, *info = NULL;
+    int delay = 0, count = 0;
 
     // Get source handle
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
         lua_error(luaState);
         return 1; // return error code
     }
 
-    json_object *timerJ = LuaPopOneArg(source, luaState, LUA_FIST_ARG+1);
+    json_object *timerJ = LuaPopOneArg(source, luaState, LUA_FIST_ARG + 1);
     const char *callback = lua_tostring(luaState, LUA_FIST_ARG + 2);
     json_object *contextJ = LuaPopOneArg(source, luaState, LUA_FIST_ARG + 3);
 
-    if (lua_gettop(luaState) != LUA_FIST_ARG+3 || !timerJ || !callback || !contextJ) {
+    if (lua_gettop(luaState) != LUA_FIST_ARG + 3 || !timerJ || !callback || !contextJ) {
         lua_pushliteral(luaState, "LuaTimerSet: Syntax timerset (source, timerT, 'callback', contextT)");
         lua_error(luaState);
         return 1; // return error code
     }
 
     int err = wrap_json_unpack(timerJ, "{ss, s?s si, si !}",
-        "uid", &uid,
-        "info", &info,
-        "delay", &delay,
-        "count", &count);
+            "uid", &uid,
+            "info", &info,
+            "delay", &delay,
+            "count", &count);
     if (err) {
 
         lua_pushliteral(luaState, "LuaTimerSet: Syntax timerT={uid:xxx delay:ms, count:xx}");
@@ -1055,22 +1064,22 @@ static int LuaTimerSet(lua_State* luaState) {
     }
 
     // Allocate handle to store context and callback
-    LuaCbHandleT *handleCb = calloc (1, sizeof(LuaCbHandleT));
-    handleCb->callback= callback;
+    LuaCbHandleT *handleCb = calloc(1, sizeof (LuaCbHandleT));
+    handleCb->callback = callback;
     handleCb->context = contextJ;
-    handleCb->source  = malloc(sizeof(CtlSourceT));
-    memcpy (handleCb->source, source, sizeof(CtlSourceT));  // Fulup need to be free when timer is done
+    handleCb->source = malloc(sizeof (CtlSourceT));
+    memcpy(handleCb->source, source, sizeof (CtlSourceT)); // Fulup need to be free when timer is done
 
     // everything look fine create timer structure
-    TimerHandleT *timerHandle = malloc (sizeof (TimerHandleT));
-    timerHandle->magic= TIMER_MAGIC;
-    timerHandle->delay=delay;
-    timerHandle->count=count;
-    timerHandle->uid=uid;
-    timerHandle->freeCB=LuaTimerCtxFree;
+    TimerHandleT *timerHandle = malloc(sizeof (TimerHandleT));
+    timerHandle->magic = TIMER_MAGIC;
+    timerHandle->delay = delay;
+    timerHandle->count = count;
+    timerHandle->uid = uid;
+    timerHandle->freeCB = LuaTimerCtxFree;
 
     // fire timer
-    TimerEvtStart (source->api, timerHandle, LuaTimerSetCB, handleCb);
+    TimerEvtStart(source->api, timerHandle, LuaTimerSetCB, handleCb);
 
     // Fulup finir les timers avec handle
 
@@ -1086,11 +1095,10 @@ typedef struct {
     CtlSourceT *source;
 } LuaClientCtxT;
 
-
-static void *LuaClientCtxNew (void * handle) {
+static void *LuaClientCtxNew(void * handle) {
 
     LuaClientCtxT *clientCtx = (LuaClientCtxT*) handle;
-    int count=1;
+    int count = 1;
 
     // push callback and client context on Lua stack
     lua_getglobal(luaState, clientCtx->callback);
@@ -1099,32 +1107,32 @@ static void *LuaClientCtxNew (void * handle) {
     clientCtx->source->status = CTL_STATUS_DONE;
 
     // Push AFB client context on the stack
-    LuaAfbSourceT *afbSource= LuaSourcePush(luaState, clientCtx->source);
+    LuaAfbSourceT *afbSource = LuaSourcePush(luaState, clientCtx->source);
     if (!afbSource)
         return NULL;
 
     // Push user Context
-    count+= LuaPushArgument(clientCtx->source, clientCtx->clientCtxJ);
+    count += LuaPushArgument(clientCtx->source, clientCtx->clientCtxJ);
 
-    int err=lua_pcall(luaState, count, 1, 0);
+    int err = lua_pcall(luaState, count, 1, 0);
     if (err) {
-        AFB_ApiError (clientCtx->source->api,"LuaClientCtxNew:FAIL response=%s err=%s", json_object_get_string(clientCtx->clientCtxJ), lua_tostring(luaState,-1));
+        AFB_ApiError(clientCtx->source->api, "LuaClientCtxNew:FAIL response=%s err=%s", json_object_get_string(clientCtx->clientCtxJ), lua_tostring(luaState, -1));
         return NULL;
     }
 
     // If function return an error status then free client context
     if (lua_tointeger(luaState, -1)) {
-        free (clientCtx);
+        free(clientCtx);
         return NULL;
     }
 
-    return handle;  // By default we are happy
+    return handle; // By default we are happy
 }
 
-static void LuaClientCtxFree (void * handle) {
+static void LuaClientCtxFree(void * handle) {
 
     LuaClientCtxT *clientCtx = (LuaClientCtxT*) handle;
-    int count=1;
+    int count = 1;
 
     if (!handle) return;
 
@@ -1135,38 +1143,39 @@ static void LuaClientCtxFree (void * handle) {
     clientCtx->source->status = CTL_STATUS_FREE;
 
     // Push AFB client context on the stack
-    LuaAfbSourceT *afbSource= LuaSourcePush(luaState, clientCtx->source);
+    LuaAfbSourceT *afbSource = LuaSourcePush(luaState, clientCtx->source);
     if (!afbSource)
         return;
 
     // Push user Context
-    count+= LuaPushArgument(clientCtx->source, clientCtx->clientCtxJ);
+    count += LuaPushArgument(clientCtx->source, clientCtx->clientCtxJ);
 
-    int err=lua_pcall(luaState, count, LUA_MULTRET, 0);
+    int err = lua_pcall(luaState, count, LUA_MULTRET, 0);
     if (err) {
-        AFB_ApiError (clientCtx->source->api,"LuaClientCtxFree:FAIL response=%s err=%s", json_object_get_string(clientCtx->clientCtxJ), lua_tostring(luaState,-1));
+        AFB_ApiError(clientCtx->source->api, "LuaClientCtxFree:FAIL response=%s err=%s", json_object_get_string(clientCtx->clientCtxJ), lua_tostring(luaState, -1));
         return;
     }
 
     // If function return an error status then free client context
     if (lua_toboolean(luaState, -1)) {
-        free (clientCtx);
+        free(clientCtx);
         return;
     }
 
-    return;  // No return status
+    return; // No return status
 }
 
 // set a context that will be free when WS is closed
+
 static int LuaClientCtx(lua_State* luaState) {
     // Get source handle
-    CtlSourceT *source= LuaSourcePop(luaState, LUA_FIST_ARG);
+    CtlSourceT *source = LuaSourcePop(luaState, LUA_FIST_ARG);
     if (!source) {
         lua_error(luaState);
         return 1; // return error code
     }
 
-    if (!AFB_ReqIsValid (source->request)) {
+    if (!AFB_ReqIsValid(source->request)) {
         lua_pushliteral(luaState, "LuaSessionSet-Syntax should be called within client request context");
         lua_error(luaState);
         return 1; // return error code
@@ -1182,21 +1191,21 @@ static int LuaClientCtx(lua_State* luaState) {
     const char *callback = lua_tostring(luaState, LUA_FIST_ARG + 1);
     json_object *clientCtxJ = LuaPopOneArg(source, luaState, LUA_FIST_ARG + 2);
 
-    if (lua_gettop(luaState) != LUA_FIST_ARG+2 || !clientCtxJ || !callback) {
+    if (lua_gettop(luaState) != LUA_FIST_ARG + 2 || !clientCtxJ || !callback) {
         lua_pushliteral(luaState, "LuaClientCtx-Syntax clientCtx (source, callback, clientCtx)");
         lua_error(luaState);
         return 1; // return error code
     }
 
     // Allocate handle to store clientCtx and callback
-    LuaClientCtxT *clientCtx = calloc (1, sizeof(LuaCbHandleT));
+    LuaClientCtxT *clientCtx = calloc(1, sizeof (LuaCbHandleT));
     clientCtx->callback = callback;
-    clientCtx->clientCtxJ= clientCtxJ;
-    clientCtx->source  = malloc(sizeof(CtlSourceT));
-    memcpy (clientCtx->source, source, sizeof(CtlSourceT));  // source if free when command return
+    clientCtx->clientCtxJ = clientCtxJ;
+    clientCtx->source = malloc(sizeof (CtlSourceT));
+    memcpy(clientCtx->source, source, sizeof (CtlSourceT)); // source if free when command return
 
     // push client context within session
-    void *done = AFB_ClientCtxSet (source->request, 1, LuaClientCtxNew, LuaClientCtxFree, clientCtx);
+    void *done = AFB_ClientCtxSet(source->request, 1, LuaClientCtxNew, LuaClientCtxFree, clientCtx);
     if (!done) {
         lua_pushliteral(luaState, "LuaClientCtx-Fail to allocate client context)");
         lua_error(luaState);
@@ -1208,49 +1217,71 @@ static int LuaClientCtx(lua_State* luaState) {
 
 
 // Register a new L2c list of LUA user plugin commands
+
 void LuaL2cNewLib(luaL_Reg *l2cFunc, int count, const char *prefix) {
     // luaL_newlib(luaState, l2cFunc); macro does not work with pointer :(
     luaL_checkversion(luaState);
-    lua_createtable(luaState, 0, count+1);
-    luaL_setfuncs(luaState,l2cFunc,0);
+    lua_createtable(luaState, 0, count + 1);
+    luaL_setfuncs(luaState, l2cFunc, 0);
     lua_setglobal(luaState, prefix);
 }
 
 static const luaL_Reg afbFunction[] = {
     {"timerclear", LuaTimerClear},
-    {"timerget"  , LuaTimerGet},
-    {"timerset"  , LuaTimerSet},
-    {"notice"    , LuaPrintNotice},
-    {"info"      , LuaPrintInfo},
-    {"warning"   , LuaPrintWarning},
-    {"debug"     , LuaPrintDebug},
-    {"error"     , LuaPrintError},
-    {"servsync"  , LuaAfbServiceSync},
-    {"service"   , LuaAfbService},
-    {"success"   , LuaAfbSuccess},
-    {"fail"      , LuaAfbFail},
-    {"subscribe" , LuaAfbEventSubscribe},
-    {"evtmake"   , LuaAfbEventMake},
-    {"evtpush"   , LuaAfbEventPush},
-    {"getuid"    , LuaAfbGetUid},
-    {"status"    , LuaAfbGetStatus},
-    {"context"   , LuaClientCtx},
-
-    {NULL, NULL}  /* sentinel */
+    {"timerget", LuaTimerGet},
+    {"timerset", LuaTimerSet},
+    {"notice", LuaPrintNotice},
+    {"info", LuaPrintInfo},
+    {"warning", LuaPrintWarning},
+    {"debug", LuaPrintDebug},
+    {"error", LuaPrintError},
+    {"servsync", LuaAfbServiceSync},
+    {"service", LuaAfbService},
+    {"success", LuaAfbSuccess},
+    {"fail", LuaAfbFail},
+    {"subscribe", LuaAfbEventSubscribe},
+    {"evtmake", LuaAfbEventMake},
+    {"evtpush", LuaAfbEventPush},
+    {"getuid", LuaAfbGetUid},
+    {"status", LuaAfbGetStatus},
+    {"context", LuaClientCtx},
+
+    {NULL, NULL} /* sentinel */
 };
 
 // Load Lua Interpreter
-int LuaConfigLoad (AFB_ApiT apiHandle) {
-    static int luaLoaded=0, err = 0;
+
+int LuaConfigExec(AFB_ApiT apiHandle) {
+    int err;
+    
+    // Load LUA utils functions.
+    err = LuaDoString(lua_utils, NULL);
+    if (err) {
+        AFB_ApiError(apiHandle, "Error loading lua_utils default functions.%s, %d", lua_utils, err);
+        return -1;
+    }
+
+    err = lua_pcall(luaState, 0, 0, 0);
+    if (err) {
+        AFB_ApiError(apiHandle, "Error loading lua_utils default functions at pcall.%s, %d", lua_tostring(luaState, 0), err);
+        return -1;
+    }
+    return 0;
+}
+
+// Load Lua Interpreter
+
+int LuaConfigLoad(AFB_ApiT apiHandle) {
+    static int luaLoaded = 0;
     //int err = 0;
 
     // Lua loads only once
     if (luaLoaded) return 0;
-    luaLoaded=1;
+    luaLoaded = 1;
 
     // open a new LUA interpretor
     luaState = luaL_newstate();
-    if (!luaState)  {
+    if (!luaState) {
         AFB_ApiError(apiHandle, "LUA_INIT: Fail to open lua interpretor");
         free(luaState);
         return 1;
@@ -1264,20 +1295,13 @@ int LuaConfigLoad (AFB_ApiT apiHandle) {
     lua_setglobal(luaState, "AFB");
 
     // initialise static magic for context
-    #ifndef CTX_MAGIC
-        CTX_MAGIC=CtlConfigMagicNew();
-    #endif
-
-    #ifndef TIMER_MAGIC
-        TIMER_MAGIC=CtlConfigMagicNew();
-    #endif
+#ifndef CTX_MAGIC
+    CTX_MAGIC = CtlConfigMagicNew();
+#endif
 
-    // Load LUA utils functions.
-    err = LuaDoString(lua_utils, NULL);
-    if(err) {
-        AFB_ApiError(apiHandle, "Error loading lua_utils default functions.%s, %d", lua_utils, err);
-        return -1;
-    }
+#ifndef TIMER_MAGIC
+    TIMER_MAGIC = CtlConfigMagicNew();
+#endif
 
     return 0;
 }