blob: a7f866706740e707dc83e4a2bf7504aca71c2413 (
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
|
(
#comment
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let res_sink (DataSink 'result))
(let test (lambda '(world type) (block '(
(let world (Write! world res_sink (Key) (Default (DataType type)) '('('type))))
(let world (Write! world res_sink (Key) (Default (OptionalType (DataType type))) '('('type))))
(return world)
))))
(let world (Apply test world 'Bool))
(let world (Apply test world 'Int8))
(let world (Apply test world 'Uint8))
(let world (Apply test world 'Int16))
(let world (Apply test world 'Uint16))
(let world (Apply test world 'Int32))
(let world (Apply test world 'Uint32))
(let world (Apply test world 'Int64))
(let world (Apply test world 'Uint64))
(let world (Apply test world 'Float))
(let world (Apply test world 'Double))
(let world (Apply test world 'String))
(let world (Apply test world 'Utf8))
# yson & json don't have a default value
(let world (Apply test world 'Date))
(let world (Apply test world 'Datetime))
(let world (Apply test world 'Timestamp))
(let world (Apply test world 'Interval))
(let world (Apply test world 'TzDate))
(let world (Apply test world 'TzDatetime))
(let world (Apply test world 'TzTimestamp))
(let world (Apply test world 'Uuid))
(let world (Commit! world res_sink))
(return world)
)
|
