mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-29 03:19:54 +00:00
Code Issues 1 Releases Wiki Activity

Optional default value for os/getenv.

Browse Source
This commit is contained in:
Andrew Chambers 2020-01-07 11:20:55 +13:00
parent 17e47a798c
commit ec1a06cfaf
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/os.c
View File

@ -145,7 +145,7 @@ static Janet os_exit(int32_t argc, Janet *argv) {
static Janet os_getenv(int32_t argc, Janet *argv) {
(void) argv;
janet_fixarity(argc, 1);
janet_arity(argc, 1, 2);
return janet_wrap_nil();
}
@ -407,11 +407,13 @@ static Janet os_environ(int32_t argc, Janet *argv) {
}
static Janet os_getenv(int32_t argc, Janet *argv) {
janet_fixarity(argc, 1);
janet_arity(argc, 1, 2);
const char *cstr = janet_getcstring(argv, 0);
const char *res = getenv(cstr);
return res
? janet_cstringv(res)
: argc == 2
? argv[1]
: janet_wrap_nil();
}
@ -926,7 +928,7 @@ static const JanetReg os_cfuns[] = {
},
{
"os/getenv", os_getenv,
JDOC("(os/getenv variable)\n\n"
JDOC("(os/getenv variable &opt dflt)\n\n"
"Get the string value of an environment variable.")
},
{