From 169659c096a38f8fc0cf48e3054efbdf30a96c8c Mon Sep 17 00:00:00 2001 From: bringert Date: Sun, 21 Jan 2007 16:33:44 +0000 Subject: Get speechLanguage flag from both command-line and grammar. Reformat it to RFC3066 format (- instead of _) and use it in SRGS, VoiceXML and JSGF. --- src/GF/Speech/PrSRGS.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/GF/Speech/PrSRGS.hs') diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index e0754f389..b6af82d32 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -125,15 +125,15 @@ oneOf = Tag "one-of" [] grammar :: Maybe SISRFormat -> String -- ^ root - -> String -- ^language + -> Maybe String -- ^language -> [XML] -> XML -grammar sisr root l = - Tag "grammar" $ [("xml:lang", l), - ("xmlns","http://www.w3.org/2001/06/grammar"), +grammar sisr root ml = + Tag "grammar" $ [("xmlns","http://www.w3.org/2001/06/grammar"), ("version","1.0"), ("mode","voice"), ("root",root)] ++ (if isJust sisr then [("tag-format","semantics/1.0")] else []) + ++ maybe [] (\l -> [("xml:lang", l)]) ml meta :: String -> String -> XML meta n c = Tag "meta" [("name",n),("content",c)] [] -- cgit v1.2.3