1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
{- git-annex command line
-
- TODO: This is very rough and stupid; I would like to use
- System.Console.CmdArgs.Implicit but it is not yet packaged in Debian.
-}
module CmdLine (
argvToMode,
dispatch
) where
import System.Console.GetOpt
import Types
import Annex
data Mode = Add | Push | Pull | Want | Get | Drop | Unannex
deriving Show
options :: [OptDescr Mode]
options =
[ Option ['a'] ["add"] (NoArg Add) "add files to annex"
, Option ['p'] ["push"] (NoArg Push) "push annex to repos"
, Option ['P'] ["pull"] (NoArg Pull) "pull annex from repos"
, Option ['w'] ["want"] (NoArg Want) "request file contents"
, Option ['g'] ["get"] (NoArg Get) "transfer file contents"
, Option ['d'] ["drop"] (NoArg Drop) "indicate file contents not needed"
, Option ['u'] ["unannex"] (NoArg Unannex) "undo --add"
]
argvToMode argv = do
case getOpt Permute options argv of
-- default mode is Add
([],files,[]) -> return (Add, files)
-- one mode is normal case
(m:[],files,[]) -> return (m, files)
-- multiple modes is an error
(ms,files,[]) -> ioError (userError ("only one mode should be specified\n" ++ usageInfo header options))
-- error case
(_,files,errs) -> ioError (userError (concat errs ++ usageInfo header options))
where header = "Usage: git-annex [mode] file"
dispatch :: State -> Mode -> FilePath -> IO ()
dispatch state mode item = do
case (mode) of
Add -> annexFile state item
Push -> annexPushRepo state item
Pull -> annexPullRepo state item
Want -> annexWantFile state item
Get -> annexGetFile state item
Drop -> annexDropFile state item
Unannex -> unannexFile state item
|
