152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
-
-
-
-
-
-
|
(begin
(tt:start-tcp-server ttdat) ;; start the tcp-server which applies handler to incoming data
(tt:keep-running ttdat dbfname))
(begin
(debug:print 0 *default-log-port* "INFO: found server(s) already running for db "dbfname", "(string-intersperse servers ",")" Exiting.")
(exit)))))
((make-tcp-server
(tcp-listen 6504)
(lambda ()
(write-line (seconds->string (current-seconds)))))
#t)
;; find a port and start tcp-server
;;
(define (tt:start-tcp-server ttdat)
(setup-listener ttdat)
(let* ((socket (tt-srv-socket ttdat))
(handler (tt-srv-handler ttdat)))
((make-tcp-server socket handler)
|