Re: [dev-serveez] request for scheme

[stefan]

On Wed, 20 Jun 2001, Martin Grabmueller wrote:

> Maybe something like that (untested again)?
> 
> (define (bind-port-range! from to . args)
>   (do ((no from (+ no 1)))
>       ((> no to))
>      (for-each
>         (lambda (server)
>         (bind-server! (make-port no) server))
>         args)))
> 
> To be called like this:
> 
> (bind-port-range! 8000 8080 http-server)
> (bind-port-range! 2000 10000 echo-server control-server)
> 
> (supposed a procedure `make-port' exists, which creates a port objects
> for a given port number).

The routine is now in `serveez.scm' too with little changes.
You might try now:

(bind-tcp-port-range! 2000 10000 'foo-server1 'foo-server2 'foo-server3)

which is based upon 

(bind-server! (create-tcp-port! "guile-tcp-port-" no) server))

Thanks again,
        address@hidden