;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base.lisp,v 1.10 2003/07/10 18:58:29 kevin Exp $
+;;;; $Id: base.lisp,v 1.11 2003/07/11 02:38:00 kevin Exp $
;;;; *************************************************************************
(in-package #:modlisp)
(defun modlisp-start (&key (port +default-modlisp-port+)
- (processor 'demo-modlisp-command-processor)
- (processor-args nil)
- (catch-errors t))
+ (processor 'demo-modlisp-command-processor)
+ (processor-args nil)
+ (catch-errors t)
+ timeout
+ number-fixed-workers)
(let ((listener (make-instance 'listener :port port
:base-name "modlisp"
:function 'modlisp-command-issuer
:function-args (cons processor processor-args)
:format :text
:wait nil
- :catch-errors catch-errors)))
+ :catch-errors catch-errors
+ :timeout timeout
+ :number-fixed-workers number-fixed-workers)))
(init/listener listener :start)))
(do ((command (read-modlisp-command) (read-modlisp-command)))
((null command))
(apply processor command args)
- (force-output *modlisp-socket*)
+ (finish-output *modlisp-socket*)
(incf *number-worker-requests*)
(incf *number-server-requests*)
(when *close-modlisp-socket*