phonetic-languages-simplified-generalized-examples-common 0.1.0.1 → 0.1.1.0

raw patch · 3 files changed

+24/−5 lines, 3 filesdep ~phonetic-languages-phonetics-basicsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: phonetic-languages-phonetics-basics

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Phonetic/Languages/General/Common.hs +18/−3
• phonetic-languages-simplified-generalized-examples-common.cabal +2/−2

@@ -7,3 +7,7 @@ ## 0.1.0.1 -- 2021-05-07  * First version revised A. Changed the dependency boundaries of the phonetic-languages-phonetics-basics.++## 0.1.1.0 -- 2021-05-10++* First version revised B. Some documentation improvements. Changed the dependency boundaries.

@@ -22,7 +22,15 @@ import Data.Char (isAlpha) import Data.Monoid (mappend) -fLines :: Concatenations -> String -> String -> String -> Int -> String -> [String]+fLines+ :: Concatenations -- ^ Data used to concatenate the basic grammar preserving words and word sequences to the next word to+ -- leave the most of the meaning (semantics) of the text available to easy understanding while reading and listening to.+ -> String+ -> String+ -> String+ -> Int+ -> String+ -> [String] fLines ysss xs us vs !toOneLine ys =   let preText = filter (any (\x -> isPLL xs x && isAlpha x)) . prepareText ysss xs .          (\z -> if toOneLine == 1 then unwords . words $ z else z) $ ys@@ -34,13 +42,20 @@  | otherwise = t:helpG2 us vs ts rs helpG2 _ _ _ _ = [] -fLinesIO :: Concatenations -> String -> String -> String -> String -> IO ()+fLinesIO+ :: Concatenations -- ^ Data used to concatenate the basic grammar preserving words and word sequences to the next word to+ -- leave the most of the meaning (semantics) of the text available to easy understanding while reading and listening to.+ -> String+ -> String+ -> String+ -> String+ -> IO () fLinesIO ysss xs us vs ys =   let preText = filter (any (\x -> isPLL xs x && isAlpha x)) . prepareText ysss xs $ ys       wss = map (length . subG (' ':us `mappend` vs)) preText         in mapM_ putStrLn . map (\(i,x) -> show (i + 1) ++ "\t" ++ x) . helpG3 . indexedL "" . helpG2 us vs preText $ wss --- | +-- | Indexes the 'Foldable' structure using consequential 'Int' values. indexedL :: Foldable t => b -> t b -> [(Int, b)] indexedL y zs = foldr f v zs   where !v = [(length zs,y)]

@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/  name:                phonetic-languages-simplified-generalized-examples-common-version:             0.1.0.1+version:             0.1.1.0 synopsis:            Some common code for phonetic languages generalized functionality. description:         Is intended to be used in the phonetic-languages-simplified-generalized-examples-array package. homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-examples-common@@ -21,6 +21,6 @@   exposed-modules:     Phonetic.Languages.General.SimpleConstraints, Phonetic.Languages.General.Common, Phonetic.Languages.General.DeEnCoding   -- other-modules:   other-extensions:    BangPatterns, FlexibleContexts-  build-depends:       base >=4.8 && <4.15, subG >=0.4.2 && <1, phonetic-languages-phonetics-basics >=0.6.1 && <1, heaps >=0.3.6.1 && <1+  build-depends:       base >=4.8 && <4.15, subG >=0.4.2 && <1, phonetic-languages-phonetics-basics >=0.6.2 && <1, heaps >=0.3.6.1 && <1   -- hs-source-dirs:   default-language:    Haskell2010