blob: 00d991912a8eb14b00ed45c92527bd20e2495963 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(
(let source (DataSource '"yt" '"plato"))
(let sink (DataSink '"yt" '"plato"))
(let r (Read! world source (Key '('table (String '"Input"))) (Void) '()))
(let world (Left! r))
(let input (Right! r))
(let world (Write! world sink (Key '('table (String 'Output))) input '('('mode 'renew))))
(let r (Read! world source (Key '('table (String '"Input"))) (Void) '()))
(let world (Left! r))
(let input (Right! r))
(let world (Write! world sink (Key '('table (String 'Output))) input '('('mode 'append))))
(let world (Commit! world sink))
(return world)
)
|
