elephant-cvs February 2006

elephant-cvs@common-lisp.net

2 participants
108 discussions

[elephant-cvs] CVS elephant/src/db-bdb
by ieslick 19 Feb '06

19 Feb '06

Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory common-lisp:/tmp/cvs-serv6758/db-bdb Log Message: Directory /project/elephant/cvsroot/elephant/src/db-bdb added to the repository

1 0

[elephant-cvs] CVS elephant/src/memutil
by ieslick 19 Feb '06

19 Feb '06

Update of /project/elephant/cvsroot/elephant/src/memutil In directory common-lisp:/tmp/cvs-serv6758/memutil Log Message: Directory /project/elephant/cvsroot/elephant/src/memutil added to the repository

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 19 Feb '06

19 Feb '06

Update of /project/elephant/cvsroot/elephant/src/elephant In directory common-lisp:/tmp/cvs-serv6758/elephant Log Message: Directory /project/elephant/cvsroot/elephant/src/elephant added to the repository

1 0

[elephant-cvs] CVS elephant/examples
by ieslick 19 Feb '06

19 Feb '06

Update of /project/elephant/cvsroot/elephant/examples In directory common-lisp:/tmp/cvs-serv5587/examples Log Message: Directory /project/elephant/cvsroot/elephant/examples added to the repository

1 0

[elephant-cvs] CVS elephant/src
by ieslick 17 Feb '06

