Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-captain-ulex | v1.70-defunct-try |
| Files: | files | file ages | folders |
| SHA1: |
8c88f2ef2d153d9505a94279957cb7d0 |
| User & Date: | matt on 2020-01-09 22:47:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-01-14
| ||
| 13:22 | wip check-in: 4f1427787a user: mrwellan tags: v1.70-captain-ulex, v1.70-defunct-try | |
|
2020-01-09
| ||
| 22:47 | wip check-in: 8c88f2ef2d user: matt tags: v1.70-captain-ulex, v1.70-defunct-try | |
| 16:43 | wip check-in: 6a12a67ab3 user: mrwellan tags: v1.70-captain-ulex, v1.70-defunct-try | |
Changes
Modified ulex/ulex.scm from [d44ef4f7de] to [67cd0573a6].
| ︙ | ︙ | |||
308 309 310 311 312 313 314 |
;;
(define (setup-as-captain udata)
(if (start-server-find-port udata) ;; puts the server in udata
(if (create-captain-pkt udata)
(let* ((th (make-thread (lambda ()
(ulex-handler udata)) "Captain handler")))
(udat-handler-thread-set! udata th)
| | > | 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 |
;;
(define (setup-as-captain udata)
(if (start-server-find-port udata) ;; puts the server in udata
(if (create-captain-pkt udata)
(let* ((th (make-thread (lambda ()
(ulex-handler udata)) "Captain handler")))
(udat-handler-thread-set! udata th)
(thread-start! th)
udata)
#f)
#f))
(define (get-peer-dat udata host-port #!optional (hostname #f)(pid #f))
(let* ((pdat (or (hash-table-ref/default (udat-outgoing-conns udata) host-port #f)
(handle-exceptions ;; ERROR - MAKE THIS EXCEPTION HANDLER MORE SPECIFIC
exn
|
| ︙ | ︙ |