blob: d6775141a84b87e309a2aab58ecee98540c4d6d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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))
|
