0e5ce1496b
This PR fixes spacing in the `grind` attribute and tactic syntax. Previously `@[grind]` was incorrectly pretty-printed as `@[grind ]`, and `grind [...] on_failure ...` was pretty-printed `grind [...]on_failure ...`. Fixes that `on_failure` was reserved as keyword.
80 lines
1.2 KiB
Text
80 lines
1.2 KiB
Text
import Lean.Elab.Command
|
|
|
|
open Lean Elab Command
|
|
|
|
def test (stx : Syntax) : CommandElabM Unit := do
|
|
let fmt : Option Format := ←
|
|
liftCoreM <| PrettyPrinter.ppCategory `command stx
|
|
if let some fmt := fmt then
|
|
let st := fmt.pretty
|
|
dbg_trace st
|
|
|
|
|
|
/--
|
|
info: @[grind =]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind =] example := 0))
|
|
|
|
/--
|
|
info: @[grind _=_]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind _=_] example := 0))
|
|
|
|
/--
|
|
info: @[grind =_]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind =_] example := 0))
|
|
|
|
/--
|
|
info: @[grind →]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind →] example := 0))
|
|
|
|
/--
|
|
info: @[grind ←]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind ←] example := 0))
|
|
|
|
/--
|
|
info: @[grind ←=]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind ←=] example := 0))
|
|
|
|
/--
|
|
info: @[grind]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind] example := 0))
|
|
|
|
/--
|
|
info: @[grind ← gen]
|
|
example :=
|
|
0
|
|
-/
|
|
#guard_msgs in
|
|
run_cmd test (← `(@[grind ← gen] example := 0))
|
|
|
|
set_option hygiene false in
|
|
/-- info: example := by grind [a] on_failure 3 -/
|
|
#guard_msgs in
|
|
run_cmd test (← `(example := by grind [a] on_failure 3))
|