Megatest

Check-in [5921f8fed0]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 5921f8fed0220e1a6fb693f9123beb112fc5c7bf
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified server.scm from [66a7525f0a] to [8b3ffe13e6].

︙
53
54
55
56
57
58
59
60
61


62
63
64
65
66
67
68

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)
		     (ptype  . server)
		     (pid    . (current-process-id)))
		     (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))))
︙

This page was generated in about 0.121s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00