elephant-cvs

elephant-cvs@common-lisp.net

858 discussions

[elephant-cvs] CVS elephant/src/utils
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv28241/src/utils Modified Files: convenience.lisp locks.lisp os.lisp package.lisp Log Message: Mostly documentation edits + fixing copyright in all source files --- /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/03/30 17:45:42 1.6 +++ /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/04/12 02:47:51 1.7 @@ -1,9 +1,23 @@ - -;; Copyright Ian Eslick -;; License: LGPL -;; -;; A collection of handy utilities for compacting code complexity in elephant -;; +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;; +;;; convenience.lisp -- A set of convenience functions for Elephant +;;; +;;; 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(a)common-lisp.net> <blee(a)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-utils) --- /project/elephant/cvsroot/elephant/src/utils/locks.lisp 2007/02/09 17:11:53 1.2 +++ /project/elephant/cvsroot/elephant/src/utils/locks.lisp 2007/04/12 02:47:51 1.3 @@ -1,14 +1,19 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; -;;; cross-platform.lisp -- convert Lisp data to/from byte arrays +;;; locks.lisp -- A generic interface to lisp/os locks ;;; -;;; Initial version 8/26/2004 by Ben Lee -;;; <blee(a)common-lisp.net> +;;; 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(a)common-lisp.net> <blee(a)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/utils/os.lisp 2007/02/16 03:43:48 1.2 +++ /project/elephant/cvsroot/elephant/src/utils/os.lisp 2007/04/12 02:47:51 1.3 @@ -1,3 +1,24 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;; +;;; os.lisp -- A set of convenience functions for cross-platform os functions +;;; that elephant requires +;;; +;;; 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(a)common-lisp.net> <blee(a)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-utils) --- /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/03/30 17:45:42 1.6 +++ /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/04/12 02:47:51 1.7 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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.

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 12 Apr '07

12 Apr '07

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

1 0

[elephant-cvs] CVS elephant/src/db-clsql
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant/src/db-clsql In directory clnet:/tmp/cvs-serv28241/src/db-clsql Modified Files: package.lisp sql-collections.lisp sql-controller.lisp sql-transaction.lisp Log Message: Mostly documentation edits + fixing copyright in all source files --- /project/elephant/cvsroot/elephant/src/db-clsql/package.lisp 2007/04/01 22:01:51 1.3 +++ /project/elephant/cvsroot/elephant/src/db-clsql/package.lisp 2007/04/12 02:47:24 1.4 @@ -1,6 +1,6 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; -;;; sql-controller.lisp -- Interface to a CLSQL based object store. +;;; src/db-clsql/package.lisp - imports for the CLSQL data store ;;; ;;; Initial version 10/12/2005 by Robert L. Read ;;; <read(a)robertlread.net> --- /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp 2007/02/26 19:55:11 1.12 +++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-collections.lisp 2007/04/12 02:47:24 1.13 @@ -9,7 +9,7 @@ ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; -;;; Copyright (c) 2005 by Robert L. Read +;;; Copyright (c) 2005-2007 by Robert L. Read ;;; <rread(a)common-lisp.net> ;;; ;;; Elephant users are granted the rights to distribute and use this software --- /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/03/23 16:06:43 1.23 +++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-controller.lisp 2007/04/12 02:47:24 1.24 @@ -9,7 +9,7 @@ ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; -;;; Copyright (c) 2005 by Robert L. Read +;;; Copyright (c) 2005-2007 by Robert L. Read ;;; ;;; Elephant users are granted the rights to distribute and use this software ;;; as governed by the terms of the Lisp Lesser GNU Public License --- /project/elephant/cvsroot/elephant/src/db-clsql/sql-transaction.lisp 2007/02/20 02:33:59 1.5 +++ /project/elephant/cvsroot/elephant/src/db-clsql/sql-transaction.lisp 2007/04/12 02:47:24 1.6 @@ -2,15 +2,15 @@ ;;; ;;; sql-transactions.lisp -- Top level transaction support for elephant sql ;;; -;;; Initial version 8/26/2004 by Ben Lee -;;; <blee(a)common-lisp.net> +;;; Initial version 10/12/2005 by Robert L. Read +;;; <read(a)robertlread.net> ;;; ;;; part of ;;; ;;; Elephant: an object-oriented database for Common Lisp ;;; -;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee -;;; <ablumberg(a)common-lisp.net> <blee(a)common-lisp.net> +;;; Copyright (c) 2005-2007 by Robert L. Read +;;; Portions Copyright (c) 2006-2007 by Ian Eslick ;;; ;;; Elephant users are granted the rights to distribute and use this software ;;; as governed by the terms of the Lisp Lesser GNU Public License

1 0

