msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

caseE

Browse Source
This commit is contained in:
crumbtoo
2024-03-04 10:26:04 -07:00
parent 1b1185648a
commit 142c53a553
3 changed files with 77 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/Rlp/AltParse.y
View File

@@ -120,6 +120,16 @@ FunD :: { Decl PsName (RlpExpr PsName) }
Expr :: { RlpExpr PsName }
: AppE { $1 }
| LetE { $1 }
| CaseE { $1 }
CaseE :: { RlpExpr PsName }
: case Expr of CaseAlts { Finr $ CaseEF $2 $4 }
CaseAlts :: { [Alter PsName (RlpExpr PsName)] }
: layout1(CaseAlt) { $1 }
CaseAlt :: { Alter PsName (RlpExpr PsName) }
: Pat '->' Expr { Alter $1 $3 }
LetE :: { RlpExpr PsName }
: let layout1(Binding) in Expr
@@ -140,9 +150,15 @@ Pat1s :: { [Pat PsName] }
Pat1 :: { Pat PsName }
: Var { VarP $1 }
| Con { ConP $1 }
| '(' Pat ')' { $2 }
Pat :: { Pat PsName }
: AppP { $1 }
AppP :: { Pat PsName }
: Pat1 { $1 }
| AppP Pat1 { $1 `AppP` $2 }
Con :: { PsName }
: conname { $1 ^. to extract