;; used by web server only
#:use-module (sxml simple)
#:use-module (web request)
;; used by web server only
#:use-module (sxml simple)
#:use-module (web request)
(send-to-client nm-send-to-client-id)
(new-socket-client nm-new-socket-client)
(new-web-client nm-new-web-client)
(send-to-client nm-send-to-client-id)
(new-socket-client nm-new-socket-client)
(new-web-client nm-new-web-client)
(hash-set! (nm-clients nm) client-id
(cons 'websocket ws-client-id))
(<- (nm-send-input-to nm) 'new-client #:client client-id)
(hash-set! (nm-clients nm) client-id
(cons 'websocket ws-client-id))
(<- (nm-send-input-to nm) 'new-client #:client client-id)
(define client-obj (hash-ref (nm-clients nm) client))
(match client-obj
(#f (throw 'no-such-client
"Asked to send data to client but that client doesn't exist"
#:client-id client
(define client-obj (hash-ref (nm-clients nm) client))
(match client-obj
(#f (throw 'no-such-client
"Asked to send data to client but that client doesn't exist"
#:client-id client
(define (nm-incoming-line-action nm message client-id line)
"Handle LINE coming in, probably from an external message handler,
(define (nm-incoming-line-action nm message client-id line)
"Handle LINE coming in, probably from an external message handler,
(define (nm-install-web-server nm server web-server-port)
"This installs the web server, which we see in use below...."
(set! (.web-server nm)
(define (nm-install-web-server nm server web-server-port)
"This installs the web server, which we see in use below...."
(set! (.web-server nm)