adds +en-/de-turf encoding functions to |html in %zuse

2024-12-01 14:42:02 +03:00 · 2019-06-24 13:38:26 -07:00 · 2019-06-24 13:38:26 -07:00 · d71780001a
commit d71780001a
parent 5758bad98a
1 changed files with 17 additions and 0 deletions
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@ -6651,6 +6651,23 @@
        (stag %| ;~(plug apat yque))
      ==
    --  ::de-purl
+  ::  +en-turf: encode +turf as a TLD-last domain string
+  ::
+  ++  en-turf
+    |=  =turf
+    ^-  @t
+    (rap 3 (flop (join '.' turf)))
+  ::  +de-turf: parse a TLD-last domain string into a TLD first +turf
+  ::
+  ++  de-turf
+    |=  host=@t
+    ^-  (unit turf)
+    %+  rush  host
+    %+  sear
+      |=  =host:eyre
+      ?.(?=(%& -.host) ~ (some p.host))
+    thos:de-purl:html
+  ::
  ::  MOVEME
  ::                                                    ::  ++fuel:html
  ++  fuel                                              ::  parse urbit fcgi