[elephant-cvs] CVS elephant/src/db-bdb
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv28241/src/db-bdb Modified Files: bdb-collections.lisp bdb-controller.lisp bdb-slots.lisp bdb-transactions.lisp berkeley-db.lisp libberkeley-db.c package.lisp Log Message: Mostly documentation edits + fixing copyright in all source files --- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2007/02/20 19:12:58 1.21 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-collections.lisp 2007/04/12 02:47:23 1.22 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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/db-bdb/bdb-controller.lisp 2007/03/30 14:34:35 1.32 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp 2007/04/12 02:47:23 1.33 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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/db-bdb/bdb-slots.lisp 2007/02/17 12:13:19 1.3 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-slots.lisp 2007/04/12 02:47:23 1.4 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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/db-bdb/bdb-transactions.lisp 2007/03/21 14:29:30 1.12 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/04/12 02:47:23 1.13 @@ -2,8 +2,7 @@ ;;; ;;; bdb-transactions.lisp -- Transaction support for Berkeley DB ;;; -;;; Initial version 8/26/2004 by Ben Lee -;;; <blee(a)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(a)common-lisp.net> <blee(a)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/db-bdb/berkeley-db.lisp 2007/03/03 17:24:58 1.10 +++ /project/elephant/cvsroot/elephant/src/db-bdb/berkeley-db.lisp 2007/04/12 02:47:23 1.11 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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/db-bdb/libberkeley-db.c 2007/04/04 15:28:28 1.10 +++ /project/elephant/cvsroot/elephant/src/db-bdb/libberkeley-db.c 2007/04/12 02:47:23 1.11 @@ -12,46 +12,12 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)common-lisp.net> ;;; -;;; This program is released under the following license -;;; ("GPL"). For differenct licensing terms, contact the -;;; copyright holders. +;;; Portions Copyright (c) 2005-2007 by Robert Read and Ian Eslick +;;; <rread common-lisp net> <ieslick common-lisp net> ;;; -;;; This program is free software; you can redistribute it -;;; and/or modify it under the terms of the GNU General -;;; Public License as published by the Free Software -;;; Foundation; either version 2 of the License, or (at -;;; your option) any later version. -;;; -;;; This program is distributed in the hope that it will be -;;; useful, but WITHOUT ANY WARRANTY; without even the -;;; implied warranty of MERCHANTABILITY or FITNESS FOR A -;;; PARTICULAR PURPOSE. See the GNU General Public License -;;; for more details. -;;; -;;; The GNU General Public License can be found in the file -;;; LICENSE which should have been distributed with this -;;; code. It can also be found at -;;; -;;; http://www.opensource.org/licenses/gpl-license.php -;;; -;;; You should have received a copy of the GNU General -;;; Public License along with this program; if not, write -;;; to the Free Software Foundation, Inc., 59 Temple Place, -;;; Suite 330, Boston, MA 02111-1307 USA -;;; -;;; Portions of this program (namely the C unicode string -;;; sorter) are derived from IBM's ICU: -;;; -;;; http://oss.software.ibm.com/icu/ -;;; -;;; Copyright (c) 1995-2003 International Business Machines -;;; Corporation and others All rights reserved. -;;; -;;; ICU's copyright, license and warranty can be found at -;;; -;;; http://oss.software.ibm.com/cvs/icu/~checkout~/icu/license.html -;;; -;;; or in the file LICENSE. +;;; 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/db-bdb/package.lisp 2007/03/30 14:55:54 1.8 +++ /project/elephant/cvsroot/elephant/src/db-bdb/package.lisp 2007/04/12 02:47:23 1.9 @@ -12,6 +12,9 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; <ablumberg(a)common-lisp.net> <blee(a)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.

1 0

