Overview
| Comment: | Remove muffs from *toppath* in calc-ro-mode. Added trace to rmtmod.scm while debugging. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-wip |
| Files: | files | file ages | folders |
| SHA1: |
dc7ab217fe2743658babab5613b24513 |
| User & Date: | mrwellan on 2019-10-02 17:46:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-10-02
| ||
| 23:41 | Added funky debug stuff check-in: 99551309fa user: matt tags: v1.65-wip | |
| 17:46 | Remove muffs from *toppath* in calc-ro-mode. Added trace to rmtmod.scm while debugging. check-in: dc7ab217fe user: mrwellan tags: v1.65-wip | |
| 00:05 | still broke but differently check-in: 0869d10a93 user: matt tags: v1.65-wip | |
Changes
Modified rmtmod.scm from [fd791a8953] to [544ee0d52f].
| ︙ | ︙ | |||
24 25 26 27 28 29 30 31 32 33 34 35 36 37 | (module rmtmod * (import scheme chicken data-structures extras) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18) (import commonmod) (use (prefix ulex ulex:)) ;; Hack to make these functions visible to the refactored code, goal is to eliminate these over time. (define (rmt:send-receive . params) #f) (define (http-transport:close-connections . params) #f) ;; from remote defstruct in common.scm (define (remote-conndat-set! . params) #f) (define (remote-server-url-set! . params) #f) | > | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (module rmtmod * (import scheme chicken data-structures extras) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18) (import commonmod) (use (prefix ulex ulex:)) ;; Hack to make these functions visible to the refactored code, goal is to eliminate these over time. (define (rmt:send-receive . params) #f) (define (http-transport:close-connections . params) #f) ;; from remote defstruct in common.scm (define (remote-conndat-set! . params) #f) (define (remote-server-url-set! . params) #f) |
| ︙ | ︙ | |||
118 119 120 121 122 123 124 |
(mutex-lock! multi-sync-mutex)
(set! *db-last-access* start-time) ;; THIS IS PROBABLY USELESS? (we are on a client)
(mutex-unlock! multi-sync-mutex)))))
res))
| | | | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
(mutex-lock! multi-sync-mutex)
(set! *db-last-access* start-time) ;; THIS IS PROBABLY USELESS? (we are on a client)
(mutex-unlock! multi-sync-mutex)))))
res))
(define (rmtmod:calc-ro-mode runremote toppath)
(if (and runremote
(remote-ro-mode-checked runremote))
(remote-ro-mode runremote)
(let* ((dbfile (conc toppath "/megatest.db"))
(ro-mode (not (file-write-access? dbfile)))) ;; TODO: use dbstruct or runremote to figure this out in future
(if runremote
(begin
(remote-ro-mode-set! runremote ro-mode)
(remote-ro-mode-checked-set! runremote #t)
ro-mode)
ro-mode))))
|
| ︙ | ︙ | |||
190 191 192 193 194 195 196 197 | pktsdir: (conc toppath "/pkts") )) (define (rmtmod:send-receive-ulex ulex:conn cmd rid params attemptnum area-dat) #f) | > > | > > | 191 192 193 194 195 196 197 198 199 200 201 202 203 | pktsdir: (conc toppath "/pkts") )) (define (rmtmod:send-receive-ulex ulex:conn cmd rid params attemptnum area-dat) #f) (use trace)(trace-call-sites #t) (trace member rmtmod:calc-ro-mode rmt:open-qry-close-locally) ) |