mmsyn7h 0.6.0.0 → 0.6.0.1
raw patch · 3 files changed
+25/−21 lines, 3 filesdep ~mmsyn7ukrPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: mmsyn7ukr
API changes (from Hackage documentation)
Files
- ChangeLog.md +7/−3
- MMSyn7h.hs +15/−15
- mmsyn7h.cabal +3/−3
ChangeLog.md view
@@ -51,16 +51,20 @@ * Fourth version revised D. Fixed issues with package not being compiled. Improved informational messages. -## 0.5.0.0. -- 2020-01-14+## 0.5.0.0 -- 2020-01-14 * Fifth version. Added more command line options like "-h" and "-v". New module dependencies. Fixed issues with the deprecated wrong documentation. -## 0.5.1.0. -- 2020-01-16+## 0.5.1.0 -- 2020-01-16 * Fifth version revised A. Fixed issue with threads. Now, mmsyn7h must run without blocking the other Haskell threads. -## 0.6.0.0. -- 2020-01-24+## 0.6.0.0 -- 2020-01-24 * Sixth version. Changed the behaviour for the giving information. Now the package uses 'catchEnd' function from the mmsyn7ukr package. Besides, the last one now is a dependency for the package.++## 0.6.0.1 -- 2020-01-24++* Sixth version revised A. Fixed version information. Changed the information being displayed in case of obtaining informational messages.
MMSyn7h.hs view
@@ -41,26 +41,13 @@ -- \"0.wav\" and \"1.wav\" and produce the sounding for the text. main7h :: IO () main7h = bracketOnError (do- dir <- getCurrentDirectory- putStrLn "You are now in the directory: " - putStrLn $ show dir- putStrLn ""- putStrLn "You could specify a name of the resulting file and then the control parameters for the output speech file as the second command line argument to the running program mmsyn7h! "- putStrLn "See https://hackage.haskell.org/package/mmsyn6ukr-0.6.2.0/docs/UkrainianLControl.html#v:genControl for more information."- putStr "You could specify e. g. \"o9-1\" or \"o5-1\" (and the most compressed audio in the .ogg format will be produced) or other option. "- putStrLn "If you have not specified the name and the parameters and now would like to, please, terminate the running program and execute it again with the proper command line arguments. "- putStrLn ""- putStr "If you specified further command line arguments as a Ukrainian text, that contains only those sounds, which sound representations are in the current directory "- putStr "(you can create them by e. g. mmsyn7ukr and mmsyn7l programs in the same name packages), then the program will use only these sounds representations "- putStrLn "additionally to the default ones \"-.wav\", \"0.wav\" and \"1.wav\". See further: https://hackage.haskell.org/package/mmsyn7s"- putStrLn "" args <- getArgs putStr "If you do not use the command line parameters \"-h\" or \"-v\", then you must have specified the file name for the resulting sound recording " putStrLn "(do NOT use '}' character and space or control characters!). " case (concat . take 1 $ args) of "" -> error "Please, specify as a command line argument at least a name of the resulting file (without its extension)! " "-h" -> do- putStrLn "Synopsis: "+ putStrLn "SYNOPSIS: " putStrLn "mmsyn7h fileName [control parameter (see: genControl from mmsyn6ukr package)] [a Ukrainian text being one line to be voiced] OR" putStrLn "mmsyn7h -h OR" putStrLn "mmsyn7h -v"@@ -71,12 +58,25 @@ let nameSF = "" return (args, nameSF) "-v" -> do- putStrLn "mmsyn7h version 0.5.0.0."+ putStrLn "mmsyn7h version: 0.6.0.1" threadId <- myThreadId catchEnd threadId let nameSF = "" return (args, nameSF) nameOfSoundFile -> do+ dir <- getCurrentDirectory+ putStrLn "You are now in the directory: " + putStrLn $ show dir+ putStrLn ""+ putStrLn "You could specify a name of the resulting file and then the control parameters for the output speech file as the second command line argument to the running program mmsyn7h! "+ putStrLn "See https://hackage.haskell.org/package/mmsyn6ukr-0.6.2.0/docs/UkrainianLControl.html#v:genControl for more information."+ putStr "You could specify e. g. \"o9-1\" or \"o5-1\" (and the most compressed audio in the .ogg format will be produced) or other option. "+ putStrLn "If you have not specified the name and the parameters and now would like to, please, terminate the running program and execute it again with the proper command line arguments. "+ putStrLn ""+ putStr "If you specified further command line arguments as a Ukrainian text, that contains only those sounds, which sound representations are in the current directory "+ putStr "(you can create them by e. g. mmsyn7ukr and mmsyn7l programs in the same name packages), then the program will use only these sounds representations "+ putStrLn "additionally to the default ones \"-.wav\", \"0.wav\" and \"1.wav\". See further: https://hackage.haskell.org/package/mmsyn7s"+ putStrLn "" let nameSF = filter (\x -> not (isSpace x) && not (isControl x) && x /= '}') nameOfSoundFile putStrLn "" return (args, nameSF)) (\(args, nameSF) -> do
mmsyn7h.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7h-version: 0.6.0.0+version: 0.6.0.1 synopsis: Produces a sound recording specified by the Ukrainian text. description: A program and a library that are used with mmsyn7ukr (or separately) and are similar to mmsyn6ukr executable. The program uses the data files in the current directory instead of ones in the system defined directories. It reads Ukrainian text with the given by data files sounds. homepage: https://hackage.haskell.org/package/mmsyn7h@@ -20,7 +20,7 @@ exposed-modules: MMSyn7h, Main -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && < 0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.1 && <1+ build-depends: base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && < 0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.1.1 && <1 -- hs-source-dirs: default-language: Haskell2010 @@ -29,7 +29,7 @@ main-is: Main.hs -- other-modules: -- other-extensions:- build-depends: base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && <0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.1 && <1+ build-depends: base >=4.7 && <4.14, process >=1.4 && <1.8, vector >=0.11 && <0.14, bytestring >=0.10 && <0.12, mmsyn2 >=0.1.7 && <1, directory >=1.2.5 && <1.4, mmsyn6ukr >=0.6.2 && <1, mmsyn3 >=0.1.4 && <1, mmsyn7s >=0.1 && <1, mmsyn7ukr >=0.9.1.1 && <1 ghc-options: -threaded -- hs-source-dirs: default-language: Haskell2010