Flag.hs

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE OverloadedStrings  #-}
-- geniserver
-- Copyright (C) 2011 Eric Kow (Computational Linguistics Ltd)
--
-- This program 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.
--
-- This program 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 this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.


module NLP.GenI.Server.Flag where

import           Data.Int

import           NLP.GenI.Configuration
import           NLP.GenI.General       (snd3)

serverOptions :: [OptDescr Flag]
serverOptions = nubBySwitches (concatMap snd3 serverOptionsSections)

type OptSection = (String,[OptDescr Flag],[String])

serverOptionsSections :: [OptSection]
serverOptionsSections =
    [ ("Core options", optionsForServer, [])
    , ("Input", optionsForInputFiles, [])
    , ("Algorithm",
        (nubBySwitches $ optionsForBuilder ++ optionsForOptimisation),
        [])
    , ("Morphology", optionsForMorphology, [])
    , ("Client parameters", optionsForRequest, ["Subset of parameters the client can pass in"])
    ]

optionsForServer :: [OptDescr Flag]
optionsForServer =
    [ helpOption, verboseOption
    , macrosOption, lexiconOption
    , Option [] ["port"] (reqArg PortFlg read "INT")
        ("port to listen on (default " ++ show defaultPort ++ ")")
    , Option [] ["host"] (reqArg HostFlg id   "HOST")
        ("which host to bind (default " ++ defaultHost ++ ")")
    ]

data PortFlg = PortFlg Int deriving (Eq, Show, Typeable)
data HostFlg = HostFlg String deriving (Eq, Show, Typeable)
data ReqMaxSizeFlg = ReqMaxSizeFlg Int64 deriving (Eq, Show, Typeable)

defaultHost :: String
defaultHost = "127.0.0.1"

defaultPort :: Int
defaultPort = 4364

defaultReqMaxSize :: Int64
defaultReqMaxSize = 4194304

optionsForRequest :: [OptDescr Flag]
optionsForRequest =
    optionsForBuilder ++ optionsForOptimisation