[elephant-cvs] CVS update: elephant/src/controller.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv30603/src

Modified Files:
	controller.lisp 
Log Message:
missing generic warnings, open/close-store

Date: Sun Aug 29 09:48:34 2004
Author: blee

Index: elephant/src/controller.lisp
diff -u elephant/src/controller.lisp:1.4 elephant/src/controller.lisp:1.5
--- elephant/src/controller.lisp:1.4	Sat Aug 28 08:39:56 2004
+++ elephant/src/controller.lisp	Sun Aug 29 09:48:34 2004
@@ -53,6 +53,15 @@
 creation, counters, locks, the root and garbage collection,
 et cetera."))
 
+(defgeneric add-to-root (sc key value))
+(defgeneric get-from-root (sc key))
+(defgeneric remove-from-root (sc key))
+(defgeneric cache-instance (sc obj))
+(defgeneric get-cached-instance (sc oid class-name))
+(defgeneric next-oid (sc))
+(defgeneric open-controller (sc &key recover recover-fatal thread))
+(defgeneric close-controller (sc))
+
 (defmethod add-to-root ((sc store-controller) key value)
   "Add an arbitrary persistent thing to the root, so you can
 retrieve it in a later session.  Keys may be arbitrary
@@ -154,3 +163,9 @@
 	 , at body)
      (close-controller ,sc)))
 
+(defun open-store (path)
+  (setq *store-controller* (make-instance 'store-controller :path path))
+  (open-controller *store-controller*))
+
+(defun close-store ()
+  (close-controller *store-controller*))
\ No newline at end of file