annotate basicweb.rhope @ 22:812673a8b1ea
Converted old parser to new syntax (needs work, currently crashes interpreter
author |
Mike Pavone <pavone@retrodev.com> |
date |
Wed, 24 Jun 2009 02:07:12 -0400 |
parents |
76568becd6d6 |
children |
6202b866d72c |
rev |
line source |
0
|
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 }
|