phonetic-languages-simplified-generalized-examples-array 0.4.0.0 → 0.4.1.0

raw patch · 3 files changed

+14/−11 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +3/−0
• EspeakNG_IPA.hs +10/−10
• phonetic-languages-simplified-generalized-examples-array.cabal +1/−1

@@ -35,3 +35,6 @@ * Fourth version. Added a new module EspeakNG_IPA to use the espeak and IPA functionality.  For this, added mmsyn3 and process as new dependencies. +## 0.4.1.0 -- 2021-07-06++* Fourth version revised A. Fixed issues with wrong parameter for espeak that caused no language specific translation.

@@ -17,33 +17,33 @@ import System.Exit (ExitCode(..)) import Data.Maybe (fromJust) -{-| Given a language 'String' supported by the espeak-ng or espeak (which one is installed properly) and the-needed text returns the IPA representation. Is just some wrapper around the espeak functionality. -}+{-| Given a language 'String' supported by the espeak-ng or espeak (which one is installed properly with prefered+espeak-ng) and the needed text returns the IPA representation. Is just some wrapper around the espeak functionality. -} espeakNG_IPA :: String -> String -> IO String-espeakNG_IPA lang xs =+espeakNG_IPA voice xs =  case showE "espeak-ng" of-   Just path -> readProcessWithExitCode path ("-xq":"--ipa":"-l":[lang]) xs >>=+   Just path -> readProcessWithExitCode path ("-xq":"--ipa":"-v":[voice]) xs >>=      \(hcode,hout,herr) -> case hcode of         ExitSuccess -> return (unwords . lines $ hout)         _ -> error ("EspeakNG_IPA.espeakNG_IPA: " ++ show herr)    _ -> case showE "espeak" of-          Just path2 -> readProcessWithExitCode path2 ("-xq":"--ipa":"-l":[lang]) xs >>=+          Just path2 -> readProcessWithExitCode path2 ("-xq":"--ipa":"-v":[voice]) xs >>=             \(hcode,hout,herr) -> case hcode of                ExitSuccess -> return (unwords . lines $ hout)                _ -> error ("EspeakNG_IPA.espeakNG_IPA: " ++ show herr)           _ -> error ("EspeakNG_IPA.espeakNG_IPA: No espeak or espeak-ng executable is installed in the PATH directories. ") -{-| Given a language 'String' supported by the espeak-ng or espeak (which one is installed properly) and the-needed text prints the IPA representation. Is just some wrapper around the espeak functionality. -}  +{-| Given a language 'String' supported by the espeak-ng or espeak (which one is installed properly with prefered+espeak-ng) and the needed text prints the IPA representation. Is just some wrapper around the espeak functionality. -}   espeakNG_IPA_ :: String -> String -> IO ()-espeakNG_IPA_ lang xs =+espeakNG_IPA_ voice xs =    case showE "espeak-ng" of-   Just path -> readProcessWithExitCode path ("-xq":"--ipa":"-l":[lang]) xs >>=+   Just path -> readProcessWithExitCode path ("-xq":"--ipa":"-v":[voice]) xs >>=      \(hcode,hout,herr) -> case hcode of         ExitSuccess -> putStrLn (unwords . lines $ hout)         _ -> error ("EspeakNG_IPA.espeakNG_IPA_: " ++ show herr)    _ -> case showE "espeak" of-          Just path2 -> readProcessWithExitCode path2 ("-xq":"--ipa":"-l":[lang]) xs >>=+          Just path2 -> readProcessWithExitCode path2 ("-xq":"--ipa":"-v":[voice]) xs >>=             \(hcode,hout,herr) -> case hcode of                ExitSuccess -> putStrLn (unwords . lines $ hout)                _ -> error ("EspeakNG_IPA.espeakNG_IPA_: " ++ show herr)

@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                phonetic-languages-simplified-generalized-examples-array-version:             0.4.0.0+version:             0.4.1.0 synopsis:            Helps to create texts with the given phonetic properties (e. g. poetic). description:         Is rewritten from the modules of the @phonetic-languages-simplified-examples-array@ package. Can be used not only for Ukrainian, but also for other languages.  homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-examples-array