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

Add a main word to webapps.ip

db4
Slava Pestov 2008-10-28 16:20:22 -07:00
parent 5388945ef0
commit 500ee30266
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/webapps/ip/ip.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions http.server.dispatchers USING: accessors furnace.actions http.server
html.forms io.servers.connection namespaces prettyprint ; http.server.dispatchers html.forms io.servers.connection
namespaces prettyprint ;
IN: webapps.ip IN: webapps.ip
TUPLE: ip-app < dispatcher ; TUPLE: ip-app < dispatcher ;
@ -14,3 +15,9 @@ TUPLE: ip-app < dispatcher ;
: <ip-app> ( -- dispatcher ) : <ip-app> ( -- dispatcher )
ip-app new-dispatcher ip-app new-dispatcher
<display-ip-action> "" add-responder ; <display-ip-action> "" add-responder ;
: run-ip-app ( -- )
<ip-app> main-responder set-global
8080 httpd ;
MAIN: run-ip-app