path: root/spec/outputs/loops.lua

for x = 1, 10 do
	print("yeah")
end
for x = 1, #something do
	print("yeah")
end
for y = 100, 60, -3 do
	print("count down", y)
end
for a = 1, 10 do
	print("okay")
end
for a = 1, 10 do
	for b = 2, 43 do
		print(a, b)
	end
end
for i in iter do
	for j in yeah do
		local x = 343 + i + j
		print(i, j)
	end
end
local _list_0 = something
for _index_0 = 1, #_list_0 do
	local x = _list_0[_index_0]
	print(x)
end
for k, v in pairs(hello) do
	print(k, v)
end
for x in y, z do
	print(x)
end
for x in y, z, k do
	print(x)
end
local _list_1 = modules
for _index_0 = 1, #_list_1 do
	local name, members = _list_1[_index_0]
	print(name, member)
end
local x
x = function()
	for x in y do
		local _ = y
	end
end
local hello = {
	1,
	2,
	3,
	4,
	5
}
do
	local _accum_0 = { }
	local _len_0 = 1
	for _index_0 = 1, #hello do
		local y = hello[_index_0]
		if y % 2 == 0 then
			_accum_0[_len_0] = y
		end
		_len_0 = _len_0 + 1
	end
	x = _accum_0
end
x = function()
	for _index_0 = 1, #hello do
		local x = hello[_index_0]
		local _ = y
	end
end
local t
do
	local _accum_0 = { }
	local _len_0 = 1
	for i = 10, 20 do
		_accum_0[_len_0] = i * 2
		_len_0 = _len_0 + 1
	end
	t = _accum_0
end
local hmm = 0
local y
do
	local _accum_0 = { }
	local _len_0 = 1
	for j = 3, 30, 8 do
		hmm = hmm + 1
		_accum_0[_len_0] = j * hmm
		_len_0 = _len_0 + 1
	end
	y = _accum_0
end
local _
_ = function()
	for k = 10, 40 do
		_ = "okay"
	end
end
_ = function()
	local _accum_0 = { }
	local _len_0 = 1
	for k = 10, 40 do
		_accum_0[_len_0] = "okay"
		_len_0 = _len_0 + 1
	end
	return _accum_0
end
while true do
	print("name")
end
while 5 + 5 do
	print("okay world")
	working(man)
end
while also do
	i(work(too))
	_ = "okay"
end
local i = 0
do
	local _accum_0 = { }
	local _len_0 = 1
	while i < 10 do
		i = i + 1
		_accum_0[_len_0] = i
		_len_0 = _len_0 + 1
	end
	x = _accum_0
end
do
	local _accum_0 = { }
	local _len_0 = 1
	local _list_2 = 3
	for _index_0 = 1, #_list_2 do
		local thing = _list_2[_index_0]
		y = "hello"
		break
		_len_0 = _len_0 + 1
	end
	x = _accum_0
end
do
	local _accum_0 = { }
	local _len_0 = 1
	for x = 1, 2 do
		y = "hello"
		_accum_0[_len_0] = y
		_len_0 = _len_0 + 1
	end
	x = _accum_0
end
while true do
	if false then
		goto _continue_0
	end
	print("yes")
	if true then
		break
	end
	print("no")
	::_continue_0::
end
for i = 1, 10 do
	while true do
		if not true then
			goto _continue_1
		end
		break
		::_continue_1::
	end
end
local a = 1
repeat
	a = a + 1
	if a == 5 then
		goto _continue_2
	end
	if a == 6 then
		break
	end
	print(a)
	::_continue_2::
until a == 10
x = 0
repeat
	x = x + 1
	y = x
	if x < 5 then
		goto _continue_3
	end
	print(y)
	::_continue_3::
until y == 10
a = 3
while not (a == 0) do
	a = a - 1
end
local done = false
while not done do
	done = true
end
repeat
	print("hello")
until true
while not done do
	x = 10
	repeat
		x = x - 1
	until x == 0
end
while not cond do
	print("okay")
end
for x = 1, 10 do
	if x > 3 and x < 7 then
		goto _continue_4
	end
	print(x)
	::_continue_4::
end
local list
do
	local _accum_0 = { }
	local _len_0 = 1
	for x = 1, 10 do
		if x > 3 and x < 7 then
			goto _continue_5
		end
		_accum_0[_len_0] = x
		_len_0 = _len_0 + 1
		::_continue_5::
	end
	list = _accum_0
end
local _list_2 = {
	1,
	2,
	3,
	4,
	5,
	6
}
for _index_0 = 1, #_list_2 do
	local a = _list_2[_index_0]
	if a == 1 then
		goto _continue_6
	end
	if a == 3 then
		goto _continue_6
	end
	print(a)
	::_continue_6::
end
for x = 1, 10 do
	if x % 2 == 0 then
		goto _continue_7
	end
	for y = 2, 12 do
		if y % 3 == 0 then
			goto _continue_8
		end
		::_continue_8::
	end
	::_continue_7::
end
while true do
	if false then
		goto _continue_9
	end
	break
	::_continue_9::
end
while true do
	if false then
		goto _continue_10
	end
	do
		return 22
	end
	::_continue_10::
end
do
	local xxx = {
		1,
		2,
		3,
		4
	}
	for _index_0 = 1, #xxx do
		local thing = xxx[_index_0]
		print(thing)
	end
end
do
	for i = 1, 10 do
		repeat
			local _with_0 = tb
			if _with_0 ~= nil then
				_with_0.a = 1
				if _with_0.b then
					goto _continue_12
				end
				do
					if _with_0.c then
						break
					end
				end
			end
			::_continue_12::
		until true
		if 123 == x then
			break
		else
			goto _continue_11
		end
		if y then
			goto _continue_11
		else
			break
		end
		do
			do
				do
					print(i)
					goto _continue_11
				end
			end
		end
		print("abc")
		::_continue_11::
	end
end
do
	repeat
		local byte = stream:read_one()
		if byte then
			if byte == 0 then
				goto _continue_13
			end
			print(byte)
		else
			break
		end
		::_continue_13::
	until false
end
do
	local func
	repeat
		local success, result = xpcall(func, function(err)
			return print(err)
		end, 1, 2, 3)
		if success then
			print(result)
		else
			break
		end
	until false
end
do
	repeat
		x = func('a', b)
		if not x then
			print("false expected")
		else
			break
		end
	until false
end