echo server (prefork)

echo.scm

#!/usr/bin/env gosh
;;; -*- mode: scheme; coding: utf-8 -*-

(use srfi-1)
(use gauche.net)
(use gauche.uvector)
;; gosh echo.scm <num>
(define (main args)
  (let* ((server (make-server-socket 'inet 9999 :reuse-addr? #t :backlog SOMAXCONN))
         (procs (list-tabulate (x->integer (cadr args))
                               (lambda _
                                 (case (sys-fork)
                                   ((0)
                                    (while (socket-accept server) => s
                                           (call-with-client-socket s copy-port))
                                    (sys-exit 0))
                                   (else => values))))))
    (socket-close server)
    (for-each sys-waitpid procs))
  0)

齊藤(Saitoh) suggested using list-tabulate instead of map+iota.