17 lines
437 B
Text
17 lines
437 B
Text
import Init.Lean
|
|
|
|
new_frontend
|
|
|
|
open Lean
|
|
open Lean.Parser
|
|
|
|
def mkParserAttribute : IO ParserAttribute :=
|
|
registerParserAttribute (mkNameSimple "bla") "bla" "bla parser" Option.none
|
|
|
|
@[init mkParserAttribute]
|
|
constant parserAttribute : ParserAttribute
|
|
|
|
@[inline] def parser {k : ParserKind} : Parser k :=
|
|
Parser.mk (Parser.info $ Inhabited.default Parser) (fun _ => ParserAttribute.runParserFn parserAttribute (0 : Nat))
|
|
|
|
#check @parser
|