phonetic-languages-simplified-generalized-properties-array 0.11.0.0 → 0.12.0.0
raw patch · 5 files changed
+67/−91 lines, 5 filesdep ~phonetic-languages-basisdep ~phonetic-languages-phonetics-basicsPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: phonetic-languages-basis, phonetic-languages-phonetics-basics
API changes (from Hackage documentation)
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: CF0 :: CoeffTwo a
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: CF2 :: Maybe a -> Maybe a -> CoeffTwo a
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: data CoeffTwo a
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: fstCF :: CoeffTwo a -> Maybe a
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: instance GHC.Classes.Eq a => GHC.Classes.Eq (Phonetic.Languages.Array.General.PropertiesSyllablesG2.CoeffTwo a)
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: isEmpty :: CoeffTwo a -> Bool
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: isPair :: CoeffTwo a -> Bool
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: readCF :: String -> Coeffs2
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: sndCF :: CoeffTwo a -> Maybe a
- Phonetic.Languages.Array.General.PropertiesSyllablesG2: type Coeffs2 = CoeffTwo Double
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2F :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2F :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2FF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2FF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2FG :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2FG :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvFF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvFF :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvFG :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procB2InvFG :: Ord c => GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> String -> String -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2 -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procDiverse2F :: Ord c => GWritingSystemPRPLX -> String -> (Double -> c) -> FuncRep2 ReadyForConstructionPL Double c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procDiverse2F :: Ord c => GWritingSystemPRPLX -> String -> (Double -> c) -> String -> FuncRep2 ReadyForConstructionPL Double c
- Phonetic.Languages.Array.General.PropertiesFuncRepG2: procDiverse2I :: Ord c => GWritingSystemPRPLX -> String -> (Int16 -> c) -> FuncRep2 ReadyForConstructionPL Int16 c
+ Phonetic.Languages.Array.General.PropertiesFuncRepG2: procDiverse2I :: Ord c => GWritingSystemPRPLX -> String -> (Int16 -> c) -> String -> FuncRep2 ReadyForConstructionPL Int16 c
Files
- ChangeLog.md +3/−0
- Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs +32/−23
- Phonetic/Languages/Array/General/PropertiesSyllablesG2.hs +12/−48
- Phonetic/Languages/EmphasisG.hs +18/−18
- phonetic-languages-simplified-generalized-properties-array.cabal +2/−2
ChangeLog.md view
@@ -106,3 +106,6 @@ new model of computations with the possibly two modes instead of just one -- PhoPaaW and SaaW. Some code improvements. +## 0.12.0.0 -- 2022-09-13++* Twelfth version. Moved the common functionality for coeffs to the phonetic-languages-basis package. Added new functionality to use diverse2GGL function.
Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs view
@@ -51,6 +51,7 @@ import Data.Maybe (fromMaybe,mapMaybe) import Data.Monoid (mappend) import Phonetic.Languages.EmphasisG+import Phonetic.Languages.Coeffs #ifdef __GLASGOW_HASKELL__ #if __GLASGOW_HASKELL__==708@@ -64,10 +65,11 @@ -> String -- ^ Actually is the \' \':us ++ vs in the following functions where in the definition is us and vs 'String's. See the -- source code of the module. -> (Int16 -> c)+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Int16 c-procDiverse2I wrs zs g = +procDiverse2I wrs zs g sels = D (\x -> case x of- StrG xs -> diverse2GL zs . concatMap string1 . stringToXG wrs $ xs+ StrG xs -> diverse2GGL sels zs . concatMap string1 . stringToXG wrs $ xs FSLG tsss -> 1) g {-# INLINE procDiverse2I #-} @@ -76,10 +78,11 @@ -> String -- ^ Actually is the \' \':us ++ vs in the following functions where in the definition is us and vs 'String's. See the -- source code of the module. -> (Double -> c)+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c-procDiverse2F wrs zs g = +procDiverse2F wrs zs g sels = D (\x ->case x of- StrG xs -> int2Double . fromEnum . diverse2GL zs . concatMap string1 . stringToXG wrs $ xs+ StrG xs -> int2Double . fromEnum . diverse2GGL sels zs . concatMap string1 . stringToXG wrs $ xs FSLG _ -> 1.0) g {-# INLINE procDiverse2F #-} @@ -102,17 +105,18 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c-procB2FG wrs ks arr gs us vs h1 h g coeffs = +procB2FG wrs ks arr gs us vs h1 h g coeffs sels = D (\t -> case t of StrG xs -> let ys = concatMap string1 . stringToXG wrs $ xs in- ((int2Double . fromEnum . diverse2GL zs $ ys)*(h1 . mconcat . (fromMaybe (const [[-5.0]]) (fromPhoPaaW g)) . map (divSylls . reSyllableCntnts ks gs . + ((int2Double . fromEnum . diverse2GGL sels zs $ ys)*(h1 . mconcat . (fromMaybe (const [[-5.0]]) (fromPhoPaaW g)) . map (divSylls . reSyllableCntnts ks gs . groupSnds . str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys)) FSLG tsss -> h1 . mconcat . (fromMaybe (const [[-6.0]]) (fromSaaW g)) $ tsss) h where zs = ' ':us `mappend` vs@@ -123,11 +127,12 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c procB2F wrs ks arr gs us vs h g coeffs = procB2FG wrs ks arr gs us vs (eval23Coeffs coeffs) h g coeffs {-# INLINE procB2F #-}@@ -137,12 +142,13 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c procB2FF wrs ks arr gs us vs k h g coeffs = procB2FG wrs ks arr gs us vs (eval23CoeffsF k coeffs) h g coeffs {-# INLINE procB2FF #-}@@ -152,18 +158,19 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ([Double] -> Double) -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c-procB2InvFG wrs ks arr gs us vs h1 h g coeffs = +procB2InvFG wrs ks arr gs us vs h1 h g coeffs sels = D (\t -> case t of StrG xs -> let !ys = concatMap string1 . stringToXG wrs $ xs- !z = diverse2GL zs ys in if z == 0 then (h1 . mconcat . (fromMaybe (const [[-5.0]]) (fromPhoPaaW g)) . map (divSylls . reSyllableCntnts ks gs . groupSnds .+ !z = diverse2GGL sels zs ys in if z == 0 then (h1 . mconcat . (fromMaybe (const [[-5.0]]) (fromPhoPaaW g)) . map (divSylls . reSyllableCntnts ks gs . groupSnds . str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys) ** 2.0 else ((h1 . mconcat . (fromMaybe (const [[-5.0]]) (fromPhoPaaW g)) . map (divSylls . reSyllableCntnts ks gs . groupSnds . str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys) / (int2Double . fromEnum $ z))@@ -176,13 +183,14 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c-procB2InvF wrs ks arr gs us vs h g coeffs = procB2InvFG wrs ks arr gs us vs (eval23Coeffs coeffs) h g coeffs+procB2InvF wrs ks arr gs us vs h g coeffs= procB2InvFG wrs ks arr gs us vs (eval23Coeffs coeffs) h g coeffs {-# INLINE procB2InvF #-} procB2InvFF@@ -190,12 +198,13 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> Double -> (Double -> c) -> MappingFunctionPL -> Coeffs2+ -> String -- ^ Specifies the list of 'Char' that the function is sensitive to. -> FuncRep2 ReadyForConstructionPL Double c procB2InvFF wrs ks arr gs us vs k h g coeffs = procB2InvFG wrs ks arr gs us vs (eval23CoeffsF k coeffs) h g coeffs {-# INLINE procB2InvFF #-}@@ -221,8 +230,8 @@ -> [(Char,Char)] -> CharPhoneticClassification -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -- ^ The starting 'String' which defines the line to be constructed -> FuncRep2 ReadyForConstructionPL Double c procRhythmicity23F k g h choice coeffs wrs ks arr hs us vs bbs = D (rhythmicity k choice h coeffs bbs wrs ks arr hs us vs) g
Phonetic/Languages/Array/General/PropertiesSyllablesG2.hs view
@@ -19,16 +19,8 @@ {-# LANGUAGE CPP, BangPatterns, MultiWayIf #-} module Phonetic.Languages.Array.General.PropertiesSyllablesG2 (- -- * Newtype to work with- CoeffTwo(..)- , Coeffs2- , isEmpty- , isPair- , fstCF- , sndCF- , readCF -- * Mapping function data type- , MappingFunctionPL(..)+ MappingFunctionPL(..) , isPhoPaaW , isSaaW , fromPhoPaaW@@ -62,6 +54,7 @@ import Text.Read (readMaybe) import Phonetic.Languages.EmphasisG import GHC.Int (Int8)+import Phonetic.Languages.Coeffs #ifdef __GLASGOW_HASKELL__ #if __GLASGOW_HASKELL__==708@@ -70,35 +63,6 @@ #endif #endif -data CoeffTwo a = CF0 | CF2 (Maybe a) (Maybe a) deriving (Eq)--isEmpty :: CoeffTwo a -> Bool-isEmpty CF0 = True-isEmpty _ = False--isPair :: CoeffTwo a -> Bool-isPair CF0 = False-isPair _ = True--fstCF :: CoeffTwo a -> Maybe a-fstCF (CF2 x _) = x-fstCF _ = Nothing--sndCF :: CoeffTwo a -> Maybe a-sndCF (CF2 _ y) = y-sndCF _ = Nothing--readCF :: String -> Coeffs2-readCF xs- | any (== '_') xs = let (!ys,!zs) = (\(ks,ts) -> (readMaybe ks::Maybe Double,readMaybe (drop 1 ts)::Maybe Double)) . break (== '_') $ xs in- if (isNothing ys && isNothing zs) then CF0 else CF2 ys zs- | otherwise = CF0---- | A data type that is used to represent the coefficients of the rhythmicity functions as a one argument value.-type Coeffs2 = CoeffTwo Double----------------------------------------------------------------------------------------------- eval23 = evalRhythmicity23 . mconcat {-# INLINE eval23 #-} @@ -141,8 +105,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ReadyForConstructionPL -> Double rhythmicityG f g bbs wrs ks arr hs us vs xs@(FSLG tsss)@@ -166,8 +130,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ReadyForConstructionPL -> Double rhythmicity0i f = rhythmicityG f eval23 @@ -186,8 +150,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ReadyForConstructionPL -> Double rhythmicityKi f k2 k3 = rhythmicityG f (eval23K k2 k3)@@ -205,8 +169,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ReadyForConstructionPL -> Double rhythmicity0Fi f k = rhythmicityG f (eval23F k)@@ -226,8 +190,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> ReadyForConstructionPL -> Double rhythmicityKFi f k k2 k3 = rhythmicityG f (eval23KF k k2 k3)
Phonetic/Languages/EmphasisG.hs view
@@ -44,8 +44,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> IO ([[FlowSoundG]],[SyllWeightsG],[[[Int8]]]) weightStringIO wrs ks arr hs us vs xs = weightSyllablesIO fss >>= \zs -> pure (tsss, zs, helper1F . scanl' (+) (-128::Int8) . map (fromIntegral . length) $ tsss)@@ -58,8 +58,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> Int -> String -> IO ([[FlowSoundG]],[[SyllWeightsG]],[[[Int8]]])@@ -126,8 +126,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> [[FlowSoundG]] convF1 wrs ks arr hs us vs xs@@ -140,8 +140,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> [([String],[[Int8]],[FlowSoundG])] convF3 wrs ks arr hs us vs xs@@ -156,8 +156,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> [(String,[[Int8]])] convF3W wrs ks arr hs us vs xs@@ -170,8 +170,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> String -> [[[Int8]]]@@ -184,8 +184,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> String -> ReadyForConstructionPL -> String@@ -201,8 +201,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> Bool -> String -> IO ([[FlowSoundG]],[[[[Int8]]] -> [[Double]]],ReadyForConstructionPL)@@ -219,8 +219,8 @@ -- (e. g. allophones). Must be sorted in the ascending order to be used correctly. -> CharPhoneticClassification -- ^ The 'Array' 'Int' 'PRS' must be sorted in the ascending order to be used in the module correctly. -> SegmentRulesG- -> String -- ^ Corresponds to the \'0\' symbol delimiter in the @ukrainian-phonetics-basic-array@ package.- -> String -- ^ Corresponds to the \'1\' and \'-\' symbol delimiters in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 100 delimiter in the @ukrainian-phonetics-basic-array@ package.+ -> String -- ^ Corresponds to the 101 delimiter in the @ukrainian-phonetics-basic-array@ package. -> Int -> Bool -> String
phonetic-languages-simplified-generalized-properties-array.cabal view
@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/ name: phonetic-languages-simplified-generalized-properties-array-version: 0.11.0.0+version: 0.12.0.0 synopsis: Some 'properties' of the phonetic languages approach text. description: Generalizes the functionality of the https://hackage.haskell.org/package/phonetic-languages-simplified-properties-array homepage: https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-properties-array@@ -21,6 +21,6 @@ exposed-modules: Phonetic.Languages.Array.General.PropertiesFuncRepG2, Phonetic.Languages.Array.General.PropertiesSyllablesG2, Phonetic.Languages.EmphasisG -- other-modules: other-extensions: CPP, BangPatterns, MultiWayIf- build-depends: base >=4.8 && <5, phonetic-languages-basis ==0.1.1.0, phonetic-languages-rhythmicity ==0.9.2.0, phonetic-languages-phonetics-basics ==0.9.0.0, lists-flines ==0.1.2.0, mmsyn2-array ==0.3.0.0+ build-depends: base >=4.8 && <5, phonetic-languages-basis ==0.2.0.0, phonetic-languages-rhythmicity ==0.9.2.0, phonetic-languages-phonetics-basics ==0.9.1.0, lists-flines ==0.1.2.0, mmsyn2-array ==0.3.0.0 -- hs-source-dirs: default-language: Haskell2010