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

webapps.calculator: Utility word to run the calculator on other ports.

db4
Doug Coleman 2014-05-05 20:44:23 -04:00
parent 5c9e270a1c
commit 0d4afd2f31
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/webapps/calculator/calculator.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license.
USING: furnace furnace.actions furnace.redirection
http.server.dispatchers html.forms validators urls accessors
math kernel io.directories ;
math kernel io.directories fry ;
IN: webapps.calculator
TUPLE: calculator < dispatcher ;
@ -35,12 +35,15 @@ USING: db.sqlite furnace.alloy namespaces http.server ;
: calculator-db ( -- db ) "calculator.db" <sqlite-db> ;
: run-calculator ( -- )
[
: run-calculator ( port -- )
'[
<calculator>
calculator-db <alloy>
main-responder set-global
8080 httpd drop
_ httpd drop
] with-resource-directory ;
MAIN: run-calculator
: run-calculator-main ( -- )
8080 run-calculator ;
MAIN: run-calculator-main