diff options
Diffstat (limited to 'src/GF/Speech/PrSRGS.hs')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index 3604f34cd..4044f097f 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -43,12 +43,13 @@ srgsXmlPrinter name opts probs cfg = prSrgsXml srg "" where srg = makeSRG name opts probs cfg prSrgsXml :: SRG -> ShowS -prSrgsXml (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) +prSrgsXml (SRG{grammarName=name,startCat=start, + origStartCat=origStart,grammarLanguage=l,rules=rs}) = header . showsXML xmlGr where header = showString "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>" root = prCat start - xmlGr = grammar root (comments + xmlGr = grammar root l (comments ["SRGS XML speech recognition grammar for " ++ name, "Generated by GF", "Original start category: " ++ origStart] @@ -78,16 +79,14 @@ oneOf :: [XML] -> XML oneOf [x] = x oneOf xs = Tag "one-of" [] xs --- FIXME: what about xml:lang? grammar :: String -- ^ root + -> String -- ^languageq -> [XML] -> XML -grammar root = Tag "grammar" [("xmlns","http://www.w3.org/2001/06/grammar"), - ("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance"), - ("xsi:schemaLocation", - "http://www.w3.org/2001/06/grammar http://www.w3.org/TR/speech-grammar/grammar.xsd"), - ("version","1.0"), - ("mode","voice"), - ("root",root)] +grammar root l = Tag "grammar" [("xml:lang", l), + ("xmlns","http://www.w3.org/2001/06/grammar"), + ("version","1.0"), + ("mode","voice"), + ("root",root)] comments :: [String] -> [XML] comments = map Comment |