diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:46:21 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 18:46:21 +0200 |
commit | 6461d1b45c7431b36393fd56423298c81f7208ae (patch) | |
tree | d712742e3a72c57c4410131ae4ff10af429e7812 /module/server/server.scm | |
parent | Fixes. (diff) | |
download | calp-6461d1b45c7431b36393fd56423298c81f7208ae.tar.gz calp-6461d1b45c7431b36393fd56423298c81f7208ae.tar.xz |
Split module/server into stuff.
Diffstat (limited to 'module/server/server.scm')
-rw-r--r-- | module/server/server.scm | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/module/server/server.scm b/module/server/server.scm deleted file mode 100644 index 9c857b6d..00000000 --- a/module/server/server.scm +++ /dev/null @@ -1,34 +0,0 @@ -(define-module (server server) - :use-module (util) - :use-module (web server) - :use-module ((server routes) :select (make-make-routes)) - :use-module (ice-9 threads)) - -;; NOTE The default make-default-socket is broken for IPv6. -;; A patch has been submitted to the mailing list. 2020-03-31 -(module-set! - (resolve-module '(web server http)) - 'make-default-socket - (lambda (family addr port) - (let ((sock (socket family SOCK_STREAM 0))) - (setsockopt sock SOL_SOCKET SO_REUSEADDR 1) - (bind sock family addr port) - sock))) - -(define handler (make-make-routes)) - -;; (define impl (lookup-server-impl 'http)) -;; (define server (open-server impl open-params)) - - -(define-public (start-server open-params) - (run-server handler 'http open-params 1) - ;; NOTE at first this seems to work, but it quickly deteriorates. - ;; (for i in (iota 16) - ;; (begin-thread - ;; (let lp ((state (list 0))) - ;; (lp (serve-one-client handler impl server state))))) - ;; (pause) - ) - - |