Weak表是一种用来告诉Lua一个引用不应该防止对象被回收的机制。
一个weak引用是指一个不被Lua认为是垃圾的对象的引用。
一个对象所有的引用指向都是weak，对象将被收集，而那些weak引用将会被删除。
表的weak性由他的metatable的__mode域来指定的。key和value只要有任何一个被回收，整个key-value都将消失。

  2. a, b = {}, {}
  3. setmetatable(a, b)
  4. b.__mode = "k"            -- 表a是一个key为weak引用的weak表
  6. key = {}                        -- lua不会自动回收全局变量，只能显示的key=nil删除。
  7. a[key] = 1
  8. key = {}
  9. a[key] = 2                    -- 被覆盖的key将被回收。也就是第一个key:1键值对将消失。
  11. a[{}] = 1                        -- 将别回收
  12. a[1]    = 2                        -- 数值型的key不会被回收。
  13. a["a"]    = 2                    -- string型的key不会被回收。
  15. collectgarbage()        -- forces a garbage collection cycle

记忆函数

常见的，我们用一个table来缓存数据，但是如果缓存的数据过了段时间在外部没有被使用了（引用），我们可以把这部分缓存给清理掉。weak表的特性就可以很好的满足。

  1. ------------------缓存编译的chunk块------------------
  2. local results = {}
  3. setmetatable(results, {__mode = \"v\"})
  5. function mem_loadstring (s)
  6.     if results[s] then
  7.         return results[s]
  8.     else
  9.         local res = loadstring(s)
  10.         results[s] = res
  11.         return res
  12.     end
  13. end
  15. ------------------缓存RGB色值------------------
  16. local results = {}
  17. setmetatable(results, {__mode = \"v\"})    -- make values weak
  18. function createRGB (r, g, b)
  19.     local key = r .. \"-\" .. g .. \"-\" .. b
  20.     if results[key] then return results[key]
  21.     else
  22.         local newcolor = {red = r, green = g, blue = b}
  23.         results[key] = newcolor
  24.         return newcolor
  25.     end
  26. end

带默认值的表

它们都有相似的复杂性和相似的性能。第一种方法需要在每个默认值的tables中添加一些文字（一个默认的入口）。第二种方法需要在每个不同的默认值加入一些文字（一个新的表，一个新的闭包，metas中新增入口）。所以，如果你的程序有数千个tables，而这些表只有很少数带有不同默认值的，第二种方法显然更优秀。另一方面，如果只有很少的tables可以共享相同的默认vaules，那么你还是用第一种方法吧。

  1. -- 一个weak table保存所有对象的默认值，key是弱引用
  2. -- key：对象，value：默认值
  3. --defaults = {
  4. --    [object] = default        --object weak
  5. --}
  6. local defaults = {}
  7. setmetatable(defaults, {__mode = \"k\"})
  8. local mt = {__index = function (t) return defaults[t] end}
  10. function setDefault (t, d)
  11.     defaults[t] = d
  12.     setmetatable(t, mt)
  13. end
  15. --metas = {
  16. --        [default] : metatable     --metatable weak
  17. --       }
  18. local metas = {}
  19. setmetatable(metas, {__mode = \"v\"})
  20. function setDefault (t, d)
  21.     local mt = metas[d]
  22.     if mt == nil then
  23.         mt = {__index = function () return d end}
  24.         metas[d] = mt        -- memoize
  25.     end
  26.     setmetatable(t, mt)
  27. end