14 lines
292 B
Text
14 lines
292 B
Text
import Init.Lean
|
|
|
|
new_frontend
|
|
|
|
open Lean
|
|
open Lean.Parser
|
|
|
|
def regBlaParserAttribute : IO Unit :=
|
|
registerBuiltinDynamicParserAttribute (mkNameSimple "blaParser") (mkNameSimple "bla")
|
|
|
|
@[inline] def parser {k : ParserKind} : Parser k :=
|
|
categoryParser (mkNameSimple "bla") 0
|
|
|
|
#check @parser
|