From 6a219c59e6506ee5326822a7ced0e6cd92b7b628 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 17:52:01 +0200 Subject: Move a bunch of files into calp module. --- module/entry-points/server.scm | 66 ------------------------------------------ 1 file changed, 66 deletions(-) delete mode 100644 module/entry-points/server.scm (limited to 'module/entry-points/server.scm') diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm deleted file mode 100644 index dfa94cc7..00000000 --- a/module/entry-points/server.scm +++ /dev/null @@ -1,66 +0,0 @@ -(define-module (entry-points server) - :use-module (util) - :use-module (util options) - :use-module (util exceptions) - - :use-module (srfi srfi-1) - - :use-module (ice-9 getopt-long) - ;; :use-module (ice-9 regex) #| regex here due to bad macros |# - - :use-module ((server server) :select (start-server)) - - :export (main)) - - -(define options - '((port (value #t) (single-char #\p) - (description "Bind to TCP port, defaults to " (i 8080) ".")) - (addr (value #t) - (description "Address to use, defaults to " (i "0.0.0.0") - " for IPv4, and " (i "::") " for IPv6.") - ) - ;; numbers as single-char doesn't work. - (six (description "Use IPv6.")) - (four (description "Use IPv4.")) - (help (single-char #\h) - (description "Print this help.")))) - - -(define-public (main args) - - (define opts (getopt-long args (getopt-opt options))) - (define port (string->number (option-ref opts 'port "8080"))) - (define addr (option-ref opts 'addr #f)) - (define family - (cond [(option-ref opts 'six #f) AF_INET6] - [(option-ref opts 'four #f) AF_INET] - [(and addr (string-contains addr ":")) AF_INET6] - [(and addr (string-contains addr ".")) AF_INET] - [else AF_INET6])) - - (when (option-ref opts 'help #f) - (print-arg-help options) - (throw 'return)) - - ;; update address if it was left blank. A bit clumsy since - ;; @var{addr} & @var{family} depend on each other. - ;; placed after load-calendars to keep Guile 2.2 compability. - (set! addr - (if addr addr - (if (eqv? family AF_INET6) - "::" "0.0.0.0"))) - - - (format #t "Starting server on ~a:~a~%I'm ~a, runing from ~a~%" - addr port - (getpid) (getcwd)) - - (catch 'system-error - (lambda () - (start-server `(family: ,family port: ,port host: ,addr))) - - ;; probably address already in use - (lambda (err proc fmt args errno) - (format (current-error-port) "~a: ~?~%" - proc fmt args)))) -- cgit v1.2.3