GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Include GF version and compile date in SRGS meta creator tag.

Browse Source
This commit is contained in:
bringert
2006-02-01 18:09:47 +00:00
parent a26ccb40bd
commit 8cd03874f6
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/PrSRGS.hs
View File

@@ -20,6 +20,7 @@ module GF.Speech.PrSRGS (srgsXmlPrinter) where
import GF.Data.Utilities import GF.Data.Utilities
import GF.Speech.SRG import GF.Speech.SRG
import GF.Infra.Ident import GF.Infra.Ident
import GF.Today
import GF.Formalism.CFG import GF.Formalism.CFG
import GF.Formalism.Utilities (Symbol(..), NameProfile(..), Profile(..), forestName) 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" xmlGr = grammar root l ([meta "description"
("SRGS XML speech recognition grammar for " ++ name ("SRGS XML speech recognition grammar for " ++ name
++ ". " ++ "Original start category: " ++ origStart), ++ ". " ++ "Original start category: " ++ origStart),
meta "generator" "GF"] meta "generator" ("Grammatical Framework " ++ version
++ " (compiled " ++ today ++ ")")]
++ map ruleToXML rs) ++ map ruleToXML rs)
ruleToXML (SRGRule cat origCat alts) = ruleToXML (SRGRule cat origCat alts) =
rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts) rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts)