diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-26 09:20:39 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-26 09:20:39 +0000 |
| commit | 92c76a626571fd2ccc50641595cbfec9681656dc (patch) | |
| tree | 6a28e240a0825df7ff57276ef303b15702a2dbb9 /src/GF/Speech/PrRegExp.hs | |
| parent | 8fa99886b3a47cf58a2777ffb6d98220ee122643 (diff) | |
Added --output-format=ebnf.
Diffstat (limited to 'src/GF/Speech/PrRegExp.hs')
| -rw-r--r-- | src/GF/Speech/PrRegExp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/PrRegExp.hs b/src/GF/Speech/PrRegExp.hs index ae450dee8..0fc35d541 100644 --- a/src/GF/Speech/PrRegExp.hs +++ b/src/GF/Speech/PrRegExp.hs @@ -14,13 +14,13 @@ import GF.Speech.RegExp import PGF regexpPrinter :: PGF -> CId -> String -regexpPrinter pgf cnc = (++"\n") $ prRE $ dfa2re $ cfgToFA $ pgfToCFG pgf cnc +regexpPrinter pgf cnc = (++"\n") $ prRE id $ dfa2re $ cfgToFA $ pgfToCFG pgf cnc multiRegexpPrinter :: PGF -> CId -> String multiRegexpPrinter pgf cnc = prREs $ mfa2res $ cfgToMFA $ pgfToCFG pgf cnc prREs :: [(String,RE CFSymbol)] -> String -prREs res = unlines [l ++ " = " ++ prRE (mapRE showLabel re) | (l,re) <- res] +prREs res = unlines [l ++ " = " ++ prRE id (mapRE showLabel re) | (l,re) <- res] where showLabel = symbol (\l -> "<" ++ l ++ ">") id mfa2res :: MFA -> [(String,RE CFSymbol)] |