Fix path names

db4
Slava Pestov 2008-09-04 20:11:28 -05:00
parent 724fae53e9
commit 26b89084b7
10 changed files with 20 additions and 13 deletions

View File

@ -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 ;

View File

@ -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" ] [

View File

@ -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

View File

@ -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

View File

@ -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 ;

View File

@ -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)

View File

@ -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> ;

View File

@ -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

View File

@ -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|...|

View File

@ -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 ;