eufon

commit da00b8a3a520fd58828aa25e0ad70167fd25fd6f
parent 8943c1d65247d74a8b5ddc11a887a6811ead4237
Author: Daniel Barlow <dan@telent.net>
Date:   Sun,  3 Apr 2022 12:47:40 +0100

make netlink socket private (closed over)

Diffstat:
M
blinkenlicht/nl.fnl
 | 
23
++++++++---------------

1 file changed, 8 insertions(+), 15 deletions(-)
diff --git a/blinkenlicht/nl.fnl b/blinkenlicht/nl.fnl
@@ -1,8 +1,5 @@
 (local nl (require :netlink))
 (local view (. (require :fennel) :view))
-(print (string.format "All known netlink groups: %s"
-                      (table.concat (nl.groups) ", ")))
-(local nls (nl.socket))
 
 ;; $ grep DEVTYPE /sys/class/net/*/uevent
 ;; /sys/class/net/docker0/uevent:DEVTYPE=bridge
@@ -57,13 +54,15 @@
         (tset event :quality (wlan-link-quality event.name)))
       (when (= dtype "wwan")
         ;; for wwan, need to determine how to get strength and carrier name
-        )))
+        true)
+      ))
   event)
 
 
 (fn netlunk []
   (let [links {}
-        routes {}]
+        routes {}
+        sock (nl.socket)]
     (fn handle-event [event]
       (match event
         {:event :newlink}
@@ -77,20 +76,20 @@
 
         {} (print :unhandled event.event)
         ))
-    (each [_ event (ipairs (nls:query ))]
+    (each [_ event (ipairs (sock:query ))]
       (handle-event event))
 
     {
-     :refresh #(each [_ event (ipairs (nls:event))]
+     :refresh #(each [_ event (ipairs (sock:event))]
                  (handle-event event))
-     :fd (nls:fd)
+     :fd (sock:fd)
      :uplink (fn [self]
                (let [defaultroute routes.default
                      interface (and defaultroute
                                     (. links defaultroute.index))]
                  (and interface (= interface.running "yes")
                       (get-network-info interface))))
-     :wait #(nls:poll 1000)
+     :wait #(sock:poll 1000)
      :interface (fn [self ifnum]  (. links ifnum))
      }
     ))
@@ -104,9 +103,3 @@
       nil
       (print "no default route")
       )))
-
-
-
-;; default route is newroute event without dst
-
-;; look for newlink event with  :running "yes"