do
local a, b
do
local _obj_0 = hello
a, b = _obj_0[1], _obj_0[2]
end
local c
do
local _obj_0 = hello
a, b, c = _obj_0[1][1], _obj_0[2], _obj_0[3][1]
end
local hello, world
do
local _obj_0 = value
hello, world = _obj_0.hello, _obj_0.world
end
end
do
local no, thing
do
local _obj_0 = world
no, thing = _obj_0.yes, _obj_0[1]
end
local a, b, c, d
do
local _obj_0 = yeah
a, b, c, d = _obj_0.a, _obj_0.b, _obj_0.c, _obj_0.d
end
local _ = two
a = one[1]
c = nil
b = one[1]
local e = two
d = one[1]
local x = one
local y = two[1]
local xx, yy = 1, 2
do
local _obj_0 = {
xx,
yy
}
yy, xx = _obj_0[1], _obj_0[2]
end
local f, g
do
local _obj_0 = tbl
a, b, c, d, e, f, g = _obj_0[1], _obj_0.b, _obj_0[2], _obj_0.d, _obj_0[3], _obj_0.f, _obj_0[4]
end
do
c = nil
do
local _obj_0 = tbl
a, b = _obj_0.a, _obj_0.b
end
end
do
a = tbl
b, c = _.b, _.c
end
do
b = _
a = tbl.a
c = _.c
end
end
do
local futurists = {
sculptor = "Umberto Boccioni",
painter = "Vladimir Burliuk",
poet = {
name = "F.T. Marinetti",
address = {
"Via Roma 42R",
"Bellagio, Italy 22021"
}
}
}
do
local name, street, city = futurists.poet.name, futurists.poet.address[1], futurists.poet.address[2]
end
do
local sculptor, painter, name, street, city = futurists.sculptor, futurists.painter, futurists.poet.name, futurists.poet.address[1], futurists.poet.address[2]
end
end
do
local c, e
do
local _obj_0 = tb
c, e = _obj_0.a.b, _obj_0.a.d
end
end
do
local c, e, f
do
local _obj_0 = tb
c, e, f = _obj_0.a[1].b, _obj_0.a[2].d, _obj_0.a[3]
end
end
do
self.world = x[1]
do
local _obj_0 = x
a.b, c.y, func().z = _obj_0[1], _obj_0[2], _obj_0[3]
end
self.world = x.world
end
do
local thing = {
{
1,
2
},
{
3,
4
}
}
for _index_0 = 1, #thing do
local _des_0 = thing[_index_0]
local x, y = _des_0[1], _des_0[2]
print(x, y)
end
end
do
do
local _with_0 = thing
local a, b = _with_0[1], _with_0[2]
print(a, b)
end
end
do
local thing = nil
if thing then
local a = thing[1]
print(a)
else
print("nothing")
end
local thang = {
1,
2
}
if thang then
local a, b = thang[1], thang[2]
print(a, b)
end
if thing then
local a, b = thing[1], thing[2]
print(a, b)
else
if thang then
local c, d = thang[1], thang[2]
print(c, d)
else
print("NO")
end
end
end
do
local z = "yeah"
local a, b, c = z[1], z[2], z[3]
end
do
local a, b, c
do
local _obj_0 = z
a, b, c = _obj_0[1], _obj_0[2], _obj_0[3]
end
end
local _
_ = function(z)
local a, b, c = z[1], z[2], z[3]
end
do
local z = "oo"
_ = function(k)
local a, b, c = z[1], z[2], z[3]
end
end
do
local endVar = thing["function"]["end"]
end
do
local a, b, c
do
local _obj_0 = thing
a, b, c = _obj_0["if"][1], _obj_0["if"][2], _obj_0["if"][3]
end
end
do
local a, b
if true then
do
local _obj_0 = {
a = "Hello",
b = "World"
}
a, b = _obj_0.a, _obj_0.b
end
end
local days, hours, mins, secs
do
local _accum_0 = { }
local _len_0 = 1
local _list_0 = {
string.match("1 2 3 4", "(.+)%s(.+)%s(.+)%s(.+)")
}
for _index_0 = 1, #_list_0 do
local a = _list_0[_index_0]
_accum_0[_len_0] = tonumber(a)
_len_0 = _len_0 + 1
end
days, hours, mins, secs = _accum_0[1], _accum_0[2], _accum_0[3], _accum_0[4]
end
local one, two, three
do
local _tbl_0 = { }
for w in foo:gmatch("%S+") do
_tbl_0[w] = true
end
one, two, three = _tbl_0.one, _tbl_0.two, _tbl_0.three
end
b = 123
a = (a["if"](a, 123) + t).a
end
do
local name, job
do
local _obj_0 = person
name, job = _obj_0.name, _obj_0.job
if name == nil then
name = "nameless"
end
if job == nil then
job = "jobless"
end
end
local request
request = function(url, options)
if options == nil then
options = { }
end
local method, headers, parameters, payload, ok, err, final = options.method, options.headers, options.parameters, options.payload, options.ok, options.err, options.final
if method == nil then
method = "GET"
end
if headers == nil then
headers = { }
end
if parameters == nil then
parameters = { }
end
if payload == nil then
payload = ""
end
local res = makeRequest(url, method, parameters, payload, ok, err, final)
return res
end
local value1, key3
do
local _obj_0 = tb
value1, key3 = _obj_0.key1.key2, _obj_0.key3
if value1 == nil then
value1 = 123
end
if key3 == nil then
key3 = "abc"
end
end
local mt, call, add
do
local _obj_0 = getmetatable(tb)
mt, call, add = _obj_0, getmetatable(_obj_0).__call, getmetatable(_obj_0).__add
if mt == nil then
mt = {
__index = {
abc = 123
}
}
end
if call == nil then
call = (function()
return { }
end)
end
end
local _obj_0 = tb
local mtx, y, zItem = getmetatable(_obj_0.x), _obj_0.y, _obj_0.z
if mtx == nil then
mtx = { }
end
local index = getmetatable(_obj_0).__index
if index == nil then
index = function()
return nil
end
end
do
local _tmp_0
do
local _obj_1 = getmetatable(tb)
_tmp_0 = _obj_1.func
end
if _tmp_0 == nil then
do
local _obj_1 = item
if _obj_1 ~= nil then
_tmp_0 = _obj_1.defVal
end
end
end
a.b(function()
return 123
end).c = _tmp_0
end
end
do
local mt, subFunc
do
local _obj_0 = getmetatable(tb.x)
mt, subFunc = _obj_0, _obj_0.__sub
if mt == nil then
mt = { }
end
end
end
do
local mt, subFunc
do
local _obj_0 = tb
mt, subFunc = getmetatable(_obj_0.x), getmetatable(_obj_0.x).__sub
if mt == nil then
mt = { }
end
end
end
do
local a, b
do
local _obj_0 = tb
local _tmp_0
a, b, _tmp_0 = _obj_0[1], _obj_0[2], _obj_0.c[1]
if a == nil then
a = 1
end
if b == nil then
b = 2
end
if _tmp_0 == nil then
_tmp_0 = 3
end
d.e = _tmp_0
end
local _list_0 = tuples
for _index_0 = 1, #_list_0 do
local _des_0 = _list_0[_index_0]
local left, right = _des_0[1], _des_0[2]
if left == nil then
left = "null"
end
if right == nil then
right = false
end
print(left, right)
end
end
do
local a, b
do
local _obj_0 = tb
a, b = _obj_0[2], _obj_0[4]
end
end
do
do
local _obj_0 = x.x.x
local _tmp_0, _tmp_1 = _obj_0.x, _obj_0.y
if _tmp_0 == nil then
_tmp_0 = 1
end
if _tmp_1 == nil then
_tmp_1 = 2
end
a.b = _tmp_0
a.c = _tmp_1
end
end