GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added option to treat some categories as lexical when generating Haskell data types.

Browse Source
This commit is contained in:
bjorn
2008-10-10 11:55:12 +00:00
parent 18aa48941c
commit 88798b2a23
3 changed files with 90 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Compile/Export.hs
View File

@@ -35,8 +35,7 @@ exportPGF opts fmt pgf =
FmtPGF -> multi "pgf" printPGF
FmtPGFPretty -> multi "txt" prPGFPretty
FmtJavaScript -> multi "js" pgf2js
FmtHaskell -> multi "hs" (grammar2haskell hsPrefix name)
FmtHaskell_GADT -> multi "hs" (grammar2haskellGADT hsPrefix name)
FmtHaskell -> multi "hs" (grammar2haskell opts name)
FmtProlog -> multi "pl" grammar2prolog
FmtProlog_Abs -> multi "pl" grammar2prolog_abs
FmtBNF -> single "bnf" bnfPrinter
@@ -54,7 +53,6 @@ exportPGF opts fmt pgf =
FmtFA -> single "dot" slfGraphvizPrinter
where
name = fromMaybe (prCId (absname pgf)) (moduleFlag optName opts)
hsPrefix = flag optHaskellPrefix opts
multi :: String -> (PGF -> String) -> [(FilePath,String)]
multi ext pr = [(name <.> ext, pr pgf)]