[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [dev-serveez] request for scheme

From: Martin Grabmueller
Subject: Re: [dev-serveez] request for scheme
Date: Wed, 20 Jun 2001 13:31:51 +0200 (MET DST)

> From: stefan <address@hidden>
> Date: Tue, 19 Jun 2001 23:46:54 +0200 (CEST)
> That is just, what we wanted. Perfect, Martin. Thanks. Just committed
> that... Now I can imagine a routine which creates tcp ports in a loop with
> the network port increasing and aftwards binding all these to one or more
> servers :-)

Maybe something like that (untested again)?

(define (bind-port-range! from to . args)
  (do ((no from (+ no 1)))
      ((> no to))
        (lambda (server)
          (bind-server! (make-port no) server))

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).


reply via email to

[Prev in Thread] Current Thread [Next in Thread]