SLynx.hs

{- |
Module      :  SLynx.SLynx
Description :  SLynx module
Copyright   :  (c) Dominik Schrempf 2020
License     :  GPL-3.0-or-later

Maintainer  :  dominik.schrempf@gmail.com
Stability   :  unstable
Portability :  portable

Creation date: Thu Apr 23 16:38:55 2020.

-}

module SLynx.SLynx
  ( slynx
  , rSLynx
  )
where

import           SLynx.Options

import           SLynx.Concatenate.Concatenate
import           SLynx.Examine.Examine
import           SLynx.Filter.Filter
import           SLynx.Simulate.Simulate
import           SLynx.SubSample.SubSample
import           SLynx.Translate.Translate

import           ELynx.Tools

-- TODO: Use a class here (e.g., elynx-wrappable) which defines the extractor function.
-- | Run SLynx with given arguments.
slynx :: Arguments CommandArguments -> IO ()
slynx c = case local c of
  Concatenate _ -> eLynxWrapper
    c
    (\(Arguments g (Concatenate l)) -> Arguments g l)
    concatenateCmd
  Examine _ ->
    eLynxWrapper c (\(Arguments g (Examine l)) -> Arguments g l) examineCmd
  FilterCols _ -> eLynxWrapper
    c
    (\(Arguments g (FilterCols l)) -> Arguments g l)
    filterColsCmd
  FilterRows _ -> eLynxWrapper
    c
    (\(Arguments g (FilterRows l)) -> Arguments g l)
    filterRowsCmd
  Simulate _ ->
    eLynxWrapper c (\(Arguments g (Simulate l)) -> Arguments g l) simulateCmd
  SubSample _ -> eLynxWrapper c
                              (\(Arguments g (SubSample l)) -> Arguments g l)
                              subSampleCmd
  Translate _ -> eLynxWrapper c
                              (\(Arguments g (Translate l)) -> Arguments g l)
                              translateCmd

-- | Run SLynx, parse arguments from command line.
rSLynx :: IO ()
rSLynx = parseArguments >>= slynx