p/liberty
1
1
Fork 0
Code Issues Pull Requests Releases Activity

wdye: pass script arguments
All checks were successful
Alpine 3.20 Success
Details
OpenBSD 7.5 Success
Details

Browse Source
This commit is contained in:
Přemysl Eric Janouch 2025-01-09 09:38:06 +01:00
parent 017cb1d570
commit 0f20cce9c8
Signed by: p
GPG Key ID: A0420B94F92B9493
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tools/wdye/wdye.c
View File

@ -1376,9 +1376,9 @@ xlua_panic (lua_State *L)
int
main (int argc, char *argv[])
{
if (argc != 2)
if (argc < 2)
{
fprintf (stderr, "Usage: %s program.lua\n", argv[0]);
fprintf (stderr, "Usage: %s program.lua [args...]\n", argv[0]);
return 1;
}
@ -1399,16 +1399,20 @@ main (int argc, char *argv[])
luaL_setfuncs (g.L, xlua_pattern_table, 0);
lua_pop (g.L, 1);
const char *path = argv[1];
luaL_checkstack (g.L, argc, NULL);
lua_pushcfunction (g.L, xlua_error_handler);
if (luaL_loadfile (g.L, path)
|| lua_pcall (g.L, 0, 0, -2))
{
print_error ("%s", lua_tostring (g.L, -1));
lua_pop (g.L, 1);
lua_close (g.L);
return 1;
}
if (luaL_loadfile (g.L, strcmp (argv[1], "-") ? argv[1] : NULL))
goto error;
for (int i = 2; i < argc; i++)
lua_pushstring (g.L, argv[i]);
if (lua_pcall (g.L, argc - 2, 0, 1))
goto error;
lua_close (g.L);
return 0;
error:
print_error ("%s", lua_tostring (g.L, -1));
lua_close (g.L);
return 1;
}