redesigned metatable syntax. add support for destructuring a field with string and expression

2 files changed, 94 insertions, 0 deletions

diff --git a/spec/outputs/destructure.lua b/spec/outputs/destructure.lua
index dfac42c..0da920e 100644
--- a/spec/outputs/destructure.lua
+++ b/spec/outputs/destructure.lua
@@ -428,3 +428,64 @@ do
                 y2, y3 = _obj_0.y2, _obj_0.y3
         end
 end
+do
+        local v1, v2, v3, v4
+        do
+                local _obj_0 = tb
+                local _tmp_0, _tmp_1 = 1 + 1, self.x
+                v1, v2, v3, v4 = _obj_0[ [["abc"]]], _obj_0[_tmp_0][1], _obj_0[_tmp_0][2], _obj_0[_tmp_1]
+                if v1 == nil then
+                        v1 = 111
+                end
+                if v2 == nil then
+                        v2 = 222
+                end
+                if v3 == nil then
+                        v3 = 333
+                end
+                if v4 == nil then
+                        v4 = 444
+                end
+        end
+        local v5, v6, v7
+        do
+                local _obj_0 = tb2
+                local _tmp_2, _tmp_3 = func(), func2()
+                v5, v6, v7 = _obj_0['x-y-z'], _obj_0[_tmp_2][_tmp_3], _obj_0[_tmp_2][1]
+        end
+end
+do
+        local _obj_0 = tb
+        local value = _obj_0[name]
+        local value_meta = getmetatable(_obj_0)[name]
+end
+do
+        local tostring, add
+        do
+                local _obj_0 = getmetatable(tb)
+                tostring, add = _obj_0.__tostring, _obj_0.__add
+                if tostring == nil then
+                        tostring = (function()
+                                return "name"
+                        end)
+                end
+        end
+        local _exp_0 = tb
+        do
+                local _tab_0 = "table" == type(_exp_0)
+                if _tab_0 then
+                        local name, meta_field
+                        do
+                                local _obj_0 = getmetatable(_exp_0)
+                                name = _obj_0.__name
+                                meta_field = _obj_0["123"]
+                                if name == nil then
+                                        name = "item"
+                                end
+                        end
+                        if meta_field ~= nil then
+                                return print(name, meta_field)
+                        end
+                end
+        end
+end
diff --git a/spec/outputs/metatable.lua b/spec/outputs/metatable.lua
index 6f5ceed..937136f 100644
--- a/spec/outputs/metatable.lua
+++ b/spec/outputs/metatable.lua
@@ -111,4 +111,37 @@ do
                 ctor, update = _obj_0.new, _obj_0.update
         end
 end
+local tb = { }
+do
+        do
+                local _obj_0 = getmetatable(tb)
+                f = _obj_0["value" .. tostring(x < y)](_obj_0, 123, ...)
+        end
+        f((function(...)
+                local _obj_0 = getmetatable(tb)
+                return _obj_0['value'](_obj_0, 123, ...)
+        end)(...))
+        do
+                local _obj_0 = getmetatable(tb)
+                _obj_0[ [[              value
+                1
+        ]]](_obj_0, 123, ...)
+        end
+        local _obj_0 = getmetatable(tb)
+        return _obj_0["value" .. tostring(x > y)](_obj_0, 123, ...)
+end
+do
+        f = getmetatable(tb):__value(123, ...)
+        f(getmetatable(tb):__value(123, ...))
+        getmetatable(tb):__value(123, ...)
+        return getmetatable(tb):__value(123, ...)
+end
+do
+        f = getmetatable(tb).__value(123, ...)
+        f = getmetatable(tb)["value" .. tostring(x < y)](123, ...)
+        f(getmetatable(tb)['value'](123, ...))
+        getmetatable(tb)[ [[ value
+1]]](123, ...)
+        return getmetatable(tb)["value" .. tostring(x > y)](123, ...)
+end
 return nil