summaryrefslogtreecommitdiff
path: root/spec/outputs/5.1/import_global.lua
blob: 3b8334aed81b4b03a5ec6edce66200ba6ad5dd35 (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
do
	local print = print
	local math = math
	print("hello")
	math.random(10)
end
do
	local print = print
	local value = 1
	value = value + 2
	print(value)
end
do
	local print
	print = function(msg)
		return msg
	end
	do
		local math = math
		print("local")
		math.random(1)
	end
end
do
	local print = print
	local tostring
	tostring = function(v)
		return "local"
	end
	tostring("value")
	print(tostring(123))
end
do
	local func
	func = function(x, y)
		local type = type
		local tostring = tostring
		local print = print
		return type(x, tostring(y, print))
	end
	func(1, 2)
end
do
	local xpcall = xpcall
	local func = func
	local world = world
	local tostring = tostring
	local print = print
	xpcall(function()
		return func("hello " .. tostring(world))
	end, function(err)
		return print(err)
	end)
end
do
	local print = print
	print(FLAG)
	FLAG = 123
end
do
	local print = print
	Foo = 10
	print(Foo)
	Foo = Foo + 2
end
do
	local print = print
	Bar = 1
	Baz = 2
	print(Bar, Baz)
end
do
	local y = y
	x = 3434
	if y then
		x = 10
	end
end
do
	local lowercase = lowercase
	local tostring = tostring
	local Uppercase = Uppercase
	local foobar = "all " .. tostring(lowercase)
	FooBar = "pascal case"
	FOOBAR = "all " .. tostring(Uppercase)
end
do
	local setmetatable = setmetatable
	local print = print
	do
		local _class_0
		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 = "A"
		}, {
			__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
		A = _class_0
	end
	Flag = 1
	const, x, y = "const", 1, 2
	print(math, table)
end
do
	local X = X
	X:func(1, 2, 3)
	X.tag = "abc"
end
local _anon_func_0 = function(func)
	return func
end
do
	local func = func
	local pcall = pcall
	local f
	f = function()
		func()
		return pcall(_anon_func_0, func)
	end
end