diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 11:59:31 +0000 |
| commit | df0c4f81fa9c620d7c63af79c0b183a6beccf0bd (patch) | |
| tree | 0cdc80b29f8f5df0ad280f17be0ba9d46fbd948c /src-3.0/GF/Speech/PrRegExp.hs | |
| parent | 6394f3ccfbb9d14017393b433a38a3921f1083e5 (diff) | |
remove all files that aren't used in GF-3.0
Diffstat (limited to 'src-3.0/GF/Speech/PrRegExp.hs')
| -rw-r--r-- | src-3.0/GF/Speech/PrRegExp.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src-3.0/GF/Speech/PrRegExp.hs b/src-3.0/GF/Speech/PrRegExp.hs deleted file mode 100644 index 55a25d69b..000000000 --- a/src-3.0/GF/Speech/PrRegExp.hs +++ /dev/null @@ -1,33 +0,0 @@ ----------------------------------------------------------------------- --- | --- Module : PrSLF --- Maintainer : BB --- Stability : (stable) --- Portability : (portable) --- --- This module prints a grammar as a regular expression. ------------------------------------------------------------------------------ - -module GF.Speech.PrRegExp (regexpPrinter,multiRegexpPrinter) where - -import GF.Conversion.Types -import GF.Formalism.Utilities -import GF.Infra.Ident -import GF.Infra.Option (Options) -import GF.Speech.CFGToFiniteState -import GF.Speech.RegExp -import GF.Compile.ShellState (StateGrammar) - - -regexpPrinter :: Options -> StateGrammar -> String -regexpPrinter opts s = (++"\n") $ prRE $ dfa2re $ cfgToFA opts s - -multiRegexpPrinter :: Options -> StateGrammar -> String -multiRegexpPrinter opts s = prREs $ mfa2res $ cfgToMFA opts s - -prREs :: [(String,RE (MFALabel String))] -> String -prREs res = unlines [l ++ " = " ++ prRE (mapRE showLabel re) | (l,re) <- res] - where showLabel = symbol (\l -> "<" ++ l ++ ">") id - -mfa2res :: MFA String -> [(String,RE (MFALabel String))] -mfa2res (MFA _ dfas) = [(l, minimizeRE (dfa2re dfa)) | (l,dfa) <- dfas] |