Towards smaller SRGs when lots of variants are used.

src/GF/Speech/PrRegExp.hs

@@ -0,0 +1,21 @@
+----------------------------------------------------------------------
+-- |
+-- Module      : PrSLF
+-- Maintainer  : BB
+-- Stability   : (stable)
+-- Portability : (portable)
+--
+-- This module prints a grammar as a regular expression.
+-----------------------------------------------------------------------------
+
+module GF.Speech.PrRegExp (regexpPrinter) where
+
+import GF.Conversion.Types
+import GF.Infra.Ident
+import GF.Speech.CFGToFiniteState
+import GF.Speech.RegExp
+
+
+regexpPrinter :: Ident -- ^ Grammar name
+	      -> String -> CGrammar -> String
+regexpPrinter name start cfg = prRE $ dfa2re $ cfgToFA start cfg