-USING: accessors kernel
-http.server http.server.filters http.server.responses
-furnace ;
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel http.server http.server.filters
+http.server.responses furnace ;
IN: furnace.referrer
TUPLE: referrer-check < filter-responder quot ;
"?>" split1 nip ; inline
: test-template ( name -- template )
- "resource:extra/html/templates/chloe/test/"
+ "resource:basis/html/templates/chloe/test/"
prepend <chloe> ;
[ "Hello world" ] [
IN: html.templates.fhtml.tests
: test-template ( path -- ? )
- "resource:extra/html/templates/fhtml/test/"
+ "resource:basis/html/templates/fhtml/test/"
prepend
[
".fhtml" append <fhtml> [ call-template ] with-string-writer
<dispatcher>
add-quit-action
<dispatcher>
- "resource:extra/http/test" <static> >>default
+ "resource:basis/http/test" <static> >>default
"nested" add-responder
<action>
[ URL" redirect-loop" <temporary-redirect> ] >>display
] unit-test
[ t ] [
- "resource:extra/http/test/foo.html" ascii file-contents
+ "resource:basis/http/test/foo.html" ascii file-contents
"http://localhost:1237/nested/foo.html" http-get nip =
] unit-test
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit math math.order math.parser kernel
sequences sequences.deep peg peg.parsers assocs arrays
hashtables strings unicode.case namespaces ascii ;
] keep ;
MEMO: modes ( -- modes )
- "resource:extra/xmode/modes/catalog"
+ "resource:basis/xmode/modes/catalog"
file>xml parse-modes-tag ;
MEMO: mode-names ( -- modes )
MEMO: (load-mode) ( name -- rule-sets )
modes at [
file>>
- "resource:extra/xmode/modes/" prepend
+ "resource:basis/xmode/modes/" prepend
utf8 <file-reader> parse-mode
] [
"text" (load-mode)
: default-stylesheet ( -- )
<style>
- "resource:extra/xmode/code2html/stylesheet.css"
+ "resource:basis/xmode/code2html/stylesheet.css"
utf8 file-contents escape-string write
</style> ;
"PUBLIC"
}
] [
- "resource:extra/xmode/utilities/test.xml"
+ "resource:basis/xmode/utilities/test.xml"
file>xml parse-company-tag
] unit-test
[[image:http://factorcode.org/graphics/logo.png]]
+Lists:
+
- a list
- with three
- items
+Tables:
+
|a table|with|four|columns|
|and|two|rows|...|
init-factor-db ;
: init-testing ( -- )
- "resource:extra/openssl/test/dh1024.pem" dh-file set-global
- "resource:extra/openssl/test/server.pem" key-file set-global
+ "resource:basis/openssl/test/dh1024.pem" dh-file set-global
+ "resource:basis/openssl/test/server.pem" key-file set-global
"password" key-password set-global
common-configuration ;