Mercurial > repos > rhope

comparison basicweb.rhope @ 0:76568becd6d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rhope Alpha 2a source import
author Mike Pavone <pavone@retrodev.com>
date Tue, 28 Apr 2009 23:06:07 +0000
parents
children 6202b866d72c
comparison
equal deleted inserted replaced
-1:000000000000 0:76568becd6d6
1 /*
2 Uses the webserver library to serve static files from the current directory
3 */
4
5 //Import the library that does all the hard work
6 Import webserver.rhope
7
8 Main[]
9 {
10 Print["Starting webserver"]
11 //Since we're just serving static files we don't need to setup any handlers
12 handlers <- New@Dictionary[]
13 //Start listening on port 80
14 Listen on Port[80,["Connection Start"]Set Input[1, handlers]]
15 Wait Forever[]
16 }