X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fbroadcast-server%2Fbroadcast-server.factor;h=37ace19cdcd451972a24067e87564b0433fc7910;hp=a5cf648256fe84516d2d0e2eebc1ea2c81bbe1d6;hb=726a8b784b91bb5e5d1ee01af46a6b91cf0ff438;hpb=9e6c70c2532fb85c07b9f48c9adf5ad0ef501def diff --git a/extra/broadcast-server/broadcast-server.factor b/extra/broadcast-server/broadcast-server.factor index a5cf648256..37ace19cdc 100644 --- a/extra/broadcast-server/broadcast-server.factor +++ b/extra/broadcast-server/broadcast-server.factor @@ -1,11 +1,10 @@ ! Copyright (C) 2021 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays assocs calendar combinators -combinators.extras continuations destructors io -io.encodings.string io.encodings.utf8 io.files.info io.sockets -io.streams.string kernel layouts make parser prettyprint -prettyprint.config sequences splitting system system-info -threads ; +continuations destructors io io.encodings.string +io.encodings.utf8 io.files.info io.sockets io.streams.string +kernel layouts make parser prettyprint prettyprint.config +sequences splitting system system-info threads ; IN: broadcast-server TUPLE: broadcast-server < disposable @@ -64,7 +63,7 @@ SINGLETONS: command data ; ] [ [ receive-socket>> receive - [ utf8 decode "\n" split parse-lines ] dip + [ utf8 decode split-lines parse-lines ] dip ] keep handle-data t ] if ] loop @@ -118,4 +117,5 @@ SINGLETONS: command data ; ] with-destructors ; ! "192.168.88.255" 7777 start-broadcast-server -! "USE: math 2 2 + ." over send-broadcast-command \ No newline at end of file +! "USE: math 2 2 + ." over send-broadcast-command +