chore: add elabAttr
WIP
This commit is contained in:
parent
12acbaf392
commit
d5cb3aa85a
1 changed files with 10 additions and 0 deletions
|
|
@ -263,6 +263,16 @@ fun stx => do
|
|||
else
|
||||
throwError "invalid mutual block"
|
||||
|
||||
|
||||
/- parser! optional "local " >> "attribute " >> "[" >> sepBy1 Term.attrInstance ", " >> "]" >> many1 ident -/
|
||||
@[builtinCommandElab «attribute»] def elabAttr : CommandElab :=
|
||||
fun stx => do
|
||||
let isLocal := !(stx.getArg 0).isNone;
|
||||
attrs ← elabAttrs (stx.getArg 3);
|
||||
let idents := (stx.getArg 5).getArgs;
|
||||
idents.forM fun ident => withRef ident do
|
||||
throwError "WIP"
|
||||
|
||||
end Command
|
||||
end Elab
|
||||
end Lean
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue