AutoConvertByMinusContent.yql 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. (
  2. (let config (DataSource 'config))
  3. (let world (Configure! world config 'PureDataSource 'yt))
  4. (let res_sink (DataSink 'result))
  5. (let data (AsList (Uint8 '1)))
  6. (let data (Append data (Minus (Int32 '-2))))
  7. (let data (Append data (Minus (Uint32 'x"FCFFFFFF"))))
  8. (let data (Append data (Minus (Int64 '-2))))
  9. (let data (Append data (Minus (Uint64 'x"FCFFFFFFFFFFFFFF"))))
  10. (let world (Write! world res_sink (Key) data '('('type))))
  11. (let data (AsList (Int32 '1)))
  12. (let data (Append data (Minus (Int32 '-2))))
  13. (let data (Append data (Minus (Int32 '2))))
  14. (let data (Append data (Minus (Uint32 'x"FCFFFFFF"))))
  15. (let data (Append data (Minus (Int64 '-2))))
  16. (let data (Append data (Minus (Int64 '2))))
  17. (let data (Append data (Minus (Uint64 'x"FCFFFFFFFFFFFFFF"))))
  18. (let world (Write! world res_sink (Key) data '('('type))))
  19. (let data (AsList (Uint32 '1)))
  20. (let data (Append data (Minus (Int32 '-2))))
  21. (let data (Append data (Minus (Uint32 'x"FCFFFFFF"))))
  22. (let data (Append data (Minus (Int64 '-2))))
  23. (let data (Append data (Minus (Uint64 'x"FCFFFFFFFFFFFFFF"))))
  24. (let world (Write! world res_sink (Key) data '('('type))))
  25. (let data (AsList (Int64 '1)))
  26. (let data (Append data (Minus (Int32 '-2))))
  27. (let data (Append data (Minus (Int32 '2))))
  28. (let data (Append data (Minus (Uint32 'x"FCFFFFFF"))))
  29. (let data (Append data (Minus (Int64 '-2))))
  30. (let data (Append data (Minus (Int64 '2))))
  31. (let data (Append data (Minus (Uint64 'x"FCFFFFFFFFFFFFFF"))))
  32. (let world (Write! world res_sink (Key) data '('('type))))
  33. (let data (AsList (Uint64 '1)))
  34. (let data (Append data (Minus (Int32 '-2))))
  35. (let data (Append data (Minus (Uint32 'x"FCFFFFFF"))))
  36. (let data (Append data (Minus (Int64 '-2))))
  37. (let data (Append data (Minus (Uint64 'x"FCFFFFFFFFFFFFFF"))))
  38. (let world (Write! world res_sink (Key) data '('('type))))
  39. (let world (Commit! world res_sink))
  40. (return world)
  41. )