From f82286eabe54ad58dc32df81fd3dcbb4e2bb2e65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Feb 2023 03:22:34 +0100
Subject: Put base for new store-load interface.

---
 module/vcomponent/data-stores/common.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 module/vcomponent/data-stores/common.scm

(limited to 'module/vcomponent/data-stores/common.scm')

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))
-- 
cgit v1.2.3