aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/ambiguous.lua
blob: fc43d63d27eb24ec8335527b0769198421e9c937 (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
local bind = grasp.bind;
(bind(stmt))({
	color = "Red"
})
local a = 'b'
local c = d;
(a(b))(c(d))
c = d.c;
(a(b))(c(d));
(c(d))(a(b))
local b
a, b = c, d;
(d(a))(c)
for i = 1, 10 do
	a = function() end
	do
		(print)(1)
	end
	a = f
	do
		(print)(2)
	end
	if cond then
		do
			(print)(3)
		end
	end
	::abc::;
	(print)(4)
	goto abc;
	(print)(5)
end
do
	print();
	(a)(b(1))
	print();
	(fn)(function() end)
end
do
	print()
	async_fn(function()
		print()
		do
--[[a comment to insert]]
		(haha)()
		end
		return nil
	end)
end
do
	do
		print(123)
	end
end
do
	f({
		v = v
	})
	local tb
	do
		local _accum_0 = { }
		local _len_0 = 1
		while f do
			_accum_0[_len_0] = {
				v = v
			}
			_len_0 = _len_0 + 1
		end
		tb = _accum_0
	end
	repeat
		print(v)
	until f({
			v = v
		})
	do
		local _with_0 = f
		local v = tb.v
		_with_0.x = 1
	end
	local x
	if f then
		x = {
			v = v
		}
	end
	do
		local _exp_0 = f({
			v = v
		})
		if f == _exp_0 then
			x = {
				v = v
			}
		end
	end
	local nums
	do
		local _accum_0 = { }
		local _len_0 = 1
		for num = 1, len do
			_accum_0[_len_0] = {
				num = num
			}
			_len_0 = _len_0 + 1
		end
		nums = _accum_0
	end
	local objects
	local _accum_0 = { }
	local _len_0 = 1
	local _list_0 = items
	for _index_0 = 1, #_list_0 do
		local item = _list_0[_index_0]
		_accum_0[_len_0] = {
			name = item
		}
		_len_0 = _len_0 + 1
	end
	objects = _accum_0
end
return nil