Merge pull request #10 from haskell-works/new-complement-command

New complement command

app/App/Commands.hs

@@ -1,6 +1,7 @@
 module App.Commands where
 
 import App.Commands.Bits
+import App.Commands.Complement
 import App.Commands.SelectedByBits
 import App.Commands.Slice
 import App.Commands.Words
@@ -10,6 +11,7 @@ import Options.Applicative
 cmdOpts :: Parser (IO ())
 cmdOpts = subparser $ mempty
   <>  cmdBits
+  <>  cmdComplement
   <>  cmdSelectedByBits
   <>  cmdSlice
   <>  cmdWords

app/App/Commands/Complement.hs

@@ -0,0 +1,42 @@
+{-# LANGUAGE DataKinds           #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications    #-}
+
+module App.Commands.Complement
+  ( cmdComplement
+  ) where
+
+import Control.Lens
+import Data.Generics.Product.Any
+import Data.Semigroup                 ((<>))
+import HaskellWorks.Data.Bits.BitWise
+import Options.Applicative            hiding (columns)
+
+import qualified App.Commands.Options.Type as Z
+import qualified Data.ByteString.Lazy      as LBS
+
+{-# ANN module ("HLint: ignore Redundant do"      :: String) #-}
+{-# ANN module ("HLint: ignore Redundant return"  :: String) #-}
+
+runComplement :: Z.ComplementOptions -> IO ()
+runComplement opts = do
+  let inputFile   = opts ^. the @"inputFile"
+  let outputFile  = opts ^. the @"outputFile"
+
+  LBS.readFile inputFile <&> LBS.map comp >>= LBS.writeFile outputFile
+
+optsComplement :: Parser Z.ComplementOptions
+optsComplement = Z.ComplementOptions
+  <$> strOption
+        (   long "input-file"
+        <>  help "Input file"
+        <>  metavar "FILE"
+        )
+  <*> strOption
+        (   long "output-file"
+        <>  help "Output file"
+        <>  metavar "FILE"
+        )
+
+cmdComplement :: Mod CommandFields (IO ())
+cmdComplement = command "complement"  $ flip info idm $ runComplement <$> optsComplement

app/App/Commands/Options/Type.hs

@@ -10,6 +10,11 @@ data BitsOptions = BitsOptions
   , bitFiles :: [FilePath]
   } deriving (Eq, Show, Generic)
 
+data ComplementOptions = ComplementOptions
+  { inputFile  :: FilePath
+  , outputFile :: FilePath
+  } deriving (Eq, Show, Generic)
+
 data SelectedByBitsOptions = SelectedByBitsOptions
   { file    :: FilePath
   , bitFile :: FilePath

hw-dump.cabal

@@ -58,6 +58,7 @@ executable hw-dump
   other-modules:
       App.Commands
       App.Commands.Bits
+      App.Commands.Complement
       App.Commands.Options.Type
       App.Commands.SelectedByBits
       App.Commands.Slice