Overview
| Comment: | defined ttdat global, and had rmt:set-ttdat use that if its set |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
f6b92b57a647e92dc4e902856615caa8 |
| User & Date: | mmgraham on 2024-01-08 11:01:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-09
| ||
| 10:57 | set version to 1.8028 check-in: 0b2981e9bf user: mmgraham tags: v1.80-revolution, v1.8028 | |
|
2024-01-08
| ||
| 11:01 | defined ttdat global, and had rmt:set-ttdat use that if its set check-in: f6b92b57a6 user: mmgraham tags: v1.80-revolution | |
|
2024-01-02
| ||
| 10:00 | Changed version to 1.8027 check-in: 841ecebad5 user: mmgraham tags: v1.80-revolution, v1.8027 | |
Changes
Modified rmt.scm from [77312b7fa0] to [1cc680357a].
| ︙ | ︙ | |||
65 66 67 68 69 70 71 |
((http)(make-remote))
((tcp) (tt:make-remote areapath))
(else #f)))
;;======================================================================
(define *send-receive-mutex* (make-mutex)) ;; should have separate mutex per run-id
| | | > > > > | | | > > > > > | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
((http)(make-remote))
((tcp) (tt:make-remote areapath))
(else #f)))
;;======================================================================
(define *send-receive-mutex* (make-mutex)) ;; should have separate mutex per run-id
(define *ttdat* #f)
;; how to make area-dat
(define (rmt:set-ttdat areapath ttdat)
(if ttdat
ttdat
(if *ttdat*
*ttdat*
(begin
(debug:print-info 2 *default-log-port* "rmt:set-ttdat: Initialize new ttdat")
(let* ((newremote (make-and-init-remote areapath)))
(set! *ttdat* newremote)
newremote
)
)
)
)
)
;; NB// area-dat replaced by ttdat
;;
(define (rmt:send-receive cmd run-id params #!key (attemptnum 1)(ttdat #f))
(assert (or (not run-id) (number? run-id)) "FATAL: run-id is required to be a number or #f")
(assert *toppath* "FATAL: rmt:send-receive called with *toppath* not set.")
(let* ((areapath *toppath*) ;; TODO - resolve from dbstruct to be compatible with multiple areas
|
| ︙ | ︙ |