qlib.lua

local X = {}

function len(t)
  local i = 1
  while t[i] ~= nil do i = i + 1 end
  return i
end
X.len = len

function keysvals(t)
  local i = 1
  local ks = {}
  local vs = {}
  for k,v in pairs(t) do
    ks[i] = k; vs[i] = v; i = i + 1
  end
  return ks,vs
end
X.keysvals = keysvals

function tprint(t)
  local i = 1
  local ks
  local vs
  ks,vs = keysvals(t)
  while ks[i] ~= nil do
    print(ks[i].." : "..vs[i])
  end
end
X.tprint = tprint

return X