0a36f92a31
Made --from and --to command-specific options. Added generic storage for values of command-specific options, which allows removing some of the special case fields in AnnexState. (Also added generic storage for command-specific flags, although there are not yet any.) Note that this storage uses a Map, so repeatedly looking up the same value is slightly more expensive than looking up an AnnexState field. But, the value can be looked up once in the seek stage, transformed as necessary, and passed in a closure to the start stage, and this avoids that overhead. Still, I'm hesitant to use this for things like force or fast flags. It's probably best to reserve it for flags that are only used by a few commands, or options like --from and --to that it's important only be allowed to be used with commands that implement them, to avoid user confusion.
75 lines
2.3 KiB
Haskell
75 lines
2.3 KiB
Haskell
{- git-annex command-line options
|
|
-
|
|
- Copyright 2010-2011 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Options (
|
|
commonOptions,
|
|
matcherOptions,
|
|
flagOption,
|
|
fieldOption,
|
|
ArgDescr(..),
|
|
Option,
|
|
OptDescr(..),
|
|
) where
|
|
|
|
import System.Console.GetOpt
|
|
import System.Log.Logger
|
|
|
|
import Common.Annex
|
|
import qualified Annex
|
|
import Limit
|
|
import Types.Option
|
|
import Usage
|
|
|
|
commonOptions :: [Option]
|
|
commonOptions =
|
|
[ Option [] ["force"] (NoArg (setforce True))
|
|
"allow actions that may lose annexed data"
|
|
, Option ['F'] ["fast"] (NoArg (setfast True))
|
|
"avoid slow operations"
|
|
, Option ['a'] ["auto"] (NoArg (setauto True))
|
|
"automatic mode"
|
|
, Option ['q'] ["quiet"] (NoArg (setoutput Annex.QuietOutput))
|
|
"avoid verbose output"
|
|
, Option ['v'] ["verbose"] (NoArg (setoutput Annex.NormalOutput))
|
|
"allow verbose output (default)"
|
|
, Option ['j'] ["json"] (NoArg (setoutput Annex.JSONOutput))
|
|
"enable JSON output"
|
|
, Option ['d'] ["debug"] (NoArg (setdebug))
|
|
"show debug messages"
|
|
, Option ['b'] ["backend"] (ReqArg setforcebackend paramName)
|
|
"specify key-value backend to use"
|
|
]
|
|
where
|
|
setforce v = Annex.changeState $ \s -> s { Annex.force = v }
|
|
setfast v = Annex.changeState $ \s -> s { Annex.fast = v }
|
|
setauto v = Annex.changeState $ \s -> s { Annex.auto = v }
|
|
setoutput v = Annex.changeState $ \s -> s { Annex.output = v }
|
|
setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v }
|
|
setdebug = liftIO $ updateGlobalLogger rootLoggerName $
|
|
setLevel DEBUG
|
|
|
|
matcherOptions :: [Option]
|
|
matcherOptions =
|
|
[ longopt "not" "negate next option"
|
|
, longopt "and" "both previous and next option must match"
|
|
, longopt "or" "either previous or next option must match"
|
|
, shortopt "(" "open group of options"
|
|
, shortopt ")" "close group of options"
|
|
]
|
|
where
|
|
longopt o = Option [] [o] $ NoArg $ addToken o
|
|
shortopt o = Option o [] $ NoArg $ addToken o
|
|
|
|
{- An option that sets a flag. -}
|
|
flagOption :: String -> String -> String -> Option
|
|
flagOption short flag description =
|
|
Option short [flag] (NoArg (Annex.setFlag flag)) description
|
|
|
|
{- An option that sets a field. -}
|
|
fieldOption :: String -> String -> String -> String -> Option
|
|
fieldOption short field paramdesc description =
|
|
Option short [field] (ReqArg (Annex.setField field) paramdesc) description
|