parser2: add variable patterns, fix integer
This commit is contained in:
parent
4b4b32b9dd
commit
66328dd1b2
1 changed files with 3 additions and 2 deletions
|
@ -33,8 +33,9 @@ patternlist :: Pattern
|
||||||
pattern :: Pattern
|
pattern :: Pattern
|
||||||
= pattern "::" pattern { ConsP $1 $2 }
|
= pattern "::" pattern { ConsP $1 $2 }
|
||||||
/ "[" patternlist "]"
|
/ "[" patternlist "]"
|
||||||
/ integer { IntP $1 }
|
/ identifier { VarP $1 }
|
||||||
/ stringlit { StrP $1 }
|
/ stringlit { StrP $1 }
|
||||||
|
/ integer { IntP $1 }
|
||||||
|
|
||||||
funpattern :: Pattern
|
funpattern :: Pattern
|
||||||
= pattern ("," pattern)+ { TupleP ($1 : $2) }
|
= pattern ("," pattern)+ { TupleP ($1 : $2) }
|
||||||
|
@ -92,7 +93,7 @@ identifier ::: String
|
||||||
= [a-zA-Z_] [a-zA-Z0-9_'?!]* { $1 : $2 }
|
= [a-zA-Z_] [a-zA-Z0-9_'?!]* { $1 : $2 }
|
||||||
|
|
||||||
integer ::: Integer
|
integer ::: Integer
|
||||||
= [1-9] [0-9]* { read ($1 : $2) }
|
= [0-9] [0-9]* { read ($1 : $2) }
|
||||||
|]
|
|]
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
|
|
Loading…
Reference in a new issue