Mercurial > repos > rhope
view basicweb.rhope @ 146:1f39e69446f9
Finished porting webserver
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 21 Nov 2010 22:47:14 -0500 |
parents | 6202b866d72c |
children | f3686f60985d |
line wrap: on
line source
/* Uses the webserver library to serve static files from the current directory */ //Import the library that does all the hard work Import webserver.rhope Main[args] { [args]Index[1] { port <- Int32[~] } { port <- 80 } Print["Starting webserver"] //Since we're just serving static files we don't need to setup any handlers handlers <- Dictionary[] //Start listening on the desired port Listen on Port[port,Connection Start[?, ?, handlers]] { Wait Forever[] } }