lbailly/liminix
1
0
Fork 0
forked from DGNum/liminix
Code Pull requests 2 Activity Actions

devout: use socket constants from anoia.net.constants

Browse source
This commit is contained in:
Daniel Barlow 2024-04-26 16:48:51 +01:00
parent 74cf3e0711
commit a116fe084a
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
pkgs/devout/devout.fnl
View file

@ -1,4 +1,11 @@
(local ll (require :lualinux)) (local ll (require :lualinux))
(local {
: AF_LOCAL
: AF_NETLINK
: SOCK_STREAM
: SOCK_RAW
: NETLINK_KOBJECT_UEVENT
} (require :anoia.net.constants))
(local { : view } (require :fennel)) (local { : view } (require :fennel))
(fn trace [expr] (fn trace [expr]
@ -59,15 +66,9 @@
(local POLLHUP 0x0010) (local POLLHUP 0x0010)
(local POLLNVAL 0x0020) (local POLLNVAL 0x0020)
(local AF_LOCAL 1)
(local AF_NETLINK 16)
(local SOCK_STREAM 1)
(local SOCK_DGRAM 2)
(local SOCK_RAW 3)
(local NETLINK_KOBJECT_UEVENT 15)
(fn unix-socket [name] (fn unix-socket [name]
(let [addr (.. "\1\0" name "\0\0\0\0\0")] (let [addr (string.pack "=Hz" AF_LOCAL name)]
(match (ll.socket AF_LOCAL SOCK_STREAM 0) (match (ll.socket AF_LOCAL SOCK_STREAM 0)
fd (match (ll.bind fd addr) fd (match (ll.bind fd addr)
0 (doto fd (ll.listen 32)) 0 (doto fd (ll.listen 32))