37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(use matchable)
(use trace)
(trace
rmt:login
db:login
rmt:send-receive
rmtmod:calc-ro-mode
create-remote-record
rmt:open-qry-close-locally
common:force-server?
server:check-if-running
server:record->id
extras-case-11
extras-transport-failed
extras-transport-succeded
)
(print "start dir: " (current-directory))
(define toppath (current-directory))
(test #f #f (server:check-if-running toppath)) ;; these are used by server:start-and-wait
|
>
>
>
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
(use matchable)
(use trace)
(trace
rmt:login
db:login
rmt:send-receive
rmt:send-receive-no-auto-client-setup
rmtmod:calc-ro-mode
create-remote-record
rmt:open-qry-close-locally
common:force-server?
server:check-if-running
server:record->id
extras-case-11
extras-transport-failed
extras-transport-succeded
http-transport:close-connections
http-transport:client-api-send-receive
)
(print "start dir: " (current-directory))
(define toppath (current-directory))
(test #f #f (server:check-if-running toppath)) ;; these are used by server:start-and-wait
|