dobutokO2 0.11.0.1 → 0.11.1.0

raw patch · 5 files changed

+21/−38 lines, 5 files

Files

• CHANGELOG.md +5/−0
• DobutokO/Sound/Executable.hs +10/−1
• O2Help.hs +0/−25
• README.markdown +4/−1
• dobutokO2.cabal +2/−11

@@ -113,3 +113,8 @@ ## 0.11.0.1 -- 2020-03-16  * Eleventh version revised A. Some documentation improvement of README.markdown file.++## 0.11.1.0 -- 2020-03-16++* Eleventh version revised B. Inserted the functionality of the second auxiliary executable O2help into the single one -- dobutokO2 with "0" first command+line option. Changed the information in the README.markdown file appropriately.

@@ -40,7 +40,7 @@       file = concat . drop 1 . take 2 $ arggs       args = unwords . drop 2 $ arggs   exist2 <- doesFileExist file-  getBFst' (dobutokO2H exist2 args file, V.fromList . fmap (\(xs, f) -> (xs,f exist2 args file)) $ [("1",dobutokO2H1),("2",dobutokO2H2),+  getBFst' (dobutokO2H exist2 args file, V.fromList . fmap (\(xs, f) -> (xs,f exist2 args file)) $ [("0",o2help),("1",dobutokO2H1),("2",dobutokO2H2),     ("3",dobutokO2H3),("4",dobutokO2H4),("5",dobutokO2H5)]) arg1  dobutokO2H1 :: Bool -> String -> FilePath -> IO ()@@ -98,6 +98,15 @@       dAmpl = read dAmpl0::Double   uniqOberSoXSynthNGen4 file octave1 ampL time3 dAmpl args wws tts vs {-# INLINE dobutokO2H #-}++-- | Takes textual input from the stdin and prints it as one 'String' to the stdout.+o2help :: IO ()+o2help = do+  xs <- getContents+  let ys = unwords . lines $ xs in do+    putStrLn ""+    putStrLn "-------------------------------------------------------------------------------------------------------------"+    putStrLn ys  ---------------------------------------------------------------------------------------------------------------------------------------------------- 

@@ -1,25 +0,0 @@--- |--- Module      :  O2Help--- Copyright   :  (c) OleksandrZhabenko 2020--- License     :  MIT--- Stability   :  Experimental--- Maintainer  :  olexandr543@yahoo.com------ A program and a library to create experimental music--- from a mono audio and a Ukrainian text.--{-# OPTIONS_GHC -threaded #-}---- | The main function in the executable @O2help@. It converts its input (possibly multiline) to the output String and prints it to the stdout.-main :: IO ()-main = o2help---- | Takes textual input from the stdin and prints it as one 'String' to the stdout.-o2help :: IO ()-o2help = do-  xs <- getContents-  let ys = unwords . lines $ xs in do-    putStrLn ""-    putStrLn "-------------------------------------------------------------------------------------------------------------"-    putStrLn ys-  

@@ -13,7 +13,7 @@  For the executable you enter in the terminal: -dobutokO2 { 1 | 2 | 3 | 4 | 5 | 6 } {fileName} {Ukrainian text}+dobutokO2 { 0 | 1 | 2 | 3 | 4 | 5 | 6 } {fileName} {Ukrainian text}    where filename is:   the full name of the file to be recorded in the current directory or@@ -32,6 +32,9 @@     signs for the harmonics coefficients for obertones.          In more detail:++  "0" -> the program just converts multiline Ukrainian text from stdin+     into a String and prints it to stdout. No other arguments are used.    "1" -> basic functionality without the possibility to define individual obertones.   

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                dobutokO2-version:             0.11.0.1+version:             0.11.1.0 synopsis:            A program and a library to create experimental music from a mono audio and a Ukrainian text description:         It can also create a timbre for the notes homepage:            https://hackage.haskell.org/package/dobutokO2@@ -17,7 +17,7 @@ cabal-version:       >=1.10  library-  exposed-modules:     Main, DobutokO.Sound, DobutokO.Sound.Functional, DobutokO.Sound.Executable, O2Help+  exposed-modules:     Main, DobutokO.Sound, DobutokO.Sound.Functional, DobutokO.Sound.Executable   -- other-modules:   -- other-extensions:   build-depends:       base >=4.7 && <4.14, vector >=0.11 && <0.14, process >=1.4 && <1.8, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.6.6 && <1, directory >=1.2.5 && <1.6, mmsyn7ukr >=0.15.3 && <1, mmsyn2 >=0.1.7 && <1, mmsyn6ukr >=0.6.3.1 && <1@@ -30,14 +30,5 @@   -- other-extensions:   build-depends:       base >=4.7 && <4.14, vector >=0.11 && <0.14, process >=1.4 && <1.8, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.6.6 && <1, directory >=1.2.5 && <1.6, mmsyn7ukr >=0.15.3 && <1, mmsyn2 >=0.1.7 && <1, mmsyn6ukr >=0.6.3.1 && <1   -- hs-source-dirs:-  ghc-options:         -main-is Main   default-language:    Haskell2010 -executable O2help-  main-is:             O2Help.hs-  -- other-modules:-  -- other-extensions:-  build-depends:       base >=4.7 && <4.14-  -- hs-source-dirs:-  ghc-options:         -main-is O2Help-  default-language:    Haskell2010