80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(exit 1)))
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
(begin
(set! *runremote* (string-split (args:get-arg "-host" ":")))
(server:client-launch))
(server:client-launch))
;; HACK ALERT: this is a hack, please fix.
(define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db"))))
;; (server:client-setup *db*)
(define toplevel #f)
(define dlg #f)
(define max-test-num 0)
;; (define *keys* (open-run-close db:get-keys #f))
(define *keys* (cdb:remote-run db:get-keys #f))
;; (define *keys* (db:get-keys *db*))
|
|
|
|
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(exit 1)))
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
(begin
(set! *runremote* (string-split (args:get-arg "-host" ":")))
(client:launch))
(client:launch))
;; HACK ALERT: this is a hack, please fix.
(define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db"))))
;; (client:setup *db*)
(define toplevel #f)
(define dlg #f)
(define max-test-num 0)
;; (define *keys* (open-run-close db:get-keys #f))
(define *keys* (cdb:remote-run db:get-keys #f))
;; (define *keys* (db:get-keys *db*))
|