Added srgs_abnf_non_rec.

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})

src/GF/UseGrammar/Custom.hs

@@ -256,6 +256,7 @@ customGrammarPrinter =
   ,(strCI "srgs_xml_prob",      srgsXmlPrinter Nothing True)
   ,(strCI "srgs_xml_sisr_old",  srgsXmlPrinter (Just SISR.SISROld) False)
   ,(strCI "srgs_abnf",          srgsAbnfPrinter Nothing False)
+  ,(strCI "srgs_abnf_non_rec",  srgsAbnfNonRecursivePrinter)
   ,(strCI "srgs_abnf_sisr_old", srgsAbnfPrinter (Just SISR.SISROld) False)
   ,(strCI "vxml", grammar2vxml)
   ,(strCI "slf",  slfPrinter)