Merge branch 'hs-e36-websocket' into loops/hs

lib/hyperscript/parser.sx

@@ -2906,6 +2906,63 @@
                   (match-kw "end")
                   (list (quote when-feat-no-op)))))
             (do (pwf-skip) (match-kw "end") (list (quote when-feat-no-op))))))
+      (define
+        parse-socket-feat
+        (fn
+          ()
+          (let
+            ((seg0 (tp-val)))
+            (adv!)
+            (define
+              collect-segs
+              (fn
+                (acc)
+                (if
+                  (= (tp-type) "class")
+                  (let
+                    ((seg (tp-val)))
+                    (adv!)
+                    (collect-segs (append acc (list seg))))
+                  acc)))
+            (let
+              ((name-path (collect-segs (list seg0))))
+              (define
+                url-cont?
+                (fn
+                  ()
+                  (or
+                    (= (tp-type) "ident")
+                    (= (tp-type) "number")
+                    (= (tp-type) "op")
+                    (= (tp-type) "colon")
+                    (= (tp-type) "dot")
+                    (and
+                      (= (tp-type) "keyword")
+                      (not
+                        (or
+                          (= (tp-val) "end")
+                          (= (tp-val) "with")
+                          (= (tp-val) "on")
+                          (= (tp-val) "as")))))))
+              (define
+                collect-url
+                (fn
+                  (parts)
+                  (if
+                    (and (not (at-end?)) (url-cont?))
+                    (let
+                      ((v (tp-val)))
+                      (adv!)
+                      (collect-url (append parts (list v))))
+                    (join "" parts))))
+              (let
+                ((url (cond ((and (= (tp-type) "op") (= (tp-val) "/")) (do (adv!) (collect-url (list "/")))) ((= (tp-type) "ident") (let ((scheme (tp-val))) (adv!) (if (= (tp-type) "colon") (collect-url (list scheme)) (parse-arith (parse-poss (list (quote ref) scheme)))))) (true (parse-atom)))))
+                (let
+                  ((timeout-ms (if (match-kw "with") (do (adv!) (parse-expr)) nil)))
+                  (let
+                    ((on-msg (if (match-kw "on") (do (adv!) (let ((json? (if (match-kw "as") (do (adv!) true) false))) (let ((body (parse-cmd-list))) (list (quote on-message) json? body)))) nil)))
+                    (match-kw "end")
+                    (list (quote socket) name-path url timeout-ms on-msg))))))))
       (define
         parse-feat
         (fn
@@ -2926,6 +2983,7 @@
               ((= val "behavior") (do (adv!) (parse-behavior-feat)))
               ((= val "live") (do (adv!) (parse-live-feat)))
               ((= val "when") (do (adv!) (parse-when-feat)))
+((= val "socket") (do (adv!) (parse-socket-feat)))
               ((= val "worker")
                 (error
                   "worker plugin is not installed — see https://hyperscript.org/features/worker"))