aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/local.lua
blob: c5b39310f766782b44b023aadfea57244307f9b0 (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
do
	local a
	local a, b, c
	local g
	b, g = 23232, nil
end
do
	local x = 1212
	local something
	something = function()
		local x
		x = 1212
	end
end
do
	local y, z
	y = 2323
	z = 2323
end
do
	print("Nothing Here!")
end
do
	local X, Y
	local x = 3434
	local y = 3434
	X = 3434
	Y = "yeah"
end
do
	local x, y = "a", "b"
end
do
	local x, y
	x, y = "a", "b"
end
do
	if something then
		local x = 2323
	end
end
do
	local x
	do
		x = "one"
	end
	x = 100
	do
		x = "two"
	end
end
do
	local k, x, a, b, c
	if what then
		k = 10
	end
	x = 100
	local _obj_0 = y
	a, b, c = _obj_0.a, _obj_0.b, _obj_0.c
end
do
	local a, b, c, d
	a = 100
	print("hi")
	b = 200
	c = 100
	print("hi")
	d = 200
	d = 2323
end
do
	local Uppercase, One, Two
	local lowercase = 5
	Uppercase = 3
	do
		local _class_0
		local Five
		local _base_0 = { }
		if _base_0.__index == nil then
			_base_0.__index = _base_0
		end
		_class_0 = setmetatable({
			__init = function() end,
			__base = _base_0,
			__name = "One"
		}, {
			__index = _base_0,
			__call = function(cls, ...)
				local _self_0 = setmetatable({ }, _base_0)
				cls.__init(_self_0, ...)
				return _self_0
			end
		})
		_base_0.__class = _class_0
		local self = _class_0;
		Five = 6
		One = _class_0
	end
	local _class_0
	local No
	local _base_0 = { }
	if _base_0.__index == nil then
		_base_0.__index = _base_0
	end
	_class_0 = setmetatable({
		__init = function() end,
		__base = _base_0,
		__name = "Two"
	}, {
		__index = _base_0,
		__call = function(cls, ...)
			local _self_0 = setmetatable({ }, _base_0)
			cls.__init(_self_0, ...)
			return _self_0
		end
	})
	_base_0.__class = _class_0
	local self = _class_0;
	local _class_1
	local _base_1 = { }
	if _base_1.__index == nil then
		_base_1.__index = _base_1
	end
	_class_1 = setmetatable({
		__init = function() end,
		__base = _base_1,
		__name = "No"
	}, {
		__index = _base_1,
		__call = function(cls, ...)
			local _self_0 = setmetatable({ }, _base_1)
			cls.__init(_self_0, ...)
			return _self_0
		end
	})
	_base_1.__class = _class_1
	No = _class_1
	Two = _class_0
end
do
	local _list_0 = { }
	for _index_0 = 1, #_list_0 do
		local a = _list_0[_index_0]
		local _ = a
	end
end
do
	local x
	x = a or b
end
local g = 2323