elephant-cvs March 2007

elephant-cvs@common-lisp.net

2 participants
90 discussions

[elephant-cvs] CVS elephant/src/elephant
by ieslick 31 Mar '07

31 Mar '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv17159/src/elephant Modified Files: controller.lisp Log Message: Fixed symbol mgmt bug in serializer2 init --- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/03/30 23:36:53 1.43 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/03/30 23:42:35 1.44 @@ -290,7 +290,7 @@ (setf (controller-serialize sc) (intern "SERIALIZE" (find-package :ELEPHANT-SERIALIZER2))) (setf (controller-deserialize sc) - (intern "SERIALIZE" (find-package :ELEPHANT-SERIALIZER2)))))) + (intern "DESERIALIZE" (find-package :ELEPHANT-SERIALIZER2)))))) ;; ;; Handling package changes in legacy databases

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 31 Mar '07

31 Mar '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv15195/src/elephant Modified Files: backend.lisp classes.lisp collections.lisp controller.lisp metaclasses.lisp serializer2.lisp variables.lisp Log Message: Sanitize class indexing option; more documentation stuff --- /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/03/30 17:46:14 1.14 +++ /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/03/30 23:36:53 1.15 @@ -76,6 +76,9 @@ #:transaction-store #:transaction-object #:execute-transaction + #:controller-start-transaction + #:controller-abort-transaction + #:controller-commit-transaction ;; Registration #:register-backend-con-init --- /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/03/24 12:16:03 1.24 +++ /project/elephant/cvsroot/elephant/src/elephant/classes.lisp 2007/03/30 23:36:53 1.25 @@ -47,30 +47,16 @@ ;; METACLASS INITIALIZATION AND CHANGES ;; ================================================ -(defmethod ensure-class-using-class :around ((class null) name &rest args &key index) - "Support the :index class option" - (let ((result (apply #'call-next-method class name (remove-keywords '(:index) args)))) - (when (and index (subtypep (type-of result) 'persistent-metaclass)) - (update-indexed-record result nil :class-indexed t)) - result)) - -(defmethod ensure-class-using-class ((class persistent-metaclass) name &rest args &key index) - "Support the :index class option on redefinition" - (let ((result (apply #'call-next-method class name (remove-keywords '(:index) args)))) - (when index - (update-indexed-record result nil :class-indexed t)) - result)) - -(defmethod shared-initialize :around ((class persistent-metaclass) slot-names &rest args &key direct-superclasses) +(defmethod shared-initialize :around ((class persistent-metaclass) slot-names &rest args &key direct-superclasses index) "Ensures we inherit from persistent-object." (let* ((persistent-metaclass (find-class 'persistent-metaclass)) (persistent-object (find-class 'persistent-object)) (not-already-persistent (loop for superclass in direct-superclasses never (eq (class-of superclass) persistent-metaclass)))) + (when index + (update-indexed-record class nil :class-indexed t)) (if (and (not (eq class persistent-object)) not-already-persistent) (apply #'call-next-method class slot-names -;; :direct-superclasses (cons persistent-object -;; direct-superclasses) args) :direct-superclasses (append direct-superclasses (list persistent-object)) args) (call-next-method)))) --- /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/03/25 14:57:49 1.19 +++ /project/elephant/cvsroot/elephant/src/elephant/collections.lisp 2007/03/30 23:36:53 1.20 @@ -339,15 +339,18 @@ (defun lisp-compare-equal (a b) (equal a b)) +(defgeneric map-btree (fn btree &rest args &key start end value) + (:documentation "Map btree maps over a btree from the value start to the value of end. + If values are not provided, then it maps over all values. BTrees + do not have duplicates, but map-btree can also be used with indices + in the case where you don't want access to the primary key so we + require a value argument as well for mapping duplicate value sets.")) + ;; NOTE: the use of nil for the last element in a btree only works because the C comparison ;; function orders by type tag and nil is the highest valued type tag so nils are the last ;; possible element in a btree ordered by value. + (defmethod map-btree (fn (btree btree) &rest args &key start end (value nil value-set-p)) - "Map btree maps over a btree from the value start to the value of end. - If values are not provided, then it maps over all values. BTrees - do not have duplicates, but map-btree can also be used with indices - in the case where you don't want access to the primary key so we - require a value argument as well for mapping duplicate value sets." (let ((end (if value-set-p value end))) (ensure-transaction (:store-controller (get-con btree)) (with-btree-cursor (curs btree) @@ -368,8 +371,8 @@ (funcall fn k v) (return nil))))))))) -(defmethod map-index (fn (index btree-index) &rest args &key start end (value nil value-set-p)) - "Map-index is like map-btree but for secondary indices, it +(defgeneric map-index (fn btree &rest args &key start end value) + (:documentation "Map-index is like map-btree but for secondary indices, it takes a function of three arguments: key, value and primary key. As with map-btree the keyword arguments start and end determine the starting element and ending element, inclusive. @@ -377,7 +380,9 @@ the last element in the index. If you want to traverse only a set of identical key values, for example all nil values, then use the value keyword which will override any values of start - and end." + and end.")) + +(defmethod map-index (fn (index btree-index) &rest args &key start end (value nil value-set-p)) (declare (dynamic-extent args) (ignorable args)) (let ((sc (get-con index)) --- /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/03/30 14:34:35 1.42 +++ /project/elephant/cvsroot/elephant/src/elephant/controller.lisp 2007/03/30 23:36:53 1.43 @@ -250,6 +250,12 @@ (when (member ver (rest row) :test #'equal)) t) nil)) +(defgeneric upgrade (sc spec) + (:documentation "Given an open store controller from a prior version, + open a new store specified by spec and migrate the + data from the original store to the new one, upgrading + it to the latest version")) + (defmethod upgrade ((sc store-controller) target-spec) (unless (upgradable-p sc) (error "Cannot upgrade ~A from version ~A to version ~A~%Valid upgrades are:~%~A" @@ -275,12 +281,16 @@ associated with the database version that is opened." (cond ((prior-version-p (database-version sc) '(0 6 0)) (setf (controller-serializer-version sc) 1) - (setf (controller-serialize sc) 'elephant-serializer1::serialize) - (setf (controller-deserialize sc) 'elephant-serializer1::deserialize)) + (setf (controller-serialize sc) + (intern "SERIALIZE" (find-package :ELEPHANT-SERIALIZER1))) + (setf (controller-deserialize sc) + (intern "DESERIALIZE" (find-package :ELEPHANT-SERIALIZER1)))) (t (setf (controller-serializer-version sc) 2) - (setf (controller-serialize sc) 'elephant-serializer2::serialize) - (setf (controller-deserialize sc) 'elephant-serializer2::deserialize)))) + (setf (controller-serialize sc) + (intern "SERIALIZE" (find-package :ELEPHANT-SERIALIZER2))) + (setf (controller-deserialize sc) + (intern "SERIALIZE" (find-package :ELEPHANT-SERIALIZER2)))))) ;; ;; Handling package changes in legacy databases --- /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp 2007/03/23 16:08:10 1.13 +++ /project/elephant/cvsroot/elephant/src/elephant/metaclasses.lisp 2007/03/30 23:36:53 1.14 @@ -23,8 +23,11 @@ (declaim #-elephant-without-optimize (optimize (speed 3) (safety 1))) (defclass persistent () - ((%oid :accessor oid :initarg :from-oid) - (dbconnection-spec-pst :type (or list string) :accessor dbcn-spc-pst :initarg :dbconnection-spec-pst)) + ((%oid :accessor oid :initarg :from-oid + :documentation "All persistent objects have an oid") + (dbconnection-spec-pst :type (or list string) :accessor dbcn-spc-pst :initarg :dbconnection-spec-pst + :documentation "Persistent objects use a spec pointer to identify which store + they are connected to")) (:documentation "Abstract superclass for all persistent classes (common to user-defined classes and collections.)")) --- /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/03/30 14:34:35 1.34 +++ /project/elephant/cvsroot/elephant/src/elephant/serializer2.lisp 2007/03/30 23:36:53 1.35 @@ -24,8 +24,6 @@ (:import-from :elephant *circularity-initial-hash-size* get-cached-instance - controller-symbol-cache - controller-symbol-id-cache slot-definition-allocation slot-definition-name compute-slots --- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 17:45:41 1.13 +++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 23:36:53 1.14 @@ -64,10 +64,11 @@ ;; properly load in asdf due to some circular dependencies ;; between lisp files -(eval-when (load-toplevel compile-toplevel) +(eval-when (:compile-toplevel :load-toplevel) (mapcar (lambda (symbol) (intern symbol :elephant)) - '(get-cached-instance))) + '("GET-CACHED-INSTANCE" + "SET-DB-SYNCH")))

1 0

[elephant-cvs] CVS elephant/doc
by ieslick 31 Mar '07

31 Mar '07

Update of /project/elephant/cvsroot/elephant/doc In directory clnet:/tmp/cvs-serv15195/doc Modified Files: Makefile data-store-reference.texinfo make-ref.lisp reference.texinfo Log Message: Sanitize class indexing option; more documentation stuff --- /project/elephant/cvsroot/elephant/doc/Makefile 2007/03/24 13:55:15 1.4 +++ /project/elephant/cvsroot/elephant/doc/Makefile 2007/03/30 23:36:52 1.5 @@ -8,3 +8,5 @@ makeinfo -v --html --css-include=style.css --force elephant.texinfo makeinfo -v --html --css-include=style.css --force --no-split elephant.texinfo +pdf: includes-stuff + texi2dvi --pdf elphant.texinfo --- /project/elephant/cvsroot/elephant/doc/data-store-reference.texinfo 2007/03/30 17:28:50 1.3 +++ /project/elephant/cvsroot/elephant/doc/data-store-reference.texinfo 2007/03/30 23:36:52 1.4 @@ -38,10 +38,10 @@ * Foreign libraries:: Using UFFI and ASDF to build or link foreign libraries @end menu -@node Registration +@node DSR Registration @comment node-name, next, previous, up @section Registration -@cindex Registration +@cindex Registration and Initialization Elephant looks at the first element of the specification list to determine which backend code base to use. The master table for this @@ -55,7 +55,13 @@ @include includes/fun-elephant-backend-register-backend-con-init.texinfo -@node Store Controllers +If the backend requires any special user-specified configuration, +augment the key types in config.sexp with what you need and use the +following function to access. + +@include includes/fun-elephant-backend-get-user-configuration-parameter.texinfo + +@node DSR Store Controllers @comment node-name, next, previous, up @section Store Controllers @cindex Store Controllers @@ -63,9 +69,10 @@ Subclass store-controller and implement store and close controller which are called by open-store and close-store respectively. -@include includes/class-elephant-backend-store-controller.texinfo +@include includes/class-elephant-store-controller.texinfo @include includes/fun-elephant-backend-open-controller.texinfo @include includes/fun-elephant-backend-close-controller.texinfo +@include includes/fun-elephant-backend-connection-is-indeed-open.texinfo For upgrading and opening legacy databases it is important that a store be able to indicate which version of elephant was used to create @@ -79,21 +86,24 @@ There are some utilities for serializing simple data without a serializer using the memutil package. -@include - -These functions are useful utilities for implementing -store-controllers. +@include includes/fun-elephant-backend-serialize-database-version-key.texinfo +@include includes/fun-elephant-backend-serialize-database-version-value.texinfo +@include includes/fun-elephant-backend-deserialize-database-version-value.texinfo -@include includes/fun-elephant-backend-get-con.texinfo -@include includes/fun-elephant-backend-oid.texinfo -@include includes/fun-elephant-backend-next-oid.texinfo -@include includes/fun-elephant-backend-connection-is-indeed-open.texinfo -@include includes/fun-elephant-get-user-configuration-parameter.texinfo -@node Slot Access +@node DSR Persistent Objects and Slot Access @comment node-name, next, previous, up @section Slot Access -@cindex Slot Access +@cindex Persistent Objects and Slot Access + +@include includes/class-elephant-persistent.texinfo +@include includes/fun-elephant-backend-get-con.texinfo +@c @include includes/fun-elephant-backend-oid.texinfo + +All objects require a unique id. During new object creation the +backend is asked to produce a unique id. + +@include includes/fun-elephant-backend-next-oid.texinfo These functions are called by the metaclass protocol to support operations on persistent class slots. @@ -103,7 +113,7 @@ @include includes/fun-elephant-backend-persistent-slot-boundp.texinfo @include includes/fun-elephant-backend-persistent-slot-makunbound.texinfo -@node Collections +@node DSR Collections @comment node-name, next, previous, up @section Collections @cindex Collections @@ -133,7 +143,12 @@ @include includes/fun-elephant-get-index.texinfo @include includes/fun-elephant-remove-index.texinfo -@node Cursors +Critical to indexing and queries are the map operators for collections + +@include includes/fun-elephant-map-btree.texinfo +@include includes/fun-elephant-map-index.texinfo + +@node DSR Cursors @comment node-name, next, previous, up @section Cursors @cindex Cursors @@ -143,22 +158,28 @@ @c #:cursor-oid @c #:cursor-initialized-p -@node Transactions +@node DSR Transactions @comment node-name, next, previous, up @section Transactions @cindex Transactions -@c #:*current-transaction* -@c #:make-transaction-record -@c #:transaction-store -@c #:transaction-object - -@c #:execute-transaction -@c #:controller-start-transaction -@c #:controller-commit-transaction -@c #:controller-abort-transaction +These functions must be implemented or stubbed in any +backend. + +@include includes/fun-elephant-backend-execute-transaction.texinfo +@include includes/fun-elephant-backend-controller-start-transaction.texinfo +@include includes/fun-elephant-backend-controller-commit-transaction.texinfo +@include includes/fun-elephant-backend-controller-abort-transaction.texinfo + +These are supporting functions and variables for implementing +transactions. + +@include includes/var-elephant-backend-star-current-transaction-star.texinfo +@include includes/fun-elephant-backend-make-transaction-record.texinfo +@include includes/fun-elephant-backend-transaction-store.texinfo +@include includes/fun-elephant-backend-transaction-object.texinfo -@node Multithreading Considerations +@node DSR Multithreading Considerations @comment node-name, next, previous, up @section Multithreading Considerations @cindex Multithreading @@ -166,7 +187,7 @@ @c utils locks @c utils thread-vars -@node Handling Serialization +@node DSR Handling Serialization @comment node-name, next, previous, up @section Handling Serialization @cindex Serialization @@ -176,12 +197,12 @@ @c #:deserialize-from-base64-string @c #:serialize-to-base64-string -@node Memory utilities +@node DSR Memory utilities @comment node-name, next, previous, up @section Memory utilities @cindex Memory utilities -@node Foreign libraries +@node DSR Foreign libraries @comment node-name, next, previous, up @section Foreign libraries @cindex Foreign libraries --- /project/elephant/cvsroot/elephant/doc/make-ref.lisp 2007/03/30 14:34:34 1.5 +++ /project/elephant/cvsroot/elephant/doc/make-ref.lisp 2007/03/30 23:36:52 1.6 @@ -1,29 +1,39 @@ (require 'asdf) -(asdf:operate 'asdf:load-op 'elephant-tests) +(asdf:operate 'asdf:load-op 'elephant) +(load (merge-pathnames + #p"src/elephant/query" + (asdf:component-pathname (asdf:find-system 'elephant)))) + (defparameter include-dir-path (namestring (merge-pathnames #p"doc/includes/" - (asdf:component-pathname (asdf:find-system 'elephant-tests))))) + (asdf:component-pathname (asdf:find-system 'elephant))))) (defparameter docstrings-path (namestring (merge-pathnames #p"doc/docstrings.lisp" - (asdf:component-pathname (asdf:find-system 'elephant-tests))))) + (asdf:component-pathname (asdf:find-system 'elephant))))) (sb-posix:chdir include-dir-path) (load docstrings-path) +(in-package :elephant) + +(defclass simple-store-controller (store-controller) + ()) + (defun make-docs () - (elephant:open-store elephant-tests::*testbdb-spec*) - (make-instance 'elephant::persistent-collection) - (make-instance 'elephant::secondary-cursor) - (make-instance 'elephant::indexed-btree) - (sb-texinfo:generate-includes #p"/Users/eslick/Work/fsrc/elephant-cvs/doc/includes/" - (find-package :elephant) - (find-package :elephant-backend) - (find-package :elephant-memutil) - (find-package :elephant-system))) + (let ((sc (make-instance 'simple-store-controller))) + (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) + (sb-texinfo:generate-includes #p"/Users/eslick/Work/fsrc/elephant-cvs/doc/includes/" + (find-package :elephant) + (find-package :elephant-backend) + (find-package :elephant-memutil) + (find-package :elephant-system)))) (make-docs) --- /project/elephant/cvsroot/elephant/doc/reference.texinfo 2007/03/30 14:34:34 1.7 +++ /project/elephant/cvsroot/elephant/doc/reference.texinfo 2007/03/30 23:36:52 1.8 @@ -110,12 +110,15 @@ @include includes/fun-elephant-get-value.texinfo @include includes/fun-elephant-setf-get-value.texinfo @include includes/fun-elephant-remove-kv.texinfo +@include includes/fun-elephant-map-btree.texinfo +@include includes/fun-elephant-map-index.texinfo @include includes/fun-elephant-add-index.texinfo @include includes/fun-elephant-get-index.texinfo @include includes/fun-elephant-get-primary-key.texinfo @include includes/fun-elephant-remove-index.texinfo + @node Cursors @comment node-name, next, previous, up @section Cursors @@ -125,7 +128,6 @@ @include includes/class-elephant-secondary-cursor.texinfo @include includes/fun-elephant-make-cursor.texinfo @include includes/fun-elephant-cursor-close.texinfo -@include includes/fun-elephant-map-btree.texinfo @include includes/macro-elephant-with-btree-cursor.texinfo @include includes/fun-elephant-cursor-current.texinfo @@ -163,15 +165,10 @@ @include includes/macro-elephant-with-transaction.texinfo -@include includes/var-elephant-star-auto-commit-star.texinfo -@include includes/var-elephant-star-current-transaction-star.texinfo -@include includes/fun-elephant-start-ele-transaction.texinfo -@include includes/fun-elephant-commit-transaction.texinfo -@include includes/fun-elephant-abort-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 +@include includes/fun-elephant-upgrade.texinfo

1 0

[elephant-cvs] CVS elephant
by ieslick 31 Mar '07

31 Mar '07

Update of /project/elephant/cvsroot/elephant In directory clnet:/tmp/cvs-serv15195 Modified Files: elephant.asd Log Message: Sanitize class indexing option; more documentation stuff --- /project/elephant/cvsroot/elephant/elephant.asd 2007/03/30 14:34:34 1.39 +++ /project/elephant/cvsroot/elephant/elephant.asd 2007/03/30 23:36:52 1.40 @@ -296,13 +296,13 @@ (:file "classes") (:file "cache") (:file "serializer") - (:file "serializer1") ;; 0.6.0 db's - (:file "serializer2") ;; 0.6.1 db's - (:file "unicode2") (:file "controller") (:file "collections") (:file "classindex-utils") (:file "classindex") + (:file "serializer1") ;; 0.6.0 db's + (:file "serializer2") ;; 0.6.1 db's + (:file "unicode2") (:file "migrate") (:file "backend")) :serial t

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 30 Mar '07

30 Mar '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv16927/src/elephant Modified Files: backend.lisp Log Message: Move utility to utilities, fix warning --- /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/03/30 14:55:54 1.13 +++ /project/elephant/cvsroot/elephant/src/elephant/backend.lisp 2007/03/30 17:46:14 1.14 @@ -86,6 +86,5 @@ #:slot-definition-name #:slots-and-values #:struct-slots-and-values - #:remove-indexed-element-and-adjust ))

1 0

[elephant-cvs] CVS elephant/src/utils
by ieslick 30 Mar '07

30 Mar '07

Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv16747/src/utils Modified Files: convenience.lisp package.lisp Log Message: Move utility to utilities, fix warning --- /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/03/06 04:15:27 1.5 +++ /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/03/30 17:45:42 1.6 @@ -69,3 +69,12 @@ make it a list if it's an atom" (if (listp elts) elts (list elts))) +(defun remove-indexed-element-and-adjust (idx array) + "Remove element at idx and adjust the array to + reduce array length by one" + (let ((last (- (length array) 1))) + (do ((i idx (1+ i))) + ((= i last) nil) + (progn + (setf (aref array i) (aref array (+ 1 i))))) + (adjust-array array last))) --- /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/03/06 04:15:27 1.5 +++ /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/03/30 17:45:42 1.6 @@ -37,4 +37,5 @@ #:aif #:awhen #:mklist - #:it)) + #:it + #:remove-indexed-element-and-adjust))

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 30 Mar '07

30 Mar '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv16747/src/elephant Modified Files: classindex.lisp variables.lisp Log Message: Move utility to utilities, fix warning --- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2007/03/30 14:34:35 1.34 +++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp 2007/03/30 17:45:41 1.35 @@ -71,6 +71,7 @@ (find-class-index (find-class class-name) :sc sc :errorp errorp)) (defmethod class-indexedp-by-name ((class-name symbol) &key (sc *store-controller*)) + (declare (ignore sc)) (let ((class (find-class class-name nil))) (when class (indexed class)))) --- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 17:28:50 1.12 +++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 17:45:41 1.13 @@ -69,17 +69,6 @@ (intern symbol :elephant)) '(get-cached-instance))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Utilities - -;; get rid of spot idx and adjust the arrray -(defun remove-indexed-element-and-adjust (idx array) - (let ((last (- (length array) 1))) - (do ((i idx (1+ i))) - ((= i last) nil) - (progn - (setf (aref array i) (aref array (+ 1 i))))) - (adjust-array array last)))

1 0

[elephant-cvs] CVS elephant/doc
by ieslick 30 Mar '07

30 Mar '07

Update of /project/elephant/cvsroot/elephant/doc In directory clnet:/tmp/cvs-serv13013/doc Modified Files: data-store-reference.texinfo Log Message: Fixed circular name dependency due to new asdf load order --- /project/elephant/cvsroot/elephant/doc/data-store-reference.texinfo 2007/03/30 14:34:34 1.2 +++ /project/elephant/cvsroot/elephant/doc/data-store-reference.texinfo 2007/03/30 17:28:50 1.3 @@ -67,11 +67,21 @@ @include includes/fun-elephant-backend-open-controller.texinfo @include includes/fun-elephant-backend-close-controller.texinfo - +For upgrading and opening legacy databases it is important that a +store be able to indicate which version of elephant was used to create +it. This governs the chosen serializer, mappings between elephant +symbols used in an old vs. new version, etc. Because this is called +to initialize the serializer, it must directly implemented by the +backend without using the serializer. @include includes/fun-elephant-backend-database-version.texinfo -These functions are important utilities for implementing +There are some utilities for serializing simple data without a +serializer using the memutil package. + +@include + +These functions are useful utilities for implementing store-controllers. @include includes/fun-elephant-backend-get-con.texinfo

1 0

[elephant-cvs] CVS elephant/src/elephant
by ieslick 30 Mar '07

30 Mar '07

Update of /project/elephant/cvsroot/elephant/src/elephant In directory clnet:/tmp/cvs-serv13013/src/elephant Modified Files: variables.lisp Log Message: Fixed circular name dependency due to new asdf load order --- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 14:34:35 1.11 +++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp 2007/03/30 17:28:50 1.12 @@ -58,6 +58,18 @@ "The transaction which is currently in effect.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Forward references +;; +;; Elephant needs to export these symbols in order to +;; properly load in asdf due to some circular dependencies +;; between lisp files + +(eval-when (load-toplevel compile-toplevel) + (mapcar (lambda (symbol) + (intern symbol :elephant)) + '(get-cached-instance))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Utilities ;; get rid of spot idx and adjust the arrray

1 0

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

30 Mar '07

Update of /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp In directory clnet:/tmp/cvs-serv7809/src/contrib/eslick/db-lisp Added Files: transactions.lisp Log Message: Some working files that were missing --- /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/transactions.lisp 2007/03/30 15:03:46 NONE +++ /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/transactions.lisp 2007/03/30 15:03:46 1.1 (in-package :db-lisp) ;; ;; Btree Locks and transaction log ;; (defclass mt-btree (btree) ((log :accessor btree-log :initarg :log :documentation "The transaction log")))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

elephant-cvs March 2007