From dea5158cbf1c11d45f2ed91d9975fbc77245e652 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 2 Dec 2005 13:13:14 +0000
Subject: floats in GF and GFC (parsing user input still doesn't work)

---
 src/GF/Canon/GFC.cf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/GF/Canon/GFC.cf')

diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf
index 5c0c95be3..d9385a49f 100644
--- a/src/GF/Canon/GFC.cf
+++ b/src/GF/Canon/GFC.cf
@@ -80,6 +80,7 @@ APC. APatt ::= "(" CIdent [APatt] ")" ;
 APV. APatt ::= Ident ;
 APS. APatt ::= String ;
 API. APatt ::= Integer ;
+APF. APatt ::= Double ;
 APW. APatt ::= "_" ;
 
 separator Decl ";" ;
@@ -120,7 +121,8 @@ S.    Term1 ::= Term1 "!" Term2 ;
 C.    Term  ::= Term "++" Term1 ;
 FV.   Term1 ::= "variants" "{" [Term2] "}" ;  --- no separator!
 
-EInt. Term2 ::= Integer ;
+EInt.   Term2 ::= Integer ;
+EFloat. Term2 ::= Double ;
 K.    Term2 ::= Tokn ;
 E.    Term2 ::= "[" "]" ;
 
@@ -144,6 +146,7 @@ PV.   Patt ::= Ident ;
 PW.   Patt ::= "_" ;
 PR.   Patt ::= "{" [PattAssign] "}" ;
 PI.   Patt ::= Integer ;
+PF.   Patt ::= Double ;
 
 PAss. PattAssign ::= Label "=" Patt ;
 
-- 
cgit v1.2.3