1 ! Copyright (C) 2007, 2008 Slava Pestov.
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
3 USING: io io.files io.pathnames io.encodings.utf8 namespaces
\r
4 http.server http.server.responses http.server.static http
\r
5 xmode.code2html kernel sequences accessors fry ;
\r
6 IN: xmode.code2html.responder
\r
8 : <sources> ( root -- responder )
\r
13 _ file-name input-stream get htmlize-stream
\r
16 ] <file-responder> ;
\r