[elephant-cvs] CVS elephant/doc
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant/doc In directory clnet:/tmp/cvs-serv28241/doc Modified Files: elephant.texinfo installation.texinfo make-ref.lisp reference.texinfo scenarios.texinfo tutorial.texinfo user-guide.texinfo Log Message: Mostly documentation edits + fixing copyright in all source files --- /project/elephant/cvsroot/elephant/doc/elephant.texinfo 2007/04/01 14:33:29 1.7 +++ /project/elephant/cvsroot/elephant/doc/elephant.texinfo 2007/04/12 02:47:23 1.8 @@ -123,5 +123,4 @@ @uref{http://www.common-lisp.net/project/elephant/}) and submit a patch. - @bye --- /project/elephant/cvsroot/elephant/doc/installation.texinfo 2007/04/04 15:28:28 1.8 +++ /project/elephant/cvsroot/elephant/doc/installation.texinfo 2007/04/12 02:47:23 1.9 @@ -198,6 +198,8 @@ (:use :common-lisp :elephant)) @end lisp +The symbols that are imported are captured in @ref{User API Reference} + @subsection Opening a Store As discussed in the tutoral, you need to open a store to begin using @@ -485,11 +487,11 @@ If you want to compile the documentation youself, for example, if you can think of a way to improve this manual, then you will do something similar to this in a shell or command-line prompt: -@code +@lisp cd doc make make pdf -@end code +@end lisp This process will populate the ``./includes'' directory with references automatically extracted from the list code. It will then compile the --- /project/elephant/cvsroot/elephant/doc/make-ref.lisp 2007/04/02 00:51:06 1.7 +++ /project/elephant/cvsroot/elephant/doc/make-ref.lisp 2007/04/12 02:47:23 1.8 @@ -1,5 +1,5 @@ (require 'asdf) -(asdf:operate 'asdf:load-op 'elephant) +(asdf:operate 'asdf:load-op 'elephant :force t) (load (merge-pathnames #p"src/elephant/query" (asdf:component-pathname (asdf:find-system 'elephant)))) @@ -29,12 +29,13 @@ (setf (controller-spec sc) nil) (make-instance 'elephant::persistent-collection :sc sc :from-oid 10) (make-instance 'elephant::secondary-cursor) - (make-instance 'elephant::indexed-btree :sc sc :from-oid 10) + (make-instance 'elephant::indexed-btree :sc sc :from-oid 11) + (make-instance 'elephant::pset :sc sc :from-oid 12) ;; (sb-texinfo:generate-includes #p"/Users/eslick/Work/fsrc/elephant-cvs/doc/includes/" - (sb-texinfo:generate-includes #p"." + (sb-texinfo:generate-includes include-dir-path (find-package :elephant) (find-package :elephant-backend) - (find-package :elephant-memutil) + (find-package :elephant-memutil) (find-package :elephant-system)))) (make-docs) --- /project/elephant/cvsroot/elephant/doc/reference.texinfo 2007/04/01 14:33:29 1.9 +++ /project/elephant/cvsroot/elephant/doc/reference.texinfo 2007/04/12 02:47:23 1.10 @@ -8,10 +8,11 @@ @menu * Store Controllers:: Connecting to a data store. -* Persistent Objects:: Creating and using persistent objects. -* Persistent Object Indexing:: Convenient indexing. -* Query Interfaces:: Finding instances. -* Collections:: BTrees and indices. +* Persistent Class:: Defining persistent classes and creating and manipulating persistent indices. +* Class Indexing:: Convenient indexing of persistent classes. +* Persistent Sets:: Maintaining persistent collections the easy way. +@c * Query Interfaces:: Finding instances. +* BTrees:: BTrees and indices, a low level persistent data structure. * Cursors:: Traversing BTrees. * Transactions:: Transactions. * Migration and Upgrading:: Migration and upgrading. @@ -91,29 +92,49 @@ @include includes/fun-elephant-add-class-derived-index.texinfo @include includes/fun-elephant-remove-class-derived-index.texinfo -@node Query Interfaces +@node Persistent Sets @comment node-name, next, previous, up -@section Query Interfaces -@cindex Query Interfaces +@section Persistent Sets +@cindex Persistent Sets -Query interfaces are currently unimplemented. An example query -interface is provided for reference only, a new system is under -development for the 0.7 release. +Persistent sets are a simple persistent collection abstraction. They +maintain an unordered collection of objects. Unlike the normal +list-oriented sets of Lisp, persistent sets use the equivalent of +@code{pushnew} such that only one copy of any object or value is +maintained using the serializer's @code{equal} implementation. + +@include includes/class-elephant-pset.texinfo +@include includes/fun-elephant-insert-item.texinfo +@include includes/fun-elephant-remove-item.texinfo +@include includes/fun-elephant-find-item.texinfo +@include includes/fun-elephant-map-pset.texinfo +@include includes/fun-elephant-pset-list.texinfo + +@c @node Query Interfaces +@c @comment node-name, next, previous, up +@c @section Query Interfaces +@c @cindex Query Interfaces + +@c The query interface is currently unsupported. See @code{query.lisp} +@c and @code{query-example.lisp} for a sketch of what the query interface +@c will eventually look like. The upcoming version 0.9.1 will include +@c the query system and associated documentation system. @c @include includes/fun-elephant-get-query-results.texinfo @c @include includes/fun-elephant-map-class-query.texinfo -@node Collections +@node BTrees @comment node-name, next, previous, up -@section Collections -@cindex Collections +@section BTrees +@cindex BTrees -Persistent collections inherit from @ref{Class -elephant:persistent-collection} and consist of the @ref{Class -elephant:btree}, @ref{Class elephant:indexed-btree} and @ref{Class -elephant:btree-index} classes. The following operations are defined -on most of these classes. More information can be found in @ref{Using -BTrees} and @ref{Secondary Indices}. +Persistent collections inherit from @ref{Class elephant:persistent-collection} +and consist of the @ref{Class elephant:btree}, @ref{Class elephant:indexed-btree} and + @ref{Class elephant:btree-index} classes. The following operations are defined +on most of these classes. More information can be found in @ref{Using BTrees} +and @ref{Secondary Indices}. + +@include includes/fun-elephant-make-btree.texinfo @include includes/fun-elephant-get-value.texinfo @include includes/fun-elephant-setf-get-value.texinfo @@ -175,10 +196,26 @@ @include includes/macro-elephant-with-transaction.texinfo +The following functions are an advanced use of the transaction system. +They may be useful if, or example, you want to integrate Elephant +transactions with non-Elephant side-effects that you explicitely make +transactional. + +@include includes/fun-elephant-controller-start-transaction.texinfo +@include includes/fun-elephant-controller-abort-transaction.texinfo +@include includes/fun-elephant-controller-commit-transaction.texinfo + @node Migration and Upgrading @comment node-name, next, previous, up @section Migration and Upgrading @cindex Migration and Upgrading -@include includes/fun-elephant-migrate.texinfo +Upgrade is a call to Migrate with checks for compatability. The +migrate methods are included here in case you wish to develop a more +specific ``partial upgrade'' or ``partial migrate'' of data from one +store to another instead of using the top-level copy which migrates all +live objects. + @include includes/fun-elephant-upgrade.texinfo +@include includes/fun-elephant-migrate.texinfo + --- /project/elephant/cvsroot/elephant/doc/scenarios.texinfo 2007/04/04 15:28:28 1.3 +++ /project/elephant/cvsroot/elephant/doc/scenarios.texinfo 2007/04/12 02:47:23 1.4 @@ -48,7 +48,7 @@ (let ((newval (get-from-root name))) (if newval (setq name (add-to-root name newval)) - (setq name (add-to-root name (call-initializer + (setq name (add-to-root name (call-initializer @end lisp @node Persistent System Objects @@ -93,7 +93,7 @@ @uref{http://konsenti.com}. Konsenti uses the Data Collection Management (DCM) package, found in -the @verbatim{src/contrib/rread directory}. DCM provides +the @code{src/contrib/rread directory}. DCM provides prevalence-style in-memory write-through caching. The most enjoyable feature about Elephant for this project is that new Business Layer objects can be created without having to deal with an --- /project/elephant/cvsroot/elephant/doc/tutorial.texinfo 2007/04/04 15:35:44 1.15 +++ /project/elephant/cvsroot/elephant/doc/tutorial.texinfo 2007/04/12 02:47:23 1.16 @@ -1048,9 +1048,8 @@ more than two levels of transactional accesses with the top using with-transaction and the bottom using ensure-transaction. -@xref{Transaction Details} for more details and @pxref{Usage -Scenarios} for examples of how systems can be designed and tuned using -transactions. +See @ref{Transaction Details} for more details and @ref{Usage Scenarios} +for examples of how systems can be designed and tuned using transactions. @node Advanced Topics @comment node-name, next, previous, up --- /project/elephant/cvsroot/elephant/doc/user-guide.texinfo 2007/04/06 02:51:47 1.10 +++ /project/elephant/cvsroot/elephant/doc/user-guide.texinfo 2007/04/12 02:47:23 1.11 @@ -108,7 +108,7 @@ by @emph{value}. This policy has a number of consequences which are detailed below. -@subsection{Restrictions of Store-by-Value} +@subsection Restrictions of Store-by-Value @enumerate @item @strong{Lisp identity can't be preserved}. @@ -212,7 +212,7 @@ @end enumerate -@subsection{Atomic Types} +@subsection Atomic Types Atomic types have no recursive substructure. That is they cannot contain arbitrary objects and are of a bounded size. (Bignums are an @@ -272,14 +272,14 @@ Symbols are stored as two strings, the package name and the symbol name in that package. When deserialized, the target package is searched for and the symbol is interned in that package. @end itemize -@subsection{Aggregate Types} +@subsection Aggregate Types The next list are @emph{aggregate} types, meaning that elements of that type can contain references to elements of type @code{T}. That means, in theory, that storing an aggregate type to disk that refers to other objects can copy every reachable object! This is a direct and dire consequence of the ``store-by-value'' restriction. -(@xref{Persistent Classes and Objects} for how to design around the +(@pxref{Persistent Classes and Objects} for how to design around the store-by-value restriction}). This list describes how aggregates are handled by the serializer. @@ -320,8 +320,7 @@ have less slots) of ordinary classes. @end itemize - -One final strategic consideration is whether you plan on sharing the binary +One final strategic consideration is to whether you plan on sharing the binary database between machines or between different lisp platforms on the same machine. This is almost possible today, but there are some restrictions. In the section @ref{Repository Migration and Upgrade} @@ -332,40 +331,88 @@ @comment node-name, next, previous, up @section Persistent Classes and Objects -Persistent classes are Elephant's answer to the limitations of -ordinary lisp object serialization, namely support for persistent -references. Any persistent object, when serialized, only serializes a -reference to the object and not the whole object. For example you can -serialize a node in the graph of persistent objects without worrying -about serializing the entire graph. - -@subsection{Persistent Class Definition} - -Other than specifying the metaclass or using @code{defpclass} the only -important differences in the @code{defclass} form is the specification -of a slot storage policy. Slot storage policy can be specified by a -boolean argument to the slot initargs @code{:persistent} or -@code{:transient}. Slots are @code{:persistent} by default +Persistent classes are instances of the @code{persistent-metaclass} +metaclass. All instances of this persistent class have a unique ID +and a pointer to the @code{store-controller} specification they are +associated with. Accesses to slot values become direct reads and +writes to the data store and are thus always persisted. When the +instance itself is writtent to the database, for example as a key or +value in a @code{btree}, only the unique ID is stored. + +Thus serialization of persistent objects is exceedingly cheap compared +to standard objects, but slot access can be much more expensive. +Persistent objects are excellent at, for example, storing the link +structure of a graph. A graph of persistent objects can itself be +persisted by storing the head node of a fully-connected graph to the +store controller root. + +@subsection Persistent Class Definition + +To create persistent classes, the user needs to specify the +@code{persistent-metaclass} to the class initarg @code{:metaclass}. +The only differences between standard and persistent class definitions +is the specification of a slot storage policy and an index policy. + +Storage policies are specified by a boolean argument to the slot +initargs @code{:persistent} or @code{:transient}. Slots are +@code{:persistent} by default @lisp (defclass my-pclass () ((pslot1 :accessor pslot1 :initarg :pslot1 :initform 'one) (pslot2 :accessor pslot2 :initarg :pslot2 :initform 'two :persistent t) - (tslot1 :accessor tslot3 :initarg :tslot3 :initform nil :transient t)) + (tslot1 :accessor tslot1 :initarg :tslot1 :initform 'three :transient t)) (:metaclass persistent-metaclass)) @end lisp -The :index options to persistent classes are discussed in persistent -indices. - Slot storage class implications are straightforward. Persistent slot -writes are durably stored to disk in an automatic or encompassing -transaction. Transient slots are initialized on instance creation -according to initforms or to initargs. They are never stored to nor -loaded from the database. +writes are durably stored to disk. Transient slots are initialized on +instance creation according to initforms or to initargs. Transient +slot values are never stored to nor loaded from the database. + +During a given lisp session transient values will be cached as long as +they are not collected by the Lisps GC. After GC, if you retrieve an +object from the store its transient slots will be reset to the slot +initforms from the class definition. + +@lisp +(setf pobj1 (make-instance 'my-pclass :pslot1 1 :tslot3 3)) +=> #<MY-PCLASS> + +(pslot1 pobj1) => 1 +(pslot2 pobj1) => 'two +(tslot1 pobj1) => 3 + +(add-to-root 'pobj1 pobj1) + +(setf pobj2 (get-from-root 'pobj1)) +=> #<MY-PCLASS> + +(pslot1 pobj2) => 1 +(pslot2 pobj2) => 'two +(tslot1 pobj2) => 3 + +(setf pobj1 nil) +(setf pobj2 nil) +(gc) + +(setf pobj3 (get-from-root 'pobj1)) +(pslot1 pobj2) => 1 +(pslot2 pobj2) => 'two +(tslot1 pobj2) => 'three +@end lisp +The implications of this behavior is that you need to think carefully +about using transient values. Primarily you cannot make assumptions +about the state of transient values in objects loaded from the store +unless you know that they were loaded and cannot be GC'ed. + +Finally, the index policy tells the data store whether to maintain an +inverted index that maps slot values back to their parent objects. +The :index options and behaviors of persistent classes are discussed in +depth in @ref{Class Indices}. -@subsection{Instance Creation} +@subsection Instance Creation Persistent objects are instances of the persistent classes defined above. All persistent objects inherit from the class

1 0

[elephant-cvs] CVS elephant
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant In directory clnet:/tmp/cvs-serv28241 Modified Files: LICENSE TODO Log Message: Mostly documentation edits + fixing copyright in all source files --- /project/elephant/cvsroot/elephant/LICENSE 2006/02/04 22:25:09 1.4 +++ /project/elephant/cvsroot/elephant/LICENSE 2007/04/12 02:47:22 1.5 @@ -2,9 +2,13 @@ Copyright (c) 2004 by Andrew Blumberg and Ben Lee <ablumberg(a)common-lisp.net> <blee(a)common-lisp.net> -Some parts Copyright (c) 2005,2006 Robert L. Read + +Portions Copyright (c) 2005-2007 Robert L. Read <rread(a)common-lisp.net>. +Portions Copyright (c) 2006-207 Ian S. Eslick +<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. @@ -15,8 +19,8 @@ thought of as particularly appropriate for LISP. Version of Elephant before version 0.5.0 where released under GPL. -With the permission of Andrew Blumberg, Ben Lee and Robert L. Read, -the primary contributors of elephant code up until this time, the -0.5.0 release is made under the LLGPL. +With the permission of Andrew Blumberg, Ben Lee, Robert L. Read and +Ian S. Eslick, the primary contributors of elephant code up until this +time, versions 0.5.0 to 0.9.0 are made under the LLGPL. --- /project/elephant/cvsroot/elephant/TODO 2007/04/06 02:51:46 1.78 +++ /project/elephant/cvsroot/elephant/TODO 2007/04/12 02:47:22 1.79 @@ -11,30 +11,26 @@ TASKS TO GET TO FINAL RELEASE: -Lisp Support: -- Validate OpenMCL pre-1.1 on Mac OS X -- Validate OpenMCL 1.1 and/or 64-bit on Mac OS X? - - 64-bit lisp verification -- Verify db_deadlock for other lisps (launch and kill background program I/F) - Bugs: - Fix awkward serializer API - Support for asdf-install? - Edi's patches & suggestions for windows +Lisp Support: +- Validate OpenMCL pre-1.1 on Mac OS X +- Validate OpenMCL 1.1 and/or 64-bit on Mac OS X? +- Verify db_deadlock for other lisps (launch and kill background program I/F) + Test coverage: - Clean up interface to tests - Test for optimize storage method (just add probe-file methods to get file size?) - Multi-threading stress tests? Ensure that there are conflicts and lots of serialization happening concurrently to make sure that multi-threading is in good shape (Henrik's code) -- Unicode tests - - Ensure that variable length UTF-8 reps are automatically stored as UTF-16? - Class / DB sychronization tests Documentation: -~ License and copyright file headers -- Update install, build and test procedures - Proper user guide +- Update install, build and test procedures - Upgrade, migration and other system level issues - Performance and design issues - More notes about transaction performance @@ -43,11 +39,14 @@ - Add notes about optimize-storage - Add notes about deadlock-detect - Add notes about checkpoint (null in SQL?) +- Demo file for simple snapshot system + (add standard objects to prevalence DB) + link structure is added to db + in-memory pobjs point to Additional features to document in Trac: - Add error/restart conditions when lose data on: class redef, index drop, etc. - -:association slot option +- :association slot option? 0.6.1 - Features COMPLETED to date ----------------------------------

