循环 – 成对的Lua与写入的顺序相同

编辑(早期代码在更新时插入了密钥的多个副本)

要做到这一点,你可以使用我们被调用的__newindex,只要索引没有添加到表中. ordered_add方法在隐藏表_keys和_values中更新,删除或存储密钥.请注意,当我们更新密钥时,也会始终调用__newindex,因为我们没有将值存储在表中,而是将其存储在“隐藏”表_keys和_values中.

但请注意,我们不能在此表中使用任何键,键名“_keys”将覆盖我们的隐藏表,因此更安全的替代方法是使用ordered_table.insert(t,key,value)ordered_table.index(t,key)和ordered_table.remove(t,key)方法.

ordered_table = {}

function ordered_table.insert(t,k,v)
  if not rawget(t._values,k) then -- new key 
    t._keys[#t._keys + 1] = k
  end
  if v == nil then -- delete key too.
    ordered_table.remove(t,k)
  else -- update/store value
    t._values[k] = v 
  end
end

local function find(t,value)
  for i,v in ipairs(t) do
    if v == value then
      return i
    end
  end
end  

function ordered_table.remove(t,k)
  local v = t._values[k]
  if v ~= nil then
    table.remove(t._keys,find(t._keys,k))
    t._values[k] = nil
  end
  return v
end

function ordered_table.index(t,k)
    return rawget(t._values,k)
end

function ordered_table.pairs(t)
  local i = 0
  return function()
    i = i + 1
    local key = t._keys[i]
    if key ~= nil then
      return key,t._values[key]
    end
  end
end

function ordered_table.new(init)
  init = init or {}
  local t = {_keys={},_values={}}
  local n = #init
  if n % 2 ~= 0 then
    error"in ordered_table initialization: key is missing value"
  end
  for i=1,n/2 do
    local k = init[i * 2 - 1]
    local v = init[i * 2]
    if t._values[k] ~= nil then
      error("duplicate key:"..k)
    end
    t._keys[#t._keys + 1]  = k
    t._values[k] = v
  end
  return setmetatable(t,{__newindex=ordered_table.insert,__len=function(t) return #t._keys end,__pairs=ordered_table.pairs,__index=t._values
    })
end

--- Example Usage:
local t = ordered_table.new{
  "hello",1,-- key,value pairs
  2,2,50,3,"bye",4,200,5
}

print(#t)
print("hello is",t.hello)
print()
for k,v in pairs(t) do  --- Lua 5.2 __pairs metamethod
  print(k,v)
end
t.bye = nil -- delete that
t[2] = 7 -- use integer keys
print(#t)