From 983aef132b0695af7e1b16d77ad43180388eea71 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 2 Dec 2005 18:33:08 +0000
Subject: Transfer added guards and Eq derivation.

---
 src/Transfer/Syntax/Syntax.cf | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

(limited to 'src/Transfer/Syntax/Syntax.cf')

diff --git a/src/Transfer/Syntax/Syntax.cf b/src/Transfer/Syntax/Syntax.cf
index 64b588376..50812d2f1 100644
--- a/src/Transfer/Syntax/Syntax.cf
+++ b/src/Transfer/Syntax/Syntax.cf
@@ -12,15 +12,18 @@ Module. Module ::= [Import] [Decl] ;
 Import. Import ::= "import" Ident ;
 separator Import ";" ;
 
-DataDecl.  Decl ::= "data" Ident ":" Exp "where" "{" [ConsDecl] "}" ;
-TypeDecl.  Decl ::= Ident ":" Exp ;
-ValueDecl. Decl ::= Ident [Pattern] "=" Exp ;
-DeriveDecl. Decl ::= "derive" Ident Ident ;
+DataDecl.     Decl ::= "data" Ident ":" Exp "where" "{" [ConsDecl] "}" ;
+TypeDecl.     Decl ::= Ident ":" Exp ;
+ValueDecl.    Decl ::= Ident [Pattern] Guard "=" Exp ;
+DeriveDecl.   Decl ::= "derive" Ident Ident ;
 separator Decl ";" ;
 
 ConsDecl. ConsDecl ::= Ident ":" Exp ;
 separator ConsDecl ";" ;
 
+GuardExp.  Guard ::= "|" Exp1 ;
+GuardNo.   Guard ::= ;
+
 -- Disjunctive patterns.
 POr.      Pattern ::= Pattern1 "||" Pattern ;
 
@@ -61,27 +64,26 @@ coercions Pattern 3 ;
 FieldPattern. FieldPattern ::= Ident "=" Pattern ;
 separator FieldPattern ";" ;
 
-ELet.      Exp  ::= "let" "{" [LetDef] "}" "in" Exp ;
+-- Function types have precedence < 1 to keep the
+-- "->" from conflicting with the "->" after guards
+EPi.       Exp ::= "(" VarOrWild ":" Exp ")" "->" Exp ;
+EPiNoVar.  Exp ::= Exp1 "->" Exp ;
+VVar.      VarOrWild ::= Ident ;
+VWild.     VarOrWild ::= "_" ;
+
+EAbs.      Exp1 ::= "\\" VarOrWild "->" Exp1 ;
+ELet.      Exp1 ::= "let" "{" [LetDef] "}" "in" Exp1 ;
 LetDef.    LetDef ::= Ident ":" Exp "=" Exp ;
 separator LetDef ";" ;
-
-ECase.     Exp  ::= "case" Exp "of" "{" [Case] "}" ;
-Case. Case ::= Pattern "->" Exp ;
+ECase.     Exp1 ::= "case" Exp "of" "{" [Case] "}" ;
+Case.     Case ::= Pattern Guard "->" Exp ;
 separator Case ";" ;
-
-EIf.       Exp  ::= "if" Exp "then" Exp "else" Exp ;
-
-EDo.       Exp  ::= "do" "{" [Bind] Exp "}" ;
+EIf.       Exp1 ::= "if" Exp "then" Exp "else" Exp1 ;
+EDo.       Exp1 ::= "do" "{" [Bind] Exp "}" ;
 BindVar.   Bind ::= VarOrWild "<-" Exp ;
 BindNoVar. Bind ::= Exp ;
 terminator Bind ";" ;
 
-EAbs.      Exp2 ::= "\\" VarOrWild "->" Exp ;
-EPi.       Exp2 ::= "(" VarOrWild ":" Exp ")" "->" Exp ;
-EPiNoVar.  Exp2 ::= Exp3 "->" Exp ;
-VVar.      VarOrWild ::= Ident ;
-VWild.     VarOrWild ::= "_" ;
-
 EBind.     Exp3 ::= Exp3 ">>=" Exp4 ;
 EBindC.    Exp3 ::= Exp3 ">>"  Exp4 ;
 
-- 
cgit v1.2.3