aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/assign.lua
blob: 162a563cc978f29804b2580a9840a49aea2eadd5 (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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
local _
_ = function()
	local joop = 2302
	return function(hi)
		local d = 100
		hi = 1021
		local a, b, c
		a, b, c, d = 1, 2, 3, 4
		local hello
		hello[232], (5 + 5)[121], hello, x[99] = 100, 200, 300, 400
		joop = 12
	end
end
local joop = 2345
local a, b
if hello then
	a, b = "hello", nil
else
	a, b = "nothing", "yeah"
end
if hello then
	if yeah then
		a, b = "one", "two"
	else
		a, b = "mmhh", nil
	end
else
	print("the other")
	a, b = "nothing", "yeah"
end
local c, d
if true then
	c, d = 1, 2
end
local x
do
	local f = getHandler()
	if f then
		do
			f()
			x = 123
		end
	end
end
local _anon_func_0 = function(print)
	do
		print(123)
		return { }
	end
end
return _(function()
	setmetatable(a, _anon_func_0(print))
	do
		local a, b
		if "a" == c then
			local _obj_0 = tb
			a, b = _obj_0[1], _obj_0[2]
		elseif "b" == c then
			local _obj_0 = f()
			a, b = _obj_0[1], _obj_0[2]
		end
	end
	if x then
		a[#a + 1] = 1
	else
		a[#a + 1] = 2
	end
	do
		local a
		local _obj_0, _obj_1
		if x then
			local _exp_0 = y
			if 1 == _exp_0 then
				_obj_0, _obj_1 = f()
			end
		end
		a = _obj_0
		b[#b + 1] = _obj_1
	end
	do
		local a, b
		local _obj_0, _obj_1
		if x then
			_obj_0, _obj_1 = f()
		else
			_obj_0, _obj_1 = 123, tb
		end
		a = _obj_0
		b = _obj_1[1]
	end
	do
		local a
		do
			local _obj_0, _obj_1
			if x then
				local _exp_0 = y
				if 1 == _exp_0 then
					_obj_0, _obj_1 = f()
				end
			end
			a = _obj_0
			b[#b + 1] = _obj_1
		end
		print(a, b)
	end
	do
		local a, b
		do
			local _obj_0, _obj_1
			if x then
				_obj_0, _obj_1 = f()
			else
				_obj_0, _obj_1 = 123, tb
			end
			a = _obj_0
			b = _obj_1[1]
		end
		print(a, b)
	end
	do
		local a, c
		do
			local _obj_0, _obj_1, _obj_2, _obj_3
			if x then
				local _exp_0 = y
				if 1 == _exp_0 then
					_obj_0, _obj_1, _obj_2, _obj_3 = f()
				end
			elseif x2 then
				if y2 then
					_obj_0, _obj_1, _obj_2, _obj_3 = f1()
				end
			else
				print("hello")
				do
					print(123)
					_obj_0, _obj_1, _obj_2, _obj_3 = 1, f2()
				end
			end
			a = _obj_0
			b[#b + 1] = _obj_1
			c, getmetatable(d).__add = _obj_2, _obj_3
		end
		print(a, b, c, d)
	end
	do
		local x, a, b
		do
			local _obj_0, _obj_1, _obj_2
			if cond then
				_obj_0, _obj_1, _obj_2 = f()
			end
			x = 1
			a, b = _obj_0[1], _obj_0[2]
			setmetatable(tb, _obj_1)
			c[#c + 1] = _obj_2
		end
		print(x, a, b)
	end
	do
		local a = 0
		local b = 0
		local c = 0
		local d = 0
	end
	do
		local a = f()
		local b = a
		local c = a
		local d = a
	end
	do
		local e = tab
		local a = e[1]
		local b = e.b
		c.d = e
	end
	do
		local val = 123
		local a = val
		local b = val
		local c = val
	end
	return nil
end)