From 6a9853ab22177c33e31b7b9882754fdbaaba5ea4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 23 Aug 2020 00:13:50 +0200 Subject: Move repl.scm to calp/. --- module/repl.scm | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 module/repl.scm (limited to 'module/repl.scm') diff --git a/module/repl.scm b/module/repl.scm deleted file mode 100644 index 44a3ba2f..00000000 --- a/module/repl.scm +++ /dev/null @@ -1,30 +0,0 @@ -(define-module (repl) - :use-module (system repl server) - :use-module (ice-9 regex) - :use-module ((util hooks) :select (shutdown-hook)) - :use-module (util exceptions) - ) - -(define-public (repl-start address) - (define lst (string->list address)) - (format (current-error-port) - "Starting REPL server at ~a~%" address) - (spawn-server - (case (cond [(memv (car lst) '(#\. #\/)) 'UNIX] - [(string-match "(\\d{1,3}\\.){3}\\d{1,3}(:\\d+)?" address) 'IPv4] - ;; IPv6 is as of Gulie 2.2 not supported by make-tcp-server-socket. - ;; This might be the same problem as I encountered in my html server. - [else 'UNIX]) - [(UNIX) - (add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address)) - (lambda (err proc fmt . args) - (warning "Failed to unlink ~a" address args) - err)))) - (make-unix-domain-server-socket path: address)] - [(IPv4) (apply (case-lambda - [() (error "Empty address?")] - [(address) (make-tcp-server-socket host: address)] - [(address port) (make-tcp-server-socket host: address port: port)]) - (string-split address #\:))] - ;; currently impossible - [(IPv6) (error "How did you get here?")]))) -- cgit v1.2.3