Overview
| Comment: | Move close-output-port to right after sending serialize data |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v2.0001-blocking-fix |
| Files: | files | file ages | folders |
| SHA1: |
ec82c7ffc82b42937756acd9a878f2b1 |
| User & Date: | matt on 2022-01-14 05:49:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-01-14
| ||
| 05:49 | Move close-output-port to right after sending serialize data Leaf check-in: ec82c7ffc8 user: matt tags: v2.0001-blocking-fix | |
|
2022-01-11
| ||
| 09:00 | Go back to single log for a server. The splitting of the logs was not proving useful check-in: b4ff9e2f1d user: matt tags: v2.0001 | |
Changes
Modified megatest.scm from [b7fe71f476] to [97b3fd5fe2].
| ︙ | ︙ | |||
17 18 19 20 21 22 23 | ;; (declare (uses dbi)) (declare (uses pkts)) (declare (uses stml2)) (declare (uses cookie)) (declare (uses csv-xml)) | | | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | ;; (declare (uses dbi)) (declare (uses pkts)) (declare (uses stml2)) (declare (uses cookie)) (declare (uses csv-xml)) ;; (declare (uses hostinfo)) (declare (uses adjutant)) (declare (uses archivemod)) (declare (uses apimod)) (declare (uses autoload)) (declare (uses bigmod)) (declare (uses commonmod)) |
| ︙ | ︙ | |||
128 129 130 131 132 133 134 | srfi-98 srfi-69 ;; local modules autoload adjutant csv-xml | | | 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | srfi-98 srfi-69 ;; local modules autoload adjutant csv-xml ;; hostinfo mtver mutils cookie csv-xml ducttape-lib (prefix mtargs args:) pkts |
| ︙ | ︙ |
Modified ulex/ulex.scm from [70c15d4319] to [ff88f35c25].
| ︙ | ︙ | |||
230 231 232 233 234 235 236 237 238 239 240 241 | #f (begin ;; (mutex-lock! *send-mutex*) (let-values (((inp oup)(tcp-connect host-port))) (let ((res (if (and inp oup) (begin (serialize dat oup) (deserialize inp)) (begin (print "ERROR: send called but no receiver has been setup. Please call setup first!") #f)))) (close-input-port inp) | > | | 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 | #f (begin ;; (mutex-lock! *send-mutex*) (let-values (((inp oup)(tcp-connect host-port))) (let ((res (if (and inp oup) (begin (serialize dat oup) (close-output-port oup) (deserialize inp)) (begin (print "ERROR: send called but no receiver has been setup. Please call setup first!") #f)))) (close-input-port inp) ;; (close-output-port oup) ;; (mutex-unlock! *send-mutex*) res)))))))) ;; res will always be 'ack unless return-method is direct ;; send a request to the given host-port and register a mailbox in udata ;; wait for the mailbox data and return it ;; (define (send-receive uconn host-port cmd data) |
| ︙ | ︙ |