moonscript/tests/outputs/syntax.lua
2013-01-12 13:01:34 -08:00

237 lines
3.8 KiB
Lua

local a = 1 + 2 * 3 / 6
local bunch, go, here
a, bunch, go, here = another, world
func(arg1, arg2, another, arg3)
local we
here, we = function() end, yeah
local the, different
the, different = function()
return approach
end, yeah
dad()
dad(lord)
hello(one, two)();
(5 + 5)(world)
fun(a)(b)
fun(a)(b)
fun(a)(b, bad(hello))
hello(world(what(are(you(doing(here))))))
what(the)[3243](world, yeck(heck))
hairy[hands][are](gross)(okay(okay[world]))
local _ = (get[something] + 5)[years]
local i, x = 200, 300
local yeah = (1 + 5) * 3
yeah = ((1 + 5) * 3) / 2
yeah = ((1 + 5) * 3) / 2 + i % 100
local whoa = (1 + 2) * (3 + 4) * (4 + 5)
_ = function()
if something then
return 1, 2, 4
end
return print("hello")
end
_ = function()
if hello then
return "heloo", "world"
else
return no, way
end
end
_ = function()
return 1, 2, 34
end
return 5 + function()
return 4 + 2
end
return 5 + (function()
return 4
end) + 2
print(5 + function()
_ = 34
return good(nads)
end)
something('else', "ya")
something('else')
something("else")
_ = here(we)("go")[12123]
local something = {
test = 12323,
what = function()
return print("hello world")
end
}
print(something.test)
local frick = {
hello = "world"
}
local argon = {
num = 100,
world = function(self)
print(self.num)
return {
something = function()
return print("hi from something")
end
}
end,
somethin = function(self, str)
print("string is", str)
return {
world = function(a, b)
return print("sum", a + b)
end
}
end
}
something.what()
argon:world().something()
argon:somethin("200").world(1, 2)
x = -434
x = -hello(world(one(two)))
local hi = -"herfef"
x = -(function()
local _accum_0 = { }
local _len_0 = 1
for x in x do
_accum_0[_len_0] = x
_len_0 = _len_0 + 1
end
return _accum_0
end)()
if cool then
print("hello")
end
if not (cool) then
print("hello")
end
if not (1212 and 3434) then
print("hello")
end
print("nutjob")
if hello then
_ = 343
end
if cool then
print("what")
else
_ = whack
end
local arg = {
...
}
x = function(...)
return dump({
...
})
end
x = not true
local y = not (5 + 5)
y = #"hello"
x = #{
#{ },
#{
1
},
#{
1,
2
}
}
_ = hello, world
something:hello(what)(a, b)
something:hello(what)
something.hello:world(a, b)
something.hello:world(1, 2, 3)(a, b)
x = 1232
x = x + (10 + 3)
local j = j - "hello"
y = y * 2
y = y / 100
local m = m % 2
local hello = hello .. "world"
self.__class.something = self.__class.something + 10
self.something = self.something + 10
x = 0
local _list_0 = values
for _index_0 = 1, #_list_0 do
local v = _list_0[_index_0]
_ = ((function()
if ntype(v) == "fndef" then
x = x + 1
end
end)())
end
hello = {
something = world,
["if"] = "hello",
["else"] = 3434,
["function"] = "okay",
good = 230203
}
div({
class = "cool"
})
_ = 5 + what(wack)
what(whack + 5)
_ = 5 - what(wack)
what(whack - 5)
x = hello - world - something
(function(something)
if something == nil then
do
local _with_0 = what
_with_0:cool(100)
something = _with_0
end
end
return print(something)
end)()
if something then
_ = 03589
else
_ = 3434
end
if something then
_ = yeah
elseif "ymmm" then
print("cool")
else
_ = okay
end
x = notsomething
y = ifsomething
local z = x and b
z = x(andb)
while 10 > something({
something = "world"
}) do
print("yeah")
end
x = {
okay = sure
}
yeah({
okay = man,
sure = sir
})
hello("no comma", {
yeah = dada,
another = world
})
hello("comma", {
something = hello_world,
frick = you
})
another(hello, one, two, three, four, {
yeah = man
}, {
okay = yeah
})
a = a + (3 - 5)
a = a * (3 + 5)
a = a * 3
a = a / func("cool")
x["then"] = "hello"
x["while"]["true"] = "hello"
x = x or "hello"
x = x and "hello"