1 0

[elephant-cvs] CVS elephant/src/contrib/eslick
by ieslick 12 Apr '07

12 Apr '07

Update of /project/elephant/cvsroot/elephant/src/contrib/eslick In directory clnet:/tmp/cvs-serv28024 Added Files: snapshot-db.lisp Log Message: Cool snapshot hack --- /project/elephant/cvsroot/elephant/src/contrib/eslick/snapshot-db.lisp 2007/04/12 02:45:09 NONE +++ /project/elephant/cvsroot/elephant/src/contrib/eslick/snapshot-db.lisp 2007/04/12 02:45:09 1.1 ;;; ;;; Copyright (c) 2007 Ian Eslick <ieslick common-lisp net> ;;; ;;; Simple snapshot sets. Create a snapshot set for standard objects, ;;; work in-memory and then call snapshot to save the objects to ;;; the underlying store-controller. ;;; ;; ;; Limitations: ;; ;; - Hashes can be registered as indexes of objects. Keys ;; should be simple (numbers, strings, symbols) although ;; arrays in an equalp cache are probably OK too. Values ;; should also be simple or subclasses of standard-object ;; ;; - When a snapshot is taken of a hash, all values that are ;; standard objects are registered. Any refs to registered ;; objects are properly restored on retrieval ;; ;; Easy extensions: ;; ;; - Support arrays of objects as well as hash-tables ;; ;; - Create a method standard-object-dirty-p that defaults to 't' but ;; allows users to implement a method that avoids storing unchanged ;; objects. ;; ;; - Enable versioned or named snapshots ;; ;; - Better interface API (special object metaclass?) to create a more ;; natural abstraction. Could also add object journaling for ;; prevalence dynamics via rucksack log model. For example, writes ;; to slots are saved to a persistent list that gets reused after ;; snapshots (id slotname value). Slot reads are as usual. ;; (in-package :elephant) (defparameter *use-proxy-objects* t "Indicates that the snapshot set should register and write any standard-objects found in slots registered of standard objects during snapshots") (defpclass snapshot-set () ((index :accessor snapshot-set-index :initform (make-btree)) (next-id :accessor snapshot-set-next-id :initform 0) (cache :accessor snapshot-set-cache :initform (make-hash-table) :transient t) (root :accessor snapshot-set-root :initform nil)) (:documentation "Keeps track of a set of standard objects allowing a single snapshot call to update the store controller with the latest state of all objects registered with this set")) (defmethod initialize-instance :after ((set snapshot-set) &rest rest) (declare (ignore rest)) (restore set)) ;; ================= ;; User methods ;; ================= (defmethod register-object ((object standard-object) (set snapshot-set)) "Register a standard object. Not recorded until snapshot is called on db" (if (lookup-cached-id object set) nil (let ((id (incf (snapshot-set-next-id set)))) (cache-snapshot-object id object set) object))) (defmethod register-object ((hash hash-table) (set snapshot-set)) "Adds a hash table to the snapshot set and registers any standard objects stored as values that are not already part of the snapshot. Must call snapshot to save." (if (lookup-cached-id hash set) nil (let ((id (incf (snapshot-set-next-id set)))) (cache-snapshot-object id hash set) hash))) (defmethod set-root ((set snapshot-set)) (if (snapshot-set-root set) (lookup-cached-object (snapshot-set-root set) set) nil)) (defmethod (setf set-root) (value (set snapshot-set)) (setf (snapshot-set-root set) (ensure-registered value))) (defmethod unregister-object (object (set snapshot-set)) "Drops the object from the cache and backing store" (let ((id (gethash object (snapshot-set-cache set)))) (when (null id) (error "Object ~A not registered in ~A" object set)) (drop-cached-object object set) (delete-snapshot-object id set))) (defmethod snapshot ((set snapshot-set)) (maphash (lambda (obj id) (write-object id obj set)) (snapshot-set-cache set))) (defmethod restore ((set snapshot-set)) "Restores a snapshot by setting the snapshot-set state to the last snapshot. If this is used during runtime, the user needs to drop all references to objects and retrieve again from the snapshot set" (clear-cache set) (let ((proxyrecs nil)) (map-btree (lambda (k v) (cond ((hash-table-p v) (push (list k v) proxyrecs)) ((subtypep (type-of v) 'standard-object) (cache-snapshot-object k v set)) (t (error "Invalid type in snapshot-set type ~A for ~A" (type-of v) v)))) (snapshot-set-index set)) ;; All objects should be loaded so object references in hashes are valid (dolist (proxyrec proxyrecs) (destructuring-bind (id proxy) proxyrec (cache-snapshot-object id (restore-proxy-hash proxy set) set))))) (defun map-set (fn set) "Iterates through all values in the set" (maphash (lambda (k v) (declare (ignore v)) (funcall fn k)) (snapshot-set-cache set))) ;; =============== ;; Shorthand ;; =============== ;; Cache ops (defun clear-cache (set) (clrhash (snapshot-set-cache set))) (defun lookup-cached-id (obj set) (gethash obj (snapshot-set-cache set))) (defun lookup-cached-object (id set) (find-hash-key-by-value id (snapshot-set-cache set))) (defun find-hash-key-by-value (value hash) (maphash (lambda (k v) (when (eq v value) (return-from find-hash-key-by-value k))) hash)) (defun cache-snapshot-object (id obj set) (setf (gethash obj (snapshot-set-cache set)) id)) (defun drop-cached-object (obj set) (remhash obj (snapshot-set-cache set))) ;; Save and restore objects (defun read-snapshot-object (id set) (get-value id (snapshot-set-index set))) (defun write-object (id obj set) (setf (get-value id (snapshot-set-index set)) (cond ((subtypep (type-of obj) 'standard-object) (make-proxy-object obj set)) ((eq (type-of obj) 'hash-table) (make-proxy-hash obj set)) (t (error "Cannot only snapshot standard-objects and hash-tables"))))) (defun ensure-registered (obj set) "Return object id by cache lookup or register and write object" (let ((id (lookup-cached-id obj set))) (if id id (progn (register-object obj set) (let ((id (lookup-cached-id obj set))) (write-object id obj set) id))))) (defun delete-snapshot-object (id set) (remove-kv id (snapshot-set-index set))) ;; Snapshot ops (defun reified-class-p (obj) (or (subtypep (type-of obj) 'standard-object) (eq (type-of obj) 'hash-table))) (defclass setref () ((id :accessor snapshot-set-reference-id :initarg :id))) (defun make-proxy-object (obj set) (if (not *use-proxy-objects*) obj (let ((proxy (make-instance (type-of obj)))) (loop for (slotname value) in (subsets 2 (slots-and-values obj)) do (setf (slot-value proxy slotname) (if (reified-class-p value) (make-instance 'setref :id (ensure-registered value set)) value)))))) (defun make-proxy-hash (hash set) (let ((proxy (make-hash-table))) (maphash (lambda (key value) (setf (gethash key proxy) (if (or (subtypep (type-of value) 'standard-object) (subtypep (type-of value) 'hash-table)) (make-instance 'setref :id (ensure-registered value set)) value))) hash) proxy)) (defun restore-proxy-hash (proxy set) "Convert a proxy object to a standard hash, resolving references" (let ((hash (make-hash-table))) (maphash (lambda (k v) (setf (gethash k hash) (if (eq (type-of v) 'setref) (lookup-cached-object (snapshot-set-reference-id v) set) v))) proxy) hash))

