From 0ad4f276fdf4afba4f0983ae087be209a469c52f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 11 Nov 2008 13:14:39 -0600 Subject: [PATCH] Add time server demo --- extra/time-server/authors.txt | 1 + extra/time-server/time-server-tests.factor | 4 ++++ extra/time-server/time-server.factor | 19 +++++++++++++++++++ 3 files changed, 24 insertions(+) create mode 100644 extra/time-server/authors.txt create mode 100644 extra/time-server/time-server-tests.factor create mode 100644 extra/time-server/time-server.factor diff --git a/extra/time-server/authors.txt b/extra/time-server/authors.txt new file mode 100644 index 0000000000..d4f5d6b3ae --- /dev/null +++ b/extra/time-server/authors.txt @@ -0,0 +1 @@ +Slava Pestov \ No newline at end of file diff --git a/extra/time-server/time-server-tests.factor b/extra/time-server/time-server-tests.factor new file mode 100644 index 0000000000..a9fac2d9d8 --- /dev/null +++ b/extra/time-server/time-server-tests.factor @@ -0,0 +1,4 @@ +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. +USING: tools.test time-server ; +IN: time-server.tests diff --git a/extra/time-server/time-server.factor b/extra/time-server/time-server.factor new file mode 100644 index 0000000000..28debf17cd --- /dev/null +++ b/extra/time-server/time-server.factor @@ -0,0 +1,19 @@ +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. +USING: io io.servers.connection accessors threads +calendar calendar.format ; +IN: time-server + +: handle-time-client ( -- ) + now timestamp>rfc822 print ; + +: ( -- threaded-server ) + + "time-server" >>name + 1234 >>insecure + [ handle-time-client ] >>handler ; + +: start-time-server ( -- threaded-server ) + [ start-server ] in-thread ; + +MAIN: start-time-server -- 2.34.1