Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6584-tcp6 |
| Files: | files | file ages | folders |
| SHA1: |
84a95092039021698397a07d1e97654a |
| User & Date: | matt on 2021-05-29 04:41:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-29
| ||
| 05:15 | wip check-in: 8e59940d89 user: matt tags: v1.6584-tcp6 | |
| 04:41 | wip check-in: 84a9509203 user: matt tags: v1.6584-tcp6 | |
|
2021-05-27
| ||
| 23:01 | wip, getting tcp6 workign check-in: 913149fcbe user: matt tags: v1.6584-tcp6 | |
Changes
Modified rmtmod.scm from [8ffc2f81f0] to [46b3357985].
| ︙ | ︙ | |||
267 268 269 270 271 272 273 |
(let* ((apath *toppath*)
(conns *rmt:remote*)
(dbname (db:run-id->dbname rid)))
(rmt:general-open-connection conns apath dbname)
(rmt:send-receive-real conns apath dbname cmd params)))
(define (rmt:send-receive-real host port data)
| | | | 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 |
(let* ((apath *toppath*)
(conns *rmt:remote*)
(dbname (db:run-id->dbname rid)))
(rmt:general-open-connection conns apath dbname)
(rmt:send-receive-real conns apath dbname cmd params)))
(define (rmt:send-receive-real host port data)
(let-values ((i o) (tcp-connect host port))
(write-line data o)
(print (read-line i))))
;; db is at apath/.db/dbname, rid is an intermediary solution and will be removed
;; sometime in the future
;;
#;(define (rmt:send-receive-real remote apath dbname cmd params)
(let* ((conn (rmt:get-conn remote apath dbname)))
|
| ︙ | ︙ |