262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
|
(define *didsomething* #f)
;; ready? start the server
;;
(if (args:get-arg "-server")
(let ((mode (string->symbol (args:get-arg "-server"))))
(if (not (server:launch mode)) ;; opens the port, drops the pkt, contacts other servers and then waits for messages
(exit 1))))
(if (args:get-arg "-repl")
(begin
;; user will have to start the server manually
(print "Run: (server:start-nmsg 'main) to start the server")
(import extras) ;; might not be needed
;; (import csi)
|
>
>
>
>
|
>
|
>
|
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
|
(define *didsomething* #f)
;; ready? start the server
;;
(if (args:get-arg "-server")
(let ((mode (string->symbol (args:get-arg "-server"))))
(print "Mode: " mode)
(case mode
((main)(print "Starting server in main mode."))
(else (print "Starting server in hidden mode.")))
;; opens the port, drops the pkt, contacts other servers and then waits for messages
(if (not (server:launch mode (lambda (pktrecvd)(print "Received: " pktrecvd))))
(exit 1))
(set! *didsomething* #t)))
(if (args:get-arg "-repl")
(begin
;; user will have to start the server manually
(print "Run: (server:start-nmsg 'main) to start the server")
(import extras) ;; might not be needed
;; (import csi)
|