blob: 7beee5601f9cae4db5273c396fcf2457335fdb9b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
;;; Commentary:
;;; Starts a repl server on some form of address.
;;; Code:
(define-module (calp repl)
:use-module (system repl server)
:use-module (ice-9 regex)
:use-module ((calp util hooks) :select (shutdown-hook))
:use-module ((hnh util exceptions) :select (warning))
:use-module (calp translation)
:export (repl-start)
)
(define (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 data)
(warning (string-append (format #f (_ "Failed to unlink ~a") address)
(format #f ": ~?" fmt 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?"))]))
;; TODO setup repl environment here
)
|
