Towards smaller SRGs when lots of variants are used.

1 files changed, 21 insertions, 0 deletions

diff --git a/src/GF/Speech/PrRegExp.hs b/src/GF/Speech/PrRegExp.hs
new file mode 100644
index 000000000..c0aadab00
--- /dev/null
+++ b/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