2007-12-06 00:23:05 -05:00
|
|
|
! Copyright (C) 2007 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: io.files namespaces webapps.file http.server.responders
|
2007-12-08 15:14:24 -05:00
|
|
|
xmode.code2html kernel html ;
|
2007-12-06 00:23:05 -05:00
|
|
|
IN: webapps.source
|
|
|
|
|
|
|
|
|
|
global [
|
|
|
|
|
! Serve up our own source code
|
|
|
|
|
"source" [
|
|
|
|
|
[
|
|
|
|
|
"" resource-path "doc-root" set
|
|
|
|
|
[
|
|
|
|
|
drop
|
|
|
|
|
serving-html
|
2007-12-08 15:14:24 -05:00
|
|
|
[ swap htmlize-stream ] with-html-stream
|
2007-12-06 00:23:05 -05:00
|
|
|
] serve-file-hook set
|
|
|
|
|
file-responder
|
|
|
|
|
] with-scope
|
|
|
|
|
] add-simple-responder
|
|
|
|
|
] bind
|
