f9e140838e
This PR adds a new helper parser for implementing parsers that contain hexadecimal numbers. We are going to use it to implement anchors in the `grind` interactive mode.
135 lines
8 KiB
Text
135 lines
8 KiB
Text
/-
|
|
Copyright (c) 2019 Microsoft Corporation. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Leonardo de Moura, Sebastian Ullrich
|
|
-/
|
|
module
|
|
|
|
prelude
|
|
public import Lean.Parser.Basic
|
|
public import Lean.Parser.Level
|
|
public import Lean.Parser.Term
|
|
public import Lean.Parser.Tactic
|
|
public import Lean.Parser.Command
|
|
public import Lean.Parser.Module
|
|
public import Lean.Parser.Syntax
|
|
public import Lean.Parser.Do
|
|
public import Lean.Parser.Tactic.Doc
|
|
|
|
public section
|
|
|
|
namespace Lean
|
|
namespace Parser
|
|
open Lean.PrettyPrinter
|
|
open Lean.PrettyPrinter.Parenthesizer
|
|
open Lean.PrettyPrinter.Formatter
|
|
|
|
builtin_initialize
|
|
register_parser_alias "ws" checkWsBefore { stackSz? := some 0 }
|
|
register_parser_alias "noWs" checkNoWsBefore { stackSz? := some 0 }
|
|
register_parser_alias "linebreak" checkLinebreakBefore { stackSz? := some 0 }
|
|
register_parser_alias (kind := numLitKind) "num" numLit
|
|
register_parser_alias (kind := strLitKind) "str" strLit
|
|
register_parser_alias (kind := charLitKind) "char" charLit
|
|
register_parser_alias (kind := nameLitKind) "name" nameLit
|
|
register_parser_alias (kind := scientificLitKind) "scientific" scientificLit
|
|
register_parser_alias (kind := identKind) ident
|
|
register_parser_alias (kind := identKind) rawIdent
|
|
register_parser_alias (kind := hygieneInfoKind) hygieneInfo
|
|
register_parser_alias "colGt" checkColGt { stackSz? := some 0 }
|
|
register_parser_alias "colGe" checkColGe { stackSz? := some 0 }
|
|
register_parser_alias "colEq" checkColEq { stackSz? := some 0 }
|
|
register_parser_alias "lineEq" checkLineEq { stackSz? := some 0 }
|
|
register_parser_alias lookahead { stackSz? := some 0 }
|
|
register_parser_alias atomic { stackSz? := none }
|
|
register_parser_alias many
|
|
register_parser_alias many1
|
|
register_parser_alias manyIndent
|
|
register_parser_alias many1Indent
|
|
register_parser_alias optional { autoGroupArgs := false }
|
|
register_parser_alias withPosition { stackSz? := none }
|
|
register_parser_alias withoutPosition { stackSz? := none }
|
|
register_parser_alias withoutForbidden { stackSz? := none }
|
|
register_parser_alias (kind := interpolatedStrKind) interpolatedStr
|
|
register_parser_alias (kind := hexnumKind) hexnum
|
|
register_parser_alias orelse
|
|
register_parser_alias andthen { stackSz? := none }
|
|
register_parser_alias recover
|
|
|
|
registerAlias `notFollowedBy ``notFollowedBy (notFollowedBy · "element")
|
|
Parenthesizer.registerAlias `notFollowedBy notFollowedBy.parenthesizer
|
|
Formatter.registerAlias `notFollowedBy notFollowedBy.formatter
|
|
|
|
end Parser
|
|
|
|
namespace PrettyPrinter
|
|
namespace Parenthesizer
|
|
|
|
-- Close the mutual recursion loop; see corresponding `[extern]` in the parenthesizer.
|
|
@[export lean_mk_antiquot_parenthesizer]
|
|
def mkAntiquot.parenthesizer (name : String) (kind : SyntaxNodeKind) (anonymous := true) (isPseudoKind := true) : Parenthesizer :=
|
|
Parser.mkAntiquot.parenthesizer name kind anonymous isPseudoKind
|
|
|
|
-- The parenthesizer auto-generated these instances correctly, but tagged them with the wrong kind, since the actual kind
|
|
-- (e.g. `ident`) is not equal to the parser name `Lean.Parser.Term.ident`.
|
|
@[builtin_parenthesizer ident] def ident.parenthesizer : Parenthesizer := Parser.Term.ident.parenthesizer
|
|
@[builtin_parenthesizer num] def numLit.parenthesizer : Parenthesizer := Parser.Term.num.parenthesizer
|
|
@[builtin_parenthesizer scientific] def scientificLit.parenthesizer : Parenthesizer := Parser.Term.scientific.parenthesizer
|
|
@[builtin_parenthesizer char] def charLit.parenthesizer : Parenthesizer := Parser.Term.char.parenthesizer
|
|
@[builtin_parenthesizer str] def strLit.parenthesizer : Parenthesizer := Parser.Term.str.parenthesizer
|
|
|
|
open Lean.Parser
|
|
|
|
@[export lean_pretty_printer_parenthesizer_interpret_parser_descr]
|
|
unsafe def interpretParserDescr : ParserDescr → CoreM Parenthesizer
|
|
| ParserDescr.const n => getConstAlias parenthesizerAliasesRef n
|
|
| ParserDescr.unary n d => return (← getUnaryAlias parenthesizerAliasesRef n) (← interpretParserDescr d)
|
|
| ParserDescr.binary n d₁ d₂ => return (← getBinaryAlias parenthesizerAliasesRef n) (← interpretParserDescr d₁) (← interpretParserDescr d₂)
|
|
| ParserDescr.node k prec d => return leadingNode.parenthesizer k prec (← interpretParserDescr d)
|
|
| ParserDescr.nodeWithAntiquot n k d => return withAntiquot.parenthesizer (mkAntiquot.parenthesizer' n k (anonymous := true)) <|
|
|
node.parenthesizer k (← interpretParserDescr d)
|
|
| ParserDescr.sepBy p sep psep trail => return sepBy.parenthesizer (← interpretParserDescr p) sep (← interpretParserDescr psep) trail
|
|
| ParserDescr.sepBy1 p sep psep trail => return sepBy1.parenthesizer (← interpretParserDescr p) sep (← interpretParserDescr psep) trail
|
|
| ParserDescr.trailingNode k prec lhsPrec d => return trailingNode.parenthesizer k prec lhsPrec (← interpretParserDescr d)
|
|
| ParserDescr.symbol tk => return symbol.parenthesizer tk
|
|
| ParserDescr.nonReservedSymbol tk includeIdent => return nonReservedSymbol.parenthesizer tk includeIdent
|
|
| ParserDescr.unicodeSymbol tk asciiTk preserve => return unicodeSymbol.parenthesizer tk asciiTk preserve
|
|
| ParserDescr.parser constName => combinatorParenthesizerAttribute.runDeclFor constName
|
|
| ParserDescr.cat catName prec => return categoryParser.parenthesizer catName prec
|
|
|
|
end Parenthesizer
|
|
|
|
namespace Formatter
|
|
|
|
@[export lean_mk_antiquot_formatter]
|
|
def mkAntiquot.formatter (name : String) (kind : SyntaxNodeKind) (anonymous := true) (isPseudoKind := true) : Formatter :=
|
|
Parser.mkAntiquot.formatter name kind anonymous isPseudoKind
|
|
|
|
@[builtin_formatter ident] def ident.formatter : Formatter := Parser.Term.ident.formatter
|
|
@[builtin_formatter num] def numLit.formatter : Formatter := Parser.Term.num.formatter
|
|
@[builtin_formatter scientific] def scientificLit.formatter : Formatter := Parser.Term.scientific.formatter
|
|
@[builtin_formatter char] def charLit.formatter : Formatter := Parser.Term.char.formatter
|
|
@[builtin_formatter str] def strLit.formatter : Formatter := Parser.Term.str.formatter
|
|
|
|
open Lean.Parser
|
|
|
|
@[export lean_pretty_printer_formatter_interpret_parser_descr]
|
|
unsafe def interpretParserDescr : ParserDescr → CoreM Formatter
|
|
| ParserDescr.const n => getConstAlias formatterAliasesRef n
|
|
| ParserDescr.unary n d => return (← getUnaryAlias formatterAliasesRef n) (← interpretParserDescr d)
|
|
| ParserDescr.binary n d₁ d₂ => return (← getBinaryAlias formatterAliasesRef n) (← interpretParserDescr d₁) (← interpretParserDescr d₂)
|
|
| ParserDescr.node k _ d => return node.formatter k (← interpretParserDescr d)
|
|
| ParserDescr.nodeWithAntiquot n k d => return withAntiquot.formatter (mkAntiquot.formatter' n k (anonymous := true)) <|
|
|
node.formatter k (← interpretParserDescr d)
|
|
| ParserDescr.sepBy p sep psep trail => return sepBy.formatter (← interpretParserDescr p) sep (← interpretParserDescr psep) trail
|
|
| ParserDescr.sepBy1 p sep psep trail => return sepBy1.formatter (← interpretParserDescr p) sep (← interpretParserDescr psep) trail
|
|
| ParserDescr.trailingNode k prec lhsPrec d => return trailingNode.formatter k prec lhsPrec (← interpretParserDescr d)
|
|
| ParserDescr.symbol tk => return symbol.formatter tk
|
|
| ParserDescr.nonReservedSymbol tk _ => return nonReservedSymbol.formatter tk
|
|
| ParserDescr.unicodeSymbol tk asciiTk preserve => return unicodeSymbol.formatter tk asciiTk preserve
|
|
| ParserDescr.parser constName => combinatorFormatterAttribute.runDeclFor constName
|
|
| ParserDescr.cat catName _ => return categoryParser.formatter catName
|
|
|
|
end Formatter
|
|
end PrettyPrinter
|
|
end Lean
|