diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-26 10:03:42 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-26 10:03:42 +0000 |
| commit | 7a81b559fe90b4d1c389c21025da56e5159769e9 (patch) | |
| tree | 54d3ac7391ff48ee81efa221ba70dd1adbb1ae12 /src/GF/Speech | |
| parent | a372357adce9839b31c248f4797512031c624a2a (diff) | |
Changed nolr printer to use EBNF format.
Diffstat (limited to 'src/GF/Speech')
| -rw-r--r-- | src/GF/Speech/PGFToCFG.hs | 5 | ||||
| -rw-r--r-- | src/GF/Speech/SRG.hs | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/src/GF/Speech/PGFToCFG.hs b/src/GF/Speech/PGFToCFG.hs index 0602e5a58..27f08ba2d 100644 --- a/src/GF/Speech/PGFToCFG.hs +++ b/src/GF/Speech/PGFToCFG.hs @@ -4,7 +4,7 @@ -- -- Approximates PGF grammars with context-free grammars. ---------------------------------------------------------------------- -module GF.Speech.PGFToCFG (bnfPrinter, nonLeftRecursivePrinter, regularPrinter, +module GF.Speech.PGFToCFG (bnfPrinter, regularPrinter, fcfgPrinter, pgfToCFG) where import PGF.CId @@ -26,9 +26,6 @@ import qualified Data.Set as Set bnfPrinter :: PGF -> CId -> String bnfPrinter = toBNF id -nonLeftRecursivePrinter :: PGF -> CId -> String -nonLeftRecursivePrinter = toBNF removeLeftRecursion - regularPrinter :: PGF -> CId -> String regularPrinter = toBNF makeRegular diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 7ac5ab081..cee210dff 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -11,6 +11,7 @@ module GF.Speech.SRG (SRG(..), SRGRule(..), SRGAlt(..), SRGItem, SRGSymbol , SRGNT, CFTerm , ebnfPrinter + , nonLeftRecursivePrinter , makeSimpleSRG , makeNonRecursiveSRG , getSpeechLanguage @@ -69,6 +70,9 @@ type SRGNT = (Cat, Int) ebnfPrinter :: PGF -> CId -> String ebnfPrinter pgf cnc = prSRG $ makeSRG id pgf cnc +nonLeftRecursivePrinter :: PGF -> CId -> String +nonLeftRecursivePrinter pgf cnc = prSRG $ makeSRG removeLeftRecursion pgf cnc + makeSRG :: (CFG -> CFG) -> PGF -> CId -> SRG makeSRG = mkSRG cfgToSRG where |