diff options
| author | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-14 17:05:46 +0000 |
| commit | fe045070cf4333cee0e634db5c877493d1b16030 (patch) | |
| tree | 285273eb564dbd3ad510a183a1c701ec02a1b57a /src/GF/Source/GF.cf | |
| parent | 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (diff) | |
gfcm header
Diffstat (limited to 'src/GF/Source/GF.cf')
| -rw-r--r-- | src/GF/Source/GF.cf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf index 80da5b9d1..d6170a6e7 100644 --- a/src/GF/Source/GF.cf +++ b/src/GF/Source/GF.cf @@ -45,7 +45,7 @@ MUnion. ModBody ::= "union" [Included] ; separator TopDef "" ; -Ext. Extend ::= Ident "**" ; +Ext. Extend ::= [Ident] "**" ; NoExt. Extend ::= ; separator Open "," ; @@ -79,6 +79,7 @@ DFull. Def ::= [Ident] ":" Exp "=" Exp ; DefCat. TopDef ::= "cat" [CatDef] ; DefFun. TopDef ::= "fun" [FunDef] ; +DefFunData.TopDef ::= "data" [FunDef] ; DefDef. TopDef ::= "def" [Def] ; DefData. TopDef ::= "data" [DataDef] ; @@ -145,6 +146,7 @@ EString. Exp4 ::= String ; EInt. Exp4 ::= Integer ; EMeta. Exp4 ::= "?" ; EEmpty. Exp4 ::= "[" "]" ; +EData. Exp4 ::= "data" ; EStrings. Exp4 ::= "[" String "]" ; ERecord. Exp4 ::= "{" [LocDef] "}" ; -- ! ETuple. Exp4 ::= "<" [TupleComp] ">" ; --- needed for separator "," |