From 13c1b0636bff156a4c7b6cfe94f75e5558e653bd Mon Sep 17 00:00:00 2001 From: Cadence Ember Date: Thu, 1 Sep 2022 14:55:25 +1200 Subject: [PATCH] In breezewiki.rkt, start server in thread This allows inspecting the program state using (enter! "breezewiki.rkt") in the REPL. --- breezewiki.rkt | 29 +++++++++++++++++------------ 1 file changed, 17 insertions(+), 12 deletions(-) diff --git a/breezewiki.rkt b/breezewiki.rkt index ee4f9b92..0421e122 100644 --- a/breezewiki.rkt +++ b/breezewiki.rkt @@ -24,15 +24,20 @@ (set-reload-poll-interval! #f)) (reload!) -(serve/launch/wait - #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f) - #:port (string->number (config-get 'port)) - (λ (quit) - (sequencer:make - (pathprocedure:make "/" page-home) - (pathprocedure:make "/proxy" page-proxy) - (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category)) - (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki)) - (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search)) - static-dispatcher - (lift:make page-not-found)))) +(define ch (make-channel)) +(define (start) + (serve/launch/wait + #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f) + #:port (string->number (config-get 'port)) + (λ (quit) + (channel-put ch (lambda () (semaphore-post quit))) + (sequencer:make + (pathprocedure:make "/" page-home) + (pathprocedure:make "/proxy" page-proxy) + (filter:make #rx"^/[a-z-]+/wiki/Category:.+$" (lift:make page-category)) + (filter:make #rx"^/[a-z-]+/wiki/.+$" (lift:make page-wiki)) + (filter:make #rx"^/[a-z-]+/search$" (lift:make page-search)) + static-dispatcher + (lift:make page-not-found))))) +(define server-t (thread start)) +(define quit (channel-get ch))