| 1 | Change LuaJIT to use GUIX_LUA_PATH and GUIX_LUA_CPATH to construct the default
|
| 2 | LUA_PATH and LUA_CPATH, instead of using hard-coded paths that Guix doesn't
|
| 3 | populate.
|
| 4 |
|
| 5 | These paths don't use Lua's usual '?' path wildcard, and thus are compatible
|
| 6 | with Guix's search-paths mechanism.
|
| 7 |
|
| 8 | This patch uses functions defined in lua-5.x-search-path-helpers.patch.
|
| 9 |
|
| 10 | |
| 11 | |
| 12 | @@ -590,6 +590,8 @@
|
| 13 | NULL
|
| 14 | };
|
| 15 |
|
| 16 | +#include "./guixpaths.c"
|
| 17 | +
|
| 18 | LUALIB_API int luaopen_package(lua_State *L)
|
| 19 | {
|
| 20 | int i;
|
| 21 | @@ -612,8 +667,16 @@
|
| 22 | lua_getfield(L, LUA_REGISTRYINDEX, "LUA_NOENV");
|
| 23 | noenv = lua_toboolean(L, -1);
|
| 24 | lua_pop(L, 1);
|
| 25 | - setpath(L, "path", LUA_PATH, LUA_PATH_DEFAULT, noenv);
|
| 26 | - setpath(L, "cpath", LUA_CPATH, LUA_CPATH_DEFAULT, noenv);
|
| 27 | +
|
| 28 | + /* Calculate default LUA_PATH and LUA_CPATH values from their
|
| 29 | + corresponding GUIX_ environment variables */
|
| 30 | + const char* default_path = guix_path(L); // push default_path
|
| 31 | + const char* default_cpath = guix_cpath(L); // push default_cpath
|
| 32 | + lua_pushvalue(L, -3); // copy the old head of the stack back to the top
|
| 33 | + setpath(L, "path", LUA_PATH, default_path, noenv);
|
| 34 | + setpath(L, "cpath", LUA_CPATH, default_cpath, noenv);
|
| 35 | + lua_pop(L, 3); // pop our three working values back off the stack
|
| 36 | +
|
| 37 | lua_pushliteral(L, LUA_PATH_CONFIG);
|
| 38 | lua_setfield(L, -2, "config");
|
| 39 | luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 16);
|