diff --git a/ChangeLog.md b/ChangeLog.md --- a/ChangeLog.md +++ b/ChangeLog.md @@ -16,4 +16,8 @@ ## 0.2.0.0 -- 2022-08-16 * Second version. Added mmsyn7ukr-common as a dependency. Removed the duplicated modules. + +## 0.3.0.0 -- 2024-12-19 + +* Third version. Updated dependencies. Added github repository with bug-reports. diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -1,4 +1,4 @@ -Copyright (c) 2019-2022 Oleksandr Zhabenko +Copyright (c) 2019-2022, 2024 Oleksandr Zhabenko Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the diff --git a/Processing_mmsyn7ukr_array.hs b/Processing_mmsyn7ukr_array.hs --- a/Processing_mmsyn7ukr_array.hs +++ b/Processing_mmsyn7ukr_array.hs @@ -1,9 +1,9 @@ -- | -- Module : Processing_mmsyn7ukr --- Copyright : (c) OleksandrZhabenko 2019-2022 +-- Copyright : (c) OleksandrZhabenko 2019-2022, 2024 -- License : MIT -- Stability : Experimental --- Maintainer : olexandr543@yahoo.com +-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -34,7 +34,7 @@ import Numeric import System.Directory import Control.Exception (onException) -import EndOfExe (showE) +import EndOfExe2 (showE) import Data.Maybe (fromJust) import Data.Char import qualified Data.List as L @@ -49,7 +49,7 @@ import GHC.Arr import Parser.ReplaceP (replaceP, replaceP4) import Sound.Control.Exception.FinalException -import SoXBasics.Arr (recA,recB,playA) +import SoXBasics.Arr (recA,recB) -- | Function 'produceSound3' is used internally in the 'produceSound2' function. produceSound3 :: (String, String) -> (FilePath, FilePath) -> String -> (Int, Float) -> Float -> IO () diff --git a/SoXBasics/Arr.hs b/SoXBasics/Arr.hs --- a/SoXBasics/Arr.hs +++ b/SoXBasics/Arr.hs @@ -1,9 +1,9 @@ -- | -- Module : SoXBasics.Arr --- Copyright : (c) OleksandrZhabenko 2019-2022 +-- Copyright : (c) OleksandrZhabenko 2019-2022, 2024 -- License : MIT -- Stability : Experimental --- Maintainer : olexandr543@yahoo.com +-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -65,7 +65,7 @@ import Data.Char import System.Process import System.IO -import EndOfExe +import EndOfExe2 import System.Exit import Control.Concurrent (threadDelay) import Control.Exception (onException) diff --git a/SoXBasics1/Arr.hs b/SoXBasics1/Arr.hs --- a/SoXBasics1/Arr.hs +++ b/SoXBasics1/Arr.hs @@ -1,9 +1,9 @@ -- | -- Module : SoXBasics1.Arr --- Copyright : (c) OleksandrZhabenko 2020-2022 +-- Copyright : (c) OleksandrZhabenko 2020-2022, 2024 -- License : MIT -- Stability : Experimental --- Maintainer : olexandr543@yahoo.com +-- Maintainer : oleksandr.zhabenko@yahoo.com -- -- A program and a library that can be used as a simple -- basic interface to some SoX functionality or for producing @@ -42,7 +42,7 @@ import Data.Maybe (isJust, fromJust) import Numeric import System.Process -import EndOfExe +import EndOfExe2 import System.Exit import qualified SoXBasics.Arr as SB (extremeS1,upperBnd,selMA,maxAbs,norm) import Sound.Control.Exception.FinalException @@ -387,21 +387,21 @@ amplMax <- SB.selMA fileB (0, upp) True amplMin <- SB.selMA fileB (0, upp) False let ampl = read (fst . SB.maxAbs $ (amplMax, amplMin))::Float - (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [fileA, "8." ++ tail fileA, "vol", showFFloat Nothing ampl $ show 0, "amplitude"] "" + (code, _, _) <- readProcessWithExitCode (fromJust (showE "sox")) [fileA, "8." ++ drop 1 fileA, "vol", showFFloat Nothing ampl $ show 0, "amplitude"] "" if code /= ExitSuccess then do - e1 <- doesFileExist $ "8." ++ tail fileA + e1 <- doesFileExist $ "8." ++ drop 1 fileA if e1 then do - removeFile $ "8." ++ tail fileA + removeFile $ "8." ++ drop 1 fileA catchEnd (NotCreatedWithEffect "vol") else catchEnd (NotCreatedWithEffect "vol") else do - file8e <- doesFileExist $ "8." ++ tail fileA + file8e <- doesFileExist $ "8." ++ drop 1 fileA if file8e then do removeFile fileA - renameFile ("8." ++ tail fileA) fileA + renameFile ("8." ++ drop 1 fileA) fileA else catchEnd (InitialFileNotChanged fileA) else catchEnd ExecutableNotProperlyInstalled diff --git a/mmsyn7ukr-array.cabal b/mmsyn7ukr-array.cabal --- a/mmsyn7ukr-array.cabal +++ b/mmsyn7ukr-array.cabal @@ -2,16 +2,17 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: mmsyn7ukr-array -version: 0.2.0.0 -synopsis: A simple reduced basic interface to some SoX functionality or to produce a voice that can be used by mmsyn7h-array, dobutokO2-array and other similar packages -description: A reduced set of modules and functionality needed to dobutokO2-array package and probably some other ones. Is rewritten from the mmsyn7ukr-0.17.0.0 package to reduce the needed dependencies. +version: 0.3.0.0 +synopsis: A simple reduced basic interface to some SoX functionality or to produce a voice that can be used by dobutokO2 and other similar packages +description: A reduced set of modules and functionality needed to dobutokO2-array package and probably some other ones. Is rewritten from the mmsyn7ukr-0.17.0.0 package to reduce the needed dependencies. homepage: https://hackage.haskell.org/package/mmsyn7ukr-array license: MIT license-file: LICENSE author: OleksandrZhabenko -maintainer: olexandr543@yahoo.com -copyright: (c) Oleksandr Zhabenko 2019-2022 +maintainer: oleksandr.zhabenko@yahoo.com +copyright: (c) Oleksandr Zhabenko 2019-2022, 2024 category: Language, Sound +bug-reports: https://github.com/Oleksandr-Zhabenko/mmsyn7ukr-array/issues build-type: Simple extra-source-files: ChangeLog.md, README.md data-files: y.wav @@ -21,7 +22,7 @@ exposed-modules: SoXBasics.Arr, SoXBasics1.Arr, Processing_mmsyn7ukr_array, Paths_mmsyn7ukr_array -- other-modules: -- other-extensions: - build-depends: base >=4.7 && <5, process >=1.4 && <2, mmsyn2-array ==0.3.0.0, directory >=1.2.5 && <2, mmsyn3 ==0.1.6.0, mmsyn7ukr-common ==0.2.0.0 + build-depends: base >=4.13 && <5, process >=1.4 && <2, mmsyn2-array ==0.3.1.1, directory >=1.2.5 && <2, end-of-exe ==0.1.2.0, mmsyn7ukr-common ==0.3.1.0 -- hs-source-dirs: default-language: Haskell2010