-- |
-- Module      :  Main
-- Copyright   :  (c) OleksandrZhabenko 2019-2020
-- License     :  MIT
-- Maintainer  :  olexandr543@yahoo.com
--
-- A program and a library that can be used as a musical instrument synthesizer or for Ukrainian speech synthesis
-- especially for poets, translators and writers.
--

module Main where

import System.Environment (getArgs)
import Melodics.Executable.Arr

{-
-- Inspired by: https://mail.haskell.org/pipermail/beginners/2011-October/008649.html
-}

-- | The function creates a raw .ul sound file with bitrate 22050 Hz 1 mono channel
-- and tries to automatically convert it to the .wav, .ogg, or .flac file with the same parameters specified by the first command line argument
-- (for more details see: 'genControl' function) using the system binary SoX (this is done for one circle of running, afterwards it is repeated
-- with the same command line arguments. To stop execution, please, interrupt the program e. g. with Ctrl + C on many Unix platforms).
-- So actually, it can create multiple sound files, all in the same format options specified by the first command line argument accordingly to
-- the 'genControl' function.
--
-- If SoX binaries are not installed properly, the program makes ending informational message for the user.
--
-- The first command line argument is the 'UkrainianLControl.Arr.genControl' specification.
--
-- The second command line argument (if specified) must be in the form \"+O\" and then if specified denotes that
-- the program cycle runs only once and exits after creating the single converted sound file. If specified, then
-- the program reads not the line of the input, but the contents and, therefore, it can use multiline contents (e. g., poetry).
--
-- The third command line argument is the filepath to the file with the Ukrainian text that instead of the user
-- input provided otherwise into the prompting line on the terminal is read to be converted.
--
-- The best comression ratio is with the .ogg files, but they lose some quality so be careful if you need it.
main :: IO ()
main :: IO ()
main = do
  [String
zs,String
ts,String
file] <- ([String] -> [String]) -> IO [String] -> IO [String]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (Int -> [String] -> [String]
forall a. Int -> [a] -> [a]
take Int
3) IO [String]
getArgs
  let onepass :: Bool
onepass = if String
ts String -> String -> Bool
forall a. Eq a => a -> a -> Bool
== String
"+O" then Bool
True else Bool
False
  String -> Bool -> String -> IO ()
circle String
zs Bool
onepass String
file