17 Feb '06

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp:/tmp/cvs-serv22917/src Modified Files: serializer.lisp sleepycat.lisp Log Message: Snapshot prior to transaction fix and backend reorg --- /project/elephant/cvsroot/elephant/src/serializer.lisp 2006/02/14 15:25:10 1.14 +++ /project/elephant/cvsroot/elephant/src/serializer.lisp 2006/02/17 22:45:21 1.15 @@ -79,7 +79,10 @@ (let ((s (symbol-name frob))) (declare (type string s) (dynamic-extent s)) (buffer-write-byte - #+(and allegro ics) +ucs2-symbol+ + #+(and allegro ics) + (etypecase s + (base-string +ucs1-symbol+) + (string +ucs2-symbol+)) #+(or (and sbcl sb-unicode) lispworks) (etypecase s (base-string +ucs1-symbol+) @@ -96,11 +99,14 @@ (string (progn (buffer-write-byte - #+(and allegro ics) +ucs2-string+ + #+(and allegro ics) + (etypecase frob + (base-string +ucs1-string+) + (string +ucs2-string+)) #+(or (and sbcl sb-unicode) lispworks) (etypecase frob - (base-string +ucs1-string+) - (string #+sbcl +ucs4-string+ #+lispwoks +ucs2-string+)) + (base-string +ucs1-string+) + (string #+sbcl +ucs4-string+ #+lispworks +ucs2-string+)) #-(or lispworks (and allegro ics) (and sbcl sb-unicode)) +ucs1-string+ bs) @@ -125,7 +131,10 @@ (let ((s (namestring frob))) (declare (type string s) (dynamic-extent s)) (buffer-write-byte - #+(and allegro ics) +ucs2-pathname+ + #+(and allegro ics) + (etypecase s + (base-string +ucs1-pathname+) + (string +ucs2-pathname+)) #+(or (and sbcl sb-unicode) lispworks) (etypecase s (base-string +ucs1-pathname+) @@ -250,7 +259,6 @@ ((= tag +fixnum+) (buffer-read-fixnum bs)) ((= tag +nil+) nil) - #-(and allegro ics) ((= tag +ucs1-symbol+) (let ((name (buffer-read-ucs1-string bs (buffer-read-fixnum bs))) (maybe-package-name (%deserialize bs))) @@ -272,7 +280,7 @@ (if maybe-package-name (intern name (find-package maybe-package-name)) (make-symbol name)))) - #-(and allegro ics) + #+(and allegro ics) ((= tag +ucs1-string+) (buffer-read-ucs1-string bs (buffer-read-fixnum bs))) #+(or lispworks (and allegro ics)) @@ -292,7 +300,7 @@ (buffer-read-double bs)) ((= tag +char+) (code-char (buffer-read-uint bs))) - #-(and allegro ics) + #+(and allegro ics) ((= tag +ucs1-pathname+) (parse-namestring (or (buffer-read-ucs1-string bs (buffer-read-fixnum bs)) ""))) --- /project/elephant/cvsroot/elephant/src/sleepycat.lisp 2006/02/07 23:23:51 1.19 +++ /project/elephant/cvsroot/elephant/src/sleepycat.lisp 2006/02/17 22:45:21 1.20 @@ -48,7 +48,7 @@ #:buffer-write-string #:buffer-read-byte #:buffer-read-fixnum #:buffer-read-int #:buffer-read-uint #:buffer-read-float #:buffer-read-double - #-(and allegro ics) #:buffer-read-ucs1-string + #+(and allegro ics) #:buffer-read-ucs1-string #+(or lispworks (and allegro ics)) #:buffer-read-ucs2-string #+(and sbcl sb-unicode) #:buffer-read-ucs4-string #:byte-length @@ -490,7 +490,9 @@ of a string." #+(and allegro ics) ;; old: `(let ((l (length ,s))) (+ l l)) - `(excl:native-string-sizeof ,s :external-format :unicode) + `(etypecase ,s + (base-string (length ,s)) + (string (excl:native-string-sizeof ,s :external-format :unicode))) #+(or (and sbcl sb-unicode) lispworks) `(etypecase ,s (base-string (length ,s)) @@ -547,20 +549,20 @@ (ccl::%copy-ivector-to-ptr ivector (+ disp src-offset) dest dest-offset length))) -#+allegro -(defun copy-str-to-buf (dest dest-offset src src-offset length) - "Use build-in unicode handling and copying facilities. - NOTE: We need to validate the speed of this vs. default." - (declare (optimize (speed 3) (safety 0)) - (type string src) - (type array-or-pointer-char dest) - (type fixnum length src-offset dest-offset) - (dynamic-extent src dest length)) - (excl:string-to-native (subseq src src-offset) :address (offset-char-pointer dest dest-offset) - :external-format :unicode)) +;; #+allegro +;; (defun copy-str-to-buf (dest dest-offset src src-offset length) +;; "Use build-in unicode handling and copying facilities. +;; NOTE: We need to validate the speed of this vs. default." +;; (declare (optimize (speed 3) (safety 0)) +;; (type string src) +;; (type array-or-pointer-char dest) +;; (type fixnum length src-offset dest-offset) +;; (dynamic-extent src dest length)) +;; (excl:string-to-native (subseq src src-offset) :address (offset-char-pointer dest dest-offset) +;; :external-format :unicode)) ;; Lisp version, for kicks. this assumes 8-bit chars! -#+(not (or cmu sbcl scl allegro openmcl lispworks)) +#+(not (or cmu sbcl scl openmcl lispworks)) (defun copy-str-to-buf (dest dest-offset src src-offset length) "Copy a string to a foreign buffer." (declare (optimize (speed 3) (safety 0)) @@ -730,9 +732,9 @@ (defun buffer-write-string (s bs) "Write the underlying bytes of a string. On Unicode Lisps, this is a 16-bit operation." -;; (declare (optimize (speed 3) (safety 0)) -;; (type buffer-stream bs) -;; (type string s)) + (declare (optimize (speed 3) (safety 0)) + (type buffer-stream bs) + (type string s)) (with-struct-slots ((buf buffer-stream-buffer) (size buffer-stream-size) (len buffer-stream-length)) @@ -745,10 +747,10 @@ (resize-buffer-stream bs needed)) ;; I wonder if the basic problem here is that we are using this ;; routine instead of something like "copy-ub8-from-system-area"? - #-allegro +;; #-allegro (copy-str-to-buf buf size s 0 str-bytes) - #+allegro - (excl:string-to-native s :address (offset-char-pointer buf size) :external-format :unicode) +;; #+allegro +;; (excl:string-to-native s :address (offset-char-pointer buf size) :external-format :unicode) (setf size needed) nil)))

1 0

[elephant-cvs] CVS elephant/tests
by ieslick 17 Feb '06

17 Feb '06

Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp:/tmp/cvs-serv22917/tests Modified Files: elephant-tests.lisp Log Message: Snapshot prior to transaction fix and backend reorg --- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/17 04:22:19 1.12 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/17 22:45:21 1.13 @@ -103,13 +103,6 @@ (do-all-tests-spec *testsqlite3-path*) )) -;; (defun do-all-tests-spec (spec) -;; (when spec -;; (with-open-store (spec) -;; (let ((*auto-commit* nil)) -;; (declare (special *auto-commit*)) -;; (do-tests))))) - (defun do-test-spec (testname &optional (spec *testdb-path*)) "For easy interactive running of tests while debugging" (when spec @@ -117,6 +110,14 @@ (let ((*auto-commit* nil)) (do-test testname))))) +(defun do-all-tests-spec(spec) + (when spec + (with-open-store (spec) + (let ((*auto-commit* nil)) + (declare (special *auto-commit*) + (dynamic-extent *auto-commit*)) + (do-tests))))) + (defun do-indexing-tests () (declare (special *old-store*)) (setq *old-store* *store-controller*) @@ -160,14 +161,6 @@ ) )) -(defun do-all-tests-spec(spec) - (when spec - (with-open-store (spec) - (let ((*auto-commit* nil)) - (declare (special *auto-commit*) - (dynamic-extent *auto-commit*)) - (do-tests))))) - (defun find-slot-def (class-name slot-name) (find-if #'(lambda (slot-def) (eq (slot-definition-name slot-def) slot-name))

1 0

[elephant-cvs] CVS elephant/tests
by rread 17 Feb '06

17 Feb '06

Update of /project/elephant/cvsroot/elephant/tests In directory common-lisp:/tmp/cvs-serv19434/tests Modified Files: elephant-tests.lisp Log Message: Removing duplicate definition. --- /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/10 01:39:13 1.11 +++ /project/elephant/cvsroot/elephant/tests/elephant-tests.lisp 2006/02/17 04:22:19 1.12 @@ -103,12 +103,12 @@ (do-all-tests-spec *testsqlite3-path*) )) -(defun do-all-tests-spec (spec) - (when spec - (with-open-store (spec) - (let ((*auto-commit* nil)) - (declare (special *auto-commit*)) - (do-tests))))) +;; (defun do-all-tests-spec (spec) +;; (when spec +;; (with-open-store (spec) +;; (let ((*auto-commit* nil)) +;; (declare (special *auto-commit*)) +;; (do-tests))))) (defun do-test-spec (testname &optional (spec *testdb-path*)) "For easy interactive running of tests while debugging"

1 0

[elephant-cvs] CVS elephant/src
by ieslick 15 Feb '06

15 Feb '06

Update of /project/elephant/cvsroot/elephant/src In directory common-lisp:/tmp/cvs-serv3181/src Modified Files: classes.lisp metaclasses.lisp Log Message: Tentative fixes for change-class failure to update class index. --- /project/elephant/cvsroot/elephant/src/classes.lisp 2006/02/10 01:39:13 1.20 +++ /project/elephant/cvsroot/elephant/src/classes.lisp 2006/02/15 04:18:39 1.21 @@ -54,30 +54,34 @@ metaclass.") (:metaclass persistent-metaclass)) -;;(defmethod print-object ((obj persistent) stream) (defmethod initialize-instance ((instance persistent-object) &rest initargs &key from-oid &allow-other-keys) - (declare (ignore initargs)) - (if (indexed (class-of instance)) - (progn - (let ((oid (oid instance))) - (declare (type fixnum oid)) - (inhibit-indexing oid) - (unwind-protect - (call-next-method) - (uninhibit-indexing oid)) - ;; Inhibit indexing if the object already was defined (ie being created from an oid) - ;; as it should be indexed already. This hack avoids a deadlock situation where we - ;; write the class or index page that we are currently reading via a cursor without - ;; going through the cursor abstraction. There has to be a better way to do this. - (when (not from-oid) - (let ((class-index (find-class-index (class-of instance)))) - (when class-index -;; (format t "Indexing initial instance: ~A :: ~A~%" oid instance) - (with-transaction () - (setf (get-value oid class-index) instance))))))) - ;; else - (call-next-method))) + (declare (ignorable initargs instance from-oid)) + (call-next-method)) + + +;; (defmethod initialize-instance ((instance persistent-object) &rest initargs &key from-oid &allow-other-keys) +;; (if (indexed (class-of instance)) +;; (progn +;; (let ((oid (oid instance))) +;; (declare (type fixnum oid)) +;; (inhibit-indexing oid) +;; (unwind-protect +;; (call-next-method) +;; (uninhibit-indexing oid)) +;; ;; Inhibit indexing altogether if the object already was defined (ie being created +;; ;; from an oid) as it should be indexed already. This hack avoids a deadlock +;; ;; situation where we write the class or index page that we are currently reading +;; ;; via a cursor without going through the cursor abstraction. There has to be a +;; ;; better way to do this. +;; (when (not from-oid) +;; (let ((class-index (find-class-index (class-of instance)))) +;; (when class-index +;; ;; (format t "Indexing initial instance: ~A :: ~A~%" oid instance) +;; (with-transaction () +;; (setf (get-value oid class-index) instance))))))) +;; ;; else +;; (call-next-method))) (defmethod shared-initialize :around ((class persistent-metaclass) slot-names &rest args &key direct-superclasses) "Ensures we inherit from persistent-object." @@ -160,13 +164,16 @@ ;; (setf (%persistent-slots instance) ;; (cons (persistent-slot-names instance) nil))))) -(defmethod shared-initialize :around ((instance persistent-object) slot-names &rest initargs &key &allow-other-keys) +(defmethod shared-initialize :around ((instance persistent-object) slot-names &rest initargs &key from-oid &allow-other-keys) "Initializes the persistent slots via initargs or forms. This seems to be necessary because it is typical for implementations to optimize setting the slots via initforms and initargs in such a way that slot-value-using-class et al -aren't used. Calls the next method for the transient slots." +aren't used. We also handle writing any indices after the +class is fully initialized. Calls the next method for the transient +slots." (let* ((class (class-of instance)) + (oid (oid instance)) (persistent-slot-names (persistent-slot-names class))) (flet ((persistent-slot-p (item) (member item persistent-slot-names :test #'eq))) @@ -177,6 +184,8 @@ (persistent-slot-inits (if (eq slot-names t) persistent-slot-names (remove-if-not #'persistent-slot-p slot-names)))) + (inhibit-indexing oid) + (unwind-protect ;; initialize the persistent slots (flet ((initialize-from-initarg (slot-def) (loop for initarg in initargs @@ -187,23 +196,31 @@ (getf initargs initarg)) (return t)))) (loop for slot-def in (class-slots class) - unless - (initialize-from-initarg slot-def) - when - (member (slot-definition-name slot-def) persistent-slot-inits :test #'eq) - unless - (slot-boundp-using-class class instance slot-def) + unless (initialize-from-initarg slot-def) + when (member (slot-definition-name slot-def) persistent-slot-inits :test #'eq) + unless (slot-boundp-using-class class instance slot-def) do (let ((initfun (slot-definition-initfunction slot-def))) (when initfun (setf (slot-value-using-class class instance slot-def) - (funcall initfun)))) - ) + (funcall initfun))))) ;; (format t "transient-slot-inits ~A~%" transient-slot-inits) ;; (format t "indices boundp ~A~%" (slot-boundp instance 'indices)) ;; (format t "indices-caches boundp ~A~%" (slot-boundp instance 'indices-cache)) ;; let the implementation initialize the transient slots - (apply #'call-next-method instance transient-slot-inits initargs)))))) + (apply #'call-next-method instance transient-slot-inits initargs)) + (uninhibit-indexing oid)) + ;; Inhibit indexing altogether if the object already was defined (ie being created + ;; from an oid) as it should be indexed already. This hack avoids a deadlock + ;; situation where we write the class or index page that we are currently reading + ;; via a cursor without going through the cursor abstraction. There has to be a + ;; better way to do this. + (when (and (indexed class) (not from-oid)) + (let ((class-index (find-class-index (class-of instance)))) + (when class-index + (with-transaction () + (setf (get-value oid class-index) instance))))) + )))) (defmethod update-instance-for-redefined-class :around ((instance persistent-object) added-slots discarded-slots property-list &rest initargs &key &allow-other-keys) ;; NOTE: probably should delete discarded slots, but we'll worry about that later --- /project/elephant/cvsroot/elephant/src/metaclasses.lisp 2006/02/10 01:39:13 1.14 +++ /project/elephant/cvsroot/elephant/src/metaclasses.lisp 2006/02/15 04:18:39 1.15 @@ -82,9 +82,9 @@ (defmacro defpclass (cname parents slot-defs &optional class-opts) `(defclass ,cname ,parents ,slot-defs - ,(add-persistent-metaclass class-opts))) + ,(add-persistent-metaclass-argument class-opts))) -(defun add-persistent-metaclass (class-opts) +(defun add-persistent-metaclass-argument (class-opts) (when (assoc :metaclass class-opts) (error "User metaclass specification not allowed in defpclass")) (append (list :metaclass 'persistent-metaclass) class-opts)) @@ -144,7 +144,8 @@ ;; This just encapsulates record keeping a bit (defclass indexing-record () - ((slots :accessor indexing-record-slots :initarg :slots :initform nil) + ((class :accessor indexing-record-class :initarg :class :initform t) + (slots :accessor indexing-record-slots :initarg :slots :initform nil) (derived-count :accessor indexing-record-derived :initarg :derived :initform 0))) (defmethod print-object ((obj indexing-record) stream)

1 0

[elephant-cvs] CVS elephant
by rread 15 Feb '06

15 Feb '06

Update of /project/elephant/cvsroot/elephant In directory common-lisp:/tmp/cvs-serv17274 Modified Files: INSTALL TUTORIAL ele-bdb.asd ele-sqlite3.asd Log Message: Minor documentation fixes from Tayssir John Gabbour --- /project/elephant/cvsroot/elephant/INSTALL 2006/01/25 14:09:46 1.13 +++ /project/elephant/cvsroot/elephant/INSTALL 2006/02/15 01:54:07 1.14 @@ -64,7 +64,7 @@ Under Un*x, edit Makefile and run (using GNU make, gmake on BSD) -make install +make This compiles src/libsleepycat.c and installs it into @@ -109,9 +109,16 @@ Symlink elephant.asd to your asdf systems directory (mine is /usr/local/share/common-lisp/systems). Fire up lisp and -type +depending on your database backend: + +if you are using Sleepycat / Berkeley DB, type: + (asdf:operate 'asdf:load-op :ele-bdb) + +if you are using CL-SQL, type: + (asdf:operate 'asdf:load-op :ele-clsql) -(asdf:operate 'asdf:load-op :elephant) +if you are using SQLite3, type: + (asdf:operate 'asdf:load-op :ele-sqlite3) This will load and compile Elephant. This will also automatically load UFFI. --- /project/elephant/cvsroot/elephant/TUTORIAL 2004/09/02 15:11:58 1.6 +++ /project/elephant/cvsroot/elephant/TUTORIAL 2006/02/15 01:54:07 1.7 @@ -27,9 +27,16 @@ Assuming you've managed to install Elephant properly, -* (asdf:operate 'asdf:load-op :elephant) +* if you are using Sleepycat / Berkeley DB, type: + (asdf:operate 'asdf:load-op :ele-bdb) -will load the relevant files. +* or if you are using CL-SQL, type: + (asdf:operate 'asdf:load-op :ele-clsql) + +* or if you are using SQLite3, type: + (asdf:operate 'asdf:load-op :ele-sqlite3) + +which will load the relevant files. * (use-package "ELE") --- /project/elephant/cvsroot/elephant/ele-bdb.asd 2006/02/04 22:25:09 1.4 +++ /project/elephant/cvsroot/elephant/ele-bdb.asd 2006/02/15 01:54:07 1.5 @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; ;;; ele-clsql.asd -- ASDF system definition for -;;; a CL-SQL based back-end for Elephant +;;; a Berkeley-DB based back-end for Elephant ;;; ;;; Initial version 10/12/2005 by Robert L. Read ;;; <read(a)robertlread.net> --- /project/elephant/cvsroot/elephant/ele-sqlite3.asd 2006/02/05 23:13:07 1.3 +++ /project/elephant/cvsroot/elephant/ele-sqlite3.asd 2006/02/15 01:54:07 1.4 @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;; ;;; ele-clsql.asd -- ASDF system definition for -;;; a CL-SQL based back-end for Elephant +;;; a SQLite3 based back-end for Elephant ;;; ;;; Initial version 10/12/2005 by Robert L. Read ;;; <read(a)robertlread.net> @@ -47,8 +47,8 @@ :version "0.1" :maintainer "Robert L. Read <read(a)robertlread.net>" :licence "GPL" - :description "Berkeley-DB based Object respository for Common Lisp" - :long-description "Including this loads the Berkeley-DB code; you may have to edit the pathname!" + :description "SQLite3 based Object respository for Common Lisp" + :long-description "Including this loads the SQLite3 code; you may have to edit the pathname!" :components ((:module :src

1 0

[elephant-cvs] CVS elephant
by ieslick 14 Feb '06

14 Feb '06

Update of /project/elephant/cvsroot/elephant In directory common-lisp:/tmp/cvs-serv1832 Modified Files: TODO Log Message: Updated TODO list. Minor tweak in indexing. --- /project/elephant/cvsroot/elephant/TODO 2006/02/10 01:39:12 1.11 +++ /project/elephant/cvsroot/elephant/TODO 2006/02/14 15:31:09 1.12 @@ -7,16 +7,11 @@ 0.6.0 - Adding default class/slot indexing - Finish indexing tests (Ian) - Documentation update (Robert) -- Add a class-indexing class option to the metaclass so we can maintain class instances - index without any secondary indices or indexed slots (Ian) -- Add :inverse-reader to slot options to create a named method that indexes into objects - based on slot values. Is this a GF or defun? Do we dispatch on class name or bake it in? 0.6.1 - performance, safety and portability Stability: - Add clsql like support for building .so/.dylib from asdf loader on most systems -- Port elephant to closer-to-MOP to make it easier to support additional lisps (Both) - Cleanup multi-repository operation (ensure that conflicts between an object's registry and *store-controller* does not leed to lockup, especially with BDB (Both) - Think through default vs. explicit store referencing all over the APIs (Both) @@ -28,19 +23,32 @@ in user code. (Both) - BDB: determine how to detect deadlock conditions as an optional run-safe mode? (?) Does BDB have timeouts enabled on select? (Ian) +- Fix backend dependency problems (missing functions with-transaction-sql, etc) + caused by not having clsql loaded. Backends should not cause such failures + and should use asdf to load their deps when the backends are instantiated; much + like clsql does now +- Remove build gensym warnings +- Port elephant to closer-to-MOP to make it easier to support additional lisps (Both) - (From Ben's e-mail) We are storing persistent objects incorrectly. They should be stored only as OIDs, and we should have a separate OID->class table. This way - change-class can be handled correctly (Ian) + change-class can be handled correctly (Ian) ??? Performance: - Metering and understanding locking issues. Large transactions seem to use a lot of locks. In general understanding how to use Sleepycat - efficiently seems like a good thing. (Both) + efficiently seems like a good thing. (From Ben) - Reclaim table storage on index drop (Ian) - Higher performance fix for allegro unicode serialization workaround than my current one (Ian) +- Add dependency information into secondary index callback functions so that + we can more easily compute which indices need to be updated to avoid the + global remove/add in order to maintain consistency (Ian) Indexing features: +- Add a class-indexing class option to the metaclass so we can maintain class instances + index without any secondary indices or indexed slots (Ian) +- Add :inverse-reader to slot options to create a named method that indexes into objects + based on slot values. Is this a GF or defun? Do we dispatch on class name or bake it in? - On class change, new slots should have their initform values pushed into the slot value as if the slot was being created the first time (currently this doesn't happen) (Ian) @@ -50,9 +58,6 @@ 0.6.3 - Query & indexing expansion - simple object query language (Ian - orthogonal, on main branch) - - Add dependency information into secondary index callback functions so that - we can more easily compute which indices need to be updated to avoid the - global remove/add in order to maintain consistency (Ian) - Add needed support (if any) for persistent graph structures & queries (Ian on a branch) 0.6.4 - Compliance & Documentation @@ -69,8 +74,9 @@ (a simple REPL tool to see what classes are in a repository and what state they're in...useful for long-lived repositories) -0.6.4 - Additional datastructures? - - Support for cheap persistent sets (ala ACache) +0.6.5 - Additional datastructures? + - Native BDB persistent hashes (easy; can do on SQL backends?) + - Support for cheap persistent sets (medium? can do on SQL?) Some placeholders & dreams features below... :)

1 0

← Newer
1
...
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

elephant-cvs February 2006