BinaryDataLiterals.yqls 566 B

123456789101112131415161718192021222324
  1. (
  2. #comment
  3. (let config (DataSource 'config))
  4. (let res_sink (DataSink 'result))
  5. (let data (Bool 'x"00"))
  6. (let world (Write! world res_sink (Key) data '()))
  7. (let data (Int16 'x"FEFF"))
  8. (let world (Write! world res_sink (Key) data '()))
  9. (let data (Double 'x"722078DC7BF042D3"))
  10. (let world (Write! world res_sink (Key) data '()))
  11. (let data (Date 'x"0100"))
  12. (let world (Write! world res_sink (Key) data '()))
  13. (let data (TzTimestamp 'x"0000F9BCF768AC000001"))
  14. (let world (Write! world res_sink (Key) data '()))
  15. (let world (Commit! world res_sink))
  16. (return world)
  17. )