path: root/spec/outputs/switch.lua

do
	local _exp_0 = value
	if "cool" == _exp_0 then
		print("hello world")
	end
end
do
	local _exp_0 = value
	if "cool" == _exp_0 then
		print("hello world")
	else
		print("okay rad")
	end
end
do
	local _exp_0 = value
	if "cool" == _exp_0 then
		print("hello world")
	elseif "yeah" == _exp_0 then
		local _ = [[FFFF]] + [[MMMM]]
	elseif (2323 + 32434) == _exp_0 then
		print("okay")
	else
		print("okay rad")
	end
end
local out
do
	local _exp_0 = value
	if "cool" == _exp_0 then
		out = print("hello world")
	else
		out = print("okay rad")
	end
end
do
	local _exp_0 = value
	if "cool" == _exp_0 then
		out = xxxx
	elseif "umm" == _exp_0 then
		out = 34340
	else
		out = error("this failed big time")
	end
end
do
	local _with_0 = something
	local _exp_0 = _with_0:value()
	if _with_0.okay == _exp_0 then
		local _ = "world"
	else
		local _ = "yesh"
	end
end
fix(this)
call_func((function()
	local _exp_0 = something
	if 1 == _exp_0 then
		return "yes"
	else
		return "no"
	end
end)())
do
	local _exp_0 = hi
	if (hello or world) == _exp_0 then
		local _ = greene
	end
end
do
	local _exp_0 = hi
	if "one" == _exp_0 or "two" == _exp_0 then
		print("cool")
	elseif "dad" == _exp_0 then
		local _ = no
	end
end
do
	local _exp_0 = hi
	if (3 + 1) == _exp_0 or hello() == _exp_0 or (function()
		return 4
	end)() == _exp_0 then
		local _ = yello
	else
		print("cool")
	end
end
do
	local dict = {
		{ },
		{
			1,
			2,
			3
		},
		a = {
			b = {
				c = 1
			}
		},
		x = {
			y = {
				z = 1
			}
		}
	}
	local _type_0 = type(dict)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	if _tab_0 then
		local first = dict[1]
		local one
		do
			local _obj_0 = dict[2]
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				one = _obj_0[1]
			end
		end
		local two
		do
			local _obj_0 = dict[2]
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				two = _obj_0[2]
			end
		end
		local three
		do
			local _obj_0 = dict[2]
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				three = _obj_0[3]
			end
		end
		local c
		do
			local _obj_0 = dict.a
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				do
					local _obj_1 = _obj_0.b
					local _type_2 = type(_obj_1)
					if "table" == _type_2 or "userdata" == _type_2 then
						c = _obj_1.c
					end
				end
			end
		end
		local z
		do
			local _obj_0 = dict.x
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				do
					local _obj_1 = _obj_0.y
					local _type_2 = type(_obj_1)
					if "table" == _type_2 or "userdata" == _type_2 then
						z = _obj_1.z
					end
				end
			end
		end
		if first ~= nil and one ~= nil and two ~= nil and three ~= nil and c ~= nil and z ~= nil then
			print(first, one, two, three, c, z)
		end
	end
end
do
	local items = {
		{
			x = 100,
			y = 200
		},
		{
			width = 300,
			height = 400
		},
		false
	}
	for _index_0 = 1, #items do
		local item = items[_index_0]
		local _type_0 = type(item)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		local _match_0 = false
		if _tab_0 then
			local x = item.x
			local y = item.y
			if x ~= nil and y ~= nil then
				_match_0 = true
				print("Vec2 " .. tostring(x) .. ", " .. tostring(y))
			end
		end
		if not _match_0 then
			local _match_1 = false
			if _tab_0 then
				local width = item.width
				local height = item.height
				if width ~= nil and height ~= nil then
					_match_1 = true
					print("Size " .. tostring(width) .. ", " .. tostring(height))
				end
			end
			if not _match_1 then
				if false == item then
					print("None")
				else
					local _match_2 = false
					if _tab_0 then
						local cls = item.__class
						if cls ~= nil then
							_match_2 = true
							if ClassA == cls then
								print("Object A")
							elseif ClassB == cls then
								print("Object B")
							end
						end
					end
					if not _match_2 then
						local _match_3 = false
						if _tab_0 then
							local mt = getmetatable(item)
							if mt ~= nil then
								_match_3 = true
								print("A table with metatable")
							end
						end
						if not _match_3 then
							print("item not accepted!")
						end
					end
				end
			end
		end
	end
end
do
	local tb = { }
	do
		local _type_0 = type(tb)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		if _tab_0 then
			local a = tb.a
			local b = tb.b
			if a == nil then
				a = 1
			end
			if b == nil then
				b = 2
			end
			print(a, b)
		end
	end
	do
		local _type_0 = type(tb)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		if _tab_0 then
			local a = tb.a
			local b = tb.b
			if b == nil then
				b = 2
			end
			if a ~= nil then
				print("partially matched", a, b)
			end
		end
	end
	local _type_0 = type(tb)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local a = tb.a
		local b = tb.b
		if a ~= nil and b ~= nil then
			_match_0 = true
			print(a, b)
		end
	end
	if not _match_0 then
		print("not matched")
	end
