225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
+
|
db:hoh-set!
db:hoh-get
db:get-cache-stmth
db:register-server
db:deregister-server
db:get-server-info
db:get-count-servers
db:get-servers-info
db:get-steps-info-by-id
make-dbr:dbdat
dbr:dbdat-db
dbr:dbdat-inmem
dbr:dbdat-last-sync
dbr:dbdat-last-write
|
5887
5888
5889
5890
5891
5892
5893
5894
5895
|
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
|
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
|
(sqlite3:fold-row
(lambda (res count)
(max res count))
0
db
"SELECT count(*) FROM servers WHERE apath=?;"
apath))))
(define (db:get-servers-info dbstruct apath)
(db:with-db
dbstruct
#f #f
(lambda (db)
(sqlite3:fold-row
(lambda (res count)
(max res count))
0
db
"SELECT * FROM servers WHERE apath=?;"
apath))))
)
|