mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Add os.cwd

This commit is contained in:
Calvin Rose 2018-05-19 01:09:56 -04:00
parent 5b62630a9b
commit 245fb948f1
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/core/os.c
View File

@ -28,6 +28,7 @@
#ifdef DST_WINDOWS
#include <Windows.h>
#include <direct.h>
#else
#include <unistd.h>
#endif
@ -116,6 +117,21 @@ static int os_sleep(DstArgs args) {
return 0;
}
static int os_cwd(DstArgs args) {
DST_FIXARITY(args, 0);
char buf[FILENAME_MAX];
char *ptr;
#ifdef DST_WINDOWS
ptr = _getcwd(buf, FILENAME_MAX);
#else
ptr = getcwd(buf, FILENAME_MAX);
#endif
if (NULL == ptr) {
DST_THROW(args, "could not get current directory");
}
DST_RETURN_CSTRING(args, ptr);
}
static const DstReg cfuns[] = {
{"os.execute", os_execute},
{"os.exit", os_exit},
@ -123,6 +139,7 @@ static const DstReg cfuns[] = {
{"os.setenv", os_setenv},
{"os.clock", os_clock},
{"os.sleep", os_sleep},
{"os.cwd", os_cwd},
{NULL, NULL}
};