fix table pattern matching. confirm fixing issue #116.

1 files changed, 22 insertions, 11 deletions

diff --git a/spec/outputs/destructure.lua b/spec/outputs/destructure.lua
index f40a658..8953a2a 100644
--- a/spec/outputs/destructure.lua
+++ b/spec/outputs/destructure.lua
@@ -472,7 +472,8 @@ do
         end
         do
                 local _exp_0 = tb
-                local _tab_0 = "table" == type(_exp_0)
+                local _tab_0 = type(_exp_0)
+                _tab_0 = "table" == _tab_0 or "userdata" == _tab_0
                 if _tab_0 then
                         local name, meta_field
                         do
@@ -531,14 +532,17 @@ do
         end
         do
                 local _exp_0 = tb
-                local _tab_0 = "table" == type(_exp_0)
+                local _tab_0 = type(_exp_0)
+                _tab_0 = "table" == _tab_0 or "userdata" == _tab_0
                 if _tab_0 then
                         do
                                 local _obj_0 = _exp_0.a
-                                if _obj_0 ~= nil then
+                                local _type_0 = type(_obj_0)
+                                if "table" == _type_0 or "userdata" == _type_0 then
                                         do
                                                 local _obj_1 = getmetatable(_obj_0)
-                                                if _obj_1 ~= nil then
+                                                local _type_1 = type(_obj_1)
+                                                if "table" == _type_1 or "userdata" == _type_1 then
                                                         add = _obj_1.__add
                                                 end
                                         end
@@ -546,10 +550,12 @@ do
                         end
                         do
                                 local _obj_0 = _exp_0.b
-                                if _obj_0 ~= nil then
+                                local _type_0 = type(_obj_0)
+                                if "table" == _type_0 or "userdata" == _type_0 then
                                         do
                                                 local _obj_1 = getmetatable(_obj_0)
-                                                if _obj_1 ~= nil then
+                                                local _type_1 = type(_obj_1)
+                                                if "table" == _type_1 or "userdata" == _type_1 then
                                                         field = _obj_1[fieldName]
                                                 end
                                         end
@@ -566,15 +572,18 @@ do
         end
         do
                 local _exp_0 = tb
-                local _tab_0 = "table" == type(_exp_0)
+                local _tab_0 = type(_exp_0)
+                _tab_0 = "table" == _tab_0 or "userdata" == _tab_0
                 if _tab_0 then
                         local _obj_0 = _exp_0
                         do
                                 local _obj_1 = _obj_0.c
-                                if _obj_1 ~= nil then
+                                local _type_0 = type(_obj_1)
+                                if "table" == _type_0 or "userdata" == _type_0 then
                                         do
                                                 local _obj_2 = getmetatable(_obj_1)
-                                                if _obj_2 ~= nil then
+                                                local _type_1 = type(_obj_2)
+                                                if "table" == _type_1 or "userdata" == _type_1 then
                                                         meta_field = _obj_2["abc"]
                                                 end
                                         end
@@ -587,13 +596,15 @@ do
                                 local _obj_1 = getmetatable(_obj_0)
                                 do
                                         local _obj_2 = _obj_1[ [[any string]]]
-                                        if _obj_2 ~= nil then
+                                        local _type_0 = type(_obj_2)
+                                        if "table" == _type_0 or "userdata" == _type_0 then
                                                 abc = _obj_2.d
                                         end
                                 end
                                 do
                                         local _obj_2 = _obj_1['str']
-                                        if _obj_2 ~= nil then
+                                        local _type_0 = type(_obj_2)
+                                        if "table" == _type_0 or "userdata" == _type_0 then
                                                 def = _obj_2.e
                                         end
                                 end