giles
2d7dd7d582
Wraps all core .sx files in R7RS define-library with explicit export lists, plus (import ...) at end for backward-compatible global re-export. Libraries registered: (sx bytecode) — 83 opcode constants (sx render) — 15 tag registries + render helpers (sx signals) — 23 reactive signal primitives (sx r7rs) — 21 R7RS aliases (sx compiler) — 42 compiler functions (sx vm) — 32 VM functions (sx freeze) — 9 freeze/thaw functions (sx content) — 6 content store functions (sx callcc) — 1 call/cc wrapper (sx highlight) — 13 syntax highlighting functions (sx stdlib) — 47 stdlib functions (sx swap) — 13 swap algebra functions (sx render-trace) — 8 render trace functions (sx harness) — 21 test harness functions (sx canonical) — 12 canonical serialization functions (web adapter-html) — 13 HTML renderer functions (web adapter-sx) — 13 SX wire format functions (web engine) — 33 hypermedia engine functions (web request-handler) — 4 request handling functions (web page-helpers) — 12 page helper functions (web router) — 36 routing functions (web deps) — 19 dependency analysis functions (web orchestration) — 59 page orchestration functions Key changes: - define-library now inherits parent env (env-extend env instead of env-extend make-env) so library bodies can access platform primitives - sx_server.ml: added resolve_library_path + load_library_file for import resolution (maps library specs to file paths) - cek_run_with_io: handles "import" locally instead of sending to Python bridge 2608/2608 tests passing. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
115 lines
3.6 KiB
Plaintext
115 lines
3.6 KiB
Plaintext
;; ==========================================================================
|
|
;; freeze.sx — Serializable state boundaries
|
|
;;
|
|
;; Freeze scopes collect signals registered within them. On freeze,
|
|
;; their current values are serialized to SX. On thaw, values are
|
|
;; restored. Multiple named scopes can coexist independently.
|
|
;;
|
|
;; This is a library built on top of the evaluator's scoped effects
|
|
;; (scope-push!/scope-pop!/context) and signal system. It is NOT
|
|
;; part of the core evaluator — it loads after evaluator.sx.
|
|
;;
|
|
;; Usage:
|
|
;; (freeze-scope "editor"
|
|
;; (let ((doc (signal "hello")))
|
|
;; (freeze-signal "doc" doc)
|
|
;; ...))
|
|
;;
|
|
;; (cek-freeze-scope "editor") → {:name "editor" :signals {:doc "hello"}}
|
|
;; (cek-thaw-scope "editor" frozen-data) → restores signal values
|
|
;; ==========================================================================
|
|
|
|
;; Registry of freeze scopes: name → list of {name signal} entries
|
|
|
|
(define-library (sx freeze)
|
|
(export
|
|
freeze-registry
|
|
freeze-signal
|
|
freeze-scope
|
|
cek-freeze-scope
|
|
cek-freeze-all
|
|
cek-thaw-scope
|
|
cek-thaw-all
|
|
freeze-to-sx
|
|
thaw-from-sx)
|
|
(begin
|
|
|
|
(define freeze-registry (dict))
|
|
|
|
;; Register a signal in the current freeze scope
|
|
(define freeze-signal :effects [mutation]
|
|
(fn (name sig)
|
|
(let ((scope-name (context "sx-freeze-scope" nil)))
|
|
(when scope-name
|
|
(let ((entries (or (get freeze-registry scope-name) (list))))
|
|
(append! entries (dict "name" name "signal" sig))
|
|
(dict-set! freeze-registry scope-name entries))))))
|
|
|
|
;; Freeze scope delimiter — collects signals registered within body
|
|
(define freeze-scope :effects [mutation]
|
|
(fn (name body-fn)
|
|
(scope-push! "sx-freeze-scope" name)
|
|
;; Initialize empty entry list for this scope
|
|
(dict-set! freeze-registry name (list))
|
|
(cek-call body-fn nil)
|
|
(scope-pop! "sx-freeze-scope")
|
|
nil))
|
|
|
|
;; Freeze a named scope → SX dict of signal values
|
|
(define cek-freeze-scope :effects []
|
|
(fn (name)
|
|
(let ((entries (or (get freeze-registry name) (list)))
|
|
(signals-dict (dict)))
|
|
(for-each (fn (entry)
|
|
(dict-set! signals-dict
|
|
(get entry "name")
|
|
(signal-value (get entry "signal"))))
|
|
entries)
|
|
(dict "name" name "signals" signals-dict))))
|
|
|
|
;; Freeze all scopes
|
|
(define cek-freeze-all :effects []
|
|
(fn ()
|
|
(map (fn (name) (cek-freeze-scope name))
|
|
(keys freeze-registry))))
|
|
|
|
;; Thaw a named scope — restore signal values from frozen data
|
|
(define cek-thaw-scope :effects [mutation]
|
|
(fn (name frozen)
|
|
(let ((entries (or (get freeze-registry name) (list)))
|
|
(values (get frozen "signals")))
|
|
(when values
|
|
(for-each (fn (entry)
|
|
(let ((sig-name (get entry "name"))
|
|
(sig (get entry "signal"))
|
|
(val (get values sig-name)))
|
|
(when (not (nil? val))
|
|
(reset! sig val))))
|
|
entries)))))
|
|
|
|
;; Thaw all scopes from a list of frozen scope dicts
|
|
(define cek-thaw-all :effects [mutation]
|
|
(fn (frozen-list)
|
|
(for-each (fn (frozen)
|
|
(cek-thaw-scope (get frozen "name") frozen))
|
|
frozen-list)))
|
|
|
|
;; Serialize a frozen scope to SX text
|
|
(define freeze-to-sx :effects []
|
|
(fn (name)
|
|
(sx-serialize (cek-freeze-scope name))))
|
|
|
|
;; Restore from SX text
|
|
(define thaw-from-sx :effects [mutation]
|
|
(fn (sx-text)
|
|
(let ((parsed (sx-parse sx-text)))
|
|
(when (not (empty? parsed))
|
|
(let ((frozen (first parsed)))
|
|
(cek-thaw-scope (get frozen "name") frozen))))))
|
|
|
|
|
|
)) ;; end define-library
|
|
|
|
;; Re-export to global namespace for backward compatibility
|
|
(import (sx freeze))
|