84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
(mode #f)
(status 'starting)
(trynum 0) ;; count the number of ports we've tried
(conns (make-hash-table)) ;; apath/dbname => conndat
)
(define *db-serv-info* #f)
(define (servdat->url sdat)
(conc (servdat-host sdat)":"(servdat-port sdat)))
;; db servers contact info
;;
(defstruct conndat
|
>
>
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(mode #f)
(status 'starting)
(trynum 0) ;; count the number of ports we've tried
(conns (make-hash-table)) ;; apath/dbname => conndat
)
(define *db-serv-info* #f)
(serializing-method 'complex) ;; write, s11n, complex
(define (servdat->url sdat)
(conc (servdat-host sdat)":"(servdat-port sdat)))
;; db servers contact info
;;
(defstruct conndat
|