aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/data-stores/common.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/data-stores/common.scm')
-rw-r--r--module/vcomponent/data-stores/common.scm26
1 files changed, 26 insertions, 0 deletions
diff --git a/module/vcomponent/data-stores/common.scm b/module/vcomponent/data-stores/common.scm
new file mode 100644
index 00000000..d6775141
--- /dev/null
+++ b/module/vcomponent/data-stores/common.scm
@@ -0,0 +1,26 @@
+(define-module (vcomponent data-stores common)
+ :use-module ((srfi srfi-88) :select ())
+ :use-module (oop goops)
+ :export (<calendar-data-store>
+ path
+ get-all
+ get-by-uid))
+
+
+(define-class <calendar-data-store> ()
+ (path init-keyword: path:
+ getter: path)
+ )
+
+
+(define-method (get-all (this <calendar-data-store>))
+ (scm-error 'not-implemented "get-all"
+ "Get-all is not implemented for ~s"
+ (list (class-of this))
+ #f))
+
+(define-method (get-by-uid (this <calendar-data-store>) (uid <string>))
+ (scm-error 'not-implemented "get-by-uid"
+ "Get-by-uid is not implemented for ~s"
+ (list (class-of this))
+ #f))