{-# LANGUAGE DeriveDataTypeable #-}

-----------------------------------------------------------------------------
-- |
-- Module      :  Diagrams.Builder.CmdLine
-- Copyright   :  (c) 2012 diagrams-lib team (see LICENSE)
-- License     :  BSD-style (see LICENSE)
-- Maintainer  :  diagrams-discuss@googlegroups.com
--
-- Tools for creating standalone command-line diagram builder utilities.
--
-----------------------------------------------------------------------------
module Diagrams.Builder.CmdLine
    ( Build(..)
    , defaultBuildOpts
    )
    where

import System.Console.CmdArgs

-- | Record of command-line options.
data Build = Build { Build -> Maybe Double
width   :: Maybe Double
                   , Build -> Maybe Double
height  :: Maybe Double
                   , Build -> String
srcFile :: String
                   , Build -> String
expr    :: String
                   , Build -> String
outFile :: String
                   , Build -> String
dir     :: String
                   }
  deriving (Typeable, Typeable Build
Build -> DataType
Build -> Constr
(forall b. Data b => b -> b) -> Build -> Build
forall a.
Typeable a
-> (forall (c :: * -> *).
    (forall d b. Data d => c (d -> b) -> d -> c b)
    -> (forall g. g -> c g) -> a -> c a)
-> (forall (c :: * -> *).
    (forall b r. Data b => c (b -> r) -> c r)
    -> (forall r. r -> c r) -> Constr -> c a)
-> (a -> Constr)
-> (a -> DataType)
-> (forall (t :: * -> *) (c :: * -> *).
    Typeable t =>
    (forall d. Data d => c (t d)) -> Maybe (c a))
-> (forall (t :: * -> * -> *) (c :: * -> *).
    Typeable t =>
    (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c a))
-> ((forall b. Data b => b -> b) -> a -> a)
-> (forall r r'.
    (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall r r'.
    (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> a -> r)
-> (forall u. (forall d. Data d => d -> u) -> a -> [u])
-> (forall u. Int -> (forall d. Data d => d -> u) -> a -> u)
-> (forall (m :: * -> *).
    Monad m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> (forall (m :: * -> *).
    MonadPlus m =>
    (forall d. Data d => d -> m d) -> a -> m a)
-> Data a
forall u. Int -> (forall d. Data d => d -> u) -> Build -> u
forall u. (forall d. Data d => d -> u) -> Build -> [u]
forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Build -> m Build
forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Build -> m Build
forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Build
forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Build -> c Build
forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Build)
forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Build)
gmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Build -> m Build
$cgmapMo :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Build -> m Build
gmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Build -> m Build
$cgmapMp :: forall (m :: * -> *).
MonadPlus m =>
(forall d. Data d => d -> m d) -> Build -> m Build
gmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Build -> m Build
$cgmapM :: forall (m :: * -> *).
Monad m =>
(forall d. Data d => d -> m d) -> Build -> m Build
gmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Build -> u
$cgmapQi :: forall u. Int -> (forall d. Data d => d -> u) -> Build -> u
gmapQ :: forall u. (forall d. Data d => d -> u) -> Build -> [u]
$cgmapQ :: forall u. (forall d. Data d => d -> u) -> Build -> [u]
gmapQr :: forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
$cgmapQr :: forall r r'.
(r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
gmapQl :: forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
$cgmapQl :: forall r r'.
(r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Build -> r
gmapT :: (forall b. Data b => b -> b) -> Build -> Build
$cgmapT :: (forall b. Data b => b -> b) -> Build -> Build
dataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Build)
$cdataCast2 :: forall (t :: * -> * -> *) (c :: * -> *).
Typeable t =>
(forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Build)
dataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Build)
$cdataCast1 :: forall (t :: * -> *) (c :: * -> *).
Typeable t =>
(forall d. Data d => c (t d)) -> Maybe (c Build)
dataTypeOf :: Build -> DataType
$cdataTypeOf :: Build -> DataType
toConstr :: Build -> Constr
$ctoConstr :: Build -> Constr
gunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Build
$cgunfold :: forall (c :: * -> *).
(forall b r. Data b => c (b -> r) -> c r)
-> (forall r. r -> c r) -> Constr -> c Build
gfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Build -> c Build
$cgfoldl :: forall (c :: * -> *).
(forall d b. Data d => c (d -> b) -> d -> c b)
-> (forall g. g -> c g) -> Build -> c Build
Data)

-- | Default command-line options record.
defaultBuildOpts :: Build
defaultBuildOpts :: Build
defaultBuildOpts =
  Build
  { width :: Maybe Double
width    = forall a. Default a => a
def forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"INT"
  , height :: Maybe Double
height   = forall a. Default a => a
def forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"INT"
  , srcFile :: String
srcFile  = String
"" forall val. Data val => val -> Ann -> val
&= Int -> Ann
argPos Int
0 forall val. Data val => val -> Ann -> val
&= Ann
typFile
  , expr :: String
expr     = String
"dia"
               forall val. Data val => val -> Ann -> val
&= String -> Ann
typ String
"EXPRESSION"
               forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"Expression to render (default: \"dia\")"
  , outFile :: String
outFile  = forall a. Default a => a
def forall val. Data val => val -> Ann -> val
&= Ann
typFile forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"Output file"
  , dir :: String
dir      = String
".diagrams_cache"
               forall val. Data val => val -> Ann -> val
&= Ann
typDir
               forall val. Data val => val -> Ann -> val
&= String -> Ann
help String
"Directory in which to store rendered diagrams by hash (default: \".diagrams_cache\")"
  }