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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
--------------------------------------------------------------------------------
-- See end of this file for licence information.
--------------------------------------------------------------------------------
-- |
-- Module : SwishApp
-- Copyright : (c) 2003, Graham Klyne, 2009 Vasili I Galchin, 2011 Douglas Burke
-- License : GPL V2
--
-- Maintainer : Douglas Burke
-- Stability : experimental
-- Portability : H98
--
-- This module is a wrapper for the main program of Swish.
--
--------------------------------------------------------------------------------
module Main where
import Paths_swish (version)
import Data.Version (showVersion)
import System.Environment (getArgs)
import System.Exit (ExitCode(ExitFailure), exitWith, exitSuccess)
import Control.Monad (unless)
import System.IO (stderr, hPutStrLn)
import Swish
------------------------------------------------------------
-- Swish main program
------------------------------------------------------------
--
-- This is a minimal wrapper for the real main program, to facilitate
-- interactive execution (e.g. in HUGS) of different command lines.
--
-- execStateT runs the monad with a supplied initial state,
-- then separates the resulting state from the IO monad.
main :: IO ()
main = do
args <- getArgs
let (flags, cmds) = splitArguments args
doHelp = "-h" `elem` flags
doVersion = "-v" `elem` flags
doQuiet = "-q" `elem` flags
if doHelp || doVersion
then if doHelp then displaySwishHelp else displayVersion >> exitSuccess
else do
unless doQuiet $ displayVersion >> putStrLn "\n"
case validateCommands cmds of
Left (emsg, ecode) -> do
hPutStrLn stderr $ "Swish: " ++ emsg
exitWith $ ExitFailure $ fromEnum ecode
Right acts -> do
code <- runSwishActions acts
case code of
SwishSuccess -> exitSuccess
_ -> hPutStrLn stderr ("Swish: "++show code)
>> exitWith (ExitFailure $ fromEnum code)
displayVersion :: IO ()
displayVersion = putStrLn $ "Swish " ++ showVersion version
--------------------------------------------------------------------------------
--
-- Copyright (c) 2003, Graham Klyne, 2009 Vasili I Galchin, 2011 Douglas Burke
-- All rights reserved.
--
-- This file is part of Swish.
--
-- Swish is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- Swish is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with Swish; if not, write to:
-- The Free Software Foundation, Inc.,
-- 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
--------------------------------------------------------------------------------
|
