57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
(list "-rows"
"-run"
"-test"
"-debug"
"-host"
)
(list "-h"
"-guimonitor"
"-main"
"-v"
"-q"
)
args:arg-hash
0))
|
>
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
(list "-rows"
"-run"
"-test"
"-debug"
"-host"
)
(list "-h"
"-use-server"
"-guimonitor"
"-main"
"-v"
"-q"
)
args:arg-hash
0))
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
(begin
(set! *runremote* (string-split (args:get-arg "-host" ":")))
(client:launch))
(client:launch))
|
>
>
|
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(define *db* #f) ;; (open-db))
(if (args:get-arg "-host")
(begin
(set! *runremote* (string-split (args:get-arg "-host" ":")))
(client:launch))
(if (not (args:get-arg "-use-server"))
(set! *transport-type* 'fs) ;; force fs access
(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)
|