msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Make first letter in GSL category names upper case.

Browse Source
This commit is contained in:
bringert
2005-01-28 15:57:59 +00:00
parent 37db5016a8
commit 8947c49066
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/GF/Speech/PrGSL.hs
View File

@@ -28,6 +28,8 @@ import GrammarTypes
import PrintParser import PrintParser
import Option import Option
import Data.Char (toUpper)
gslPrinter :: Ident -- ^ Grammar name gslPrinter :: Ident -- ^ Grammar name
-> Options -> CFGrammar -> String -> Options -> CFGrammar -> String
gslPrinter name opts cfg = prGSL srg "" gslPrinter name opts cfg = prGSL srg ""
@@ -49,7 +51,12 @@ prGSL (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs})
where rhs' = rmPunct rhs where rhs' = rmPunct rhs
prSymbol (Cat c) = prCat c prSymbol (Cat c) = prCat c
prSymbol (Tok t) = wrap "\"" (prtS t) "\"" prSymbol (Tok t) = wrap "\"" (prtS t) "\""
prCat c = showString c -- GSL requires an upper case letter in category names
prCat c = showString (firstToUpper c)
firstToUpper :: String -> String
firstToUpper [] = []
firstToUpper (x:xs) = toUpper x : xs
rmPunct :: [Symbol String Token] -> [Symbol String Token] rmPunct :: [Symbol String Token] -> [Symbol String Token]
rmPunct [] = [] rmPunct [] = []