mmsyn7h 0.7.4.0 → 0.7.5.0

raw patch · 3 files changed

+28/−17 lines, 3 files

Files

• ChangeLog.md +4/−0
• MMSyn7h.hs +23/−16
• mmsyn7h.cabal +1/−1

@@ -117,3 +117,7 @@ ## 0.7.4.0 -- 2020-03-11  * Seventh version revised I. Fixed issue with being not compiled because of the syntactic mistake.++## 0.7.5.0 -- 2020-03-11++* Seventh version revised J. Fixed issue with being not compiled because of the syntactic mistake in the do-block. Simplified the 'main7h' function code being written. 

@@ -55,21 +55,9 @@           putStrLn "mmsyn7h -v"           putStr "If \"-h\" is specified, then you will see this message. If \"-v\" is specified, then you will see the version of the package mmsyn7h. "           putStrLn "If something else (not null) is specified then the program runs further. "-    "-v" -> putStrLn "mmsyn7h version: 0.7.4.0"+    "-v" -> putStrLn "mmsyn7h version: 0.7.5.0"     nameOfSoundFile    -> 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.3.1/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 ""+          giveInfo           let nameSF = filter (\x -> not (isSpace x) && not (isControl x) && x /= '}') nameOfSoundFile           putStrLn ""           return (args, nameSF)) (\(args, nameSF) -> do@@ -134,12 +122,31 @@                       removeFile $ nameSF ++ ".raw"                       if take 5 os == "mingw"                          then do -                          _ <- readProcessWithExitCode (fromJust . showE $ "sox") [nameSF ++ snd ws, "-t", "waveaudio", "-d"] "" >> return ()+                          _ <- readProcessWithExitCode (fromJust . showE $ "sox") [nameSF ++ snd ws, "-t", "waveaudio", "-d"] ""+                          return ()                         else if isJust . showE $ "play"                                 then readProcessWithExitCode (fromJust . showE $ "play") [nameSF ++ snd ws] "" >> return ()                                else catchEnd ExecutableNotProperlyInstalled) --- | Used internally in the 'main7h' function. +-- | Used internally in the 'main7h' function.+giveInfo :: IO ()+giveInfo = do+  dir <- getCurrentDirectory+  putStrLn "You are now in the directory: " +  putStrLn $ show dir+  putStrLn ""+  putStr "You could specify a name of the resulting file and then the control parameters for the output speech file as "+  putStrLn "the second command line argument to the running program mmsyn7h! "+  putStrLn "See https://hackage.haskell.org/package/mmsyn6ukr-0.6.3.1/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 ""++-- | Used internally in the 'main7h' function for specifying whether clean the current directory from the sound files. defineClean :: Int -> IO String defineClean x    | x == 0 = onException (do

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                mmsyn7h-version:             0.7.4.0+version:             0.7.5.0 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