da62a81e5e
This PR extends shake with tracking of attribute names passed to `simp`/`grind`. On the way there, it also fixes `register_simp/grind_attr` uses outside `public meta section` as well as go-to-definition on declaration-level uses of the created attributes (tactic-level goto would be a separate todo).
37 lines
1.1 KiB
Text
37 lines
1.1 KiB
Text
module
|
||
|
||
public import Lean
|
||
|
||
open Lean
|
||
|
||
public meta initialize blaAttr : TagAttribute ← registerTagAttribute `bla "simple user defined attribute"
|
||
|
||
/-- My own new simp attribute. -/
|
||
register_simp_attr my_simp
|
||
|
||
syntax (name := foo) "foo" num "important"? : attr
|
||
|
||
public meta initialize fooAttr : ParametricAttribute (Nat × Bool) ←
|
||
registerParametricAttribute {
|
||
name := `foo
|
||
descr := "parametric attribute containing a priority and flag"
|
||
getParam := fun _ stx =>
|
||
match stx with
|
||
| `(attr| foo $prio:num $[important%$imp]?) =>
|
||
return (prio.getNat, imp.isSome)
|
||
| _ => throwError "unexpected foo attribute"
|
||
afterSet := fun declName _ => do
|
||
IO.println s!"set attribute [foo] at {declName}"
|
||
}
|
||
|
||
syntax (name := trace_add) "trace_add" : attr
|
||
|
||
public meta initialize registerBuiltinAttribute {
|
||
name := `trace_add
|
||
descr := "Simply traces when added, to debug double-application bugs"
|
||
add := fun decl _stx _kind => do
|
||
logInfo m!"trace_add attribute added to {decl}"
|
||
-- applicationTime := .afterCompilation
|
||
}
|
||
|
||
register_grind_attr my_grind
|