1 0

[elephant-cvs] CVS elephant/tests
by ieslick 06 Apr '07

06 Apr '07

Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv21893/tests Modified Files: testcollections.lisp Log Message: Trial pset abstraction; fix for debug serialize of complex and more documentation edits --- /project/elephant/cvsroot/elephant/tests/testcollections.lisp 2007/02/21 04:47:47 1.19 +++ /project/elephant/cvsroot/elephant/tests/testcollections.lisp 2007/04/06 02:51:50 1.20 @@ -695,6 +695,23 @@ nil t nil ) +(defparameter test-items '(1 2 3 (1) (2) test1 test2)) + +(deftest pset + (let ((pset1 (make-pset))) + (mapc (lambda (item) + (insert-item item pset1)) + test-items) + (remove-item (list 2) pset1) + (remove-item 'test2 pset1) + (let ((list (pset-list pset1))) + (values + (= (length (pset-list pset1)) 5) + (not (find-item 'test2 pset1)) + (is-not-null (find-item 'test1 pset1)) + (is-not-null (find-item 1 pset1 :key (lambda (x) (when (consp x) (car x))) :test #'eq))))) + t t t t) + ;; This test not only does not work, it appears to ;; hang BDB forcing a recovery!?!?!?!

1 0

[elephant-cvs] CVS elephant/src/contrib/eslick/db-lisp
by ieslick 06 Apr '07

06 Apr '07

Update of /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp In directory clnet:/tmp/cvs-serv21893/src/contrib/eslick/db-lisp Modified Files: TODO transactions.lisp Log Message: Trial pset abstraction; fix for debug serialize of complex and more documentation edits --- /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/TODO 2007/02/14 04:36:09 1.4 +++ /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/TODO 2007/04/06 02:51:47 1.5 @@ -18,6 +18,22 @@ ========================= +Transaction arch for lisp backend: +- store values during xaction in private lisp structure instead of buffer pool? + then multiple xactions share buffer pool until write & flush and no page dups + fast map oid+slotname to value on slot access and update on write +- btree reads cached as: oid+key? + btree writes update map or add if not cached + btree delete is queued and checked on access + can bypass cache btree vals on map ops (linear traversal) + quick conflict check with other xactions! + how to handle combining writes to btree? +- cursor ops cache all +- single thread optimization? + cache values globally + update on commit + + High level lisp backend design: - Page storage, layout policy; lisp array or foreign data? - key length limits --- /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/transactions.lisp 2007/03/30 15:03:46 1.1 +++ /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/transactions.lisp 2007/04/06 02:51:47 1.2 @@ -9,3 +9,4 @@ ((log :accessor btree-log :initarg :log :documentation "The transaction log"))) +

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 06 Apr '07

06 Apr '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv21893/src/elephant Modified Files: package.lisp serializer2.lisp Added Files: pset.lisp Log Message: Trial pset abstraction; fix for debug serialize of complex and more documentation edits --- /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/04/01 20:56:19 1.28 +++ /project/elephant/cvsroot/elephant/src/elephant/package.lisp 2007/04/06 02:51:48 1.29 @@ -206,6 +206,8 @@ #:persistent #:persistent-object #:persistent-metaclass #:defpclass #:persistent-collection #:drop-pobject + #:pset #:make-pset #:insert-item #:remove-item #:map-pset #:find-item #:pset-list + #:btree #:make-btree #:get-value #:remove-kv #:existsp #:indexed-btree #:make-indexed-btree --- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/04/04 15:28:29 1.36 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/04/06 02:51:48 1.37 @@ -368,7 +368,8 @@ (,+object+ . "standard object") (,+array+ . "array") (,+struct+ . "struct") - (,+class+ . "class"))) + (,+class+ . "class") + (,+complex+ . "complex"))) (defun enable-deserializer-tracing () (setf *trace-deserializer* t)) --- /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/06 02:51:48 NONE +++ /project/elephant/cvsroot/elephant/src/elephant/pset.lisp 2007/04/06 02:51:48 1.1 (in-package :elephant) ;; ;; Simple implementation of persistent sets ;; ;; ;; Public API ;; (defclass pset (persistent-collection) () (:documentation "An unordered persistent collection of unique elements according to serializer equal comparison")) (defgeneric insert-item (item pset) (:documentation "Insert a new item into the pset")) (defgeneric remove-item (item pset) (:documentation "Remove specified item from pset")) (defgeneric map-pset (fn pset) (:documentation "Map operator for psets")) (defgeneric find-item (item pset &key key test) (:documentation "Find a an item in the pset using key and test")) (defgeneric pset-list (pset) (:documentation "Convert items of pset into a list for processing")) (defgeneric build-pset (sc) (:documentation "Construct an empty default pset or backend specific pset. This is an internal function used by make-pset")) ;; NOTE: Other operators? ;; - Efficient union, intersection and difference fn's exploiting an underlying ;; sorted order? ;; - map delete operator? ;; ;; Default implementation based on btrees ;; (defclass default-pset (pset) ((btree :accessor pset-btree :initarg :btree))) (defmethod build-pset ((sc store-controller)) "Default pset method; override if backend has better policy" (let ((btree (make-btree sc))) (make-instance 'default-pset :btree btree :sc sc :from-oid (oid btree)))) (defun make-pset (&key items pset (sc *store-controller*)) (let ((new-pset (build-pset sc))) (when (and items pset) (error "Can only initialize a new pset with item list or pset to copy, not both")) (when items (mapc (lambda (item) (insert-item item new-pset)) items)) (when pset (map-pset (lambda (item) (insert-item item new-pset)) pset)) new-pset)) (defmethod insert-item (item (pset default-pset)) (setf (get-value item (pset-btree pset)) t) item) (defmethod remove-item (item (pset default-pset)) (remove-kv item (pset-btree pset)) item) (defmethod find-item (item (pset default-pset) &key key (test #'equal)) (if (not (or key test)) (get-value item (pset-btree pset)) (map-btree (lambda (elt dc) (declare (ignore dc)) (let ((cmpval (if key (funcall key elt) elt))) (if (funcall test item cmpval) (return-from find-item elt)))) (pset-btree pset)))) (defmethod map-pset (fn (pset default-pset)) (map-btree fn (pset-btree pset)) pset) (defmethod pset-list ((pset default-pset)) (let ((list nil)) (flet ((collect (item) (push item list))) (declare (dynamic-extent collect)) (map-btree (lambda (item dc) (declare (ignore dc)) (push item list)) (pset-btree pset))) list))

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
86
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

elephant-cvs