blob: ebb3504e25a5e21225aabd439ee148a6b7c16421 (
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
|
; Shopping cart implementation
(define (post item)
(uuid)
)
(define (getall)
(cons "Sample Feed" (cons (uuid) '()))
)
(define (get id)
(define entry (list (list 'name "Apple") (list 'currencyCode "USD") (list 'currencySymbol "$") (list 'price 2.99)))
(cons "Item" (list id entry))
)
(define (delete id)
true
)
(define (gettotal)
11.0
)
; TODO remove these JSON-RPC specific functions
(define (system.listMethods) (list "Service.getTotal"))
(define Service.getTotal gettotal)
|