diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2011-11-14 16:08:56 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2011-11-14 16:08:56 +0000 |
| commit | 7be8566f35737aeb44f2af30e6e33ccf6bb10903 (patch) | |
| tree | ab85fb0ded9c8f164e43299c015d98bfda491f64 /src/compiler/GF/Infra | |
| parent | 7f9e245c36bd72b2fc956381f7072d69f3a80a6d (diff) | |
the new design for -tags
Diffstat (limited to 'src/compiler/GF/Infra')
| -rw-r--r-- | src/compiler/GF/Infra/Option.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/compiler/GF/Infra/Option.hs b/src/compiler/GF/Infra/Option.hs index 6a468d157..1f468f879 100644 --- a/src/compiler/GF/Infra/Option.hs +++ b/src/compiler/GF/Infra/Option.hs @@ -74,7 +74,7 @@ errors = fail . unlines -- Types data Mode = ModeVersion | ModeHelp | ModeInteractive | ModeRun | ModeCompiler - | ModeServer | ModeTags + | ModeServer deriving (Show,Eq,Ord) data Verbosity = Quiet | Normal | Verbose | Debug @@ -167,7 +167,8 @@ data Flags = Flags { optLexer :: Maybe String, optUnlexer :: Maybe String, optWarnings :: [Warning], - optDump :: [Dump] + optDump :: [Dump], + optTagsOnly :: Bool } deriving (Show) @@ -269,7 +270,8 @@ defaultFlags = Flags { optLexer = Nothing, optUnlexer = Nothing, optWarnings = [], - optDump = [] + optDump = [], + optTagsOnly = False } -- Option descriptions @@ -285,7 +287,7 @@ optDescr = Option [] ["interactive"] (NoArg (mode ModeInteractive)) "Run in interactive mode (default).", Option [] ["run"] (NoArg (mode ModeRun)) "Run in interactive mode, showing output only (no other messages).", Option [] ["server"] (NoArg (mode ModeServer)) "Run in HTTP server mode.", - Option [] ["tags"] (NoArg (mode ModeTags)) "Build TAGS file and exit.", + Option [] ["tags"] (NoArg (set $ \o -> o{optMode = ModeCompiler, optTagsOnly = True})) "Build TAGS file and exit.", Option ['E'] [] (NoArg (phase Preproc)) "Stop after preprocessing (with --preproc).", Option ['C'] [] (NoArg (phase Convert)) "Stop after conversion to .gf.", Option ['c'] [] (NoArg (phase Compile)) "Stop after compiling to .gfo (default) .", |