Megatest

Check-in [89fabecd17]
Login
Overview
Comment:Added call to setup serializing method
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.0001
Files: files | file ages | folders
SHA1: 89fabecd1757f49063a1e83addd2be55b6ecb768
User & Date: mrwellan on 2022-02-14 19:35:56
Other Links: branch diff | manifest | tags
Context
2022-02-14
19:36
Fixed double paren bug in dashboard check-in: 01de08afc5 user: mrwellan tags: v2.0001
19:35
Added call to setup serializing method check-in: 89fabecd17 user: mrwellan tags: v2.0001
17:31
removed setting of \*toppath\* from the scheme config eval, added import of testsmod and srfi-69 to config:std-imports. check-in: 9b51a90460 user: mmgraham tags: v2.0001
Changes

Modified ulex-simple/dbmgr.scm from [3233b20f1f] to [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