end
do
	local tb = {
		x = "abc"
	}
	local _type_0 = type(tb)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local x = tb.x
		local y = tb.y
		if x ~= nil and y ~= nil then
			_match_0 = true
			print("x: " .. tostring(x) .. " with y: " .. tostring(y))
		end
	end
	if not _match_0 then
		if _tab_0 then
			local x = tb.x
			if x ~= nil then
				print("x: " .. tostring(x) .. " only")
			end
		end
	end
end
do
	local matched
	local _exp_0 = tb
	if 1 == _exp_0 then
		matched = "1"
	else
		local _type_0 = type(_exp_0)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		local _match_0 = false
		if _tab_0 then
			local x = _exp_0.x
			if x ~= nil then
				_match_0 = true
				matched = x
			end
		end
		if not _match_0 then
			if false == _exp_0 then
				matched = "false"
			else
				matched = nil
			end
		end
	end
end
do
	local _exp_0 = tb
	if nil == _exp_0 then
		return "invalid"
	else
		local _type_0 = type(_exp_0)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		local _match_0 = false
		if _tab_0 then
			local a = _exp_0.a
			local b = _exp_0.b
			if a ~= nil and b ~= nil then
				_match_0 = true
				return tostring(a + b)
			end
		end
		if not _match_0 then
			if 1 == _exp_0 or 2 == _exp_0 or 3 == _exp_0 or 4 == _exp_0 or 5 == _exp_0 then
				return "number 1 - 5"
			else
				local _match_1 = false
				if _tab_0 then
					local matchAnyTable = _exp_0.matchAnyTable
					if matchAnyTable == nil then
						matchAnyTable = "fallback"
					end
					_match_1 = true
					return matchAnyTable
				end
				if not _match_1 then
					return "should not reach here unless it is not a table"
				end
			end
		end
	end
end
do
	local _exp_0 = y
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	if _tab_0 then
		local mt = (function()
			local _obj_0 = _exp_0.x
			if _obj_0 ~= nil then
				return getmetatable(_obj_0)
			end
			return nil
		end)()
		if mt ~= nil then
			print(mt)
		end
	end
end
do
	local _exp_0 = tb
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local item
		do
			local _obj_0 = _exp_0[1]
			local _type_1 = type(_obj_0)
			if "table" == _type_1 or "userdata" == _type_1 then
				item = _obj_0[1]
			end
		end
		if item ~= nil then
			_match_0 = true
			print(item)
		end
	end
	if not _match_0 then
		if _tab_0 then
			local a = _exp_0[1]
			local b = _exp_0[2]
			if a == nil then
				a = 1
			end
			if b == nil then
				b = "abc"
			end
			print(a, b)
		end
	end
end
do
	local _exp_0 = tb
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		if 1 == _exp_0[1] and 2 == _exp_0[2] and 3 == _exp_0[3] then
			_match_0 = true
			print("1, 2, 3")
		end
	end
	if not _match_0 then
		local _match_1 = false
		if _tab_0 then
			local b = _exp_0[2]
			if 1 == _exp_0[1] and b ~= nil and 3 == _exp_0[3] then
				_match_1 = true
				print("1, " .. tostring(b) .. ", 3")
			end
		end
		if not _match_1 then
			if _tab_0 then
				local b = _exp_0[3]
				if b == nil then
					b = 3
				end
				if 1 == _exp_0[1] and 2 == _exp_0[2] then
					print("1, 2, " .. tostring(b))
				end
			end
		end
	end
end
do
	local _exp_0 = tb
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local result = _exp_0.result
		if true == _exp_0.success and result ~= nil then
			_match_0 = true
			print("success", result)
		end
	end
	if not _match_0 then
		local _match_1 = false
		if _tab_0 then
			if false == _exp_0.success then
				_match_1 = true
				print("failed", result)
			end
		end
		if not _match_1 then
			print("invalid")
		end
	end
end
do
	local _exp_0 = tb
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local content = _exp_0.content
		if "success" == _exp_0.type and content ~= nil then
			_match_0 = true
			print("success", content)
		end
	end
	if not _match_0 then
		local _match_1 = false
		if _tab_0 then
			local content = _exp_0.content
			if "error" == _exp_0.type and content ~= nil then
				_match_1 = true
				print("failed", content)
			end
		end
		if not _match_1 then
			print("invalid")
		end
	end
