GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added --sisr option for including SISR tags in generated SRGs.

Browse Source
This commit is contained in:
bjorn
2008-06-16 16:12:17 +00:00
parent 395dd70f58
commit c57218d9ba
5 changed files with 29 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src-3.0/GF/Compile/Export.hs
View File

@@ -16,19 +16,20 @@ import GF.Text.UTF8
-- top-level access to code generation
prPGF :: OutputFormat
prPGF :: Options
-> OutputFormat
-> PGF
-> String -- ^ Output name, for example used for generated Haskell
-- module name.
-> String
prPGF fmt gr name = case fmt of
prPGF opts fmt gr name = case fmt of
FmtPGF -> printPGF gr
FmtJavaScript -> pgf2js gr
FmtHaskell -> grammar2haskell gr name
FmtHaskell_GADT -> grammar2haskellGADT gr name
FmtBNF -> prCFG $ pgfToCFG gr (outputConcr gr)
FmtSRGS_XML -> srgsXmlPrinter Nothing gr (outputConcr gr)
FmtJSGF -> jsgfPrinter Nothing gr (outputConcr gr)
FmtSRGS_XML -> srgsXmlPrinter (flag optSISR opts) gr (outputConcr gr)
FmtJSGF -> jsgfPrinter (flag optSISR opts) gr (outputConcr gr)
FmtVoiceXML -> grammar2vxml gr (outputConcr gr)