AutoConvertByMinusContent.yqls 1.8 KB

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