Mercurial > repos > rhope
annotate basicweb.rhope @ 189:d0e3a13c1bd9 default tip
Remove old calculator example
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Fri, 07 Oct 2011 00:24:04 -0700 |
| parents | f3686f60985d |
| children |
| 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 | |
|
146
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
8 Main[args] |
| 0 | 9 { |
|
146
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
10 [args]Index[1] |
|
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
11 { port <- Int32[~] } |
|
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.
Mike Pavone <pavone@retrodev.com>
parents:
146
diff
changeset
|
12 { port <- Val[80] } |
| 0 | 13 Print["Starting webserver"] |
| 14 //Since we're just serving static files we don't need to setup any handlers | |
|
47
6202b866d72c
Cleaned up constructor names and merged some other changes in to support the Rhope website
Mike Pavone <pavone@retrodev.com>
parents:
0
diff
changeset
|
15 handlers <- Dictionary[] |
|
146
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
16 //Start listening on the desired port |
|
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
17 Listen on Port[port,Connection Start[?, ?, handlers]] |
|
1f39e69446f9
Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents:
47
diff
changeset
|
18 { Wait Forever[] } |
| 0 | 19 } |