end
do
	do
		local _exp_0 = tb
		local _type_0 = type(_exp_0)
		local _tab_0 = "table" == _type_0 or "userdata" == _type_0
		if _tab_0 then
			local fourth = _exp_0[4]
			local _val_0
			do
				local _obj_0 = _exp_0[1]
				if _obj_0 ~= nil then
					_val_0 = _obj_0.a
				end
			end
			local _val_1
			do
				local _obj_0 = _exp_0[1]
				if _obj_0 ~= nil then
					_val_1 = _obj_0.b
				end
			end
			local _val_2
			do
				local _obj_0 = _exp_0[2]
				if _obj_0 ~= nil then
					_val_2 = _obj_0.a
				end
			end
			local _val_3
			do
				local _obj_0 = _exp_0[2]
				if _obj_0 ~= nil then
					_val_3 = _obj_0.b
				end
			end
			local _val_4
			do
				local _obj_0 = _exp_0[3]
				if _obj_0 ~= nil then
					_val_4 = _obj_0.a
				end
			end
			local _val_5
			do
				local _obj_0 = _exp_0[3]
				if _obj_0 ~= nil then
					_val_5 = _obj_0.b
				end
			end
			if 1 == _val_0 and 2 == _val_1 and 3 == _val_2 and 4 == _val_3 and 5 == _val_4 and 6 == _val_5 and fourth ~= nil then
				print("matched", fourth)
			end
		end
	end
	local _exp_0 = tb
	local _type_0 = type(_exp_0)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		local _val_0
		do
			local _obj_0 = _exp_0[1]
			if _obj_0 ~= nil then
				_val_0 = _obj_0.c
			end
		end
		local _val_1
		do
			local _obj_0 = _exp_0[1]
			if _obj_0 ~= nil then
				_val_1 = _obj_0.d
			end
		end
		local _val_2
		do
			local _obj_0 = _exp_0[2]
			if _obj_0 ~= nil then
				_val_2 = _obj_0.c
			end
		end
		local _val_3
		do
			local _obj_0 = _exp_0[2]
			if _obj_0 ~= nil then
				_val_3 = _obj_0.d
			end
		end
		local _val_4
		do
			local _obj_0 = _exp_0[3]
			if _obj_0 ~= nil then
				_val_4 = _obj_0.c
			end
		end
		local _val_5
		do
			local _obj_0 = _exp_0[3]
			if _obj_0 ~= nil then
				_val_5 = _obj_0.d
			end
		end
		if 1 == _val_0 and 2 == _val_1 and 3 == _val_2 and 4 == _val_3 and 5 == _val_4 and 6 == _val_5 then
			_match_0 = true
			print("OK")
		end
	end
	if not _match_0 then
		if _tab_0 then
			local sixth = _exp_0[6]
			local _val_0
			do
				local _obj_0 = _exp_0[3]
				if _obj_0 ~= nil then
					_val_0 = _obj_0.a
				end
			end
			local _val_1
			do
				local _obj_0 = _exp_0[3]
				if _obj_0 ~= nil then
					_val_1 = _obj_0.b
				end
			end
			local _val_2
			do
				local _obj_0 = _exp_0[4]
				if _obj_0 ~= nil then
					_val_2 = _obj_0.a
				end
			end
			local _val_3
			do
				local _obj_0 = _exp_0[4]
				if _obj_0 ~= nil then
					_val_3 = _obj_0.b
				end
			end
			local _val_4
			do
				local _obj_0 = _exp_0[5]
				if _obj_0 ~= nil then
					_val_4 = _obj_0.a
				end
			end
			local _val_5
			do
				local _obj_0 = _exp_0[5]
				if _obj_0 ~= nil then
					_val_5 = _obj_0.b
				end
			end
			if 1 == _val_0 and 2 == _val_1 and 3 == _val_2 and 4 == _val_3 and 5 == _val_4 and 6 == _val_5 and sixth ~= nil then
				print("matched", sixth)
			end
		end
	end
end
do
	local v = "hello"
	if "hello" == v then
		print("matched hello")
	else
		print("not matched")
	end
end
do
	local f
	f = function()
		return "ok"
	end
	local val = f()
	if "ok" == val then
		print("it's ok")
	end
end
do
	local g
	g = function()
		return 42
	end
	local result = g()
	if 1 == result or 2 == result then
		print("small")
	elseif 42 == result then
		print("life universe everything")
	else
		print("other " .. tostring(result))
	end
end
do
	local check
	check = function()
		if true then
			return "yes"
		else
			return "no"
		end
	end
	local x = check()
	if "yes" == x then
		print("affirmative")
	else
		print("negative")
	end
end
do
	local t
	t = function()
		local tb = {
			a = 1
		}
		tb.a = 2
		return tb
	end
	local data = t()
	local _type_0 = type(data)
	local _tab_0 = "table" == _type_0 or "userdata" == _type_0
	local _match_0 = false
	if _tab_0 then
		if 2 == data.a then
			_match_0 = true
			print("matched")
		end
	end
	if not _match_0 then
		print("not matched")
	end
end
return nil