equal-5bb8dbf.lua 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. -- The MIT License (MIT)
  2. --
  3. -- Copyright (c) 2014, Cyril David <cyx@cyx.is>
  4. --
  5. -- Permission is hereby granted, free of charge, to any person obtaining a copy
  6. -- of this software and associated documentation files (the "Software"), to deal
  7. -- in the Software without restriction, including without limitation the rights
  8. -- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  9. -- copies of the Software, and to permit persons to whom the Software is
  10. -- furnished to do so, subject to the following conditions:
  11. --
  12. -- The above copyright notice and this permission notice shall be included in
  13. -- all copies or substantial portions of the Software.
  14. --
  15. -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16. -- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17. -- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  18. -- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  19. -- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20. -- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  21. -- THE SOFTWARE.
  22. local function equal(x, y)
  23. local t1, t2 = type(x), type(y)
  24. -- Shortcircuit if types not equal.
  25. if t1 ~= t2 then return false end
  26. -- For primitive types, direct comparison works.
  27. if t1 ~= 'table' and t2 ~= 'table' then return x == y end
  28. -- Since we have two tables, make sure both have the same
  29. -- length so we can avoid looping over different length arrays.
  30. if #x ~= #y then return false end
  31. -- Case 1: check over all keys of x
  32. for k,v in pairs(x) do
  33. if not equal(v, y[k]) then return false end
  34. end
  35. -- Case 2: check over `y` this time.
  36. for k,v in pairs(y) do
  37. if not equal(v, x[k]) then return false end
  38. end
  39. return true
  40. end
  41. return equal