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

View File

@ -26,7 +26,7 @@ IN: html.templates.chloe.tests
"?>" split1 nip ; inline
: test-template ( name -- template )
"resource:extra/html/templates/chloe/test/"
"resource:basis/html/templates/chloe/test/"
prepend <chloe> ;
[ "Hello world" ] [

View File

@ -4,7 +4,7 @@ tools.test sequences parser ;
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

View File

@ -202,7 +202,7 @@ test-db [
<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
@ -214,7 +214,7 @@ test-db [
] 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

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
sequences sequences.deep peg peg.parsers assocs arrays
hashtables strings unicode.case namespaces ascii ;

View File

@ -24,7 +24,7 @@ TAGS>
] keep ;
MEMO: modes ( -- modes )
"resource:extra/xmode/modes/catalog"
"resource:basis/xmode/modes/catalog"
file>xml parse-modes-tag ;
MEMO: mode-names ( -- modes )
@ -36,7 +36,7 @@ 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)

View File

@ -20,7 +20,7 @@ IN: xmode.code2html
: default-stylesheet ( -- )
<style>
"resource:extra/xmode/code2html/stylesheet.css"
"resource:basis/xmode/code2html/stylesheet.css"
utf8 file-contents escape-string write
</style> ;

View File

@ -47,6 +47,6 @@ TAGS>
"PUBLIC"
}
] [
"resource:extra/xmode/utilities/test.xml"
"resource:basis/xmode/utilities/test.xml"
file>xml parse-company-tag
] unit-test

View File

@ -16,10 +16,14 @@ Images can be embedded in the text:
[[image:http://factorcode.org/graphics/logo.png]]
Lists:
- a list
- with three
- items
Tables:
|a table|with|four|columns|
|and|two|rows|...|

View File

@ -76,8 +76,8 @@ SYMBOL: dh-file
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 ;