Megatest

Diff
Login

Differences From Artifact [3233b20f1f]:

To Artifact [732faf5124]:


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