dan/liminix
1
0
Fork 5
Code

delete unused code

Browse Source
This commit is contained in:
Daniel Barlow 2024-06-01 22:43:48 +01:00
parent 53f57c1a8c
commit 04b068f7a3
2 changed files with 1 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/devout/devout.fnl
View File

@ -170,7 +170,6 @@
AF_NETLINK 0 0 groups))) AF_NETLINK 0 0 groups)))
(nil errno) (values nil errno))) (nil errno) (values nil errno)))
(fn event-loop [] (fn event-loop []
(let [fds {}] (let [fds {}]
{ {
@ -184,19 +183,6 @@
:_tbl #(do fds) ;exposed for tests :_tbl #(do fds) ;exposed for tests
})) }))
(fn sysfs [fspath]
{
:attr (fn [_ path name]
(read-if-exists (.. fspath "/" path "/" name)))
:attrs (fn [self path name]
(when path
(or (self:attr path name)
(self:attrs (dirname path) name))))
})
(fn run [] (fn run []
(let [[sockname nl-groups] arg (let [[sockname nl-groups] arg
s (check-errno (unix-socket sockname)) s (check-errno (unix-socket sockname))
@ -222,4 +208,4 @@
(ll.poll pollfds 5000) (ll.poll pollfds 5000)
(loop:feed (unpack-pollfds pollfds)))))) (loop:feed (unpack-pollfds pollfds))))))
{ : database : run : event-loop : parse-event : sysfs } { : database : run : event-loop : parse-event }

31
pkgs/devout/test.fnl
View File

@ -246,35 +246,4 @@ MINOR=17")
)) ))
;; tests for sysfs attrs
(example
"read attributes from sysfs"
(let [sysfs (sysfs "./fixtures/sys")]
;; finds attr at path
(expect=
(sysfs:attr "devices/pci0000:00/0000:00:14.0/usb1/1-2" "idVendor")
"1199")
;; finds attr in ancestor directory
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"idVendor")
"8087")
;; nil if no attr
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"idOfWizard")
nil)
;; closer ancestor wins against more distant one
(expect=
(sysfs:attrs
"devices/pci0000:00/0000:00:14.0/usb1/1-7/1-7:1.0/bluetooth/hci0"
"modalias")
"usb:v8087p0A2Bd0001dcE0dsc01dp01icE0isc01ip01in00")))
(if failed (os.exit 1) (print "OK")) (if failed (os.exit 1) (print "OK"))