coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

regen: WASM build artifacts after hs-f merge

Browse Source 
Bytecode + sx_browser.bc.{js,wasm.js} regenerated from sources updated
by the hs-f merge (e8246340). No semantic change — these are build
outputs catching up to their inputs.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-05-08 22:55:43 +00:00
parent f0c0a5e19f
commit 416546cc07
34 changed files with 7094 additions and 3717 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
shared/static/wasm/sx/dom.sx
View File

@@ -195,22 +195,19 @@
"Query DOM and return an SX list (not a host NodeList)."
(let
((node-list (if (nil? sel) (host-call (dom-document) "querySelectorAll" root) (host-call root "querySelectorAll" sel))))
(cond
((nil? node-list) (list))
((list? node-list) node-list)
(true
(if
(nil? node-list)
(list)
(let
((n (host-get node-list "length")) (result (list)))
(let
((n (host-get node-list "length")) (result (list)))
loop
((i 0))
(when
(not (nil? n))
(let
loop
((i 0))
(when
(< i n)
(append! result (host-call node-list "item" i))
(loop (+ i 1)))))
result))))))
(< i n)
(append! result (host-call node-list "item" i))
(loop (+ i 1))))
result)))))
(define
dom-query-by-id
(fn (id) (host-call (dom-document) "getElementById" id)))
@@ -261,28 +258,12 @@
dom-add-class
(fn
(el cls)
(cond
((nil? el) nil)
((list? el)
(for-each
(fn
(x)
(when x (host-call (host-get x "classList") "add" cls)))
el))
(true (host-call (host-get el "classList") "add" cls)))))
(when el (host-call (host-get el "classList") "add" cls))))
(define
dom-remove-class
(fn
(el cls)
(cond
((nil? el) nil)
((list? el)
(for-each
(fn
(x)
(when x (host-call (host-get x "classList") "remove" cls)))
el))
(true (host-call (host-get el "classList") "remove" cls)))))
(when el (host-call (host-get el "classList") "remove" cls))))
(define
dom-has-class?
(fn
@@ -324,54 +305,42 @@
(fn
(el)
"Return child nodes as an SX list."
(cond
((nil? el) (list))
(true
(if
el
(let
((nl (host-get el "childNodes"))
(n (host-get nl "length"))
(result (list)))
(let
((nl (host-get el "childNodes")))
(cond
((nil? nl) (list))
((list? nl) nl)
(true
(let
((n (host-get nl "length")) (result (list)))
(when
(not (nil? n))
(let
loop
((i 0))
(when
(< i n)
(append! result (host-call nl "item" i))
(loop (+ i 1)))))
result))))))))
loop
((i 0))
(when
(< i n)
(append! result (host-call nl "item" i))
(loop (+ i 1))))
result)
(list))))
(define dom-is-fragment? (fn (el) (= (host-get el "nodeType") 11)))
(define
dom-child-nodes
(fn
(el)
"Return child nodes as an SX list."
(cond
((nil? el) (list))
(true
(if
el
(let
((nl (host-get el "childNodes"))
(n (host-get nl "length"))
(result (list)))
(let
((nl (host-get el "childNodes")))
(cond
((nil? nl) (list))
((list? nl) nl)
(true
(let
((n (host-get nl "length")) (result (list)))
(when
(not (nil? n))
(let
loop
((i 0))
(when
(< i n)
(append! result (host-call nl "item" i))
(loop (+ i 1)))))
result))))))))
loop
((i 0))
(when
(< i n)
(append! result (host-call nl "item" i))
(loop (+ i 1))))
result)
(list))))
(define
dom-remove-children-after
(fn
@@ -466,7 +435,7 @@
(el key val)
(when
(not (host-get el "__sx_data"))
(host-set! el "__sx_data" (host-new "Object")))
(host-set! el "__sx_data" (dict)))
(host-set! (host-get el "__sx_data") key val)))
(define
dom-append-to-head