11f31e00eSBaptiste Daroussin /*
21f31e00eSBaptiste Daroussin * SPDX-License-Identifier: BSD-2-Clause
31f31e00eSBaptiste Daroussin *
41f31e00eSBaptiste Daroussin * Copyright 2023 Baptiste Daroussin <bapt@FreeBSD.org>
51f31e00eSBaptiste Daroussin *
61f31e00eSBaptiste Daroussin * Redistribution and use in source and binary forms, with or without
71f31e00eSBaptiste Daroussin * modification, are permitted providing that the following conditions~
81f31e00eSBaptiste Daroussin * are met:
91f31e00eSBaptiste Daroussin * 1. Redistributions of source code must retain the above copyright
101f31e00eSBaptiste Daroussin * notice, this list of conditions and the following disclaimer.
111f31e00eSBaptiste Daroussin * 2. Redistributions in binary form must reproduce the above copyright
121f31e00eSBaptiste Daroussin * notice, this list of conditions and the following disclaimer in the
131f31e00eSBaptiste Daroussin * documentation and/or other materials provided with the distribution.
141f31e00eSBaptiste Daroussin *
151f31e00eSBaptiste Daroussin * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
161f31e00eSBaptiste Daroussin * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
171f31e00eSBaptiste Daroussin * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
181f31e00eSBaptiste Daroussin * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
191f31e00eSBaptiste Daroussin * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
201f31e00eSBaptiste Daroussin * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
211f31e00eSBaptiste Daroussin * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
221f31e00eSBaptiste Daroussin * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
231f31e00eSBaptiste Daroussin * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
241f31e00eSBaptiste Daroussin * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
251f31e00eSBaptiste Daroussin * POSSIBILITY OF SUCH DAMAGE.
261f31e00eSBaptiste Daroussin */
271f31e00eSBaptiste Daroussin
281f31e00eSBaptiste Daroussin #include <sys/wait.h>
291f31e00eSBaptiste Daroussin
301f31e00eSBaptiste Daroussin #include <errno.h>
311f31e00eSBaptiste Daroussin #include <fcntl.h>
321f31e00eSBaptiste Daroussin #include <spawn.h>
331f31e00eSBaptiste Daroussin #include <string.h>
341f31e00eSBaptiste Daroussin #include <stdio.h>
351f31e00eSBaptiste Daroussin #include <unistd.h>
361f31e00eSBaptiste Daroussin
371f31e00eSBaptiste Daroussin #include <lua.h>
381f31e00eSBaptiste Daroussin #include "lauxlib.h"
391f31e00eSBaptiste Daroussin #include "lfbsd.h"
401f31e00eSBaptiste Daroussin
411f31e00eSBaptiste Daroussin extern char **environ;
421f31e00eSBaptiste Daroussin
431f31e00eSBaptiste Daroussin static const char**
luaL_checkarraystrings(lua_State * L,int arg)441f31e00eSBaptiste Daroussin luaL_checkarraystrings(lua_State *L, int arg)
451f31e00eSBaptiste Daroussin {
461f31e00eSBaptiste Daroussin const char **ret;
471f31e00eSBaptiste Daroussin lua_Integer n, i;
481f31e00eSBaptiste Daroussin int t;
491f31e00eSBaptiste Daroussin int abs_arg = lua_absindex(L, arg);
501f31e00eSBaptiste Daroussin luaL_checktype(L, abs_arg, LUA_TTABLE);
511f31e00eSBaptiste Daroussin n = lua_rawlen(L, abs_arg);
521f31e00eSBaptiste Daroussin ret = lua_newuserdata(L, (n+1)*sizeof(char*));
531f31e00eSBaptiste Daroussin for (i=0; i<n; i++) {
541f31e00eSBaptiste Daroussin t = lua_rawgeti(L, abs_arg, i+1);
551f31e00eSBaptiste Daroussin if (t == LUA_TNIL)
561f31e00eSBaptiste Daroussin break;
571f31e00eSBaptiste Daroussin luaL_argcheck(L, t == LUA_TSTRING, arg, "expected array of strings");
581f31e00eSBaptiste Daroussin ret[i] = lua_tostring(L, -1);
591f31e00eSBaptiste Daroussin lua_pop(L, 1);
601f31e00eSBaptiste Daroussin }
611f31e00eSBaptiste Daroussin ret[i] = NULL;
621f31e00eSBaptiste Daroussin return ret;
631f31e00eSBaptiste Daroussin }
641f31e00eSBaptiste Daroussin
651f31e00eSBaptiste Daroussin static int
lua_exec(lua_State * L)661f31e00eSBaptiste Daroussin lua_exec(lua_State *L)
671f31e00eSBaptiste Daroussin {
681f31e00eSBaptiste Daroussin int r, pstat;
691f31e00eSBaptiste Daroussin posix_spawn_file_actions_t action;
701f31e00eSBaptiste Daroussin int stdin_pipe[2] = {-1, -1};
711f31e00eSBaptiste Daroussin pid_t pid;
721f31e00eSBaptiste Daroussin const char **argv;
731f31e00eSBaptiste Daroussin int n = lua_gettop(L);
741f31e00eSBaptiste Daroussin luaL_argcheck(L, n == 1, n > 1 ? 2 : n,
751f31e00eSBaptiste Daroussin "fbsd.exec takes exactly one argument");
761f31e00eSBaptiste Daroussin
771f31e00eSBaptiste Daroussin if (pipe(stdin_pipe) < 0) {
781f31e00eSBaptiste Daroussin lua_pushnil(L);
791f31e00eSBaptiste Daroussin lua_pushstring(L, strerror(errno));
801f31e00eSBaptiste Daroussin lua_pushinteger(L, errno);
811f31e00eSBaptiste Daroussin return (3);
821f31e00eSBaptiste Daroussin }
831f31e00eSBaptiste Daroussin
841f31e00eSBaptiste Daroussin posix_spawn_file_actions_init(&action);
851f31e00eSBaptiste Daroussin posix_spawn_file_actions_adddup2(&action, stdin_pipe[0], STDIN_FILENO);
861f31e00eSBaptiste Daroussin posix_spawn_file_actions_addclose(&action, stdin_pipe[1]);
871f31e00eSBaptiste Daroussin
881f31e00eSBaptiste Daroussin argv = luaL_checkarraystrings(L, 1);
891f31e00eSBaptiste Daroussin if (0 != (r = posix_spawnp(&pid, argv[0], &action, NULL,
901f31e00eSBaptiste Daroussin (char*const*)argv, environ))) {
911f31e00eSBaptiste Daroussin lua_pushnil(L);
921f31e00eSBaptiste Daroussin lua_pushstring(L, strerror(r));
931f31e00eSBaptiste Daroussin lua_pushinteger(L, r);
941f31e00eSBaptiste Daroussin return (3);
951f31e00eSBaptiste Daroussin }
961f31e00eSBaptiste Daroussin while (waitpid(pid, &pstat, 0) == -1) {
971f31e00eSBaptiste Daroussin if (errno != EINTR) {
981f31e00eSBaptiste Daroussin lua_pushnil(L);
991f31e00eSBaptiste Daroussin lua_pushstring(L, strerror(r));
1001f31e00eSBaptiste Daroussin lua_pushinteger(L, r);
1011f31e00eSBaptiste Daroussin return (3);
1021f31e00eSBaptiste Daroussin }
1031f31e00eSBaptiste Daroussin }
1041f31e00eSBaptiste Daroussin
1051f31e00eSBaptiste Daroussin if (WEXITSTATUS(pstat) != 0) {
1061f31e00eSBaptiste Daroussin lua_pushnil(L);
1071f31e00eSBaptiste Daroussin lua_pushstring(L, "Abnormal termination");
1081f31e00eSBaptiste Daroussin lua_pushinteger(L, r);
1091f31e00eSBaptiste Daroussin return (3);
1101f31e00eSBaptiste Daroussin }
1111f31e00eSBaptiste Daroussin
1121f31e00eSBaptiste Daroussin posix_spawn_file_actions_destroy(&action);
1131f31e00eSBaptiste Daroussin
1141f31e00eSBaptiste Daroussin if (stdin_pipe[0] != -1)
1151f31e00eSBaptiste Daroussin close(stdin_pipe[0]);
1161f31e00eSBaptiste Daroussin if (stdin_pipe[1] != -1)
1171f31e00eSBaptiste Daroussin close(stdin_pipe[1]);
1181f31e00eSBaptiste Daroussin lua_pushinteger(L, pid);
1191f31e00eSBaptiste Daroussin return 1;
1201f31e00eSBaptiste Daroussin }
1211f31e00eSBaptiste Daroussin
1221f31e00eSBaptiste Daroussin #define REG_SIMPLE(n) { #n, lua_ ## n }
1231f31e00eSBaptiste Daroussin static const struct luaL_Reg fbsd_lib[] = {
1241f31e00eSBaptiste Daroussin REG_SIMPLE(exec),
1251f31e00eSBaptiste Daroussin { NULL, NULL },
1261f31e00eSBaptiste Daroussin };
1271f31e00eSBaptiste Daroussin #undef REG_SIMPLE
1281f31e00eSBaptiste Daroussin
1291f31e00eSBaptiste Daroussin int
luaopen_fbsd(lua_State * L)1301f31e00eSBaptiste Daroussin luaopen_fbsd(lua_State *L)
1311f31e00eSBaptiste Daroussin {
1321f31e00eSBaptiste Daroussin luaL_newlib(L, fbsd_lib);
1331f31e00eSBaptiste Daroussin return (1);
1341f31e00eSBaptiste Daroussin }
135