liminix

commit 3e163d4253bcb81542243d4510fe29100b03925f
parent 9487cb2567965b0b09a1b7f9dd87eeb9690f8c98
Author: Daniel Barlow <dan@telent.net>
Date:   Fri,  8 Sep 2023 16:47:55 +0100

remove unused fn

Diffstat:
M
pkgs/odhcp-script/odhcp6-script.fnl
 | 
16
----------------

1 file changed, 0 insertions(+), 16 deletions(-)
diff --git a/pkgs/odhcp-script/odhcp6-script.fnl b/pkgs/odhcp-script/odhcp6-script.fnl
@@ -13,21 +13,6 @@
 (fn write-value-from-env [name]
   (write-value name (os.getenv (string.upper name))))
 
-;; Format: <prefix>/<length>,preferred,valid[,excluded=<excluded-prefix>/<length>][,class=<prefix class #>]
-
-;;(parse-prefix "2001:8b0:de3a:40dc::/64,7198,7198")
-;;(parse-prefix "2001:8b0:de3a:1001::/64,7198,7188,excluded=1/2,thi=10")
-
-(fn parse-prefix [str]
-  (fn parse-extra [s]
-    (let [out {}]
-      (each [name val (string.gmatch s ",(.-)=([^,]+)")]
-        (tset out name val))
-      out))
-  (let [(prefix len preferred valid extra)
-        (string.match str "(.-)::/(%d+),(%d+),(%d+)(.*)$")]
-    (merge {: prefix : len : preferred : valid} (parse-extra extra))))
-
 
 (fn parse-address [str]
   (fn parse-extra [s]
@@ -39,7 +24,6 @@
         (string.match str "(.-)/(%d+),(%d+),(%d+)(.*)$")]
     (merge {: address : len : preferred : valid} (parse-extra extra))))
 
-
 (fn write-addresses-thing [prefix addresses]
   (each [_ a (ipairs (split " " addresses))]
     (let [address (parse-address a)