Set xml:lang in SRGS grammars to the value of the language flag.

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