aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/return.lua
blob: 775ae11a6fd429cb955e49a5e1907463c804a3cd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
local _
_ = function()
	local _list_0 = things
	for _index_0 = 1, #_list_0 do
		local x = _list_0[_index_0]
		_ = x
	end
end
_ = function()
	local _accum_0 = { }
	local _len_0 = 1
	local _list_0 = things
	for _index_0 = 1, #_list_0 do
		local x = _list_0[_index_0]
		_accum_0[_len_0] = x
		_len_0 = _len_0 + 1
	end
	return _accum_0
end
do
	local _list_0 = things
	for _index_0 = 1, #_list_0 do
		local x = _list_0[_index_0]
		return x
	end
end
do
	local _accum_0 = { }
	local _len_0 = 1
	local _list_0 = things
	for _index_0 = 1, #_list_0 do
		local x = _list_0[_index_0]
		_accum_0[_len_0] = x
		_len_0 = _len_0 + 1
	end
	return _accum_0
end
do
	local _tbl_0 = { }
	local _list_0 = things
	for _index_0 = 1, #_list_0 do
		local x, y = _list_0[_index_0]
		_tbl_0[x] = y
	end
	return _tbl_0
end
_ = function()
	if a then
		if a then
			return a
		else
			return b
		end
	elseif b then
		if a then
			return a
		else
			return b
		end
	else
		if a then
			return a
		else
			return b
		end
	end
end
do
	if a then
		if a then
			return a
		else
			return b
		end
	elseif b then
		if a then
			return a
		else
			return b
		end
	else
		if a then
			return a
		else
			return b
		end
	end
end
do
	return {
		value = value,
		itemA = 123,
		itemB = "abc"
	}
end
do
	local _tab_0 = {
		1,
		2
	}
	local _idx_0 = 1
	for _key_0, _value_0 in pairs(three) 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] = 4
	return _tab_0
end
_ = function()
	local _base_0 = a
	local _fn_0 = _base_0.b
	return _fn_0 and function(...)
		return _fn_0(_base_0, ...)
	end
end
do
	local _base_0 = a
	local _fn_0 = _base_0.b
	return _fn_0 and function(...)
		return _fn_0(_base_0, ...)
	end
end