269
270
271
272
273
274
275
276
277
278
279
280
281
282
|
(hash-table-set! conns fullpath new-the-srv)))
#t)))))
;; NB// sinfo is a servdat struct
;;
(define (rmt:general-open-connection sinfo apath dbname #!key (num-tries 5))
(assert (not (equal? dbname ".db/main.db")) "ERROR: general-open-connection should never be called with main as the db")
(let* ((mdbname ".db/main.db") ;; (db:run-id->dbname #f)) TODO: put this back to the lookup when stable
(fullname (db:dbname->path apath dbname))
(conns (servdat-conns sinfo))
(mconn (rmt:get-conn sinfo apath ".db/main.db"))
(dconn (rmt:get-conn sinfo apath dbname)))
#;(if (and mconn
(not (debug:print-logger)))
|
>
>
>
>
>
>
>
|
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
|
(hash-table-set! conns fullpath new-the-srv)))
#t)))))
;; NB// sinfo is a servdat struct
;;
(define (rmt:general-open-connection sinfo apath dbname #!key (num-tries 5))
(assert (not (equal? dbname ".db/main.db")) "ERROR: general-open-connection should never be called with main as the db")
(let loop ()
(if (not (and *db-serv-info*
(servdat-uconn *db-serv-info*)))
(begin
(debug:print-info 0 *default-log-port* "Waiting for my listener to be available...")
(thread-sleep! 1)
(loop))))
(let* ((mdbname ".db/main.db") ;; (db:run-id->dbname #f)) TODO: put this back to the lookup when stable
(fullname (db:dbname->path apath dbname))
(conns (servdat-conns sinfo))
(mconn (rmt:get-conn sinfo apath ".db/main.db"))
(dconn (rmt:get-conn sinfo apath dbname)))
#;(if (and mconn
(not (debug:print-logger)))
|