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

View File

@ -1,15 +1,15 @@
USING: tools.deploy.config ;
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 }
{ "stop-after-last-window?" t }
{ deploy-word-defs? f }
{ deploy-reflection 1 }
{ deploy-compiler? t }
{ deploy-random? f }
{ deploy-c-types? f }
{ deploy-name "Bunny" }
{ deploy-word-props? f }
{ deploy-threads? t }
{ "stop-after-last-window?" t }
{ deploy-ui? t }
{ deploy-math? t }
}

View File

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

View File

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

View File

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

View File

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