blob: a326656deb5ad5ca5b38d215dba99e02505ef96c (
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
|
(
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let res_sink (DataSink 'result))
(let data (AsList (Int32 '1)))
(let data (Append data (Uint8 '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let data (AsList (Uint32 '1)))
(let data (Append data (Uint8 '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let data (AsList (Uint64 '1)))
(let data (Append data (Uint8 '2)))
(let data (Append data (Uint32 '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let data (AsList (Int64 '1)))
(let data (Append data (Uint8 '2)))
(let data (Append data (Int32 '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let data (AsList (Float '1)))
(let data (Append data (Uint8 '2)))
(let data (Append data (Int32 '2)))
(let data (Append data (Uint32 '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let data (AsList (Double '1)))
(let data (Append data (Uint8 '2)))
(let data (Append data (Int32 '2)))
(let data (Append data (Uint32 '2)))
(let data (Append data (Int64 '2)))
(let data (Append data (Uint64 '2)))
(let data (Append data (Float '2)))
(let world (Write! world res_sink (Key) data '('('type))))
(let world (Commit! world res_sink))
(return world)
)
|
