raboof/liminix
1
0
Fork 0
forked from dan/liminix
Code Pull Requests Activity

anoia.fs: improve error messages

Browse Source
This commit is contained in:
Daniel Barlow 2024-08-08 11:36:47 +01:00
parent 64afd18e2a
commit 0a629df48d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/anoia/fs.fnl
View File

@ -9,6 +9,12 @@
(local S_IFCHR 0x2000) (local S_IFCHR 0x2000)
(local S_IFIFO 0x1000) (local S_IFIFO 0x1000)
(macro errno-check [x]
`(match ,x
val# val#
(nil errno#) (assert nil (.. "system call failed, errno=" errno#))
))
(fn ifmt-bits [mode] (and mode (band mode 0xf000))) (fn ifmt-bits [mode] (and mode (band mode 0xf000)))
(fn file-type [pathname] (fn file-type [pathname]
@ -33,10 +39,10 @@
(or (directory? pathname) (or (directory? pathname)
(let [parent (string.gsub pathname "/[^/]+/?$" "")] (let [parent (string.gsub pathname "/[^/]+/?$" "")]
(or (directory? parent) (mktree parent)) (or (directory? parent) (mktree parent))
(assert (ll.mkdir pathname))))) (errno-check (ll.mkdir pathname)))))
(fn dir [name] (fn dir [name]
(let [dp (assert (ll.opendir name) name)] (let [dp (errno-check (ll.opendir name) name)]
(fn [] (fn []
(case (ll.readdir dp) (case (ll.readdir dp)
(name filetype) (values name filetype) (name filetype) (values name filetype)