Mercurial > repos > rhope

annotate basicweb.rhope @ 147:f3686f60985d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1 /*
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2 Uses the webserver library to serve static files from the current directory
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 */
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
4
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
5 //Import the library that does all the hard work
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
6 Import webserver.rhope
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7
146
1f39e69446f9 Finished porting webserver
Mike Pavone <pavone@retrodev.com>
parents: 47
diff changeset
8 Main[args]
0
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
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
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
13 Print["Starting webserver"]
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
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
76568becd6d6 Rhope Alpha 2a source import
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
19 }