blob: b43c3f66d40687499a0e43b838dea8b8e63d18b4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(
#comment
(let mr_source (DataSource 'yt 'plato))
(let filter1 (lambda '(name) (And (>= name (String '"Input1")) (<= name (String '"Input1")))))
(let filter3 (lambda '(name) (And (>= name (String '"Input3")) (<= name (String '"Input3")))))
(let x (Read! world mr_source (MrTableConcat
(Key '('table (MrTableRange '"" filter1)))
(Key '('table (MrTableRange '"" filter3))))
(Void) '()))
(let world (Left! x))
(let tables (Right! x))
(let tables (Sort tables '((Bool 'true) (Bool 'true)) (lambda '(item) '((Member item 'key) (Member item 'subkey)))))
(let mr_sink (DataSink 'yt (quote plato)))
(let world (Write! world mr_sink (Key '('table (String 'Output))) tables '()))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink (Key) tables '()))
(let world (Commit! world mr_sink))
(let world (Commit! world res_sink))
(return world)
)
|
