Overview
| Comment: | Use T not ptype |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-use-pkts |
| Files: | files | file ages | folders |
| SHA1: |
5921f8fed0220e1a6fb693f9123beb11 |
| User & Date: | matt on 2017-05-15 05:30:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-15
| ||
| 14:50 | Added several pkt creation locations in the server lifecycle. check-in: 69e91554f6 user: mrwellan tags: v1.64-use-pkts | |
| 05:30 | Use T not ptype check-in: 5921f8fed0 user: matt tags: v1.64-use-pkts | |
| 05:27 | more ... check-in: ed70e701f8 user: matt tags: v1.64-use-pkts | |
Changes
Modified server.scm from [66a7525f0a] to [8b3ffe13e6].
| ︙ | ︙ | |||
53 54 55 56 57 58 59 | ;; all routes though here end in exit ... ;; ;; start_server ;; (define (server:launch run-id transport-type) (common:save-pkt `((action . start) | | | | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
;; all routes though here end in exit ...
;;
;; start_server
;;
(define (server:launch run-id transport-type)
(common:save-pkt `((action . start)
(T . server)
(pid . ,(current-process-id)))
*configdat* #t)
(case transport-type
((http)(http-transport:launch))
;;((nmsg)(nmsg-transport:launch run-id))
((rpc) (rpc-transport:launch run-id))
(else (debug:print-error 0 *default-log-port* "unknown server type " transport-type))))
|
| ︙ | ︙ |