From 8cd03874f6d048cd4512e2855a30254cdf66de65 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 1 Feb 2006 18:09:47 +0000 Subject: [PATCH] Include GF version and compile date in SRGS meta creator tag. --- src/GF/Speech/PrSRGS.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index 89db71d1a..6e445d41a 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -20,6 +20,7 @@ module GF.Speech.PrSRGS (srgsXmlPrinter) where import GF.Data.Utilities import GF.Speech.SRG import GF.Infra.Ident +import GF.Today import GF.Formalism.CFG import GF.Formalism.Utilities (Symbol(..), NameProfile(..), Profile(..), forestName) @@ -54,7 +55,8 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start, xmlGr = grammar root l ([meta "description" ("SRGS XML speech recognition grammar for " ++ name ++ ". " ++ "Original start category: " ++ origStart), - meta "generator" "GF"] + meta "generator" ("Grammatical Framework " ++ version + ++ " (compiled " ++ today ++ ")")] ++ map ruleToXML rs) ruleToXML (SRGRule cat origCat alts) = rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts)