diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 03:22:34 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 23:45:29 +0200 |
commit | f82286eabe54ad58dc32df81fd3dcbb4e2bb2e65 (patch) | |
tree | c791ad35d990a8cc8e1b2f202ec86a426969bea2 /module/vcomponent/data-stores/common.scm | |
parent | Minor style change. (diff) | |
download | calp-f82286eabe54ad58dc32df81fd3dcbb4e2bb2e65.tar.gz calp-f82286eabe54ad58dc32df81fd3dcbb4e2bb2e65.tar.xz |
Put base for new store-load interface.
Diffstat (limited to 'module/vcomponent/data-stores/common.scm')
-rw-r--r-- | module/vcomponent/data-stores/common.scm | 26 |
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)) |