1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: modlisp -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Base data and functions for modlisp package
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Dec 2002
10 ;;;; $Id: variables.lisp,v 1.9 2003/07/16 20:40:43 kevin Exp $
11 ;;;; *************************************************************************
13 (in-package #:modlisp)
15 (defconstant +default-modlisp-port+ 20123
16 "Default port for listen")
18 (defvar *modlisp-socket* nil
19 "the socket stream to modlisp")
21 (defvar *number-server-requests* 0
22 "number of requests for the server")
24 (defvar *number-worker-requests* 0
25 "number of requests for this worker process")
27 (defvar *close-modlisp-socket* t
28 "whether to close the modlisp socket at the end of this request")
31 (defvar *ml-server* nil "Current ml-server instance")
33 (defclass ml-server ()
34 ((listener :initarg :listener :initform nil :accessor listener)
35 (port :initarg :port :initform nil :accessor port)
36 (processor :initarg :processor :initform nil :accessor processor)
37 (processor-args :initarg :processor-args :initform nil
38 :accessor processor-args)))