path: root/spec/outputs/tables.lua

local backpack = {
	something = {
		yeah = 200,
		they = function()
			print("hello")
			return yor_feet("small")
		end,
		pretty = hair,
		gold = hmm
	},
	yow = 1000,
	eat = goo,
	yeah = dudd
}
local start = {
	something = "cold"
}
local bathe = {
	on = "fire"
}
local another = {
	[4] = 232,
	["good food"] = "is the best"
}
local fwip = {
	something = hello("what"),
	number = 2323,
	what = yo("momma", "yeah"),
	fruit = basket,
	nuts = day
}
local frick = {
	hello = "world"
}
local frack, best = {
	hello = "world",
	rice = 3434
}, "what"
local ya = {
	1,
	2,
	3,
	key = 100,
	343,
	"hello",
	umm = 232
}
local x = {
	1,
	2,
	4343,
	343,
	343
}
local x1 = {
	1,
	2,
	4343,
	343,
	343
}
local g, p = {
	1,
	2,
	nowy = "yes",
	3,
	4,
	hey = 232,
	another = "day"
}, 234
local annother = {
	1,
	2,
	3,
	3,
	4,
	5,
	6,
	7,
	8
}
annother = {
	1,
	2,
	3,
	3,
	4,
	5,
	6,
	7,
	8
}
local yeah = {
	[232] = 3434,
	"helo",
	ice = "cake"
}
local whatabout = {
	hello(world, another),
	what,
	about,
	now,
	hello("world"),
	yeah,
	hello("world", yeah)
}
x = {
	something = function(self)
		return "hello"
	end,
	cool = {
		bed = {
			2323,
			2323
		},
		red = 2343
	},
	name = function(self, node)
		return self:value(node)
	end
}
x = {
	something = something,
	something = something
}
local y = {
	hi = hi,
	there = there,
	how = how,
	you = you,
	thing = thing
}
call_me("hello", {
	x = x,
	y = y,
	z = z
})
local t = {
	a = 'a',
	[b] = 'b'
}
local xam = {
	hello = 1234,
	["hello"] = 12354,
	[ [[hello]]] = 12354,
	["hello"] = 12354,
	[ [[hello]]] = 12354
}
local kam = {
	hello = 12,
	goodcheese = "mmm",
	yeah = 12 + 232,
	lets = keepit({
		going = true,
		okay = "yeah"
	}),
	more = {
		1,
		(function()
			local _accum_0 = { }
			local _len_0 = 1
			for x = 1, 10 do
				_accum_0[_len_0] = x
				_len_0 = _len_0 + 1
			end
			return _accum_0
		end)()
	},
	[{
		"one",
		"two"
	}] = one_thing(function(self) end)
}
keepit({
	going = true,
	okay = "yeah",
	workd = "okay"
})
thing({
	what = "great",
	no = "more",
	okay = 123
})
thing({
	what = "great",
	no = "more"
})
local _ = {
	okay = 123
}
local k = {
	["hello"] = "world"
}
k = {
	['hello'] = 'world'
}
k = {
	["hello"] = 'world',
	["hat"] = "zat"
}
please({
	["hello"] = "world"
})
k = {
	["hello"] = "world",
	["one"] = "zone"
}
local f1, f2, f3 = "one", {
	["two"] = three
}, "four"
f1, f2 = {
	["two"] = three
}, "four"
f1 = {
	"one",
	["two"] = three,
	"four"
}
local j1, j2, j3, j4 = "one", {
	["two"] = three,
	["four"] = five
}, 6, 7
local heroine = {
	name = "Christina",
	age = 18,
	job = "Princess",
	likes = {
		{
			name = "kittens",
			img = "/image/kittens.png"
		},
		{
			name = "flower",
			img = "/image/flower.png"
		}
	},
	items = {
		{
			name = "ring",
			amount = 2
		},
		{
			name = "necklace",
			amount = 1
		}
	},
	status = {
		desc = "weak",
		{
			attribute = "health",
			value = 50
		},
		{
			attribute = "mana",
			value = 100
		}
	}
}
local inventory = {
	equipment = {
		"sword",
		"shield"
	},
	items = {
		{
			name = "potion",
			count = 10
		},
		{
			name = "bread",
			count = 3
		}
	}
}
local items = {
	func(),
	(function()
		local _with_0 = tb
		_with_0.abc = 123
		return _with_0
	end)(),
	{
		1,
		2,
		3
	},
	f({
		1,
		2,
		3
	}),
	f({
		1,
		2,
		3
	}),
	(function()
		local _accum_0 = { }
		local _len_0 = 1
		for i = 1, 3 do
			_accum_0[_len_0] = i
			_len_0 = _len_0 + 1
		end
		return _accum_0
	end)(),
	tostring((function()
		if a then
			return b
		end
	end)())
}
local pairs = {
	{
		"king",
		"queen"
	},
	{
		"hero",
		"princess"
	}
}
items = {
	{
		name = "ring",
		amount = 2
	},
	{
		name = "necklace",
		amount = 1
	}
}
local menus = {
	{
		text = "Save",
		sub = {
			{
				text = "Slot 1: " .. (slots[1].name or "None"),
				click = function() end
			},
			{
				text = {
					"Slot 2"
				},
				click = function() end
			},
			{
				text = [[Slot 3]],
				click = function() end
			},
			{
				text = ("Slot 4"):name(),
				click = function() end
			},
			{
				text = ({
					{
						"slot5"
					}
				})[1]:name(),
				click = function() end
			},
			[6] = {
				text = ("Slot 6"),
				click = function() end
			}
		}
	}
}
local tb
do
	local _tab_0 = { }
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(other) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	tb = _tab_0
end
local tbMix
do
	local _tab_0 = {
		1,
		2,
		3
	}
	local _obj_0
	do
		local _with_0 = item
		_with_0.x = 1
		_with_0:func()
		_obj_0 = _with_0
	end
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(_obj_0) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0[#_tab_0 + 1] = "a"
	_tab_0[#_tab_0 + 1] = "b"
	_tab_0[#_tab_0 + 1] = "c"
	local _obj_1
	do
		local _obj_2 = func
		if _obj_2 ~= nil then
			_obj_1 = _obj_2()
		end
	end
	local _idx_1 = 1
	for _key_0, _value_0 in pairs(_obj_1) do
		if _idx_1 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_1 = _idx_1 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0.key = "value"
	for _index_0 = 1, select('#', ...) do
		_tab_0[#_tab_0 + 1] = select(_index_0, ...)
	end
	tbMix = _tab_0
end
do
	local tbMixA
	local _tab_0 = { }
	local _obj_0
	local _accum_0 = { }
	local _len_0 = 1
	for i = 1, 10 do
		_accum_0[_len_0] = i
		_len_0 = _len_0 + 1
	end
	_obj_0 = _accum_0
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(_obj_0) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0[#_tab_0 + 1] = 11
	tbMixA = _tab_0
end
do
	local tbMixA
	local _tab_0 = { }
	local _obj_0
	local _accum_0 = { }
	local _len_0 = 1
	for i = 1, 10 do
		_accum_0[_len_0] = i
		_len_0 = _len_0 + 1
	end
	_obj_0 = _accum_0
	local _idx_0 = #_tab_0 + 1
	for _index_0 = 1, #_obj_0 do
		local _value_0 = _obj_0[_index_0]
		_tab_0[_idx_0] = _value_0
		_idx_0 = _idx_0 + 1
	end
	_tab_0[#_tab_0 + 1] = 11
	tbMixA = _tab_0
end
do
	local tbMixB
	local _tab_0 = { }
	local _obj_0 = ...
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(_obj_0) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	local _obj_1 = {
		...
	}
	local _idx_1 = 1
	for _key_0, _value_0 in pairs(_obj_1) do
		if _idx_1 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_1 = _idx_1 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	local _obj_2
	local _tab_1 = { }
	local _obj_3 = ...
	local _idx_2 = 1
	for _key_0, _value_0 in pairs(_obj_3) do
		if _idx_2 == _key_0 then
			_tab_1[#_tab_1 + 1] = _value_0
			_idx_2 = _idx_2 + 1
		else
			_tab_1[_key_0] = _value_0
		end
	end
	_obj_2 = _tab_1
	local _idx_2 = 1
	for _key_0, _value_0 in pairs(_obj_2) do
		if _idx_2 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_2 = _idx_2 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0[#_tab_0 + 1] = 1
	_tab_0[#_tab_0 + 1] = 2
	_tab_0[#_tab_0 + 1] = 3
	tbMixB = _tab_0
end
do
	local tbMixB
	local _tab_0 = { }
	local _obj_0 = ...
	local _idx_0 = #_tab_0 + 1
	for _index_0 = 1, #_obj_0 do
		local _value_0 = _obj_0[_index_0]
		_tab_0[_idx_0] = _value_0
		_idx_0 = _idx_0 + 1
	end
	local _obj_1 = {
		...
	}
	local _idx_1 = #_tab_0 + 1
	for _index_0 = 1, #_obj_1 do
		local _value_0 = _obj_1[_index_0]
		_tab_0[_idx_1] = _value_0
		_idx_1 = _idx_1 + 1
	end
	local _obj_2
	local _tab_1 = { }
	local _obj_3 = ...
	local _idx_2 = 1
	for _key_0, _value_0 in pairs(_obj_3) do
		if _idx_2 == _key_0 then
			_tab_1[#_tab_1 + 1] = _value_0
			_idx_2 = _idx_2 + 1
		else
			_tab_1[_key_0] = _value_0
		end
	end
	_obj_2 = _tab_1
	local _idx_2 = #_tab_0 + 1
	for _index_0 = 1, #_obj_2 do
		local _value_0 = _obj_2[_index_0]
		_tab_0[_idx_2] = _value_0
		_idx_2 = _idx_2 + 1
	end
	_tab_0[#_tab_0 + 1] = 1
	_tab_0[#_tab_0 + 1] = 2
	_tab_0[#_tab_0 + 1] = 3
	tbMixB = _tab_0
end
local template <const> = {
	foo = "Hello",
	bar = "World",
	baz = "!"
}
local specialized <const> = (function()
	local _tab_0 = { }
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(template) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0.bar = "Bob"
	return _tab_0
end)()
local specializedB
do
	local _tab_0 = {
		["function"] = function() end
	}
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(template) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0["end"] = function() end
	_tab_0["if"] = true
	_tab_0["else"] = false
	specializedB = _tab_0
end
local parts = {
	"shoulders",
	"knees"
}
local lyrics
do
	local _tab_0 = {
		"head"
	}
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(parts) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0[#_tab_0 + 1] = "and"
	_tab_0[#_tab_0 + 1] = "toes"
	lyrics = _tab_0
end
local tbBlock = {
	sub = (function(...)
		local _tab_0 = {
			value = value
		}
		local _idx_0 = 1
		for _key_0, _value_0 in pairs(items) do
			if _idx_0 == _key_0 then
				_tab_0[#_tab_0 + 1] = _value_0
				_idx_0 = _idx_0 + 1
			else
				_tab_0[_key_0] = _value_0
			end
		end
		for _index_0 = 1, select('#', ...) do
			_tab_0[#_tab_0 + 1] = select(_index_0, ...)
		end
		return _tab_0
	end)(...)
}
func((function(...)
	local _tab_0 = { }
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(items) do
		if _idx_0 == _key_0 then
			_tab_0[#_tab_0 + 1] = _value_0
			_idx_0 = _idx_0 + 1
		else
			_tab_0[_key_0] = _value_0
		end
	end
	_tab_0.value = value
	_tab_0[#_tab_0 + 1] = ...
	_tab_0.k = v
	for _index_0 = 1, select('#', ...) do
		_tab_0[#_tab_0 + 1] = select(_index_0, ...)
	end
	return _tab_0
end)(...))
return nil