lean2/tests/lean/lua18.lean
Leonardo de Moura c77464703f feat(frontends/lean): macro definition using Lua
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2013-12-19 19:08:10 -08:00

24 lines
563 B
Text

(**
macro("MyMacro", { macro_arg.Expr, macro_arg.Comma, macro_arg.Expr },
function (e1, e2)
return Const({"Int", "add"})(e1, e2)
end)
macro("Sum", { macro_arg.Exprs },
function (es)
if #es == 0 then
return iVal(0)
end
local r = es[1]
local add = Const({"Int", "add"})
for i = 2, #es do
r = add(r, es[i])
end
return r
end)
**)
Show (MyMacro 10, 20) + 20
Show (Sum)
Show Sum 10 20 30 40
Show fun x, Sum x 10 x 20
Eval (fun x, Sum x 10 x 20) 100