mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 17:57:17 +00:00
Code Issues 1 Releases Wiki Activity

Add os/rm and os/rmdir

Browse Source
This commit is contained in:
Calvin Rose 2019-03-30 15:39:24 -04:00
parent d6ba2de888
commit 1709bce77e
1 changed files with 35 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/core/os.c
View File

@ -338,7 +338,7 @@ static Janet os_link(int32_t argc, Janet *argv) {
const char *oldpath = janet_getcstring(argv, 0); const char *oldpath = janet_getcstring(argv, 0);
const char *newpath = janet_getcstring(argv, 1); const char *newpath = janet_getcstring(argv, 1);
int res = ((argc == 3 && janet_getboolean(argv, 2)) ? symlink : link)(oldpath, newpath); int res = ((argc == 3 && janet_getboolean(argv, 2)) ? symlink : link)(oldpath, newpath);
if (res == -1) janet_panicv(janet_cstringv(strerror(errno))); if (res == -1) janet_panic(strerror(errno));
return janet_wrap_integer(res); return janet_wrap_integer(res);
#endif #endif
} }
@ -354,6 +354,18 @@ static Janet os_mkdir(int32_t argc, Janet *argv) {
return janet_wrap_boolean(res != -1); return janet_wrap_boolean(res != -1);
} }
static Janet os_rmdir(int32_t argc, Janet *argv) {
janet_fixarity(argc, 1);
const char *path = janet_getcstring(argv, 0);
#ifdef JANET_WINDOWS
int res = _rmdir(path);
#else
int res = rmdir(path);
#endif
if (res == -1) janet_panic(strerror(errno));
return janet_wrap_nil();
}
static Janet os_cd(int32_t argc, Janet *argv) { static Janet os_cd(int32_t argc, Janet *argv) {
janet_fixarity(argc, 1); janet_fixarity(argc, 1);
const char *path = janet_getcstring(argv, 0); const char *path = janet_getcstring(argv, 0);
@ -362,7 +374,8 @@ static Janet os_cd(int32_t argc, Janet *argv) {
#else #else
int res = chdir(path); int res = chdir(path);
#endif #endif
return janet_wrap_boolean(res != -1); if (res == -1) janet_panic(strerror(errno));
return janet_wrap_nil();
} }
static Janet os_touch(int32_t argc, Janet *argv) { static Janet os_touch(int32_t argc, Janet *argv) {
@ -381,7 +394,16 @@ static Janet os_touch(int32_t argc, Janet *argv) {
bufp = NULL; bufp = NULL;
} }
int res = utime(path, bufp); int res = utime(path, bufp);
return janet_wrap_boolean(res != -1); if (-1 == res) janet_panic(strerror(errno));
return janet_wrap_nil();
}
static Janet os_remove(int32_t argc, Janet *argv) {
janet_fixarity(argc, 1);
const char *path = janet_getcstring(argv, 0);
int status = remove(path);
if (-1 == status) janet_panic(strerror(errno));
return janet_wrap_nil();
} }
#ifdef JANET_WINDOWS #ifdef JANET_WINDOWS
@ -553,6 +575,16 @@ static const JanetReg os_cfuns[] = {
"Create a new directory. The path will be relative to the current directory if relative, otherwise " "Create a new directory. The path will be relative to the current directory if relative, otherwise "
"it will be an absolute path.") "it will be an absolute path.")
}, },
{
"os/rmdir", os_rmdir,
JDOC("(os/rmdir path)\n\n"
"Delete a directory. The directory must be empty to succeed.")
},
{
"os/rm", os_remove,
JDOC("(os/rm path)\n\n"
"Delete a file. Returns nil.")
},
{ {
"os/link", os_link, "os/link", os_link,
JDOC("(os/link oldpath newpath [, symlink])\n\n" JDOC("(os/link oldpath newpath [, symlink])\n\n"