As promised yesterday I added a cells-store facility to cells. The
code can be found at the bottom of md-utilities in CVS.
Basically, this is a cells-aware hash table with some syntactic sugar.
Here's part of the test function included in md-utilities:
(defun test-cells-store ()
(trc "testing cells-store -- making objects")
(let* ((store (make-instance 'cells-store))
(foo (make-instance 'test-store-item :value (c?-with-stored (v :foo
store 'nothing)
(bwhen (val (value v))
val))))
(foo+1 (make-instance 'test-store-item :value (c?-with-stored (v
:foo store 'nothing)
(bwhen (val (value v))
(1+ val))))))
(store-add :foo store (make-instance 'family :value (c-in nil)))
(setf (value (store-lookup :foo store)) 1)
(store-remove :foo store))
So you create a ruled cell with c?-with-stored. This can happen
before or after key is added to the cells-store. When the rule is the
executed, when an object is added or removed from key in the hash
table *or* when any of the cells on the object change. The rule is
not executed, if other stuff in the hash table changes.
The (c?-with-stored (var key store &optional default) &body body)
macro works like bwhen -- that is, if key is present, body is executed
with var bound to the object identified by key -- and if not, default
is returned. That means, body can assume that var is bound to a valid
object (like in the example, it is safe to call value on it, if you
know that you only store family instances in the store)
Calling store-remove will reset all dependent cells to their default.
The change is propagated as soon as store-add, setf, or store-remove
are called -- meaning that observers will do the expected thing.
Maybe someone will find it useful.
Peter
_______________________________________________
cells-devel site list
cells-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/cells-devel
