cab33ac1da
This PR sets the `syntax` naming heuristic for `unicode(" → ", " -> ")`
to use `→` rather than `→->`.
Continuation of #10373.
123 lines
4 KiB
Text
123 lines
4 KiB
Text
import Lean
|
||
/-!
|
||
# Tests of `pp.unicode` pretty printer option
|
||
-/
|
||
|
||
open Lean PrettyPrinter
|
||
|
||
/-!
|
||
Testing a notation with a `unicode` operator.
|
||
|
||
Respects the current setting of `pp.unicode` exactly.
|
||
-/
|
||
def And' := And
|
||
|
||
notation:35 x:36 unicode(" ∧' ", " /\\' ") y:35 => And' x y
|
||
|
||
/-- info: True ∧' False : Prop -/
|
||
#guard_msgs in #check True ∧' False
|
||
|
||
/-- info: True /\' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∧' False
|
||
|
||
/-- info: True✝ ∧' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True ∧' False))
|
||
/-- info: True✝ ∧' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True /\' False))
|
||
/-- info: True✝ /\' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True ∧' False))
|
||
/-- info: True✝ /\' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True /\' False))
|
||
|
||
/-!
|
||
The generated name only uses the unicode version.
|
||
-/
|
||
/-- info: «term_∧'_» : TrailingParserDescr -/
|
||
#guard_msgs in #check «term_∧'_»
|
||
|
||
/-!
|
||
Testing a notation with a `unicode` operator with `preserveForPP`.
|
||
|
||
Respects the current setting of `pp.unicode` *if* the underlying atom is in the unicode form.
|
||
The `notation` command creates a pretty printer using the ASCII form,
|
||
so this is only possible if a delaborator creates a syntax quotation with the unicode form.
|
||
-/
|
||
def And'' := And
|
||
|
||
notation:35 x:36 unicode(" ∧'' ", " /\\'' ", preserveForPP) y:35 => And'' x y
|
||
|
||
/-- info: True /\'' False : Prop -/
|
||
#guard_msgs in #check True ∧'' False
|
||
|
||
/-- info: True /\'' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∧'' False
|
||
|
||
/-- info: True✝ ∧'' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True ∧'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(True /\'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True ∧'' False))
|
||
/-- info: True✝ /\'' False✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(True /\'' False))
|
||
|
||
/-!
|
||
The `fun` notation uses `preserveForPP`.
|
||
When `pp.unicode.fun` is true, its elaborator uses `↦`.
|
||
-/
|
||
/-- info: fun x => x : ?m.1 → ?m.1 -/
|
||
#guard_msgs in #check fun x => x
|
||
|
||
/-- info: fun x ↦ x : ?m.1 → ?m.1 -/
|
||
#guard_msgs in set_option pp.unicode.fun true in #check fun x => x
|
||
|
||
/-- info: fun x => x : ?m.1 -> ?m.1 -/
|
||
#guard_msgs in set_option pp.unicode.fun true in set_option pp.unicode false in #check fun x => x
|
||
|
||
-- The delaborator is what uses `↦`, so the option has no effect here.
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in set_option pp.unicode.fun true in #eval do ppTerm (← `(fun x => x))
|
||
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(fun x => x))
|
||
/-- info: fun x✝ ↦ x✝ -/
|
||
#guard_msgs in #eval do ppTerm (← `(fun x ↦ x))
|
||
/-- info: fun x✝ => x✝ -/
|
||
#guard_msgs in set_option pp.unicode false in #eval do ppTerm (← `(fun x ↦ x))
|
||
|
||
/-!
|
||
Testing `infixr` with `unicode(...)`
|
||
-/
|
||
|
||
def Or' := Or
|
||
infixr:35 unicode(" ∨' ", " \\/' ") => Or'
|
||
|
||
/-- info: True ∨' False : Prop -/
|
||
#guard_msgs in #check True ∨' False
|
||
/-- info: True ∨' False : Prop -/
|
||
#guard_msgs in #check True \/' False
|
||
/-- info: True \/' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True ∨' False
|
||
/-- info: True \/' False : Prop -/
|
||
#guard_msgs in set_option pp.unicode false in #check True \/' False
|
||
|
||
/-!
|
||
Tests that used to be in `tests/lean/ppUnicode.lean`.
|
||
-/
|
||
/-!
|
||
`↦` is recognized, but prints as `=>` by default.
|
||
-/
|
||
/-- info: fun a b c => a + b + c + 1 : Nat → Nat → Nat → Nat -/
|
||
#guard_msgs in #check fun a b c ↦ a + b + c + 1
|
||
/-!
|
||
Can enable pretty printing as `↦` using `pp.unicode.fun`.
|
||
-/
|
||
/-- info: fun a b c ↦ a + b + c + 1 : Nat → Nat → Nat → Nat -/
|
||
#guard_msgs in set_option pp.unicode.fun true in
|
||
#check fun a b c => a + b + c + 1
|
||
/-!
|
||
Using `pp.unicode.fun` doesn't break the `Exists` app unexpander.
|
||
-/
|
||
/-- info: ∃ n, n ≤ 0 : Prop -/
|
||
#guard_msgs in set_option pp.unicode.fun true in
|
||
#check ∃ n : Nat, n ≤ 0
|