Predef functions toUpper, toLower, isUpper

2011-06-02 16:10:46 +00:00
parent d9ccb26c98
commit a3924abece
2 changed files with 21 additions and 1 deletions
--- a/src/compiler/GF/Grammar/Predef.hs
+++ b/src/compiler/GF/Grammar/Predef.hs
@@ -32,6 +32,7 @@ module GF.Grammar.Predef
          , cLength, cDrop, cTake, cTk, cDp, cEqStr, cOccur
          , cOccurs, cEqInt, cLessInt, cPlus, cShow, cRead
          , cToStr, cMapStr, cError
+          , cToUpper, cToLower, cIsUpper

          -- hacks
          , cMeta, cAs, cChar, cChars, cSeq, cAlt, cRep
@@ -116,6 +117,15 @@ cTk = identC (BS.pack "tk")
 cDp :: Ident
 cDp = identC (BS.pack "dp")

+cToUpper :: Ident
+cToUpper = identC (BS.pack "toUpper")
+
+cToLower :: Ident
+cToLower = identC (BS.pack "toLower")
+
+cIsUpper :: Ident
+cIsUpper = identC (BS.pack "isUpper")
+
 cEqStr :: Ident
 cEqStr = identC (BS.pack "eqStr")