steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix load errors

db4
Slava Pestov 2008-06-02 17:51:06 -05:00
parent 7003b66bab
commit d35f25f334
15 changed files with 43 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/furnace/auth/basic/basic.factor
View File

@ -1,9 +1,9 @@
! Copyright (c) 2007 Chris Double.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors quotations assocs kernel splitting
base64 html.elements io combinators http.server
furnace.auth.providers furnace.auth.login
http sequences ;
base64 html.elements io combinators sequences
http http.server.filters http.server.responses http.server
furnace.auth.providers furnace.auth.login ;
IN: furnace.auth.basic
TUPLE: basic-auth < filter-responder realm provider ;

2
extra/html/components/components-tests.factor
View File

@ -1,7 +1,7 @@
IN: html.components.tests
USING: tools.test kernel io.streams.string
io.streams.null accessors inspector html.streams
html.components namespaces ;
html.elements html.components namespaces ;
[ ] [ blank-values ] unit-test

2
extra/html/parser/analyzer/analyzer.factor
View File

@ -1,6 +1,6 @@
USING: assocs html.parser kernel math sequences strings ascii
arrays shuffle unicode.case namespaces splitting http
sequences.lib accessors io combinators http.client ;
sequences.lib accessors io combinators http.client urls ;
IN: html.parser.analyzer
TUPLE: link attributes clickable ;

8
extra/html/templates/chloe/chloe-tests.factor
View File

@ -1,7 +1,7 @@
USING: html.templates html.templates.chloe
tools.test io.streams.string kernel sequences ascii boxes
namespaces xml html.components
splitting unicode.categories ;
splitting unicode.categories furnace ;
IN: html.templates.chloe.tests
[ f ] [ f parse-query-attr ] unit-test
@ -49,7 +49,7 @@ IN: html.templates.chloe.tests
[
[
"test2" test-template call-template
] [ "test3" test-template ] with-boilerplate
] "test3" test-template with-boilerplate
] run-template
] unit-test
@ -137,7 +137,7 @@ TUPLE: person first-name last-name ;
[ "<table><tr><td>RBaxter</td><td>Unknown</td></tr><tr><td>Doug</td><td>Coleman</td></tr></table>" ] [
[
"test9" test-template call-template
"test8" test-template call-template
] run-template [ blank? not ] filter
] unit-test
@ -145,6 +145,6 @@ TUPLE: person first-name last-name ;
[ "<a name=\"1\">Hello</a>" ] [
[
"test10" test-template call-template
"test9" test-template call-template
] run-template
] unit-test

4
extra/http/server/cgi/cgi.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license.
USING: namespaces kernel assocs io.files io.streams.duplex
combinators arrays io.launcher io http.server.static http.server
http accessors sequences strings math.parser fry ;
http accessors sequences strings math.parser fry urls ;
IN: http.server.cgi
: post? request get method>> "POST" = ;
@ -28,7 +28,7 @@ IN: http.server.cgi
"" "REMOTE_IDENT" set
request get method>> "REQUEST_METHOD" set
request get query>> assoc>query "QUERY_STRING" set
request get url>> query>> assoc>query "QUERY_STRING" set
request get "cookie" header "HTTP_COOKIE" set
request get "user-agent" header "HTTP_USER_AGENT" set

3
extra/http/server/server.factor
View File

@ -63,7 +63,8 @@ LOG: httpd-hit NOTICE
url>> path>> split-path main-responder get call-responder ;
: do-request ( request -- response )
[
'[
,
[ init-request ]
[ log-request ]
[ dispatch-request ] tri

2
extra/webapps/counter/counter.factor
View File

@ -1,5 +1,5 @@
USING: math kernel accessors http.server http.server.dispatchers
furnace.actions furnace.sessions
furnace furnace.actions furnace.sessions
html.components html.templates.chloe
fry urls ;
IN: webapps.counter

11
extra/webapps/wiki/diff.xml
View File

@ -2,9 +2,7 @@
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<t:bind t:name="old">
<t:title>Diff: <t:label t:name="title" /></t:title>
</t:bind>
<t:title>Diff: <t:label t:name="title" /></t:title>
<table>
<tr>
@ -23,11 +21,4 @@
<t:comparison t:name="diff" />
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

6
extra/webapps/wiki/edit.xml
View File

@ -16,10 +16,4 @@
</t:form>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

14
extra/webapps/wiki/page-common.xml Normal file
View File

@ -0,0 +1,14 @@
<?xml version='1.0' ?>
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<t:call-next-template />
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

9
extra/webapps/wiki/revisions.xml
View File

@ -53,13 +53,4 @@
<input type="submit" value="View" />
</form>
<br/>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

7
extra/webapps/wiki/view.xml
View File

@ -10,11 +10,4 @@
<p><em>This revision created on <t:label t:name="date" /> by <t:a t:href="user-edits" t:query="author"><t:label t:name="author" /></t:a>.</em></p>
<div class="navbar">
<t:a t:href="$wiki/view" t:query="title">Latest</t:a>
| <t:a t:href="$wiki/revisions" t:query="title">Revisions</t:a>
| <t:a t:href="$wiki/edit" t:query="title">Edit</t:a>
| <t:button t:action="$wiki/delete" t:for="title" class="link-button link">Delete</t:button>
</div>
</t:chloe>

16
extra/webapps/wiki/wiki.factor
View File

@ -216,16 +216,20 @@ revision "REVISIONS" {
: <wiki> ( -- dispatcher )
wiki new-dispatcher
<main-article-action> "" add-responder
<view-article-action> "view" add-responder
<view-revision-action> "revision" add-responder
<list-revisions-action> "revisions" add-responder
<dispatcher>
<main-article-action> "" add-responder
<view-article-action> "view" add-responder
<view-revision-action> "revision" add-responder
<list-revisions-action> "revisions" add-responder
<diff-action> "diff" add-responder
<edit-article-action> { } <protected> "edit" add-responder
<boilerplate>
{ wiki "page-common" } >>template
>>default
<rollback-action> "rollback" add-responder
<user-edits-action> "user-edits" add-responder
<diff-action> "diff" add-responder
<list-articles-action> "articles" add-responder
<list-changes-action> "changes" add-responder
<edit-article-action> { } <protected> "edit" add-responder
<delete-action> { } <protected> "delete" add-responder
<boilerplate>
{ wiki "wiki-common" } >>template ;

4
extra/xmode/code2html/responder/responder.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: io io.files io.encodings.utf8 namespaces http.server
http.server.static http xmode.code2html kernel sequences
accessors fry ;
http.server.responses http.server.static http xmode.code2html
kernel sequences accessors fry ;
IN: xmode.code2html.responder
: <sources> ( root -- responder )

3
extra/yahoo/yahoo.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2006 Daniel Ehrenberg, Walton Chan
! See http://factorcode.org/license.txt for BSD license.
USING: http.client xml xml.utilities kernel sequences
namespaces http math.parser help math.order locals accessors ;
namespaces http math.parser help math.order locals
urls accessors ;
IN: yahoo
TUPLE: result title url summary ;