Bind setpgid(2)

1 files changed, 23 insertions, 1 deletions

diff --git a/luxio.c b/luxio.c
index ceba085..5013106 100644
--- a/luxio.c
+++ b/luxio.c
@@ -759,7 +759,28 @@ luxio_setsid(lua_State *L)
 
 	return 1;
 }
-/* TODO: setpgid() 4.3.3 */
+
+
+static int
+luxio_setpgid(lua_State *L)
+{
+	pid_t pid, pgid;
+	int r;
+
+	pid = luaL_checkinteger(L, 1);
+	pgid = luaL_checkinteger(L, 2);
+
+	r = setpgid(pid, pgid);
+
+	lua_pushinteger(L, r);
+
+	if (r < 0) {
+		lua_pushinteger(L, errno);
+		return 2;
+	}
+
+	return 1;
+}
 
 /*** System identification.
 @section sysident
@@ -4489,6 +4510,7 @@ luxio_functions[] = {
 	{ "setuid", luxio_setuid },
 	{ "setgid", luxio_setgid },
 	{ "setsid", luxio_setsid },
+	{ "setpgid", luxio_setpgid },
 	{ "getlogin", luxio_getlogin },
 
 	{ "uname", luxio_uname },