Subject: Re: Whats the point
From: (Rob Warnock)
Date: 2000/07/14
Newsgroups: comp.lang.scheme
Message-ID: <8kmrh1$554d1$>
Shriram Krishnamurthi  <> wrote:
| (Rob Warnock) writes:
| > Obligatory Scheme content: If your Scheme provides a socket library,
| > see how small an HTTP server you can write entirely in Scheme!
| Indeed (and look out for more from us on this in the future):
| ; A functional Web server written in PLT Scheme.
| [...code deleted...]

Wow, very nice! I was actually thinking of something a lot simpler
[albeit a lot less useful], more along the lines of the sample code
in the SIOD distribution ("http-server.scm"), which only serves up a
computed "page" out of the program itself. You can do that in MzScheme
in less than 1/3 the size of your example.

But your code serves up *files*, and handles MIME types, too! More
interestingly, since it uses MzScheme's builtin threads, it leaves
the top-level REPL alive while it's serving requests. [Hmmm... And
it looks look like it wouldn't be very hard to make each request run
in a separate thread, either.]

Of course, there are a lot of "exercises for the student" left to do
(little things like reading the whole request header *before* going off
to serve the page [so you can check for cookies and/or authentication],
or handling POST requests, or serving each request in it's own thread,
timing out stalled connections or clients, etc.), but it's actually
somewhat useful just as it stands.


Rob Warnock, 41L-955
Applied Networking
Silicon Graphics, Inc.		Phone: 650-933-1673
1600 Amphitheatre Pkwy.		PP-ASEL-IA
Mountain View, CA  94043