GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -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, optShowCPUTime :: Bool,
optEmitGFC :: Bool, optEmitGFC :: Bool,
optGFCDir :: FilePath, optGFCDir :: FilePath,
optOutputFormat :: OutputFormat, optOutputFormats :: [OutputFormat],
optOutputFile :: Maybe FilePath, optOutputFile :: Maybe FilePath,
optLibraryPath :: [FilePath], optLibraryPath :: [FilePath],
optForceRecomp :: Bool, optForceRecomp :: Bool,
@@ -92,7 +92,7 @@ defaultOptions = Options {
optShowCPUTime = False, optShowCPUTime = False,
optEmitGFC = True, optEmitGFC = True,
optGFCDir = ".", optGFCDir = ".",
optOutputFormat = FmtGFCC, optOutputFormats = [FmtGFCC],
optOutputFile = Nothing, optOutputFile = Nothing,
optLibraryPath = [], optLibraryPath = [],
optForceRecomp = False, optForceRecomp = False,
@@ -157,7 +157,7 @@ optDescr =
cpu x o = return $ o { optShowCPUTime = x } cpu x o = return $ o { optShowCPUTime = x }
emitGFC x o = return $ o { optEmitGFC = x } emitGFC x o = return $ o { optEmitGFC = x }
gfcDir x o = return $ o { optGFCDir = 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 } outFile x o = return $ o { optOutputFile = Just x }
addLibDir x o = return $ o { optLibraryPath = x:optLibraryPath o } addLibDir x o = return $ o { optLibraryPath = x:optLibraryPath o }
setLibPath x o = return $ o { optLibraryPath = splitSearchPath x } setLibPath x o = return $ o { optLibraryPath = splitSearchPath x }