diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-22 12:01:29 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-22 12:01:29 +0000 |
| commit | 80108924f99427180a2a2cfb486745311201ab71 (patch) | |
| tree | 4726dc7b02b525b23b09f91947f8d40328fb427c /src-3.0 | |
| parent | 0643efb6590c7a007cf9d0c848a44e47cee3f63f (diff) | |
Added SLF, RegExp and Dot printing to exportPGF.
Diffstat (limited to 'src-3.0')
| -rw-r--r-- | src-3.0/GF/Compile/Export.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src-3.0/GF/Compile/Export.hs b/src-3.0/GF/Compile/Export.hs index f88d6d7ba..9e9a99e99 100644 --- a/src-3.0/GF/Compile/Export.hs +++ b/src-3.0/GF/Compile/Export.hs @@ -13,6 +13,8 @@ import GF.Speech.SRGS_XML import GF.Speech.JSGF import GF.Speech.GSL import GF.Speech.VoiceXML +import GF.Speech.SLF +import GF.Speech.PrRegExp import GF.Text.UTF8 import Data.Maybe @@ -35,6 +37,9 @@ exportPGF opts fmt pgf = FmtJSGF -> single "jsgf" (jsgfPrinter sisr) FmtGSL -> single "gsl" gslPrinter FmtVoiceXML -> single "vxml" grammar2vxml + FmtSLF -> single ".slf" slfPrinter + FmtRegExp -> single ".rexp" regexpPrinter + FmtFA -> single ".dot" slfGraphvizPrinter where name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts) sisr = flag optSISR opts |