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

Allow multiple output formats in GF.Devel.GFC.Options. Suggested by peb.

Browse Source
This commit is contained in:
bringert
2007-10-23 12:11:48 +00:00
parent 1ff4d28cfe
commit 4e8d6b2c02
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Devel/GFC/Options.hs
View File

@@ -72,7 +72,7 @@ data Options = Options {
optShowCPUTime :: Bool,
optEmitGFC :: Bool,
optGFCDir :: FilePath,
optOutputFormat :: OutputFormat,
optOutputFormats :: [OutputFormat],
optOutputFile :: Maybe FilePath,
optLibraryPath :: [FilePath],
optForceRecomp :: Bool,
@@ -92,7 +92,7 @@ defaultOptions = Options {
optShowCPUTime = False,
optEmitGFC = True,
optGFCDir = ".",
optOutputFormat = FmtGFCC,
optOutputFormats = [FmtGFCC],
optOutputFile = Nothing,
optLibraryPath = [],
optForceRecomp = False,
@@ -157,7 +157,7 @@ optDescr =
cpu x o = return $ o { optShowCPUTime = x }
emitGFC x o = return $ o { optEmitGFC = x }
gfcDir x o = return $ o { optGFCDir = x }
outFmt x o = readOutputFormat x >>= \f -> return $ o { optOutputFormat = f }
outFmt x o = readOutputFormat x >>= \f -> return $ o { optOutputFormats = optOutputFormats o ++ [f] }
outFile x o = return $ o { optOutputFile = Just x }
addLibDir x o = return $ o { optLibraryPath = x:optLibraryPath o }
setLibPath x o = return $ o { optLibraryPath = splitSearchPath x }