UseEmptyDict.yqls 643 B

12345678910111213141516171819
  1. (
  2. #comment
  3. (let config (DataSource 'config))
  4. (let res_sink (DataSink 'result))
  5. (let ed (Dict (DictType (DataType 'Int32) (DataType 'String))))
  6. (let data (Lookup ed (Int32 '0)))
  7. (let world (Write! world res_sink (Key) data '('('type))))
  8. (let data (Contains ed (Int32 '0)))
  9. (let world (Write! world res_sink (Key) data '('('type))))
  10. (let data (DictItems ed))
  11. (let world (Write! world res_sink (Key) data '('('type))))
  12. (let data (DictKeys ed))
  13. (let world (Write! world res_sink (Key) data '('('type))))
  14. (let data (DictPayloads ed))
  15. (let world (Write! world res_sink (Key) data '('('type))))
  16. (let world (Commit! world res_sink))
  17. (return world)
  18. )