Fix path names
parent
724fae53e9
commit
26b89084b7
|
@ -1,6 +1,7 @@
|
||||||
USING: accessors kernel
|
! Copyright (C) 2008 Slava Pestov.
|
||||||
http.server http.server.filters http.server.responses
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
furnace ;
|
USING: accessors kernel http.server http.server.filters
|
||||||
|
http.server.responses furnace ;
|
||||||
IN: furnace.referrer
|
IN: furnace.referrer
|
||||||
|
|
||||||
TUPLE: referrer-check < filter-responder quot ;
|
TUPLE: referrer-check < filter-responder quot ;
|
||||||
|
|
|
@ -26,7 +26,7 @@ IN: html.templates.chloe.tests
|
||||||
"?>" split1 nip ; inline
|
"?>" split1 nip ; inline
|
||||||
|
|
||||||
: test-template ( name -- template )
|
: test-template ( name -- template )
|
||||||
"resource:extra/html/templates/chloe/test/"
|
"resource:basis/html/templates/chloe/test/"
|
||||||
prepend <chloe> ;
|
prepend <chloe> ;
|
||||||
|
|
||||||
[ "Hello world" ] [
|
[ "Hello world" ] [
|
||||||
|
|
|
@ -4,7 +4,7 @@ tools.test sequences parser ;
|
||||||
IN: html.templates.fhtml.tests
|
IN: html.templates.fhtml.tests
|
||||||
|
|
||||||
: test-template ( path -- ? )
|
: test-template ( path -- ? )
|
||||||
"resource:extra/html/templates/fhtml/test/"
|
"resource:basis/html/templates/fhtml/test/"
|
||||||
prepend
|
prepend
|
||||||
[
|
[
|
||||||
".fhtml" append <fhtml> [ call-template ] with-string-writer
|
".fhtml" append <fhtml> [ call-template ] with-string-writer
|
||||||
|
|
|
@ -202,7 +202,7 @@ test-db [
|
||||||
<dispatcher>
|
<dispatcher>
|
||||||
add-quit-action
|
add-quit-action
|
||||||
<dispatcher>
|
<dispatcher>
|
||||||
"resource:extra/http/test" <static> >>default
|
"resource:basis/http/test" <static> >>default
|
||||||
"nested" add-responder
|
"nested" add-responder
|
||||||
<action>
|
<action>
|
||||||
[ URL" redirect-loop" <temporary-redirect> ] >>display
|
[ URL" redirect-loop" <temporary-redirect> ] >>display
|
||||||
|
@ -214,7 +214,7 @@ test-db [
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ t ] [
|
[ 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 =
|
"http://localhost:1237/nested/foo.html" http-get nip =
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
|
|
@ -1,3 +1,5 @@
|
||||||
|
! Copyright (C) 2008 Slava Pestov.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: combinators.short-circuit math math.order math.parser kernel
|
USING: combinators.short-circuit math math.order math.parser kernel
|
||||||
sequences sequences.deep peg peg.parsers assocs arrays
|
sequences sequences.deep peg peg.parsers assocs arrays
|
||||||
hashtables strings unicode.case namespaces ascii ;
|
hashtables strings unicode.case namespaces ascii ;
|
||||||
|
|
|
@ -24,7 +24,7 @@ TAGS>
|
||||||
] keep ;
|
] keep ;
|
||||||
|
|
||||||
MEMO: modes ( -- modes )
|
MEMO: modes ( -- modes )
|
||||||
"resource:extra/xmode/modes/catalog"
|
"resource:basis/xmode/modes/catalog"
|
||||||
file>xml parse-modes-tag ;
|
file>xml parse-modes-tag ;
|
||||||
|
|
||||||
MEMO: mode-names ( -- modes )
|
MEMO: mode-names ( -- modes )
|
||||||
|
@ -36,7 +36,7 @@ MEMO: mode-names ( -- modes )
|
||||||
MEMO: (load-mode) ( name -- rule-sets )
|
MEMO: (load-mode) ( name -- rule-sets )
|
||||||
modes at [
|
modes at [
|
||||||
file>>
|
file>>
|
||||||
"resource:extra/xmode/modes/" prepend
|
"resource:basis/xmode/modes/" prepend
|
||||||
utf8 <file-reader> parse-mode
|
utf8 <file-reader> parse-mode
|
||||||
] [
|
] [
|
||||||
"text" (load-mode)
|
"text" (load-mode)
|
||||||
|
|
|
@ -20,7 +20,7 @@ IN: xmode.code2html
|
||||||
|
|
||||||
: default-stylesheet ( -- )
|
: default-stylesheet ( -- )
|
||||||
<style>
|
<style>
|
||||||
"resource:extra/xmode/code2html/stylesheet.css"
|
"resource:basis/xmode/code2html/stylesheet.css"
|
||||||
utf8 file-contents escape-string write
|
utf8 file-contents escape-string write
|
||||||
</style> ;
|
</style> ;
|
||||||
|
|
||||||
|
|
|
@ -47,6 +47,6 @@ TAGS>
|
||||||
"PUBLIC"
|
"PUBLIC"
|
||||||
}
|
}
|
||||||
] [
|
] [
|
||||||
"resource:extra/xmode/utilities/test.xml"
|
"resource:basis/xmode/utilities/test.xml"
|
||||||
file>xml parse-company-tag
|
file>xml parse-company-tag
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
|
@ -16,10 +16,14 @@ Images can be embedded in the text:
|
||||||
|
|
||||||
[[image:http://factorcode.org/graphics/logo.png]]
|
[[image:http://factorcode.org/graphics/logo.png]]
|
||||||
|
|
||||||
|
Lists:
|
||||||
|
|
||||||
- a list
|
- a list
|
||||||
- with three
|
- with three
|
||||||
- items
|
- items
|
||||||
|
|
||||||
|
Tables:
|
||||||
|
|
||||||
|a table|with|four|columns|
|
|a table|with|four|columns|
|
||||||
|and|two|rows|...|
|
|and|two|rows|...|
|
||||||
|
|
||||||
|
|
|
@ -76,8 +76,8 @@ SYMBOL: dh-file
|
||||||
init-factor-db ;
|
init-factor-db ;
|
||||||
|
|
||||||
: init-testing ( -- )
|
: init-testing ( -- )
|
||||||
"resource:extra/openssl/test/dh1024.pem" dh-file set-global
|
"resource:basis/openssl/test/dh1024.pem" dh-file set-global
|
||||||
"resource:extra/openssl/test/server.pem" key-file set-global
|
"resource:basis/openssl/test/server.pem" key-file set-global
|
||||||
"password" key-password set-global
|
"password" key-password set-global
|
||||||
common-configuration ;
|
common-configuration ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue