83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
(begin
(debug:print 0 "ERROR: Expected to be able to connect to a server by now. No server available for run-id = " run-id)
(exit 1)))
(begin
(hash-table-set! *runremote* run-id hostinfo)
(debug:print-info 11 "CLIENT SETUP, hostinfo=" hostinfo)
(debug:print-info 11 "Using transport type of " transport (if hostinfo (conc " to connect to " hostinfo) ""))
(client:start run-id transport server-info)))))))
(define (client:start run-id transport server-info)
(case transport
;; ((fs)(if (not *megatest-db*)(set! *megatest-db* (open-db))))
((http)
;; this saves the server-info in the *runremote* hash and returns it
(http-transport:client-connect run-id
|
|
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
(begin
(debug:print 0 "ERROR: Expected to be able to connect to a server by now. No server available for run-id = " run-id)
(exit 1)))
(begin
(hash-table-set! *runremote* run-id hostinfo)
(debug:print-info 11 "CLIENT SETUP, hostinfo=" hostinfo)
(debug:print-info 11 "Using transport type of " transport (if hostinfo (conc " to connect to " hostinfo) ""))
(client:start run-id transport hostinfo)))))))
(define (client:start run-id transport server-info)
(case transport
;; ((fs)(if (not *megatest-db*)(set! *megatest-db* (open-db))))
((http)
;; this saves the server-info in the *runremote* hash and returns it
(http-transport:client-connect run-id
|