mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-06-26 22:38:30 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Update redbean ProgramDirectory to return a list of previously set directories (#1021)

Browse source
This commit is contained in:
Paul Kulchenko 2024-01-05 02:17:55 -08:00 • committed by GitHub
parent 3315b6ef11
commit a334f9cc33
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tool/net/help.txt
View file

@ -1603,11 +1603,16 @@ FUNCTIONS
ProgramGid(int) ProgramGid(int)
Same as the -G flag if called from .init.lua for setgid() Same as the -G flag if called from .init.lua for setgid()
ProgramDirectory(str) ProgramDirectory([directory:str]) → {directory, ...}
Same as the -D flag if called from .init.lua for overlaying local Same as the -D flag if called from .init.lua for overlaying local
file system directories. This may be called multiple times. The file system directories. This may be called multiple times. The
first directory programmed is preferred. These currently do not first directory programmed is preferred. These currently do not
show up in the index page listing. show up in the index page listing.
This call also modifies `package.path` value to either prepend
the added directory in front of the default path (if found) or
to append it (in all other cases).
If no directory is provided, then a table with previously set
directories is returned.
ProgramLogMessages(bool) ProgramLogMessages(bool)
Same as the -m flag if called from .init.lua for logging message Same as the -m flag if called from .init.lua for logging message

12
tool/net/redbean.c
View file

@ -4580,6 +4580,18 @@ static int LuaProgramBrand(lua_State *L) {
} }
static int LuaProgramDirectory(lua_State *L) { static int LuaProgramDirectory(lua_State *L) {
size_t i;
// if no parameter is provided, then return current directories
if (lua_isnoneornil(L, 1)) {
lua_newtable(L);
if (stagedirs.n) {
for (i = 0; i < stagedirs.n; ++i) {
lua_pushlstring(L, stagedirs.p[i].s, stagedirs.p[i].n);
lua_seti(L, -2, i + 1);
}
}
return 1;
}
struct stat st; struct stat st;
const char *path = luaL_checkstring(L, 1); const char *path = luaL_checkstring(L, 1);
// check to raise a Lua error, to allow it to be handled // check to raise a Lua error, to allow it to be handled