diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
| commit | d13b32ea48d255c71670321c9b8d0d611afe0a17 (patch) | |
| tree | 0e4a98d507eb02f7c4e83815f66667d273d36a16 /src-3.0/GF/Speech | |
| parent | 2cf7a7d07eaa394c56ca020f7383ba747d9374a3 (diff) | |
Refactor grammar export code.
Diffstat (limited to 'src-3.0/GF/Speech')
| -rw-r--r-- | src-3.0/GF/Speech/PGFToCFG.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src-3.0/GF/Speech/PGFToCFG.hs b/src-3.0/GF/Speech/PGFToCFG.hs index 168591e6b..1f3ebaeb4 100644 --- a/src-3.0/GF/Speech/PGFToCFG.hs +++ b/src-3.0/GF/Speech/PGFToCFG.hs @@ -4,7 +4,7 @@ -- -- Approximates PGF grammars with context-free grammars. ---------------------------------------------------------------------- -module GF.Speech.PGFToCFG (pgfToCFG) where +module GF.Speech.PGFToCFG (bnfPrinter, pgfToCFG) where import PGF.CId import PGF.Data as PGF @@ -19,6 +19,8 @@ import Data.Maybe import Data.Set (Set) import qualified Data.Set as Set +bnfPrinter :: PGF -> CId -> String +bnfPrinter pgf cnc = prCFG $ pgfToCFG pgf cnc pgfToCFG :: PGF -> CId -- ^ Concrete syntax name |