24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
-
+
-
-
+
+
+
|
(include "db_records.scm")
(define (server:run hostn)
(debug:print 0 "Attempting to start the server ...")
(let ((host:port (open-run-close db:get-var #f "SERVER"))) ;; do whe already have a server running?
(if host:port
(begin
(debug:print 0 "ERROR: server already running.")
(debug:print 0 "WARNING: server already running.")
(if (server:client-setup)
(begin
(debug:print-info 0 "Server is alive, exiting")
(exit))
(debug:print-info 0 "Server is alive, not starting another")
;;(exit)
)
(begin
(debug:print-info 0 "Server is dead, removing flag and trying again")
(open-run-close db:del-var #f "SERVER")
(server:run hostn))))
(let* ((zmq-socket #f)
(hostname (if (string=? "-" hostn)
(get-host-name)
|