projects
/
wol.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5468: *** empty log message ***
[wol.git]
/
classes.lisp
diff --git
a/classes.lisp
b/classes.lisp
index 70f01b33592981b0c4719ce95d0c52dd01f31404..ba5440a7adb653cbc2f12f8bdaf277ca6876f7dc 100644
(file)
--- a/
classes.lisp
+++ b/
classes.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: July 2003
;;;;
-;;;; $Id: classes.lisp,v 1.
2 2003/07/16 16:40:3
5 kevin Exp $
+;;;; $Id: classes.lisp,v 1.
5 2003/08/08 09:03:4
5 kevin Exp $
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file and Wol are Copyright (c) 2001-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@
-43,11
+43,14
@@
:accessor project-index)
(server :initarg :server :initform nil :accessor project-server)
(session-master :initform (make-instance 'session-master)
:accessor project-index)
(server :initarg :server :initform nil :accessor project-server)
(session-master :initform (make-instance 'session-master)
- :accessor session-master)))
+ :accessor session-master)
+ (connector :initarg :connector :accessor project-connector)))
(defclass entity ()
(defclass entity ()
- ((project :initarg :project :accessor entity-project))
- )
+ ((project :initarg :project :accessor entity-project)
+ (aserve-entity :initarg :aserve-entity :initform nil
+ :accessor entity-aserve-entity)))
+
(defclass http-request ()
((method :initarg :method :accessor request-method)
(defclass http-request ()
((method :initarg :method :accessor request-method)
@@
-57,10
+60,12
@@
(protocol-string :initarg :protocol-string :reader request-protocol-string)
(socket :initarg :socket :reader request-socket)
(ml-server :initarg :ml-server :reader request-ml-server)
(protocol-string :initarg :protocol-string :reader request-protocol-string)
(socket :initarg :socket :reader request-socket)
(ml-server :initarg :ml-server :reader request-ml-server)
- (vhost :initarg :vhost :accessor request-vhost)
+ (aserve-server :initarg :aserve-server :reader request-aserve-server)
+ (host :initarg :host :accessor request-host)
+ (desired-query :initform nil :accessor request-desired-query
+ :documentation "type of query alist requested")
(posted-content :initarg :posted-content :accessor request-posted-content)
(headers :initarg :headers :accessor request-headers)
(posted-content :initarg :posted-content :accessor request-posted-content)
(headers :initarg :headers :accessor request-headers)
- (project :initarg :project :accessor project)
(page :initarg :page :initform nil :accessor request-page)
(plist :initarg :plist :initform nil :accessor request-plist)
(next-plists :initarg :next-plists :initform nil
(page :initarg :page :initform nil :accessor request-page)
(plist :initarg :plist :initform nil :accessor request-plist)
(next-plists :initarg :next-plists :initform nil
@@
-71,6
+76,8
@@
:accessor request-query-alist)
(session :initarg :session :initform nil
:accessor websession-from-req)
:accessor request-query-alist)
(session :initarg :session :initform nil
:accessor websession-from-req)
+ (aserve-request :initarg :aserve-request :initform nil
+ :accessor aserve-request)
))
(defvar *reap-interval* 300)
))
(defvar *reap-interval* 300)
@@
-84,4
+91,7
@@
(defvar +plist-header+ "/sdata"
"string that starts an encoded plist")
(defvar +plist-header+ "/sdata"
"string that starts an encoded plist")
-(defvar *wol-version* "0.1.0")
+(defparameter *wol-version* '(0 1 0))
+
+(defvar *wol-stream* nil
+ "The output stream for the current request")