mmsyn7l 0.1.1.1 → 0.2.0.0
raw patch · 4 files changed
+49/−12 lines, 4 filesdep ~mmsyn7ukrPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: mmsyn7ukr
API changes (from Hackage documentation)
Files
- CHANGELOG.md +7/−0
- Main.hs +32/−9
- README +7/−0
- mmsyn7l.cabal +3/−3
CHANGELOG.md view
@@ -15,3 +15,10 @@ ## 0.1.1.1 -- 2020-01-08 * First version revised C. Fixed an issue with the wrong written function call.++## 0.2.0.0 -- 2020-01-10++* Second version. Added a possibility to use a command line argument +obtained e. g. from the usage of mmsyn7s package (for more information, +please, refer to: https://hackage.haskell.org/package/mmsyn7s).+
Main.hs view
@@ -5,25 +5,48 @@ -- -- Maintainer : olexandr543@yahoo.com ----- A program and a library to modify the amplitude of the sound representations for +-- A program and a library to modify the amplitudes of the sound representations for -- the Ukrainian language created by mmsyn7ukr package or somehow otherwise. -- module Main where import MMSyn7l (changeVolume)+import qualified Data.Vector as V+import CaseBi (getBFst')+import System.Environment (getArgs)+import ReplaceP --- | The main and the only one function in the module.+-- | The main and the only one function in the module. If you specify a one command line argument, which can be obtained by running @mmsyn7s@ program+-- with the needed to be sounded (with sound representations) Ukrainian text (please, refer to: https://hackage.haskell.org/package/mmsyn7s). main :: IO ()-main = do - putStrLn "Now you can change the amplitude of the sound representations of the Ukrainian sounds (or something similar). "- putStrLn ""- mapM_ changeVolume ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav", +main = do+ args <- getArgs+ if null args+ then do+ putStrLn "Now you can change the amplitude of the sound representations of the Ukrainian sounds (or something similar). "+ putStrLn ""+ mapM_ changeVolume ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav", "I.wav", "J.wav", "K.wav", "L.wav", "M.wav", "N.wav", "O.wav", "P.wav", "Q.wav", "R.wav", "S.wav", "T.wav", "U.wav", "V.wav", "W.wav", "X.wav", "Y.wav", "Z.wav", "a.wav", "b.wav", "c.wav", "d.wav", "e.wav", "f.wav"]- putStrLn ""- putStrLn "Now you have changed (or left unchanged) the amplitudes for the sound representations for Ukrainian language. "- putStrLn "Please, remember about responsible usage especially in case of processing the real voice sound samples! "+ putStrLn ""+ putStrLn "Now you have changed (or left unchanged) the amplitudes for the sound representations for Ukrainian language. "+ putStrLn "Please, remember about responsible usage especially in case of processing the real voice sound samples! "+ else do+ putStrLn "Now you can change the amplitude of the needed sound representations of the Ukrainian sounds (or something similar). "+ putStrLn ""+ let xs = concat . take 1 $ args+ rrs = show . head $ [[xs]]+ list = read (replaceP rrs)::[String]+ wws = map (getBFst' ("0.wav", V.fromList . zip ["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с",+ "сь","т","у","ф","х","ц","ць","ч","ш","ь","і","ґ"] $ ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav", + "I.wav", "J.wav", "K.wav", "L.wav", "M.wav", "N.wav", "O.wav", "P.wav", "Q.wav", "R.wav", + "S.wav", "T.wav", "U.wav", "V.wav", "W.wav", "X.wav", "Y.wav", "Z.wav", "a.wav", "b.wav", "c.wav", + "d.wav", "e.wav", "f.wav"])) list+ mapM_ changeVolume wws+ putStrLn ""+ putStrLn "Now you have changed (or left unchanged) the amplitudes for the needed sound representations for the Ukrainian language. "+ putStrLn "Please, remember about responsible usage especially in case of processing the real voice sound samples! "
README view
@@ -28,3 +28,10 @@ then everything is analogously the same, but an interval between the maximum by modulus amplitude value and 0.0 is divided into 10 equal parts and so on.++ ***** Command Line Argument ***** +If you specify a command line argument, it must be a sorted list +of the Ukrainian sounds representations, which can be obtained by +using the mmsyn7s package. For more information, please, refer to:+https://hackage.haskell.org/package/mmsyn7s+
mmsyn7l.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7l-version: 0.1.1.1+version: 0.2.0.0 synopsis: Modifies the amplitude of the sound representations for the Ukrainian language created by mmsyn7ukr package. description: A program and a library to modify the amplitude of the sound representations for the Ukrainian language created by mmsyn7ukr package or somehow otherwise. homepage: https://hackage.haskell.org/package/mmsyn7l@@ -20,7 +20,7 @@ exposed-modules: Main, MMSyn7l -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.14, directory >=1 && <1.5, mmsyn7ukr >=0.5.0.1 && <1, vector >=0.11 && <0.14, mmsyn2 >=0.1.7 && <1+ build-depends: base >=4.7 && <4.14, directory >=1 && <1.5, mmsyn7ukr >=0.6.1.1 && <1, vector >=0.11 && <0.14, mmsyn2 >=0.1.7 && <1 -- hs-source-dirs: default-language: Haskell2010 @@ -28,6 +28,6 @@ main-is: Main.hs -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.14, directory >=1 && <1.5, mmsyn7ukr >=0.5.0.1 && <1, vector >=0.11 && <0.14, mmsyn2 >=0.1.7 && <1+ build-depends: base >=4.7 && <4.14, directory >=1 && <1.5, mmsyn7ukr >=0.6.1.1 && <1, vector >=0.11 && <0.14, mmsyn2 >=0.1.7 && <1 -- hs-source-dirs: default-language: Haskell2010