mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-12-17 22:18:06 +00:00
Code Issues 1 Releases Wiki Activity

Address #331 - Add :octal-permissions

Browse Source
This commit is contained in:
Calvin Rose
2020-04-03 18:28:43 -05:00
parent 72696600d8
commit 8275da63fb
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/core/os.c
View File

@@ -1005,6 +1005,9 @@ static Janet os_stat_inode(jstat_t *st) {
static Janet os_stat_mode(jstat_t *st) { static Janet os_stat_mode(jstat_t *st) {
return janet_wrap_keyword(janet_decode_mode(st->st_mode)); return janet_wrap_keyword(janet_decode_mode(st->st_mode));
} }
static Janet os_stat_int_permissions(jstat_t *st) {
return janet_wrap_integer(janet_perm_to_unix(janet_decode_permissions(st->st_mode)));
}
static Janet os_stat_permissions(jstat_t *st) { static Janet os_stat_permissions(jstat_t *st) {
return os_make_permstring(janet_perm_to_unix(janet_decode_permissions(st->st_mode))); return os_make_permstring(janet_perm_to_unix(janet_decode_permissions(st->st_mode)));
} }
@@ -1057,6 +1060,7 @@ static const struct OsStatGetter os_stat_getters[] = {
{"dev", os_stat_dev}, {"dev", os_stat_dev},
{"inode", os_stat_inode}, {"inode", os_stat_inode},
{"mode", os_stat_mode}, {"mode", os_stat_mode},
{"octal-permissions", os_stat_int_permissions},
{"permissions", os_stat_permissions}, {"permissions", os_stat_permissions},
{"uid", os_stat_uid}, {"uid", os_stat_uid},
{"gid", os_stat_gid}, {"gid", os_stat_gid},
@@ -1282,7 +1286,8 @@ static const JanetReg os_cfuns[] = {
" only that information from stat. If the file or directory does not exist, returns nil. The keys are\n\n" " only that information from stat. If the file or directory does not exist, returns nil. The keys are\n\n"
"\t:dev - the device that the file is on\n" "\t:dev - the device that the file is on\n"
"\t:mode - the type of file, one of :file, :directory, :block, :character, :fifo, :socket, :link, or :other\n" "\t:mode - the type of file, one of :file, :directory, :block, :character, :fifo, :socket, :link, or :other\n"
"\t:permissions - A Unix permission integer like 8r740\n" "\t:octal-permissions - A Unix permission integer like 8r744\n"
"\t:permissions - A Unix permission string like \"rwxr--r--\"\n"
"\t:uid - File uid\n" "\t:uid - File uid\n"
"\t:gid - File gid\n" "\t:gid - File gid\n"
"\t:nlink - number of links to file\n" "\t:nlink - number of links to file\n"