local _module_0 = { }
local a, b, c = 223, 343, 123
_module_0["a"], _module_0["b"], _module_0["c"] = a, b, c
local cool = "dad"
_module_0["cool"] = cool
local d, e, f = 3, 2, 1
_module_0[#_module_0 + 1] = d
_module_0[#_module_0 + 1] = e
_module_0[#_module_0 + 1] = f
local Something
do
local _class_0
local _base_0 = {
umm = "cool"
}
if _base_0.__index == nil then
_base_0.__index = _base_0
end
_class_0 = setmetatable({
__init = function() end,
__base = _base_0,
__name = "Something"
}, {
__index = _base_0,
__call = function(cls, ...)
local _self_0 = setmetatable({ }, _base_0)
cls.__init(_self_0, ...)
return _self_0
end
})
_base_0.__class = _class_0
Something = _class_0
end
_module_0["Something"] = Something
if this then
_module_0[#_module_0 + 1] = 232
else
_module_0[#_module_0 + 1] = 4343
end
local What
if this then
What = 232
else
What = 4343
end
_module_0["What"] = What
local y
y = function()
local hallo = 3434
end
_module_0["y"] = y
do
local _with_0 = tmp
local j = 2000
_module_0[#_module_0 + 1] = _with_0
end
local cbVal
do
local h = 100
cbVal = f(function(x)
return x(h)
end)
end
_module_0["cbVal"] = cbVal
y = function()
local h = 100
local k = 100
end
_module_0["y"] = y
do
local _exp_0 = h
if 100 == _exp_0 or 150 == _exp_0 then
_module_0[#_module_0 + 1] = 200
elseif 200 == _exp_0 then
_module_0[#_module_0 + 1] = 300
else
_module_0[#_module_0 + 1] = 0
end
end
local Constant
do
local _exp_0 = value
if "good" == _exp_0 then
Constant = 1
elseif "better" == _exp_0 then
Constant = 2
elseif "best" == _exp_0 then
Constant = 3
end
end
_module_0["Constant"] = Constant
local item = func(123)
_module_0["item"] = item
_module_0[#_module_0 + 1] = x
f((function()
if a then
return b
end
end)())
f((function()
return 123
end)())
f((function()
if b == a then
return c
end
end)())
f((function()
local _accum_0 = { }
local _len_0 = 1
for i = 1, 10 do
_accum_0[_len_0] = i
_len_0 = _len_0 + 1
end
return _accum_0
end)())
f((function()
local _accum_0 = { }
local _len_0 = 1
for i = 1, 10 do
_accum_0[_len_0] = i
_len_0 = _len_0 + 1
end
return _accum_0
end)())
f((function()
local _tbl_0 = { }
for k, v in pairs(tb) do
_tbl_0[k] = v
end
return _tbl_0
end)())
f((function()
local _accum_0 = { }
local _len_0 = 1
for k, v in pairs(tb) do
_accum_0[_len_0] = k, v
_len_0 = _len_0 + 1
end
return _accum_0
end)())
f((function()
local _accum_0 = { }
local _len_0 = 1
while a do
_accum_0[_len_0] = true
_len_0 = _len_0 + 1
end
return _accum_0
end)())
f((function()
a.b = 123
return a
end)())
f((function()
if a ~= nil then
return a.b
end
return nil
end)())
f((function()
local _base_0 = a
local _fn_0 = _base_0.b
return _fn_0 and function(...)
return _fn_0(_base_0, ...)
end
end)())
f((function()
local A
do
local _class_0
local _base_0 = { }
if _base_0.__index == nil then
_base_0.__index = _base_0
end
_class_0 = setmetatable({
__init = function() end,
__base = _base_0,
__name = "A"
}, {
__index = _base_0,
__call = function(cls, ...)
local _self_0 = setmetatable({ }, _base_0)
cls.__init(_self_0, ...)
return _self_0
end
})
_base_0.__class = _class_0
A = _class_0
return _class_0
end
end)())
local _ = tostring((function()
if a then
return b
end
end)())
_ = tostring((function()
return 123
end)())
_ = tostring((function()
if b == a then
return c
end
end)())
_ = tostring((function()
local _accum_0 = { }
local _len_0 = 1
for i = 1, 10 do
_accum_0[_len_0] = i
_len_0 = _len_0 + 1
end
return _accum_0
end)())
_ = tostring((function()
local _accum_0 = { }
local _len_0 = 1
for i = 1, 10 do
_accum_0[_len_0] = i
_len_0 = _len_0 + 1
end
return _accum_0
end)())
_ = tostring((function()
local _tbl_0 = { }
for k, v in pairs(tb) do
_tbl_0[k] = v
end
return _tbl_0
end)())
_ = tostring((function()
local _accum_0 = { }
local _len_0 = 1
for k, v in pairs(tb) do
_accum_0[_len_0] = k, v
_len_0 = _len_0 + 1
end
return _accum_0
end)())
_ = tostring((function()
local _accum_0 = { }
local _len_0 = 1
while a do
_accum_0[_len_0] = true
_len_0 = _len_0 + 1
end
return _accum_0
end)())
_ = tostring((function()
a.b = 123
return a
end)())
_ = tostring((function()
if a ~= nil then
return a.b
end
return nil
end)())
_ = tostring((function()
local _base_0 = a
local _fn_0 = _base_0.b
return _fn_0 and function(...)
return _fn_0(_base_0, ...)
end
end)())
_ = tostring((function()
local A
do
local _class_0
local _base_0 = { }
if _base_0.__index == nil then
_base_0.__index = _base_0
end
_class_0 = setmetatable({
__init = function() end,
__base = _base_0,
__name = "A"
}, {
__index = _base_0,
__call = function(cls, ...)
local _self_0 = setmetatable({ }, _base_0)
cls.__init(_self_0, ...)
return _self_0
end
})
_base_0.__class = _class_0
A = _class_0
return _class_0
end
end)())
local v1, v2, v3, v4, v5
v1 = 1
v2 = 2
_module_0["v2"] = v2
do
local _class_0
local _base_0 = { }
if _base_0.__index == nil then
_base_0.__index = _base_0
end
_class_0 = setmetatable({
__init = function() end,
__base = _base_0,
__name = "v4"
}, {
__index = _base_0,
__call = function(cls, ...)
local _self_0 = setmetatable({ }, _base_0)
cls.__init(_self_0, ...)
return _self_0
end
})
_base_0.__class = _class_0
v4 = _class_0
v3 = _class_0
end
_module_0["v3"] = v3
v5 = 5
return _module_0