2017-08-10 19:17:28 +00:00
|
|
|
#lang syndicate
|
2016-07-26 01:30:14 +00:00
|
|
|
|
|
|
|
|
(provide (struct-out tcp-channel-line))
|
|
|
|
|
|
|
|
|
|
(require "tcp.rkt")
|
2017-10-11 21:22:29 +00:00
|
|
|
(require "../support/bytes.rkt")
|
2016-07-26 01:30:14 +00:00
|
|
|
|
|
|
|
|
(struct tcp-channel-line (source destination bytes) #:prefab)
|
|
|
|
|
|
2017-08-05 23:37:34 +00:00
|
|
|
(spawn #:name 'line-reader-factory
|
|
|
|
|
(during/spawn (observe (tcp-channel-line $src $dst _))
|
2017-08-01 13:30:53 +00:00
|
|
|
#:name `(line-reader ,src ,dst)
|
2016-08-24 16:35:38 +00:00
|
|
|
(field [buffer #""])
|
|
|
|
|
(on (message (tcp-channel src dst $bs))
|
|
|
|
|
(buffer (bytes-append (buffer) bs)))
|
|
|
|
|
(begin/dataflow
|
|
|
|
|
(define newline-pos (bytes-index (buffer) (char->integer #\newline)))
|
|
|
|
|
(when newline-pos
|
|
|
|
|
(define line (subbytes (buffer) 0 newline-pos))
|
|
|
|
|
(buffer (subbytes (buffer) (+ newline-pos 1)))
|
|
|
|
|
(send! (tcp-channel-line src dst line))))))
|
