Overview
| Comment: | Print out recieved/sent data at server end. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-multi-db |
| Files: | files | file ages | folders |
| SHA1: |
bea6ae9a16fa70b27d1b341e7c280af1 |
| User & Date: | mrwellan on 2019-02-06 17:00:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-02-06
| ||
| 22:24 | outline of the task dispatcher coded check-in: 0c8e6ec6fd user: matt tags: v1.65-multi-db | |
| 17:00 | Print out recieved/sent data at server end. check-in: bea6ae9a16 user: mrwellan tags: v1.65-multi-db | |
| 16:47 | Full communication loop seems to be working. check-in: 13061daea9 user: mrwellan tags: v1.65-multi-db | |
Changes
Modified server.scm from [140418ff5a] to [4a0ee391d0].
| ︙ | ︙ | |||
168 169 170 171 172 173 174 175 176 177 178 179 180 181 | (lambda () (let loop () (let ((dat (server:receive rep))) (set! last-msg-time (current-seconds)) ;; (print "received: " pktdat) (if (not (eof-object? dat)) (let ((resdat (proc dat))) (nmsg:send rep (with-output-to-string (lambda ()(write resdat)))) (loop)))))) "message handler")) (th2 (make-thread (lambda () (let loop () (thread-sleep! 10) | > > | 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | (lambda () (let loop () (let ((dat (server:receive rep))) (set! last-msg-time (current-seconds)) ;; (print "received: " pktdat) (if (not (eof-object? dat)) (let ((resdat (proc dat))) (print "Got " dat) (print "Responding with " resdat) (nmsg:send rep (with-output-to-string (lambda ()(write resdat)))) (loop)))))) "message handler")) (th2 (make-thread (lambda () (let loop () (thread-sleep! 10) |
| ︙ | ︙ |