From c93c15cf8c53df77f871037c809a03ea0f347c8d Mon Sep 17 00:00:00 2001
From: Thierry Fournier <thierry.fournier@ozon.io>
Date: Sat, 28 Nov 2020 15:02:13 +0100
Subject: [PATCH] MINOR: lua-thread: Split hlua_load function in two parts

The goal is to allow execution of one main lua state per thread.

This function will be called once per thread, using different Lua
states. This patch prepares the work.
---
 src/hlua.c | 45 +++++++++++++++++++++++++--------------------
 1 file changed, 25 insertions(+), 20 deletions(-)

diff --git a/src/hlua.c b/src/hlua.c
index 47090c324..c02683698 100644
--- a/src/hlua.c
+++ b/src/hlua.c
@@ -8138,56 +8138,61 @@ static int hlua_parse_maxmem(char **args, int section_type, struct proxy *curpx,
  * We are in the configuration parsing process of HAProxy, this abort() is
  * tolerated.
  */
-static int hlua_load(char **args, int section_type, struct proxy *curpx,
-                     struct proxy *defpx, const char *file, int line,
-                     char **err)
+static int hlua_load_state(char *filename, lua_State *L, char **err)
 {
 	int error;
 
-	if (*(args[1]) == 0) {
-		memprintf(err, "'%s' expects a file name as parameter.\n", args[0]);
-		return -1;
-	}
-
 	/* Just load and compile the file. */
-	error = luaL_loadfile(gL.T, args[1]);
+	error = luaL_loadfile(L, filename);
 	if (error) {
-		memprintf(err, "error in Lua file '%s': %s", args[1], lua_tostring(gL.T, -1));
-		lua_pop(gL.T, 1);
+		memprintf(err, "error in Lua file '%s': %s", filename, lua_tostring(L, -1));
+		lua_pop(L, 1);
 		return -1;
 	}
 
 	/* If no syntax error where detected, execute the code. */
-	error = lua_pcall(gL.T, 0, LUA_MULTRET, 0);
+	error = lua_pcall(L, 0, LUA_MULTRET, 0);
 	switch (error) {
 	case LUA_OK:
 		break;
 	case LUA_ERRRUN:
-		memprintf(err, "Lua runtime error: %s\n", lua_tostring(gL.T, -1));
-		lua_pop(gL.T, 1);
+		memprintf(err, "Lua runtime error: %s\n", lua_tostring(L, -1));
+		lua_pop(L, 1);
 		return -1;
 	case LUA_ERRMEM:
 		memprintf(err, "Lua out of memory error\n");
 		return -1;
 	case LUA_ERRERR:
-		memprintf(err, "Lua message handler error: %s\n", lua_tostring(gL.T, -1));
-		lua_pop(gL.T, 1);
+		memprintf(err, "Lua message handler error: %s\n", lua_tostring(L, -1));
+		lua_pop(L, 1);
 		return -1;
 #if defined(LUA_VERSION_NUM) && LUA_VERSION_NUM <= 503
 	case LUA_ERRGCMM:
-		memprintf(err, "Lua garbage collector error: %s\n", lua_tostring(gL.T, -1));
-		lua_pop(gL.T, 1);
+		memprintf(err, "Lua garbage collector error: %s\n", lua_tostring(L, -1));
+		lua_pop(L, 1);
 		return -1;
 #endif
 	default:
-		memprintf(err, "Lua unknown error: %s\n", lua_tostring(gL.T, -1));
-		lua_pop(gL.T, 1);
+		memprintf(err, "Lua unknown error: %s\n", lua_tostring(L, -1));
+		lua_pop(L, 1);
 		return -1;
 	}
 
 	return 0;
 }
 
+static int hlua_load(char **args, int section_type, struct proxy *curpx,
+                     struct proxy *defpx, const char *file, int line,
+                     char **err)
+{
+	if (*(args[1]) == 0) {
+		memprintf(err, "'%s' expects a file name as parameter.\n", args[0]);
+		return -1;
+	}
+
+	return hlua_load_state(args[1], gL.T, err);
+}
+
 /* Prepend the given <path> followed by a semicolon to the `package.<type>` variable
  * in the given <ctx>.
  */