Re: [dev-serveez] request for scheme

[Martin Grabmueller]

> From: stefan <address@hidden>
> Date: Wed, 13 Jun 2001 23:09:22 +0200 (CEST)
> 
> (define (bind-servers! . args)
>   (foreach args
>     (if (serveez-port? arg)
>       (remember-in-port-list))
>     (if (serveez-server? arg)
>       (remember-in-server-list))
>   )
>   (foreach port-list
>     (foreach server-list
>       (bind-server! port server)))))
> 
> Do you understand ? I want a function given a list of port configurations
> and servers and bind each to every. With the functions (serveez-port?) you
> can check if that is a port configuration and with (serveez-server?) if it
> is a server prevously defined.
> I tried to write that myself but stuck into guile documentation without
> end... I think you will teach us all scheme :-)

I'm not sure I got what you're aiming at, but what about the
following (beware, untested):

(define (bind-servers! . args)
  (let ((server-list '())  ;; Initialize lists.
        (port-list '()))

    ;; Iterate over argument list, separating ports from servers.
    (for-each
      (lambda (elem)
        (cond ((serveez-port? elem)
               (set! port-list (cons elem port-list)))
              ((serveez-server? elem)
               (set! server-list (cons elem server-list)))))
      args)

      ;; Iterate over server list and ..
      (for-each
         (lambda (server)
           ;; ... for each server, iterate over port list and ...
           (for-each
              (lambda (port)
                 ;; ... bind each port to each server.
                 (bind-server! port server))
              port-list))
         server-list)))

Regards,
  'martin