diff options
| author | krasimir <krasimir@chalmers.se> | 2010-06-18 12:55:58 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-06-18 12:55:58 +0000 |
| commit | 992a7ffb381190ffa67f59f33d0dfadf41f84e78 (patch) | |
| tree | f76a7b6120f4bcc92b41a17651efb51717c8f7bb /src/compiler/GF/Grammar/Predef.hs | |
| parent | 5dfc9bbc0b87d27b4ef8848a36520605fa868fe3 (diff) | |
Yay!! Direct generation of PMCFG from GF grammar
Diffstat (limited to 'src/compiler/GF/Grammar/Predef.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Predef.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/compiler/GF/Grammar/Predef.hs b/src/compiler/GF/Grammar/Predef.hs index 370497cc7..f16765433 100644 --- a/src/compiler/GF/Grammar/Predef.hs +++ b/src/compiler/GF/Grammar/Predef.hs @@ -19,6 +19,7 @@ module GF.Grammar.Predef , cInt , cFloat , cString + , cVar , cInts , cPBool , cErrorType @@ -73,6 +74,9 @@ cFloat = identC (BS.pack "Float") cString :: Ident cString = identC (BS.pack "String") +cVar :: Ident +cVar = identC (BS.pack "__gfVar") + cInts :: Ident cInts = identC (BS.pack "Ints") @@ -89,7 +93,7 @@ cUndefinedType :: Ident cUndefinedType = identC (BS.pack "UndefinedType") isLiteralCat :: Ident -> Bool -isLiteralCat c = elem c [cInt,cString,cFloat] +isLiteralCat c = elem c [cInt,cString,cFloat,cVar] cPTrue :: Ident cPTrue = identC (BS.pack "PTrue") |