lean2/tests/lua/mod5.lua
Leonardo de Moura 5eaf04518b refactor(*): rename Bool to Prop
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2014-07-22 09:43:18 -07:00

56 lines
1.4 KiB
Lua

local NumThreads=4
function mod_name(midx)
return tostring("mod5_mod" .. tostring(midx))
end
function const_name(midx)
return "mod" .. tostring(midx) .. "C"
end
function mk_module(midx, imports)
local imp_names = {}
for i = 1, #imports do
imp_names[#imp_names + 1] = mod_name(imports[i])
end
local env = import_modules(imp_names, {num_threads=NumThreads})
if #imports == 0 then
env = add_decl(env, mk_var_decl(const_name(midx), Prop))
env = add_decl(env, mk_var_decl("and", mk_arrow(Prop, Prop, Prop)))
elseif #imports == 1 then
env = add_decl(env, mk_definition(const_name(midx), Prop, Const(const_name(imports[1]))))
else
local And = Const("and")
env = add_decl(env, mk_definition(const_name(midx), Prop, And(Const(const_name(imports[1])), Const(const_name(imports[2])))))
end
env:export(tostring(mod_name(midx)) .. ".olean")
end
local NumMods = 100
function mk_modules()
mk_module(0, {})
local i = 1
local j = 1
while i <= NumMods do
if j % 2 == 0 then
mk_module(i, {i-1, i-2})
i = i + 1
else
mk_module(i, {i-1})
mk_module(i+1, {i-i})
i = i + 2
end
j = j + 1
end
end
mk_modules()
local env = import_modules(mod_name(NumMods))
env:for_each_decl(function(d)
print(d:name())
end
)
for i = 1, NumMods do
assert(env:get(const_name(i)):is_definition())
end