From eb9a6f7c7382f22a72c814dc4a9a68e5a558fe62 Mon Sep 17 00:00:00 2001 From: bringert Date: Mon, 25 Jun 2007 16:50:00 +0000 Subject: Added srgs_abnf_non_rec. --- src/GF/Speech/PrSRGS_ABNF.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/GF/Speech') diff --git a/src/GF/Speech/PrSRGS_ABNF.hs b/src/GF/Speech/PrSRGS_ABNF.hs index 55d5b2c51..34f5e7731 100644 --- a/src/GF/Speech/PrSRGS_ABNF.hs +++ b/src/GF/Speech/PrSRGS_ABNF.hs @@ -17,7 +17,7 @@ -- FIXME: convert to UTF-8 ----------------------------------------------------------------------------- -module GF.Speech.PrSRGS_ABNF (srgsAbnfPrinter) where +module GF.Speech.PrSRGS_ABNF (srgsAbnfPrinter, srgsAbnfNonRecursivePrinter) where import GF.Conversion.Types import GF.Data.Utilities @@ -46,6 +46,9 @@ srgsAbnfPrinter :: Maybe SISRFormat -> StateGrammar -> String srgsAbnfPrinter sisr probs opts s = show $ prABNF sisr probs $ makeSimpleSRG opts s +srgsAbnfNonRecursivePrinter :: Options -> StateGrammar -> String +srgsAbnfNonRecursivePrinter opts s = show $ prABNF Nothing False $ makeNonRecursiveSRG opts s + prABNF :: Maybe SISRFormat -> Bool -> SRG -> Doc prABNF sisr probs srg@(SRG{grammarName=name,grammarLanguage=ml, startCat=start,origStartCat=origStart,rules=rs}) -- cgit v1.2.3