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@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net ;;; ;;; part of @@ -12,6 +13,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; ablumberg@common-lisp.net blee@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@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net blee@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@common-lisp.net +;;; By Ian Eslick, <ieslick common-lisp net> +;;; Adapted from serializer1 by Ben Lee blee@common-lisp.net ;;; ;;; part of ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; +;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee +;;; ablumberg@common-lisp.net blee@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@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@common-lisp.net blee@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@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@common-lisp.net blee@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@common-lisp.net blee@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.