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

Added non-recursive SRGS printing.

Browse Source
This commit is contained in:
bringert
2007-06-25 13:39:26 +00:00
parent 815cc5a7eb
commit e967e040f9
3 changed files with 78 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,7 +11,7 @@
-- categories in the grammar
-----------------------------------------------------------------------------
module GF.Speech.PrSRGS (srgsXmlPrinter) where
module GF.Speech.PrSRGS (srgsXmlPrinter, srgsXmlNonRecursivePrinter) where
import GF.Data.Utilities
import GF.Data.XML
@@ -42,6 +42,10 @@ srgsXmlPrinter :: Maybe SISRFormat
-> StateGrammar -> String
srgsXmlPrinter sisr probs opts s = prSrgsXml sisr probs $ makeSimpleSRG opts s
srgsXmlNonRecursivePrinter :: Options -> StateGrammar -> String
srgsXmlNonRecursivePrinter opts s = prSrgsXml Nothing False $ makeNonRecursiveSRG opts s
prSrgsXml :: Maybe SISRFormat -> Bool -> SRG -> String
prSrgsXml sisr probs srg@(SRG{grammarName=name,startCat=start,
origStartCat=origStart,grammarLanguage=l,rules=rs})