steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Another html.streasm usage

db4
Slava Pestov 2008-05-23 17:45:33 -05:00
parent 3a6532a9f8
commit 23c0d0fc93
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/http/server/server.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2003, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs kernel namespaces io io.timeouts strings splitting
threads sequences prettyprint io.server logging calendar
http html html.elements accessors math.parser combinators.lib
threads sequences prettyprint io.server logging calendar http
html.streams html.elements accessors math.parser combinators.lib
tools.vocabs debugger continuations random combinators
destructors io.encodings.8-bit fry classes words ;
destructors io.encodings.8-bit fry classes words math ;
IN: http.server
! path is a sequence of path component strings
@ -274,9 +274,11 @@ SYMBOL: exit-continuation
] with-destructors ;
: httpd ( port -- )
internet-server "http.server"
latin1 [ handle-client ] with-server ;
dup integer? [ internet-server ] when
"http.server" latin1
[ handle-client ] with-server ;
: httpd-main ( -- ) 8888 httpd ;
: httpd-main ( -- )
8888 httpd ;
MAIN: httpd-main