[elephant-cvs] CVS elephant/src/elephant
ieslick
ieslick at common-lisp.net
Thu Apr 12 02:47:51 UTC 2007
Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv28241/src/elephant
Modified Files:
backend.lisp cache.lisp classes.lisp classindex-utils.lisp
classindex.lisp cmu-mop-patches.lisp collections.lisp
controller.lisp gc.lisp metaclasses.lisp migrate.lisp
package.lisp pset.lisp query-example.lisp query.lisp
serializer.lisp serializer1.lisp serializer2.lisp
transactions.lisp unicode2.lisp variables.lisp
Log Message:
Mostly documentation edits + fixing copyright in all source files
--- /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/04/01 20:56:19 1.16
+++ /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/04/12 02:47:31 1.17
@@ -1,9 +1,8 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
-;;; backend.lisp -- Namespace support for backends
+;;; backend.lisp -- Namespace support for data store packages
;;;
-;;; Initial version 8/26/2004 by Ben Lee
-;;; <blee at common-lisp.net>
+;;; By Ian Eslick <ieslick common-lisp net>
;;;
;;; part of
;;;
@@ -12,6 +11,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/cache.lisp 2006/02/19 04:53:00 1.1
+++ /project/elephant/cvsroot/elephant/src/elephant/cache.lisp 2007/04/12 02:47:31 1.2
@@ -1,5 +1,3 @@
-
-
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
;;; migrate.lisp -- Migrate between repositories
@@ -14,6 +12,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/04/01 14:33:34 1.26
+++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/04/12 02:47:31 1.27
@@ -9,9 +9,12 @@
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
-;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; Original Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/classindex-utils.lisp 2007/02/24 14:51:59 1.6
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex-utils.lisp 2007/04/12 02:47:32 1.7
@@ -1,13 +1,23 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
;;; classindex-untils.lisp -- support for classindex.lisp and
-;;; class re-definition synchronization
+;;; class re-definition synchronization
;;;
-;;; Initial version 1/24/2006 Ian Eslick
-;;; eslick at alum mit edu
+;;; By Ian Eslick <ieslick common-lisp net>
;;;
-;;; License: Lisp Limited General Public License
-;;; http://www.franz.com/preamble.html
+;;; part of
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
+;;; Elephant users are granted the rights to distribute and use this software
+;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;
(in-package :elephant)
--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2007/03/30 17:45:41 1.35
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2007/04/12 02:47:32 1.36
@@ -3,8 +3,17 @@
;;; classindex.lisp -- use btree collections to track objects by slot values
;;; via metaclass options or accessor :after methods
;;;
-;;; Copyright (c) 2006,2007 Ian Eslick
-;;; <ieslick at common-lisp.net>
+;;; By Ian Eslick <ieslick at common-lisp.net>
+;;;
+;;; part of
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Limited General Public License
--- /project/elephant/cvsroot/elephant/src/elephant/cmu-mop-patches.lisp 2006/02/19 04:53:00 1.1
+++ /project/elephant/cvsroot/elephant/src/elephant/cmu-mop-patches.lisp 2007/04/12 02:47:32 1.2
@@ -7,6 +7,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/03/30 23:36:53 1.20
+++ /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/04/12 02:47:32 1.21
@@ -12,6 +12,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
@@ -34,6 +37,9 @@
;;
(defun make-btree (&optional (sc *store-controller*))
+ "Constructs a new BTree instance for use by the user. Each backend
+ returns its own internal type as appropriate and ensures that the
+ btree is associated with the store-controller that created it."
(build-btree sc))
(defgeneric build-btree (sc)
@@ -65,6 +71,10 @@
;;
(defun make-indexed-btree (&optional (sc *store-controller*))
+ "Constructs a new indexed BTree instance for use by the user.
+ Each backend returns its own internal type as appropriate and
+ ensures that the btree is associated with the store-controller
+ that created it."
(build-indexed-btree sc))
(defgeneric build-indexed-btree (sc)
--- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/04/01 14:33:34 1.45
+++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/04/12 02:47:32 1.46
@@ -12,6 +12,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/gc.lisp 2007/04/04 15:28:29 1.1
+++ /project/elephant/cvsroot/elephant/src/elephant/gc.lisp 2007/04/12 02:47:32 1.2
@@ -1,3 +1,25 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;
+;;; gc.lisp - A wrapper around the migrate interface to support
+;;; stop-and-copy GC at the repository level
+;;;
+;;; By Ian Eslick <ieslick at common-lisp.net>
+;;;
+;;; part of
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
+;;; Elephant users are granted the rights to distribute and use this software
+;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;
+
(in-package :elephant)
(defgeneric stop-and-copy-gc (sc &key &allow-other-keys)
--- /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp 2007/04/01 14:33:34 1.15
+++ /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp 2007/04/12 02:47:32 1.16
@@ -11,13 +11,14 @@
;;;
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
-;;; (Some changes by Robert L. Read, 2006)
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;
-
(in-package "ELEPHANT")
(declaim #-elephant-without-optimize (optimize (speed 3) (safety 1)))
@@ -61,24 +62,23 @@
;; Persistent slot maintenance
;;
+(defmethod persistent-slots ((class standard-class))
+ nil)
+
(defmethod persistent-slots ((class persistent-metaclass))
(if (slot-boundp class '%persistent-slots)
(car (%persistent-slots class))
nil))
-(defmethod persistent-slots ((class standard-class))
- nil)
-
(defmethod old-persistent-slots ((class persistent-metaclass))
(cdr (%persistent-slots class)))
(defmethod update-persistent-slots ((class persistent-metaclass) new-slot-list)
-;; (setf (%persistent-slots class) (cons new-slot-list (car (%persistent-slots class)))))
- (setf (%persistent-slots class) (cons new-slot-list
- (if (slot-boundp class '%persistent-slots)
- (car (%persistent-slots class))
- nil)
- )))
+ (setf (%persistent-slots class)
+ (cons new-slot-list
+ (if (slot-boundp class '%persistent-slots)
+ (car (%persistent-slots class))
+ nil))))
(defclass persistent-slot-definition (standard-slot-definition)
((indexed :accessor indexed :initarg :index :initform nil :allocation :instance)))
@@ -89,6 +89,7 @@
(defclass persistent-effective-slot-definition (standard-effective-slot-definition persistent-slot-definition)
())
+
(defclass transient-slot-definition (standard-slot-definition)
((transient :initform t :initarg :transient :allocation :class)))
@@ -98,13 +99,9 @@
(defclass transient-effective-slot-definition (standard-effective-slot-definition transient-slot-definition)
())
-(defgeneric transient (slot))
-
-(defmethod transient ((slot standard-direct-slot-definition))
- t)
-
-(defmethod transient ((slot persistent-direct-slot-definition))
- nil)
+(defgeneric transient (slot)
+ (:method ((slot standard-direct-slot-definition)) t)
+ (:method ((slot persistent-direct-slot-definition)) nil))
;;
;; Indexed slots maintenance
@@ -279,16 +276,10 @@
"Ordinary classes may NOT inherit from persistent classes."
nil)
-(defgeneric persistent-p (class))
-
-(defmethod persistent-p ((class t))
- nil)
-
-(defmethod persistent-p ((class persistent-metaclass))
- t)
-
-(defmethod persistent-p ((class persistent-slot-definition))
- t)
+(defgeneric persistent-p (class)
+ (:method ((class t)) nil)
+ (:method ((class persistent-metaclass)) t)
+ (:method ((class persistent-slot-definition)) t))
(defmethod effective-slot-definition-class ((class persistent-metaclass) &rest initargs)
"Chooses the persistent or transient effective slot
--- /project/elephant/cvsroot/elephant/src/elephant/migrate.lisp 2007/04/04 15:28:29 1.14
+++ /project/elephant/cvsroot/elephant/src/elephant/migrate.lisp 2007/04/12 02:47:33 1.15
@@ -2,7 +2,8 @@
;;;
;;; migrate.lisp -- Migrate between repositories
;;;
-;;; New Version 2/19/2006 by Ian Eslick
+;;; Original version 2005 by Robert Read
+;;; New version 2/19/2006 by Ian Eslick
;;; <ieslick at common-lisp.net>
;;;
;;; part of
@@ -12,6 +13,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/04/06 02:51:48 1.29
+++ /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/04/12 02:47:33 1.30
@@ -1,9 +1,8 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
-;;; package.lisp -- package definition
+;;; migrate.lisp -
;;;
-;;; Initial version 8/26/2004 by Ben Lee
-;;; <blee at common-lisp.net>
+;;; Initial version by Robert Read <rread common-lisp net>
;;;
;;; part of
;;;
@@ -12,6 +11,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/06 02:51:48 1.1
+++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/12 02:47:33 1.2
@@ -1,7 +1,30 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;
+;;; pset.lisp - A generic implementation of persistent sets that can be
+;;; overridden for a more efficient implementation by a data
+;;; store. Uses btrees to emulate simple sets
+;;;
+;;; By Ian Eslick <ieslick at common-lisp.net>
+;;;
+;;; part of
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
+;;; Elephant users are granted the rights to distribute and use this software
+;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;
+
(in-package :elephant)
;;
-;; Simple implementation of persistent sets
+;; Default implementation of persistent sets
;;
;;
--- /project/elephant/cvsroot/elephant/src/elephant/query-example.lisp 2007/04/01 20:56:19 1.2
+++ /project/elephant/cvsroot/elephant/src/elephant/query-example.lisp 2007/04/12 02:47:33 1.3
@@ -1,3 +1,23 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;
+;;; query-example.lisp -- Simple example of conjuctive query interface
+;;;
+;;; By Ian Eslick <ieslick common-lisp net>
+;;;
+;;; part of
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
+;;; Elephant users are granted the rights to distribute and use this software
+;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
+;;;
(in-package :elephant)
--- /project/elephant/cvsroot/elephant/src/elephant/query.lisp 2007/04/01 20:56:19 1.3
+++ /project/elephant/cvsroot/elephant/src/elephant/query.lisp 2007/04/12 02:47:33 1.4
@@ -1,12 +1,21 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
-;;; query.lisp -- Implement syntax for the elephant query engine
+;;; query.lisp -- Implement conjunctive syntax as example for elephant query interface
;;;
-;;; Copyright (c) 2007 by Ian S. Eslick
-;;; <ieslick at common-lisp.net>
+;;; By Ian S. Eslick, <ieslick common-lisp net>
+;;;
+;;; part of
+;;;
+;;; Elephant: an object-oriented database for Common Lisp
+;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
;;;
;;; Elephant users are granted the rights to distribute and use this software
-;;; as governed by the terms of the Lisp Limited General Public License
+;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;
--- /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2007/04/01 14:33:34 1.27
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer.lisp 2007/04/12 02:47:33 1.28
@@ -9,6 +9,12 @@
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/serializer1.lisp 2007/03/30 14:34:35 1.13
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer1.lisp 2007/04/12 02:47:33 1.14
@@ -9,6 +9,12 @@
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/04/06 02:51:48 1.37
+++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/04/12 02:47:33 1.38
@@ -1,14 +1,20 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
-;;; serializer.lisp -- convert Lisp data to/from byte arrays
+;;; serializer2.lisp -- convert Lisp data to/from byte arrays
;;;
-;;; Initial version 8/26/2004 by Ben Lee
-;;; <blee at common-lisp.net>
+;;; By Ian Eslick, <ieslick common-lisp net>
+;;; Adapted from serializer1 by Ben Lee <blee at common-lisp.net>
;;;
;;; part of
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp 2007/02/18 10:58:58 1.10
+++ /project/elephant/cvsroot/elephant/src/elephant/transactions.lisp 2007/04/12 02:47:33 1.11
@@ -2,8 +2,7 @@
;;;
;;; transactions.lisp -- Top level transaction support for elephant
;;;
-;;; Initial version 8/26/2004 by Ben Lee
-;;; <blee at common-lisp.net>
+;;; By Ian Eslick <ieslick common-lisp net>
;;;
;;; part of
;;;
@@ -12,6 +11,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
--- /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/03/18 20:40:50 1.7
+++ /project/elephant/cvsroot/elephant/src/elephant/unicode2.lisp 2007/04/12 02:47:33 1.8
@@ -1,24 +1,32 @@
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
-;;; serializer.lisp -- convert Lisp data to/from byte arrays
+;;; unicode2.lisp -- binary encoding/decoding for strings with codes > 8 bits
;;;
-;;; Initial version 11/11/2006 by Ian Eslick
-;;; <eslick at media.mit.edu>
+;;; By Ian Eslick, <ieslick common-lisp net>
;;;
;;; part of
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
+;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
+;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
+;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;
-;;; Here UTF8 means 8-bit < #x79 only for efficiency, UTF16 means UTF16 format
-;;; but only for values < #xFFFF. In the odd cases of non-0 unicode planes we just
-;;; use UTF-32 to avoid the time cost of translation. Only when converting from a
-;;; serialized UTF-X do we worry about encoding (UTF32->UTF16). If an ascii/utf8 lisp
-;;; encounters a UTF-16 we know it uses more than 127 values and thus cannot be
-;;; represented in the reading lisp so we assert an error.
+
+;;;
+;;; In this file UTF8 means 8-bit < #x79 only for efficiency, UTF16
+;;; means UTF16 format but only for values < #xFFFF. In the odd cases
+;;; of non-0 unicode planes we just use UTF-32 to avoid the time cost
+;;; of translation. Only when converting from a serialized UTF-X do
+;;; we worry about encoding (UTF32->UTF16). If an ascii/utf8 lisp
+;;; encounters a UTF-16 we know it uses more than 127 values and thus
+;;; cannot be represented in the reading lisp so we assert an error.
;;;
(in-package :elephant-serializer2)
--- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 23:36:53 1.14
+++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/04/12 02:47:33 1.15
@@ -12,6 +12,9 @@
;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee
;;; <ablumberg at common-lisp.net> <blee at common-lisp.net>
;;;
+;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick
+;;; <rread common-lisp net> <ieslick common-lisp net>
+;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
More information about the Elephant-cvs
mailing list