giles
2b42aabe6b
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 59s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
43 lines
2.1 KiB
Plaintext
43 lines
2.1 KiB
Plaintext
;; lib/dream/run.sx — Dream-on-SX entry point.
|
|
;; dream-run installs a root handler into the existing SX HTTP server via
|
|
;; (perform (:http/listen …)) — it does NOT implement its own socket loop. The
|
|
;; host invokes the installed app per request with a raw request dict; the app
|
|
;; adapts it to a dream-request, runs the handler, and serialises the response
|
|
;; (status/headers/body/set-cookies, or a websocket upgrade). Depends on types.sx
|
|
;; + websocket.sx. The listen transport is injectable for testing.
|
|
|
|
;; ── response serialisation for the host ────────────────────────────
|
|
(define
|
|
dr/serialize-response
|
|
(fn (resp) (if (dream-websocket? resp) {:websocket (dream-ws-handler resp) :body "" :headers (dream-headers resp) :status 101 :set-cookies (list)} {:body (dream-resp-body resp) :headers (dream-headers resp) :status (dream-status resp) :set-cookies (dream-resp-cookies resp)})))
|
|
|
|
;; ── the app: raw host request -> serialised response ───────────────
|
|
(define
|
|
dream-app
|
|
(fn
|
|
(handler)
|
|
(fn
|
|
(raw)
|
|
(let
|
|
((req (dream-request (or (get raw :method) "GET") (or (get raw :target) (or (get raw :path) "/")) (or (get raw :headers) {}) (or (get raw :body) ""))))
|
|
(dr/serialize-response (dream-coerce-response (handler req)))))))
|
|
|
|
;; ── dream-run ──────────────────────────────────────────────────────
|
|
(define dream-default-port 8080)
|
|
|
|
(define dream-run-with (fn (listen handler opts) (listen {:op "http/listen" :port (or (get opts :port) dream-default-port) :app (dream-app handler) :host (or (get opts :host) "0.0.0.0")})))
|
|
|
|
(define dream-perform-listen (fn (op) (perform op)))
|
|
|
|
(define
|
|
dream-run
|
|
(fn (handler) (dream-run-with dream-perform-listen handler {})))
|
|
(define
|
|
dream-run-port
|
|
(fn
|
|
(handler port)
|
|
(dream-run-with dream-perform-listen handler {:port port})))
|
|
(define
|
|
dream-run-opts
|
|
(fn (handler opts) (dream-run-with dream-perform-listen handler opts)))
|