phladiprelio-ukrainian-simple 0.1.2.0 → 0.2.0.0
raw patch · 4 files changed
+37/−8 lines, 4 filesdep ~rhythmic-sequences
Dependency ranges changed: rhythmic-sequences
Files
- CHANGELOG.md +6/−1
- README.md +10/−2
- app/Main.hs +19/−3
- phladiprelio-ukrainian-simple.cabal +2/−2
CHANGELOG.md view
@@ -20,4 +20,9 @@ ## 0.1.2.0 -- 2023-03-12 * First version revised D. Added documentation and video examples of usage. See the README.md.- ++## 0.2.0.0 -- 2023-03-17++* Second version. Added help message (phladiprelioUkr -h). Changed the +h argument group to +c+ argument group. Updated the dependency boundaries.+
README.md view
@@ -1,6 +1,6 @@ The executable is the new implementation of the ideas related to PhLADiPreLiO (Phonetic Languages Approach to Discovering the Preferred Line Options) for Ukrainian language. It uses hashes and-has at the moment (as of the version 0.1.2.0) not the full functionality. The previous implementation +has at the moment (as of the version 0.2.0.0) not the full functionality. The previous implementation and its documentation are at the links: https://hackage.haskell.org/package/phonetic-languages-simplified-examples-array@@ -17,13 +17,21 @@ Video recordings as examples of the working prototype usage and how you can listen to Ukrainian text using Google services are at the links below: -https://www.facebook.com/Oleksandr.S.Zhabenko/posts/pfbid02ExubdLQHV3PoYXikZzo8Hmi7WVR5xTUgaKaV5bVv46Zn5J3jX8ysgEWJubwPWEE7l+https://www.facebook.com/Oleksandr.S.Zhabenko/videos/796964592047546 https://www.facebook.com/Oleksandr.S.Zhabenko/posts/pfbid02EaC4Zwn4YVjfVFWpUhLoHYomiFHZQaiMdorLa6PPx9kXBXepTYPFEFMv8iyV4wAYl +To see the help message with synopsis information, run:++phladiprelioUkr -h++ Devotion+ ========+ P.S.: the author would like to devote this project to support the Foundation GASTROSTARS. At the day of publication of the first version of the package (12/03/2023) there is the foundation founder's (this is [Emma Kok](https://www.emmakok.nl)) Birthday.+And on the 17/03/2023 there is the author's Birthday. If you would like to share some financial support, please, contact the foundation using the URL:
app/Main.hs view
@@ -34,13 +34,29 @@ main = do args <- getArgs let (argsB, arg2s) = takeBsR bSpecs args+ (argsA, _) = takeAsR aSpecs args fileDu = concat . getB "+d" $ argsB sylD = let k = snd (fromMaybe 2 (readMaybe (concat . getB "+s" $ argsB)::Maybe Int) `quotRemInt` 4) in if k == 0 then 4 else k- hc = readHashCorrections . concat . getB "+h" $ argsB+ hc = readHashCorrections . concat . getB "+c" $ argsB grpp = grouppingR . concat . getB "+r" $ argsB+ helpMessage = oneA "-h" argsA str1 = unwords . take 7 . words . mconcat . prepareText . unwords $ arg2s- generalF fileDu hc grpp sylD str1 >> return ()+ if helpMessage then do+ putStrLn "Synopsis:"+ putStrLn "phladiprelioUkr [+c <HashCorrections encoded>] [+d <FilePath to file with durations>] [+r <groupping info>] [+s <syllable durations function number>] <Ukrainian textual line>"+ putStrLn ""+ putStrLn "+s — the next is the digit from 1 to 4 included. The default one is 2. Influences the result in the case of +d parameter is not given "+ putStrLn "+d — see: https://web.archive.org/web/20220610171812/https://raw.githubusercontent.com/OleksandrZhabenko/phonetic-languages-data/main/0.20.0.0/56.csv as a format for the file."+ putStrLn "+r — afterwards are several unique digits not greater than 8 in the descending order — the first one is the length of the group of syllables to be considered as a period, the rest — positions of the maximums and minimums. Example: \"543\" means that the line is splitted into groups of 5 syllables starting from the beginning, then the positions of the most maximum (4 = 5 - 1) and the next (smaller) maximum (3 = 4 - 1). If there are no duplicated values then the lowest possible value here is 0, that corresponds to the lowest minimum. If there are duplicates then the lowest value here is the number of the groups of duplicates, e. g. in the sequence 1,6,3,3,4,4,5 that is one group there are two groups of duplicates — with 3 and 4 — and, therefore, the corresponding data after +r should be 7...2. The values less than the lowest minimum are neglected."+ putStrLn "+c — see explanation at the link: https://hackage.haskell.org/package/rhythmic-sequences-0.2.3.1/docs/src/Rhythmicity.MarkerSeqs.html#HashCorrections"+ else generalF fileDu hc grpp sylD str1 >> return () bSpecs :: CLSpecifications-bSpecs = zip ["+d","+h","+r","+s"] . cycle $ [1]+bSpecs = zip ["+c","+d","+r","+s"] . cycle $ [1]++aSpecs :: CLSpecifications+aSpecs = [("-h",0)]++cSpecs :: CLSpecifications+cSpecs = []
phladiprelio-ukrainian-simple.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: phladiprelio-ukrainian-simple-version: 0.1.2.0+version: 0.2.0.0 -- A short (one-line) description of the package. synopsis: A PhLADiPreLiO implementation for Ukrainian that uses hashes@@ -29,7 +29,7 @@ -- LANGUAGE extensions used by modules in this package. -- other-extensions:- build-depends: base >=4.13 && <5, rhythmic-sequences ==0.2.1.0, ukrainian-phonetics-basic-array ==0.7.0.0, phonetic-languages-ukrainian-array ==0.10.0.0, phladiprelio-ukrainian-shared ==0.1.0.0, cli-arguments ==0.7.0.0+ build-depends: base >=4.13 && <5, rhythmic-sequences ==0.2.3.1, ukrainian-phonetics-basic-array ==0.7.0.0, phonetic-languages-ukrainian-array ==0.10.0.0, phladiprelio-ukrainian-shared ==0.1.0.0, cli-arguments ==0.7.0.0 hs-source-dirs: app default-language: Haskell2010