nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Default paths stored as external strings

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2023-11-13 13:41:59 -03:00
parent 6d042a178f
commit 1028f296a8
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
loadlib.c
View File

@@ -283,7 +283,8 @@ static int noenv (lua_State *L) {
/* /*
** Set a path ** Set a path. (If using the default path, assume it is a string
** literal in C and create it as an external string.)
*/ */
static void setpath (lua_State *L, const char *fieldname, static void setpath (lua_State *L, const char *fieldname,
const char *envname, const char *envname,
@@ -294,7 +295,7 @@ static void setpath (lua_State *L, const char *fieldname,
if (path == NULL) /* no versioned environment variable? */ if (path == NULL) /* no versioned environment variable? */
path = getenv(envname); /* try unversioned name */ path = getenv(envname); /* try unversioned name */
if (path == NULL || noenv(L)) /* no environment variable? */ if (path == NULL || noenv(L)) /* no environment variable? */
lua_pushstring(L, dft); /* use default */ lua_pushextlstring(L, dft, strlen(dft), NULL, NULL); /* use default */
else if ((dftmark = strstr(path, LUA_PATH_SEP LUA_PATH_SEP)) == NULL) else if ((dftmark = strstr(path, LUA_PATH_SEP LUA_PATH_SEP)) == NULL)
lua_pushstring(L, path); /* nothing to change */ lua_pushstring(L, path); /* nothing to change */
else { /* path contains a ";;": insert default path in its place */ else { /* path contains a ";;": insert default path in its place */