Overview
| Comment: | Put changes to ulex-full into ulex |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
5e8db5c53d6af8be154fd6e0d3119e3e |
| User & Date: | matt on 2023-01-24 08:59:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-24
| ||
| 17:55 | Semi-speculative 'fixes' for transient communications problems. check-in: 490ba0207e user: matt tags: v2.0001 | |
| 14:32 | Work and return direct Leaf check-in: 6dacc1f970 user: mrwellan tags: v2.001-direct | |
| 08:59 | Put changes to ulex-full into ulex check-in: 5e8db5c53d user: matt tags: v2.0001 | |
| 08:16 | Fixed dashboard updater issues. check-in: 51ee5bb785 user: matt tags: v2.0001 | |
Changes
Modified ulex/dbmgr.scm from [cc60b18701] to [afcee6ee9f].
| ︙ | ︙ | |||
332 333 334 335 336 337 338 |
(set! res (send-receive uconn (conndat-hostport cdat) cmd params)))
"send-receive thread")))
;; (thread-start! th1)
;; (thread-join! th1) ;; gratuitious thread stuff is so that mailbox is not used in primordial thead
;; since we accessed the server we can bump the expires time up
(conndat-expires-set! cdat (+ (current-seconds)
(server:expiration-timeout)
| | | 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 |
(set! res (send-receive uconn (conndat-hostport cdat) cmd params)))
"send-receive thread")))
;; (thread-start! th1)
;; (thread-join! th1) ;; gratuitious thread stuff is so that mailbox is not used in primordial thead
;; since we accessed the server we can bump the expires time up
(conndat-expires-set! cdat (+ (current-seconds)
(server:expiration-timeout)
-10)) ;; ten second margin for network time misalignments etc.
res)))
;; db is at apath/.db/dbname, rid is an intermediary solution and will be removed
;; sometime in the future.
;;
;; Purpose - call the main.db server and request a server be started
;; for the given area path and dbname
|
| ︙ | ︙ |
Modified ulex/ulex.scm from [1928dcc443] to [2c2b2f2441].
| ︙ | ︙ | |||
269 270 271 272 273 274 275 | (define (send-via-mailbox uconn host-port cmd data) (let* ((cmbox (get-cmbox uconn)) ;; would it be better to keep a stack of mboxes to reuse? (qrykey (car cmbox)) (mbox (cdr cmbox)) (mbox-time (current-milliseconds)) (sres (send uconn host-port qrykey cmd data))) ;; short res | | | 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 |
(define (send-via-mailbox uconn host-port cmd data)
(let* ((cmbox (get-cmbox uconn)) ;; would it be better to keep a stack of mboxes to reuse?
(qrykey (car cmbox))
(mbox (cdr cmbox))
(mbox-time (current-milliseconds))
(sres (send uconn host-port qrykey cmd data))) ;; short res
(if (eq? sres 'ack) ;; BUG: change to be less than server:expiration-timeout?
(let* ((mbox-timeout-secs 120 #;(if (eq? 'primordial (thread-name (current-thread)))
#f
120)) ;; timeout)
(mbox-timeout-result 'MBOX_TIMEOUT)
(res (mailbox-receive! mbox mbox-timeout-secs mbox-timeout-result))
(mbox-receive-time (current-milliseconds)))
;; (put-cmbox uconn cmbox) ;; reuse mbox and cookie. is it worth it?
|
| ︙ | ︙ |