Overview
Comment: | Removed some of the member:print debug stuff |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-wip |
Files: | files | file ages | folders |
SHA1: |
9b6c3193e6f492c668c89846b83b3a6b |
User & Date: | matt on 2019-10-03 00:02:50 |
Other Links: | branch diff | manifest | tags |
Context
2019-10-04
| ||
10:22 | Fork in wip. Leaf check-in: 3dee8c9dd3 user: mrwellan tags: v1.65-wip-fork | |
00:50 | Closer - and further away than ever. check-in: f6d852ea54 user: matt tags: v1.65-wip | |
2019-10-03
| ||
00:02 | Removed some of the member:print debug stuff check-in: 9b6c3193e6 user: matt tags: v1.65-wip | |
2019-10-02
| ||
23:41 | Added funky debug stuff check-in: 99551309fa user: matt tags: v1.65-wip | |
Changes
Modified rmt.scm from [1ddc5e0c53] to [e244c9b139].
︙ | |||
24 25 26 27 28 29 30 | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | - - - - | (declare (uses api)) (declare (uses http-transport)) (include "common_records.scm") (declare (uses rmtmod)) (import rmtmod) |
︙ | |||
70 71 72 73 74 75 76 | 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | - + | *runremote*))) ;; ensure we have a record for our connection for given area (if (not runremote) ;; can remove this one. should never get here. (begin (set! *runremote* (make-remote)) (set! runremote *runremote*))) ;; new runremote will come from this on next iteration |
︙ | |||
115 116 117 118 119 120 121 | 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | - + | ;; give up if more than 15 attempts ((> attemptnum 15) (debug:print 0 log-port "ERROR: 15 tries to start/connect to server. Giving up.") (exit 1)) ;; readonly mode, read request- handle it - case 2 ((and readonly-mode |
︙ | |||
144 145 146 147 148 149 150 | 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | - + - + - + - + | ;; (mutex-unlock! rmt-mutex) (rmt:send-receive-orig log-port runremote rmt-mutex toppath multi-sync-mutex cmd rid params attemptnum: attemptnum)) ;; on homehost and this is a read ((and (not (remote-force-server runremote)) ;; honor forced use of server, i.e. server NOT required (cdr (remote-hh-dat runremote)) ;; on homehost |
︙ | |||
498 499 500 501 502 503 504 | 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 | - + | (result '())) (if (null? run-id-list) '() (let loop ((hed (car run-id-list)) (tal (cdr run-id-list)) (threads '())) (if (> (length threads) 5) |
︙ |
Modified rmtmod.scm from [dc8573987a] to [34866aceda].
︙ | |||
25 26 27 28 29 30 31 | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | - - - - | * (import scheme chicken data-structures extras) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18) (import commonmod) (use (prefix ulex ulex:)) |
︙ | |||
76 77 78 79 80 81 82 | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | - + | ;; db stuff for local db access (set! db:dbfile-path dbfile-path) (set! db:setup dbsetup) (set! apt:execute-requests exec-req) ) (define (rmt:open-qry-close-locally log-port multi-sync-mutex cmd run-id params #!key (ro-queries '())(remretries 5)) |
︙ | |||
194 195 196 197 198 199 200 | 190 191 192 193 194 195 196 197 198 199 | - + | (define (rmtmod:send-receive-ulex ulex:conn cmd rid params attemptnum area-dat) #f) (use trace)(trace-call-sites #t) |