Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001-ulex-one-shot |
| Files: | files | file ages | folders |
| SHA1: |
9ae53d1765d5c487e2bf54fd6cd1211d |
| User & Date: | matt on 2022-01-10 12:54:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-01-12
| ||
| 16:52 | Sync up with v2.0001 check-in: d7b4fe7a7f user: matt tags: v2.0001-ulex-one-shot | |
|
2022-01-10
| ||
| 12:54 | wip check-in: 9ae53d1765 user: matt tags: v2.0001-ulex-one-shot | |
| 12:45 | Try one-shot tcp transport check-in: cbc1276205 user: matt tags: v2.0001-ulex-one-shot | |
Changes
Modified rmtmod.scm from [237e64bc61] to [63c06f1ce1].
| ︙ | ︙ | |||
111 112 113 114 115 116 117 | ;; (tcp-buffer-size 2048) ;; (max-connections 2048) ;; info about me as a listener and my connections to db servers ;; stored (for now) in *db-serv-info* ;; (defstruct servdat | | | | 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | ;; (tcp-buffer-size 2048) ;; (max-connections 2048) ;; info about me as a listener and my connections to db servers ;; stored (for now) in *db-serv-info* ;; (defstruct servdat (host (get-host-name)) (port #f) (uuid #f) (dbfile #f) (uconn (make-udat host: (get-host-name))) ;; this is the listener *FOR THIS PROCESS* (mode #f) (status 'starting) (trynum 0) ;; count the number of ports we've tried (conns (make-hash-table)) ;; apath/dbname => conndat ) (define *db-serv-info* (make-servdat)) |
| ︙ | ︙ | |||
197 198 199 200 201 202 203 | ;; TODO: This is unnecessarily re-creating the record in the hash table ;; (define (rmt:open-main-connection remdat apath) (let* ((fullpath (db:dbname->path apath ".db/main.db")) (conns (servdat-conns remdat)) (conn (rmt:get-conn remdat apath ".db/main.db")) ;; (hash-table-ref/default conns fullpath #f)) ;; TODO - create call for this (start-rmt:run (lambda () | | | 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 |
;; TODO: This is unnecessarily re-creating the record in the hash table
;;
(define (rmt:open-main-connection remdat apath)
(let* ((fullpath (db:dbname->path apath ".db/main.db"))
(conns (servdat-conns remdat))
(conn (rmt:get-conn remdat apath ".db/main.db")) ;; (hash-table-ref/default conns fullpath #f)) ;; TODO - create call for this
(start-rmt:run (lambda ()
;; (set! *db-serv-info* (make-servdat host: (get-host-name)))
(servdat-mode-set! *db-serv-info* 'non-db)
(servdat-uconn-set! *db-serv-info* (make-udat))))
(myconn (servdat-uconn *db-serv-info*)))
(cond
((not *db-serv-info*) ;; myconn)
(start-rmt:run)
(rmt:open-main-connection remdat apath))
|
| ︙ | ︙ |