96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
-
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#f
(lambda ()
;; (debug:print-info 0 *default-log-port* "starting server for dbfname: "dbfname)
(rmt:start-server ;; tt:server-process-run
areapath
testsuite ;; (dbfile:testsuite-name)
mtexe
run-id)))))
run-id))))
;; current method does not take advantage of simply getting the list of
;; servers from no-sync db. srv-get-proc would be a first step but is not used yet
(srv-get-proc (lambda ()
(let* ((candidates (rmt:get-process-options "server" dbfname))
(ccount (length candidates)))
(case ccount
((0) #f) ;; need to call rmt:start-server
((1) (car candidates))
(else
(if (> (random 100) 50)
(car candidates)
(cadr candidates))))))))
;; here we look at ttdat, if dbfname is NOT main.db we check that a conn exists for it
;; and if there is no conn we first send a request to the main.db server to start a
;; server for the dbfname.
#;(if (and (not is-main)(not conn)) ;; no existing connection to non-main server, call in a start up request
(begin
(server-start-proc)
(thread-sleep! 1)))
|