blob: d7d096c666dc2dbc13607316244bc7319133d5e6 (
plain) (
blame)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
(
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let res_sink (DataSink 'result))
(let value (AsStruct '('akey1 (Int8 '1)) '('bkey2 (String 'str)) '('c (Int32 '2))))
(let prefixes '('a 'b))
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct '('akey1 (Int8 '1)) '('bkey2 (String 'str)) '('c (Int32 '2))))
(let prefixes '('b 'a '""))
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct '('akey1 (Int8 '1)) '('bkey2 (String 'str)) '('c (Int32 '2))))
(let prefixes '('b 'a 'ak '""))
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct '('akey1 (Int8 '1)) '('bkey2 (String 'str)) '('c (Int32 '2))))
(let prefixes '('""))
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct '('akey1 (Int8 '1)) '('bkey2 (String 'str)) '('c (Int32 '2))))
(let prefixes '())
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct))
(let prefixes '('""))
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let value (AsStruct))
(let prefixes '())
(let result (DivePrefixMembers value prefixes))
(let world (Write! world res_sink (Key) result '('('type))))
(let world (Commit! world res_sink))
(return world)
)
|
