6e5cd5fcc0
@Kha I kept `TokenInfo` as is. That is, the `lbp` field is still `Option Nat`. I changed my mind because we have the combinator `NonReservedSymbol`. It feels weird to have a combinator that does not create a keyword, but sets the `lbp`. Recall that it is used at `Lean/Parser/Tactic.lean`. Other observations: - We use symbols in auxiliary constructions (e.g., `mkAntiquot`). It feels weird to set their `lbp` there. - It felt weird to specify the `lbp` in places such as ``` def structCtor := parser! ident >> optional inferMod >> symbol " :: " 67 ``` - We have a few parsing rules where the same symbol appears twice. It is funny to set the `lbp` twice. Note that the approach we discussed yesterday (retrieving the `lbp` from the `Environment`) would not work here.
81 lines
4.3 KiB
Text
81 lines
4.3 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
|
|
-/
|
|
prelude
|
|
import Lean.Parser.Command
|
|
import Lean.Parser.Tactic
|
|
|
|
namespace Lean
|
|
namespace Parser
|
|
|
|
@[init] def regBuiltinSyntaxParserAttr : IO Unit :=
|
|
let leadingIdentAsSymbol := true;
|
|
registerBuiltinParserAttribute `builtinSyntaxParser `syntax leadingIdentAsSymbol
|
|
|
|
@[inline] def syntaxParser (rbp : Nat := 0) : Parser :=
|
|
categoryParser `syntax rbp
|
|
|
|
def maxPrec := parser! nonReservedSymbol "max" true
|
|
def precedenceLit : Parser := numLit <|> maxPrec
|
|
def «precedence» := parser! ":" >> precedenceLit
|
|
def optPrecedence := optional (try «precedence»)
|
|
|
|
namespace Syntax
|
|
@[builtinSyntaxParser] def paren := parser! symbol "(" appPrec >> many1 syntaxParser >> ")"
|
|
@[builtinSyntaxParser] def cat := parser! ident >> optPrecedence
|
|
@[builtinSyntaxParser] def atom := parser! strLit >> optPrecedence
|
|
@[builtinSyntaxParser] def num := parser! nonReservedSymbol "num"
|
|
@[builtinSyntaxParser] def str := parser! nonReservedSymbol "str"
|
|
@[builtinSyntaxParser] def char := parser! nonReservedSymbol "char"
|
|
@[builtinSyntaxParser] def ident := parser! nonReservedSymbol "ident"
|
|
@[builtinSyntaxParser] def try := parser! nonReservedSymbol "try " >> syntaxParser appPrec
|
|
@[builtinSyntaxParser] def lookahead := parser! nonReservedSymbol "lookahead " >> syntaxParser appPrec
|
|
@[builtinSyntaxParser] def sepBy := parser! nonReservedSymbol "sepBy " >> syntaxParser appPrec >> syntaxParser appPrec
|
|
@[builtinSyntaxParser] def sepBy1 := parser! nonReservedSymbol "sepBy1 " >> syntaxParser appPrec >> syntaxParser appPrec
|
|
|
|
@[builtinSyntaxParser] def optional := tparser! symbolAux "?" none
|
|
@[builtinSyntaxParser] def many := tparser! symbolAux "*" none
|
|
@[builtinSyntaxParser] def many1 := tparser! symbolAux "+" none
|
|
@[builtinSyntaxParser] def orelse := tparser! symbol " <|> " 2 >> syntaxParser 1
|
|
|
|
end Syntax
|
|
|
|
namespace Command
|
|
|
|
def quotedSymbolPrec := parser! quotedSymbol >> optPrecedence
|
|
def «prefix» := parser! "prefix"
|
|
def «infix» := parser! "infix"
|
|
def «infixl» := parser! "infixl"
|
|
def «infixr» := parser! "infixr"
|
|
def «postfix» := parser! "postfix"
|
|
def mixfixKind := «prefix» <|> «infix» <|> «infixl» <|> «infixr» <|> «postfix»
|
|
-- TODO delete reserve
|
|
@[builtinCommandParser] def «reserve» := parser! "reserve " >> mixfixKind >> quotedSymbolPrec
|
|
def mixfixSymbol := quotedSymbolPrec <|> unquotedSymbol
|
|
-- TODO: remove " := " after old frontend is gone
|
|
@[builtinCommandParser] def «mixfix» := parser! mixfixKind >> mixfixSymbol >> (" := " <|> darrow) >> termParser
|
|
def strLitPrec := parser! strLit >> optPrecedence
|
|
def identPrec := parser! ident >> optPrecedence
|
|
|
|
def optKind : Parser := optional (symbol "[" appPrec >> ident >> "]")
|
|
-- TODO: remove " := " after old frontend is gone
|
|
@[builtinCommandParser] def «notation» := parser! "notation" >> many (strLitPrec <|> quotedSymbolPrec <|> identPrec) >> (" := " <|> darrow) >> termParser
|
|
@[builtinCommandParser] def «macro_rules» := parser! "macro_rules" >> optKind >> Term.matchAlts
|
|
@[builtinCommandParser] def «syntax» := parser! "syntax " >> optKind >> many1 syntaxParser >> " : " >> ident
|
|
@[builtinCommandParser] def syntaxCat := parser! "declare_syntax_cat " >> ident
|
|
def macroArgType := nonReservedSymbol "ident" <|> nonReservedSymbol "num" <|> nonReservedSymbol "str" <|> nonReservedSymbol "char" <|> (ident >> optPrecedence)
|
|
def macroArgSimple := parser! ident >> checkNoWsBefore "no space before ':'" >> ":" >> macroArgType
|
|
def macroArg := try strLitPrec <|> try macroArgSimple
|
|
def macroHead := macroArg <|> try identPrec
|
|
def macroTailTactic : Parser := try (" : " >> identEq "tactic") >> darrow >> symbol "`(" appPrec >> sepBy1 tacticParser "; " true true >> ")"
|
|
def macroTailCommand : Parser := try (" : " >> identEq "command") >> darrow >> symbol "`(" appPrec >> many1 commandParser true >> ")"
|
|
def macroTailDefault : Parser := try (" : " >> ident) >> darrow >> ((symbol "`(" appPrec >> categoryParserOfStack 2 >> ")") <|> termParser)
|
|
def macroTail := macroTailTactic <|> macroTailCommand <|> macroTailDefault
|
|
@[builtinCommandParser] def «macro» := parser! "macro " >> macroHead >> many macroArg >> macroTail
|
|
|
|
end Command
|
|
|
|
end Parser
|
|
end Lean
|