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
|