Mercurial > repos > rhope
comparison basicweb.rhope @ 0:76568becd6d6
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 } |