2013-12-27 03:49:04 +00:00
|
|
|
import("util.lua")
|
2013-12-09 01:33:18 +00:00
|
|
|
local env = environment()
|
2014-01-01 21:52:25 +00:00
|
|
|
env:import("Int")
|
2013-12-09 01:33:18 +00:00
|
|
|
print(get_options())
|
|
|
|
parse_lean_cmds([[
|
|
|
|
Variable f : Int -> Int -> Int
|
|
|
|
Variable g : Bool -> Bool -> Bool
|
|
|
|
Variables a b : Int
|
|
|
|
Variables i j : Int
|
|
|
|
Variables p q : Bool
|
|
|
|
Notation 100 _ ++ _ : f
|
|
|
|
Notation 100 _ ++ _ : g
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption pp::colors true
|
|
|
|
SetOption pp::width 300
|
2013-12-09 01:33:18 +00:00
|
|
|
]], env)
|
|
|
|
print(get_options())
|
|
|
|
assert(get_options():get{"pp", "colors"})
|
|
|
|
assert(get_options():get{"pp", "width"} == 300)
|
|
|
|
parse_lean_cmds([[
|
|
|
|
Show i ++ j
|
|
|
|
Show f i j
|
|
|
|
]], env)
|
|
|
|
|
|
|
|
local env2 = environment()
|
2014-01-01 21:52:25 +00:00
|
|
|
env2:import("Int")
|
2013-12-09 01:33:18 +00:00
|
|
|
parse_lean_cmds([[
|
|
|
|
Variable f : Int -> Int -> Int
|
|
|
|
Variables a b : Int
|
|
|
|
Show f a b
|
2014-01-05 16:52:46 +00:00
|
|
|
Notation 100 _ -+ _ : f
|
2013-12-09 01:33:18 +00:00
|
|
|
]], env2)
|
|
|
|
|
|
|
|
local f, a, b = Consts("f, a, b")
|
|
|
|
assert(tostring(f(a, b)) == "f a b")
|
|
|
|
set_formatter(lean_formatter(env))
|
|
|
|
assert(tostring(f(a, b)) == "a ++ b")
|
|
|
|
set_formatter(lean_formatter(env2))
|
2014-01-05 16:52:46 +00:00
|
|
|
assert(tostring(f(a, b)) == "a -+ b")
|
2013-12-09 01:33:18 +00:00
|
|
|
|
|
|
|
local fmt = lean_formatter(env)
|
|
|
|
-- We can parse commands with respect to environment env2,
|
|
|
|
-- but using a formatter based on env.
|
|
|
|
parse_lean_cmds([[
|
|
|
|
Show f a b
|
|
|
|
]], env2, options(), fmt)
|
|
|
|
|
|
|
|
set_formatter(fmt)
|
|
|
|
env = nil
|
|
|
|
env2 = nil
|
|
|
|
fmt = nil
|
|
|
|
collectgarbage()
|
|
|
|
-- The references to env, env2 and fmt were removed, but The global
|
|
|
|
-- formatter (set with set_formatter) still has a reference to its
|
|
|
|
-- environment.
|
|
|
|
assert(tostring(f(a, b)) == "a ++ b")
|