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

Tweak deploy descriptors

db4
Slava Pestov 2008-07-03 20:50:08 -05:00
parent d93851cc96
commit 48d8d44d80
5 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/bunny/deploy.factor
View File

@ -1,15 +1,15 @@
USING: tools.deploy.config ; USING: tools.deploy.config ;
H{ H{
{ deploy-reflection 1 }
{ deploy-math? t }
{ deploy-ui? t }
{ deploy-name "Bunny" }
{ deploy-compiler? t }
{ deploy-threads? t }
{ deploy-word-defs? f }
{ deploy-c-types? f }
{ deploy-io 3 } { deploy-io 3 }
{ "stop-after-last-window?" t } { deploy-word-defs? f }
{ deploy-reflection 1 }
{ deploy-compiler? t }
{ deploy-random? f } { deploy-random? f }
{ deploy-c-types? f }
{ deploy-name "Bunny" }
{ deploy-word-props? f } { deploy-word-props? f }
{ deploy-threads? t }
{ "stop-after-last-window?" t }
{ deploy-ui? t }
{ deploy-math? t }
} }

2
extra/sudoku/deploy.factor
View File

@ -5,7 +5,7 @@ H{
{ deploy-name "Sudoku" } { deploy-name "Sudoku" }
{ deploy-threads? f } { deploy-threads? f }
{ deploy-compiler? t } { deploy-compiler? t }
{ deploy-math? f } { deploy-math? t }
{ deploy-c-types? f } { deploy-c-types? f }
{ deploy-io 2 } { deploy-io 2 }
{ deploy-reflection 1 } { deploy-reflection 1 }

15
extra/tools/deploy/deploy-tests.factor
View File

@ -63,13 +63,16 @@ namespaces continuations layouts accessors ;
] curry unit-test ] curry unit-test
] each ] each
USING: http.client furnace.actions http.server http.server.dispatchers USING: http.client http.server http.server.dispatchers
http.server.responses http.server.static io.servers.connection ; http.server.responses http.server.static io.servers.connection ;
: add-quit-action SINGLETON: quit-responder
<action>
[ stop-server "Goodbye" "text/html" <content> ] >>display M: quit-responder call-responder*
"quit" add-responder ; 2drop stop-server "Goodbye" "text/html" <content> ;
: add-quot-responder ( responder -- responder )
quit-responder "quit" add-responder ;
: test-httpd ( -- ) : test-httpd ( -- )
#! Return as soon as server is running. #! Return as soon as server is running.
@ -81,7 +84,7 @@ http.server.responses http.server.static io.servers.connection ;
[ ] [ [ ] [
[ [
<dispatcher> <dispatcher>
add-quit-action add-quot-responder
"resource:extra/http/test" <static> >>default "resource:extra/http/test" <static> >>default
main-responder set main-responder set

2
extra/tools/deploy/test/4/deploy.factor
View File

@ -1,6 +1,6 @@
USING: tools.deploy.config ; USING: tools.deploy.config ;
H{ H{
{ deploy-math? f } { deploy-math? t }
{ deploy-reflection 1 } { deploy-reflection 1 }
{ deploy-io 2 } { deploy-io 2 }
{ deploy-c-types? f } { deploy-c-types? f }

4
extra/tools/deploy/test/5/deploy.factor
View File

@ -1,10 +1,10 @@
USING: tools.deploy.config ; USING: tools.deploy.config ;
H{ H{
{ deploy-math? t } { deploy-math? t }
{ deploy-reflection 2 } { deploy-reflection 1 }
{ deploy-io 3 } { deploy-io 3 }
{ deploy-c-types? f } { deploy-c-types? f }
{ deploy-random? t } { deploy-random? f }
{ deploy-ui? f } { deploy-ui? f }
{ deploy-name "tools.deploy.test.5" } { deploy-name "tools.deploy.test.5" }
{ deploy-word-defs? f } { deploy-word-defs? f }