mmsyn6ukr 0.3.2.0 → 0.3.3.0
raw patch · 35 files changed
+11/−7 lines, 35 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- A.wav binary
- B.wav binary
- C.wav binary
- ChangeLog.md +4/−0
- D.wav binary
- E.wav binary
- F.wav binary
- G.wav binary
- H.wav binary
- I.wav binary
- J.wav binary
- K.wav binary
- L.wav binary
- M.wav binary
- Melodics/Ukrainian.hs +4/−4
- N.wav binary
- O.wav binary
- P.wav binary
- Q.wav binary
- R.wav binary
- S.wav binary
- T.wav binary
- U.wav binary
- V.wav binary
- W.wav binary
- X.wav binary
- Y.wav binary
- Z.wav binary
- a.wav binary
- b.wav binary
- c.wav binary
- d.wav binary
- e.wav binary
- f.wav binary
- mmsyn6ukr.cabal +3/−3
binary file changed (6140 → 6140 bytes)
binary file changed (2562 → 2562 bytes)
binary file changed (3660 → 3672 bytes)
@@ -30,3 +30,7 @@ ## 0.3.2.0 -- 2019-11-29 * Third version revised C. Changed some sounds or sound representation: "с", "сь", "х", "ч", "ш".++## 0.3.3.0 -- 2019-12-03++* Third version revised D. Changed all non-silent sounds. Added support for '-'.
binary file changed (3432 → 3432 bytes)
binary file changed (3222 → 3222 bytes)
binary file changed (2190 → 2202 bytes)
binary file changed (2496 → 2496 bytes)
binary file changed (4172 → 4172 bytes)
binary file changed (3158 → 3158 bytes)
binary file changed (2506 → 2516 bytes)
binary file changed (4452 → 4452 bytes)
binary file changed (2564 → 2564 bytes)
binary file changed (2070 → 2046 bytes)
@@ -21,7 +21,7 @@ import qualified Data.Vector as V import qualified Data.ByteString.Lazy as B import System.IO -import CaseBi+import CaseBi (getBFst') import Data.List.InnToOut.Basic import Paths_mmsyn6ukr @@ -71,7 +71,7 @@ convertToProperUkrainian ys = toVector . correctA . createTuplesByAnalysis . filterUkr $ ys filterUkr :: String -> String -filterUkr xs = concatMap (\x -> if isUkrainian x then [toLower x] else if isSpace x || isControl x then [x] else []) xs+filterUkr xs = concatMap (\x -> if isUkrainian x then [toLower x] else if isSpace x || isControl x || x == '-' then [x] else []) xs createTuplesByAnalysis :: String -> [(String, Triple)] createTuplesByAnalysis x@(y:ys) | canChange [y] == O = ("1", Z):createTuplesByAnalysis ys@@ -80,7 +80,7 @@ createTuplesByAnalysis _ = [] canChange :: String -> Triple-canChange ~(x:_) | isSpace x || isControl x = O+canChange ~(x:_) | isSpace x || isControl x || x == '-' = O | getBFst' (False, V.fromList $ zip ['\1075','\1076','\1079','\1078','\1082','\1087','\1089','\1090','\1092','\1093','\1094','\1095','\1096'] (repeat True)) x = T | otherwise = Z @@ -318,7 +318,7 @@ isUkrainian :: Char -> Bool isUkrainian y | (y >= '\1040' && y <= '\1065') || (y >= '\1070' && y <= '\1097') = True- | otherwise = getBFst' (False, V.fromList . map (\x -> (x, True)) $ "'\700\1028\1030\1031\1068\1100\1102\1103\1108\1110\1111\1168\1169\8217") y+ | otherwise = getBFst' (False, V.fromList . map (\x -> (x, True)) $ "'-\700\1028\1030\1031\1068\1100\1102\1103\1108\1110\1111\1168\1169\8217") y nSymbols :: String -> Int nSymbols xs | null xs = 31416::Int
binary file changed (2868 → 2868 bytes)
binary file changed (3456 → 3456 bytes)
binary file changed (3318 → 3318 bytes)
binary file changed (5166 → 5180 bytes)
binary file changed (3212 → 3212 bytes)
binary file changed (2214 → 2214 bytes)
binary file changed (3334 → 3334 bytes)
binary file changed (3316 → 3332 bytes)
binary file changed (4898 → 4924 bytes)
binary file changed (4854 → 4854 bytes)
binary file changed (2778 → 2790 bytes)
binary file changed (3448 → 3448 bytes)
binary file changed (2384 → 2384 bytes)
binary file changed (3984 → 3984 bytes)
binary file changed (2576 → 2582 bytes)
binary file changed (2958 → 2958 bytes)
binary file changed (936 → 936 bytes)
binary file changed (4196 → 4196 bytes)
binary file changed (2820 → 2820 bytes)
@@ -2,9 +2,9 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn6ukr-version: 0.3.2.0-synopsis: Can be used as a musical instrument synthesizer or for Ukrainian language listening-description: A program that can be used as a musical instrument synthesizer or for Ukrainian speech synthesis especially for poets and writers+version: 0.3.3.0+synopsis: A musical instrument synthesizer or a tool for Ukrainian language listening+description: A program can be used as a musical instrument synthesizer or for Ukrainian speech synthesis especially for poets and writers homepage: https://hackage.haskell.org/package/mmsyn6ukr license: MIT license-file: LICENSE