Mercurial > repos > rhope
comparison basicweb.rhope @ 147:f3686f60985d
Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 22 Nov 2010 01:15:02 -0500 |
parents | 1f39e69446f9 |
children |
comparison
equal
deleted
inserted
replaced
146:1f39e69446f9 | 147:f3686f60985d |
---|---|
7 | 7 |
8 Main[args] | 8 Main[args] |
9 { | 9 { |
10 [args]Index[1] | 10 [args]Index[1] |
11 { port <- Int32[~] } | 11 { port <- Int32[~] } |
12 { port <- 80 } | 12 { port <- Val[80] } |
13 Print["Starting webserver"] | 13 Print["Starting webserver"] |
14 //Since we're just serving static files we don't need to setup any handlers | 14 //Since we're just serving static files we don't need to setup any handlers |
15 handlers <- Dictionary[] | 15 handlers <- Dictionary[] |
16 //Start listening on the desired port | 16 //Start listening on the desired port |
17 Listen on Port[port,Connection Start[?, ?, handlers]] | 17 Listen on Port[port,Connection Start[?, ?, handlers]] |