1 ;;; -*- Mode:Lisp; Syntax:Common-lisp; Package: modlisp; Base:10 -*-
6 (defun make-socket-server (name function port &key wait (format :text))
7 (let ((listener (ext:create-inet-listener port)))
10 (lambda () (start-socket-server listener function))
14 (defun start-socket-server (listener function)
17 (mp:process-wait-until-fd-usable listener :input)
18 (multiple-value-bind (new-fd remote-host)
19 (ext:accept-tcp-connection listener)
20 (let ((stream (sys:make-fd-stream new-fd :input t :output t)))
22 (lambda () (apache-command-issuer stream function))
23 :name (next-worker-name)))))
24 (unix:unix-close listener)))