505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
|
(set! *time-to-exit* #t)
(if *inmemdb* (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t))
;;
;; start_shutdown
;;
(tasks:server-set-state! (db:delay-if-busy tdbdat area-dat) server-id "shutting-down")
(portlogger:open-run-close
(lambda (db port yada)
(portlogger:set-port db area-dat port yada))
area-dat port "released")
(thread-sleep! 5)
(debug:print-info 0 "Max cached queries was " *max-cache-size*)
(debug:print-info 0 "Number of cached writes " *number-of-writes*)
(debug:print-info 0 "Average cached write time "
(if (eq? *number-of-writes* 0)
"n/a (no writes)"
|
|
|
|
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
|
(set! *time-to-exit* #t)
(if *inmemdb* (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t))
;;
;; start_shutdown
;;
(tasks:server-set-state! (db:delay-if-busy tdbdat area-dat) server-id "shutting-down")
(portlogger:open-run-close
(lambda (db port value)
(portlogger:set-port db port value))
area-dat port "released")
(thread-sleep! 5)
(debug:print-info 0 "Max cached queries was " *max-cache-size*)
(debug:print-info 0 "Number of cached writes " *number-of-writes*)
(debug:print-info 0 "Average cached write time "
(if (eq? *number-of-writes* 0)
"n/a (no writes)"
|