moonscript/tests/outputs/syntax.lua
2011-06-13 08:44:17 -07:00

114 lines
2.5 KiB
Lua

local x
x = function() return print(what) end
local _
_ = function() end
_ = function() return function() return function() end end end
go(to(the(barn)))
open(function() return the(function() return door end) end)
open(function()
the(door)
local hello
hello = function() return my(func) end
end)
local h
h = function() return hi end
eat(function() end, world)
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]))
_ = (get[something] + 5)[years]
local i
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() 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 _moon_0 = {}
for x in x do
table.insert(_moon_0, x)
end
return _moon_0
end)()
if cool 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
x = 0
local _item_0 = values
for _index_0=1,#_item_0 do
local v = _item_0[_index_0]
_ = ((function()
if ntype(v) == "fndef" then
x = x + 1
return x
end
end)())
end