337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
|
;; Server? Start up here.
;;
(let ((tl (setup-for-run))
(run-id (and (args:get-arg "-run-id")
(string->number (args:get-arg "-run-id")))))
(if run-id
(server:launch run-id)
(debug:print 0 "ERROR: server requires run-id be specified with -run-id")))
;; Not a server? This section will decide how to communicate
;;
;; Setup client for all expect listed here
(if (null? (lset-intersection
equal?
|
>
|
>
|
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
|
;; Server? Start up here.
;;
(let ((tl (setup-for-run))
(run-id (and (args:get-arg "-run-id")
(string->number (args:get-arg "-run-id")))))
(if run-id
(begin
(server:launch run-id)
(set! *didsomething* #t))
(debug:print 0 "ERROR: server requires run-id be specified with -run-id")))
;; Not a server? This section will decide how to communicate
;;
;; Setup client for all expect listed here
(if (null? (lset-intersection
equal?
|