phonetic-languages-simplified-generalized-examples-array 0.5.0.1 → 0.6.0.0
raw patch · 10 files changed
+281/−79 lines, 10 filesdep ~phonetic-languages-phonetics-basicsdep ~phonetic-languages-simplified-generalized-properties-arrayPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: phonetic-languages-phonetics-basics, phonetic-languages-simplified-generalized-properties-array
API changes (from Hackage documentation)
- Phonetic.Languages.General.GetTextualInfo: generalProc :: GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> (Double -> String -> [[[PRS]]] -> [[Double]]) -> [[[[PRS]]] -> [[Double]]] -> Concatenations -> String -> String -> String -> Bool -> [String] -> [String] -> Coeffs2 -> Coeffs2 -> FilePath -> String -> Int -> Int -> String -> IO ()
+ Phonetic.Languages.General.GetTextualInfo: generalProc :: (Int, Int) -> GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> (Double -> String -> [[[PRS]]] -> [[Double]]) -> [[[[PRS]]] -> [[Double]]] -> Concatenations -> String -> String -> String -> Bool -> [String] -> [String] -> Coeffs2 -> Coeffs2 -> FilePath -> String -> Int -> Int -> String -> IO ()
- Phonetic.Languages.General.Lines: generalProcessment :: GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> (Double -> String -> [[[PRS]]] -> [[Double]]) -> [[[[PRS]]] -> [[Double]]] -> Concatenations -> String -> String -> String -> Coeffs2 -> [String] -> String -> Int -> FilePath -> IO ()
+ Phonetic.Languages.General.Lines: generalProcessment :: (Int, Int) -> GWritingSystemPRPLX -> [(Char, Char)] -> CharPhoneticClassification -> SegmentRulesG -> (Double -> String -> [[[PRS]]] -> [[Double]]) -> [[[[PRS]]] -> [[Double]]] -> Concatenations -> String -> String -> String -> Coeffs2 -> [String] -> String -> Int -> FilePath -> IO ()
Files
- ChangeLog.md +10/−0
- Phonetic/Languages/General/GetInfo/Parsing.hs +16/−7
- Phonetic/Languages/General/GetTextualInfo.hs +27/−7
- Phonetic/Languages/General/Lines.hs +6/−3
- Phonetic/Languages/General/Lines/Parsing.hs +12/−4
- Phonetic/Languages/General/Simple.hs +12/−8
- Phonetic/Languages/General/Simple/Parsing.hs +11/−10
- Phonetic/Languages/Simplified/Array/General/FuncRep2RelatedG2.hs +173/−37
- README.md +12/−1
- phonetic-languages-simplified-generalized-examples-array.cabal +2/−2
ChangeLog.md view
@@ -60,3 +60,13 @@ ## 0.5.0.1 -- 2021-07-21 * Fifth version revised A. Fixed an issue with incomplete documentation addition to the README.md file.++## 0.6.0.0 -- 2021-07-29++* Sixth version. Changed the command line arguments modifiers notation to the small letters,+removed the double ++ sign (changed to just single +) to simplify the command line arguments usage.+Also changed the way to sign the writing to file for the Phonetic.Languages.General.Simple module.+Added new lines of properties for the (hypothetic) polyrhythmicity handling. Among them+"c", "s", "t", "u", "v" lines are. Changed the documentation appropriately. Changed the dependencies+boundaries. Added the possibility to 'grow lines' to Phonetic.Languages.General.Lines and+Phonetic.Languages.General.GetTextualInfo modules.
Phonetic/Languages/General/GetInfo/Parsing.hs view
@@ -55,6 +55,7 @@ args40 <- getArgs let (!args14,!args000) = splitAt 4 args40 [fileGWrSys, controlFile, segmentRulesFile, concatenationsFileP] = args14+ files4ArgsProcessment fileGWrSys controlFile segmentRulesFile concatenationsFileP h qs args000 files4ArgsProcessment@@ -72,13 +73,21 @@ -> [String] -- ^ List of other command line arguments -> IO () files4ArgsProcessment !fileGWrSys !controlFile !segmentRulesFile !concatenationsFileP h qs args000 = do- let !args00 = filter (\ts -> take 2 ts /= "+X" && ts /= "++B") args000- !lstW = any (== "++B") args000- !args0 = takeWhile (/= "+M") args00 `mappend` drop 1 (dropWhile (/= "-M") args00)- !multiples = drop 1 . dropWhile (/= "+M") . takeWhile (/= "-M") $ args00 -- Arguments for multiple metrices mode+ let !args00 = filter (\ts -> take 2 ts /= "+x" && ts /= "+b" && take 2 ts /= "+g") args000+ !growing = filter ((== "+g") . (take 2)) args000+ (!gr1,!gr2)+ | null growing = (0,0)+ | otherwise = let (nms,mms) = splitAt 1 . drop 2 . take 4 $ growing+ nm = readMaybe (concat nms)::Maybe Int+ mm = readMaybe (concat mms)::Maybe Int in case (nm,mm) of+ (Just n4,Just m4) -> if (m4 `rem` 7) < (n4 `rem` 7) then (n4 `rem` 7 + 1, m4 `rem` 7 + 1) else (0,0)+ _ -> (0,0)+ !lstW = any (== "+b") args000+ !args0 = takeWhile (/= "+m") args00 `mappend` drop 1 (dropWhile (/= "-m") args00)+ !multiples = drop 1 . dropWhile (/= "+m") . takeWhile (/= "-m") $ args00 -- Arguments for multiple metrices mode !args = filter (\xs -> all (/= ':') xs && all (/= '@') xs) args0 !coeffs = readCF . concat . take 1 $ args- !coeffsWX = readCF . drop 2 . concat . take 1 . filter (\ts -> take 2 ts == "+X") $ args000+ !coeffsWX = readCF . drop 2 . concat . take 1 . filter (\ts -> take 2 ts == "+x") $ args000 !lInes = filter (any (== ':')) args0 !numbersJustPrint = filter (== "@n") args0 (!wrs, !ks, !arr, !gs, !js, !vs, !ysss, !xs) = innerProcessmentSimple fileGWrSys controlFile segmentRulesFile concatenationsFileP@@ -89,7 +98,7 @@ !printLine = fromMaybe 0 (readMaybe (concat . take 1 . drop 3 $ args)::(Maybe Int)) !toOneLine = fromMaybe 0 (readMaybe (concat . take 1 . drop 4 $ args)::(Maybe Int)) !choice = concat . drop 5 . take 6 $ args - generalProc wrs ks arr gs h qs ysss xs js vs {- the old arguments follow -} lstW multiples lInes coeffs coeffsWX file gzS printLine toOneLine choice+ generalProc (gr1,gr2) wrs ks arr gs h qs ysss xs js vs {- the old arguments follow -} lstW multiples lInes coeffs coeffsWX file gzS printLine toOneLine choice else do contents <- readFile file fLinesIO ysss xs js vs contents @@ -100,7 +109,7 @@ !printLine = fromMaybe 0 (readMaybe (concat . take 1 . drop 2 $ args)::(Maybe Int)) !toOneLine = fromMaybe 0 (readMaybe (concat . take 1 . drop 3 $ args)::(Maybe Int)) !choice = concat . drop 4 . take 5 $ args- generalProc wrs ks arr gs h qs ysss xs js vs {- the old arguments follow -} lstW multiples lInes coeffs coeffsWX file gzS printLine toOneLine choice+ generalProc (gr1,gr2) wrs ks arr gs h qs ysss xs js vs {- the old arguments follow -} lstW multiples lInes coeffs coeffsWX file gzS printLine toOneLine choice else do contents <- readFile file fLinesIO ysss xs js vs contents
Phonetic/Languages/General/GetTextualInfo.hs view
@@ -50,7 +50,8 @@ import Data.Phonetic.Languages.Syllables generalProc- :: GWritingSystemPRPLX -- ^ Data used to obtain the phonetic language representation of the text.+ :: (Int,Int) -- ^ Argument to specify possible 'line growing'.+ -> GWritingSystemPRPLX -- ^ Data used to obtain the phonetic language representation of the text. -> [(Char,Char)] -- ^ The pairs of the 'Char' that corresponds to the similar phonetic languages consonant phenomenon -- (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.@@ -80,16 +81,25 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since 0.5.0.0 version can also -- process \"w\" and \"x\"-based lines properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0 -- There is also the possibility to use \'line growing\' that is to use the 'prepereGrowTextMN' function+ -- with the 'Int' arguments from the first argument tuple. This allows to rearrange the given text and then+ -- to rewrite it.+ -- Besides there are new lines of the arguments for the 'String' argument that can begin with \"c\", \"s\", \"t\",+ -- \"u\", \"v\" letters. For more information, please, refer to the 'Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2.rhythmicity'. -> IO ()-generalProc wrs ks arr gs h rs ysss xs js vs lstW multiples2 lInes coeffs coeffsWX file gzS printLine toOneLine choice+generalProc (gr1,gr2) wrs ks arr gs h rs ysss xs js vs lstW multiples2 lInes coeffs coeffsWX file gzS printLine toOneLine choice | null lInes = do contents <- readFile file- let !flines = fLines ysss xs js vs toOneLine contents+ let !flines + | gr1 == 0 = fLines ysss xs js vs toOneLine contents+ | otherwise = prepareGrowTextMN gr1 gr2 ysss xs . unlines . fLines ysss xs js vs toOneLine $ contents getData3 wrs ks arr gs js vs h rs lstW coeffs coeffsWX (getIntervalsNS lstW gzS flines) printLine choice multiples2 flines | otherwise = do contents <- readFile file- let !flines = fLines ysss xs js vs toOneLine . unlines . linesFromArgsG lInes . fLines ysss xs js vs 0 $ contents+ let !flines+ | gr1 == 0 = fLines ysss xs js vs toOneLine . unlines . linesFromArgsG lInes . fLines ysss xs js vs 0 $ contents+ | otherwise = prepareGrowTextMN gr1 gr2 ysss xs . unlines . fLines ysss xs js vs toOneLine . unlines . linesFromArgsG lInes . fLines ysss xs js vs 0 $ contents getData3 wrs ks arr gs js vs h rs lstW coeffs coeffsWX (getIntervalsNS lstW gzS flines) printLine choice multiples2 flines linesFromArgs1@@ -129,7 +139,12 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since 0.5.0.0 version can also -- process \"w\" and \"x\"-based lines properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0 -- There is also the possibility to use \'line growing\' that is to use the 'prepereGrowTextMN' function+ -- with the 'Int' arguments from the first argument tuple. This allows to rearrange the given text and then+ -- to rewrite it.+ -- Besides there are new lines of the arguments for the 'String' argument that can begin with \"c\", \"s\", \"t\",+ -- \"u\", \"v\" letters. For more information, please, refer to the 'Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2.rhythmicity'. -> [String] -> [String] -> IO ()@@ -159,7 +174,12 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since 0.5.0.0 version can also -- process \"w\" and \"x\"-based lines properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0 -- There is also the possibility to use \'line growing\' that is to use the 'prepereGrowTextMN' function+ -- with the 'Int' arguments from the first argument tuple. This allows to rearrange the given text and then+ -- to rewrite it.+ -- Besides there are new lines of the arguments for the 'String' argument that can begin with \"c\", \"s\", \"t\",+ -- \"u\", \"v\" letters. For more information, please, refer to the 'Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2.rhythmicity'. -> [String] -> Array Int [Array Int Int] -- ^ A permutations array of indices. -> String
Phonetic/Languages/General/Lines.hs view
@@ -40,7 +40,8 @@ import Phonetic.Languages.General.Common generalProcessment- :: GWritingSystemPRPLX -- ^ Data used to obtain the phonetic language representation of the text.+ :: (Int,Int) -- ^ Argument to specify possible 'line growing'.+ -> GWritingSystemPRPLX -- ^ Data used to obtain the phonetic language representation of the text. -> [(Char,Char)] -- ^ The pairs of the 'Char' that corresponds to the similar phonetic languages consonant phenomenon -- (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.@@ -66,10 +67,12 @@ -> Int -> FilePath -> IO ()-generalProcessment wrs ks arr gs h rs ysss xs js vs coeffs numericArgs choice numberI file = do+generalProcessment (gr1,gr2) wrs ks arr gs h rs ysss xs js vs coeffs numericArgs choice numberI file = do contents <- readFile file let !permsV = genPermutationsArrL- !flines = fLines ysss xs js vs 0 contents+ !flines+ | gr1 == 0 = fLines ysss xs js vs 0 contents+ | otherwise = prepareGrowTextMN gr1 gr2 ysss xs . unlines . fLines ysss xs js vs 0 $ contents !lasts = map (\ts -> if null . words $ ts then [] else last . words $ ts) flines if compare numberI 2 == LT then toFileStr (file ++ ".new.txt") (circle2 wrs ks arr gs js vs h rs coeffs permsV choice [] $ flines) else do
Phonetic/Languages/General/Lines/Parsing.hs view
@@ -56,19 +56,27 @@ argsToLinePrepare h qs = do args00 <- getArgs let coeffs = readCF . concat . take 1 $ args00 -- The first command line argument. If not sure, pass just \"1_\".- compare2 = (\xs -> if null xs then False else True) . filter (== "+C") $ args00+ compare2 = (\xs -> if null xs then False else True) . filter (== "+c") $ args00 if compare2 then do- let args1 = filter (/= "+C") args00+ let args1 = filter (\xs -> xs /= "+c" && take 2 xs /= "+g") args00 [file1, file2, file3] = take 3 args1 if file3 /= file1 && file3 /= file2 then compareFilesToOneCommon file1 file2 file3 else do putStrLn "You specified some files twice being in the comparative mode, the program has no well-defined behaviour in such a mode. " putStrLn "Please, run it again and specify the three different arguments with the first two being the existing files. " else do- let args0 = drop 5 args00+ let growing = filter ((== "+g") . (take 2)) args00+ (gr1,gr2)+ | null growing = (0,0)+ | otherwise = let (nms,mms) = splitAt 1 . drop 2 . take 4 $ growing+ nm = readMaybe (concat nms)::Maybe Int+ mm = readMaybe (concat mms)::Maybe Int in case (nm,mm) of+ (Just n4,Just m4) -> if (m4 `rem` 7) < (n4 `rem` 7) then (n4 `rem` 7 + 1, m4 `rem` 7 + 1) else (0,0)+ _ -> (0,0)+ args0 = drop 5 args00 [fileGWrSys, controlFile, segmentRulesFile, concatenationsFileP] = drop 1 . take 5 $ args00 -- To get the valid 'Concatenations' data. (wrs, ks, arr, gs, js, vs, ysss, xs, numericArgs, choice, numberI, file) <- files4Processment fileGWrSys controlFile segmentRulesFile concatenationsFileP args0- generalProcessment wrs ks arr gs h qs ysss xs js vs {- the old arguments afterwards -} coeffs numericArgs choice numberI file+ generalProcessment (gr1,gr2) wrs ks arr gs h qs ysss xs js vs {- the old arguments afterwards -} coeffs numericArgs choice numberI file -- | Is used internally in the 'argsToLinePrepare'. Nevertheless, can be used independently if the semantics -- of the arguments and their structure are preserved.
Phonetic/Languages/General/Simple.hs view
@@ -118,13 +118,13 @@ -> Bool -> IO String generalProc2 wrs ks arr gs js vs h qs ysss ws interactive jstL0 args0 coeffs coeffsWX args lstW2 = do- let !argMss = take 5 . filter (not . null) . forMultiplePropertiesF . drop 1 . dropWhile (/= "+M") . takeWhile (/= "-M") $ args0+ let !argMss = take 5 . filter (not . null) . forMultiplePropertiesF . drop 1 . dropWhile (/= "+m") . takeWhile (/= "-m") $ args0 if null argMss then do let (!numericArgs,!textualArgs) = L.span (all isDigit) $ args !xs = concat . take 1 . fLines ysss ws js vs 0 . unwords . drop 1 $ textualArgs !l = length . words $ xs- !argCs = catMaybes (fmap (readMaybeECG (l - 1)) . (showB l lstW2:) . drop 1 . dropWhile (/= "+A") .- takeWhile (/= "-A") $ args0)+ !argCs = catMaybes (fmap (readMaybeECG (l - 1)) . (showB l lstW2:) . drop 1 . dropWhile (/= "+a") .+ takeWhile (/= "-a") $ args0) !arg0 = fromMaybe 1 $ (readMaybe (concat . take 1 $ numericArgs)::Maybe Int) !numberI = fromMaybe 1 $ (readMaybe (concat . drop 1 . take 2 $ numericArgs)::Maybe Int) !choice = concat . take 1 $ textualArgs@@ -154,8 +154,8 @@ !argsZipped = L.zip4 intervalNmbrss arg0s numberIs choices !xs = concat . take 1 . fLines ysss ws js vs 0 . unwords $ args !l = length . words $ xs- !argCs = catMaybes (fmap (readMaybeECG (l - 1)) . (showB l lstW2:) . drop 1 . dropWhile (/= "+A") .- takeWhile (/= "-A") $ args0)+ !argCs = catMaybes (fmap (readMaybeECG (l - 1)) . (showB l lstW2:) . drop 1 . dropWhile (/= "+a") .+ takeWhile (/= "-a") $ args0) if compare l 2 == LT then let !frep20 = chooseMax wrs ks arr gs js vs id h coeffs qs (concat . take 1 $ choices) in let !wwss = (:[]) . toResultR frep20 $ xs in if interactive then interactivePrintResult line wwss@@ -174,7 +174,7 @@ messageInfo n | n == 1 = "You stopped the program, please, if needed, run it again with better arguments. " | n == 2 = "Please, specify the variant which you would like to become the resulting string by its number. "- | n == 3 = "Please, check whether the line below corresponds and is consistent with the constraints you have specified between the +A and -A options. Check also whether you have specified the \"++B\" or \"++BL\" option(s). If it is inconsistent then enter further \"n\", press Enter and then run the program again with better arguments. " `mappend` newLineEnding `mappend` "If the line is consistent with your input between +A and -A then just press Enter to proceed further. " `mappend` newLineEnding+ | n == 3 = "Please, check whether the line below corresponds and is consistent with the constraints you have specified between the +a and -a options. Check also whether you have specified the \"+b\" or \"+bl\" option(s). If it is inconsistent then enter further \"n\", press Enter and then run the program again with better arguments. " `mappend` newLineEnding `mappend` "If the line is consistent with your input between +a and -a then just press Enter to proceed further. " `mappend` newLineEnding | n == 4 = "No data has been specified to control the computation process. " | otherwise = "You have specified just one variant of the properties. " @@ -221,7 +221,9 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since 0.5.0.0 version can also -- process \"w\" and \"x\"-based lines properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0+ -- Changed the arguments signing so that capital letters changed to the small ones, double ++ changed to just singular +. -> IO [Result [] Char Double Double] generalProcMs wrs ks arr gs js vs h qs coeffs coeffsWX perms subs (intervalNmbrs, arg0, numberI, choice) = do if compare numberI 2 == LT@@ -263,7 +265,9 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since 0.5.0.0 version can also -- process \"w\" and \"x\"-based lines properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0+ -- Changed the arguments signing so that capital letters changed to the small ones, double ++ changed to just singular +. -> [Array Int Int] -- ^ Permutations data. -> [String] -> IO String
Phonetic/Languages/General/Simple/Parsing.hs view
@@ -123,17 +123,18 @@ -> [String] -- ^ List of other args afterwards. -> IO (String, String, String, String, String, Bool, Bool, [String], Coeffs2, Coeffs2, [String], Bool) argsProcessment fileGWrSys controlFile segmentRulesFile concatenationsFileP args00 = do- let args0 = filter (\xs -> take 2 xs /= "+X" && xs /= "++B" && xs /= "++L" && xs /= "++BL" && xs /= "++I" && xs /= "+U") args00- lstW = if any (\x -> x == "++B" || x == "++BL") args00 then True else False -- If one of the command line options is \"++B\" or \"++BL\" then the last word of the line will remain the last one.- jstL0 = if any (\x -> x == "++L" || x == "++BL") args00 then True else False -- If one of the command line options is \"++L\" or \"++BL\" then the program outputs just lines without metrices values.- toFileMode1 = concat . take 1 . drop 1 . dropWhile (/= "+IF") . takeWhile (/= "-IF") $ args0 -- Prints the last resulting line of the interactive mode processment (the last selected variant) to the file and also to the stdout.- interactiveP = if any (\xs -> xs == "++I" || xs == "+IF") args00 then True else False -- If one of the command line options is \"++I\", or \"+IF\" then the program prints the variants and then prompts for the preferred variant. Afterwards, it prints just that variant alone.- args01 = takeWhile (/= "+A") args0 `mappend` (drop 1 . dropWhile (/= "-A") $ args0)+ let args0 = filter (\xs -> take 2 xs /= "+x" && xs /= "+b" && xs /= "+l" && xs /= "+bl" && xs /= "+i" && xs /= "+u") args00+ lstW = if any (\x -> x == "+b" || x == "+bl") args00 then True else False -- If one of the command line options is \"+b\" or \"+bl\" then the last word of the line will remain the last one.+ jstL0 = if any (\x -> x == "+l" || x == "+bl") args00 then True else False -- If one of the command line options is \"+l\" or \"+bl\" then the program outputs just lines without metrices values.+ toFileMode1 = concat . take 1 . drop 1 . dropWhile (/= "+f") $ args0 -- Prints the last resulting line of the interactive mode processment (the last selected variant) to the file and also to the stdout.+ interactiveP = if any (\xs -> xs == "+i" || xs == "+f") args00 then True else False -- If one of the command line options is \"+i\", or \"+f\" then the program prints the variants and then prompts for the preferred variant. Afterwards, it prints just that variant alone.+ args01 = takeWhile (/= "+a") args0 `mappend` (drop 1 . dropWhile (/= "-a") $ args0) args02- | null toFileMode1 = filter (\xs -> xs /= "+IF" && xs /= "-IF") args01- | otherwise = takeWhile (/= "+IF") args01 `mappend` (drop 1 . dropWhile (/= "-IF") $ args01)- args = takeWhile (/= "+M") args02 `mappend` (drop 1 . dropWhile (/= "-M") $ args02)+ | null toFileMode1 = filter (/= "+f") args01+ | otherwise = let (krs,lrs) = break (== "+f") args01+ mrs = drop 2 lrs in krs `mappend` mrs+ args = takeWhile (/= "+m") args02 `mappend` (drop 1 . dropWhile (/= "-m") $ args02) coeffs = readCF . concat . take 1 $ args- coeffsWX = readCF . drop 2 . concat . take 1 . filter (\ts -> take 2 ts == "+X") $ args00+ coeffsWX = readCF . drop 2 . concat . take 1 . filter (\ts -> take 2 ts == "+x") $ args00 [controlConts, gwrsCnts, segmentData, concatenationsFile] <- mapM readFile [controlFile, fileGWrSys, segmentRulesFile, concatenationsFileP] return (gwrsCnts, controlConts, segmentData, concatenationsFile, toFileMode1, interactiveP, jstL0, args0, coeffs, coeffsWX, args, lstW)
Phonetic/Languages/Simplified/Array/General/FuncRep2RelatedG2.hs view
@@ -68,10 +68,17 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since the 0.5.0.0 version -- you can use also \"w\" and \"x\"-based lines of properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0 -- There is also the possibility to use \'line growing\' that is to use the 'prepereGrowTextMN' function+ -- with the 'Int' arguments from the first argument tuple. This allows to rearrange the given text and then+ -- to rewrite it.+ -- Besides there are new lines of the arguments for the 'String' argument that can begin with \"c\", \"s\", \"t\",+ -- \"u\", \"v\" letters. For more information, please, refer to the 'Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2.rhythmicity'. -> FuncRep2 String Double c-chooseMaxG k wrs ks arr gs us vs g h coeffs xs choice = getBFstL' (procB2InvF wrs ks arr gs us vs g (xs !! 3) coeffs)- [("02y",procRhythmicity23F k g h "02y" coeffs wrs ks arr gs us vs),+chooseMaxG k wrs ks arr gs us vs g h coeffs xs choice+ | take 1 choice == "c" = procRhythmicity23F k g h choice coeffs wrs ks arr gs us vs+ | otherwise = getBFstL' (procB2InvF wrs ks arr gs us vs g (xs !! 3) coeffs)+ [("02y",procRhythmicity23F k g h "02y" coeffs wrs ks arr gs us vs), ("02z",procRhythmicity23F k g h "02z" coeffs wrs ks arr gs us vs), ("03y",procRhythmicity23F k g h "03y" coeffs wrs ks arr gs us vs), ("03z",procRhythmicity23F k g h "03z" coeffs wrs ks arr gs us vs),@@ -79,39 +86,163 @@ ("04z",procRhythmicity23F k g h "04z" coeffs wrs ks arr gs us vs), ("0y",procRhythmicity23F k g h "0y" coeffs wrs ks arr gs us vs), ("0z",procRhythmicity23F k g h "0z" coeffs wrs ks arr gs us vs),- ("w01",procRhythmicity23F k g h "w01" coeffs wrs ks arr gs us vs),- ("w02",procRhythmicity23F k g h "w02" coeffs wrs ks arr gs us vs),- ("w03",procRhythmicity23F k g h "w03" coeffs wrs ks arr gs us vs),- ("w04",procRhythmicity23F k g h "w04" coeffs wrs ks arr gs us vs),- ("w11",procRhythmicity23F k g h "w11" coeffs wrs ks arr gs us vs),- ("w12",procRhythmicity23F k g h "w12" coeffs wrs ks arr gs us vs),- ("w13",procRhythmicity23F k g h "w13" coeffs wrs ks arr gs us vs),- ("w14",procRhythmicity23F k g h "w14" coeffs wrs ks arr gs us vs),- ("w21",procRhythmicity23F k g h "w21" coeffs wrs ks arr gs us vs),- ("w22",procRhythmicity23F k g h "w22" coeffs wrs ks arr gs us vs),- ("w23",procRhythmicity23F k g h "w23" coeffs wrs ks arr gs us vs),- ("w24",procRhythmicity23F k g h "w24" coeffs wrs ks arr gs us vs),- ("w31",procRhythmicity23F k g h "w31" coeffs wrs ks arr gs us vs),- ("w32",procRhythmicity23F k g h "w32" coeffs wrs ks arr gs us vs),- ("w33",procRhythmicity23F k g h "w33" coeffs wrs ks arr gs us vs),- ("w34",procRhythmicity23F k g h "w34" coeffs wrs ks arr gs us vs),- ("x01",procRhythmicity23F k g h "x01" coeffs wrs ks arr gs us vs),- ("x02",procRhythmicity23F k g h "x02" coeffs wrs ks arr gs us vs),- ("x03",procRhythmicity23F k g h "x03" coeffs wrs ks arr gs us vs),- ("x04",procRhythmicity23F k g h "x04" coeffs wrs ks arr gs us vs),- ("x11",procRhythmicity23F k g h "x11" coeffs wrs ks arr gs us vs),- ("x12",procRhythmicity23F k g h "x12" coeffs wrs ks arr gs us vs),- ("x13",procRhythmicity23F k g h "x13" coeffs wrs ks arr gs us vs),- ("x14",procRhythmicity23F k g h "x14" coeffs wrs ks arr gs us vs),- ("x21",procRhythmicity23F k g h "x21" coeffs wrs ks arr gs us vs),- ("x22",procRhythmicity23F k g h "x22" coeffs wrs ks arr gs us vs),- ("x23",procRhythmicity23F k g h "x23" coeffs wrs ks arr gs us vs),- ("x24",procRhythmicity23F k g h "x24" coeffs wrs ks arr gs us vs),- ("x31",procRhythmicity23F k g h "x31" coeffs wrs ks arr gs us vs),- ("x32",procRhythmicity23F k g h "x32" coeffs wrs ks arr gs us vs),- ("x33",procRhythmicity23F k g h "x33" coeffs wrs ks arr gs us vs),- ("x34",procRhythmicity23F k g h "x34" coeffs wrs ks arr gs us vs),- ("y",procB2F wrs ks arr gs us vs g (xs !! 0) coeffs),+ ("s01",procRhythmicity23F k g h "s01" coeffs wrs ks arr gs us vs),+ ("s02",procRhythmicity23F k g h "s02" coeffs wrs ks arr gs us vs),+ ("s03",procRhythmicity23F k g h "s03" coeffs wrs ks arr gs us vs),+ ("s04",procRhythmicity23F k g h "s04" coeffs wrs ks arr gs us vs),+ ("s11",procRhythmicity23F k g h "s11" coeffs wrs ks arr gs us vs),+ ("s12",procRhythmicity23F k g h "s12" coeffs wrs ks arr gs us vs),+ ("s13",procRhythmicity23F k g h "s13" coeffs wrs ks arr gs us vs),+ ("s14",procRhythmicity23F k g h "s14" coeffs wrs ks arr gs us vs),+ ("s21",procRhythmicity23F k g h "s21" coeffs wrs ks arr gs us vs),+ ("s22",procRhythmicity23F k g h "s22" coeffs wrs ks arr gs us vs),+ ("s23",procRhythmicity23F k g h "s23" coeffs wrs ks arr gs us vs),+ ("s24",procRhythmicity23F k g h "s24" coeffs wrs ks arr gs us vs),+ ("s31",procRhythmicity23F k g h "s31" coeffs wrs ks arr gs us vs),+ ("s32",procRhythmicity23F k g h "s32" coeffs wrs ks arr gs us vs),+ ("s33",procRhythmicity23F k g h "s33" coeffs wrs ks arr gs us vs),+ ("s34",procRhythmicity23F k g h "s34" coeffs wrs ks arr gs us vs),+ ("s41",procRhythmicity23F k g h "s41" coeffs wrs ks arr gs us vs),+ ("s42",procRhythmicity23F k g h "s42" coeffs wrs ks arr gs us vs),+ ("s43",procRhythmicity23F k g h "s43" coeffs wrs ks arr gs us vs),+ ("s44",procRhythmicity23F k g h "s44" coeffs wrs ks arr gs us vs),+ ("s51",procRhythmicity23F k g h "s51" coeffs wrs ks arr gs us vs),+ ("s52",procRhythmicity23F k g h "s52" coeffs wrs ks arr gs us vs),+ ("s53",procRhythmicity23F k g h "s53" coeffs wrs ks arr gs us vs),+ ("s54",procRhythmicity23F k g h "s54" coeffs wrs ks arr gs us vs),+ ("s61",procRhythmicity23F k g h "s61" coeffs wrs ks arr gs us vs),+ ("s62",procRhythmicity23F k g h "s62" coeffs wrs ks arr gs us vs),+ ("s63",procRhythmicity23F k g h "s63" coeffs wrs ks arr gs us vs),+ ("s64",procRhythmicity23F k g h "s64" coeffs wrs ks arr gs us vs),+ ("s71",procRhythmicity23F k g h "s71" coeffs wrs ks arr gs us vs),+ ("s72",procRhythmicity23F k g h "s73" coeffs wrs ks arr gs us vs),+ ("s74",procRhythmicity23F k g h "s74" coeffs wrs ks arr gs us vs),+ ("t01",procRhythmicity23F k g h "t01" coeffs wrs ks arr gs us vs),+ ("t02",procRhythmicity23F k g h "t02" coeffs wrs ks arr gs us vs),+ ("t03",procRhythmicity23F k g h "t03" coeffs wrs ks arr gs us vs),+ ("t04",procRhythmicity23F k g h "t04" coeffs wrs ks arr gs us vs),+ ("t11",procRhythmicity23F k g h "t11" coeffs wrs ks arr gs us vs),+ ("t12",procRhythmicity23F k g h "t12" coeffs wrs ks arr gs us vs),+ ("t13",procRhythmicity23F k g h "t13" coeffs wrs ks arr gs us vs),+ ("t14",procRhythmicity23F k g h "t14" coeffs wrs ks arr gs us vs),+ ("t21",procRhythmicity23F k g h "t21" coeffs wrs ks arr gs us vs),+ ("t22",procRhythmicity23F k g h "t22" coeffs wrs ks arr gs us vs),+ ("t23",procRhythmicity23F k g h "t23" coeffs wrs ks arr gs us vs),+ ("t24",procRhythmicity23F k g h "t24" coeffs wrs ks arr gs us vs),+ ("t31",procRhythmicity23F k g h "t31" coeffs wrs ks arr gs us vs),+ ("t32",procRhythmicity23F k g h "t32" coeffs wrs ks arr gs us vs),+ ("t33",procRhythmicity23F k g h "t33" coeffs wrs ks arr gs us vs),+ ("t34",procRhythmicity23F k g h "t34" coeffs wrs ks arr gs us vs),+ ("t41",procRhythmicity23F k g h "t41" coeffs wrs ks arr gs us vs),+ ("t42",procRhythmicity23F k g h "t42" coeffs wrs ks arr gs us vs),+ ("t43",procRhythmicity23F k g h "t43" coeffs wrs ks arr gs us vs),+ ("t44",procRhythmicity23F k g h "t44" coeffs wrs ks arr gs us vs),+ ("t51",procRhythmicity23F k g h "t51" coeffs wrs ks arr gs us vs),+ ("t52",procRhythmicity23F k g h "t52" coeffs wrs ks arr gs us vs),+ ("t53",procRhythmicity23F k g h "t53" coeffs wrs ks arr gs us vs),+ ("t54",procRhythmicity23F k g h "t54" coeffs wrs ks arr gs us vs),+ ("t61",procRhythmicity23F k g h "t61" coeffs wrs ks arr gs us vs),+ ("t62",procRhythmicity23F k g h "t62" coeffs wrs ks arr gs us vs),+ ("t63",procRhythmicity23F k g h "t63" coeffs wrs ks arr gs us vs),+ ("t64",procRhythmicity23F k g h "t64" coeffs wrs ks arr gs us vs),+ ("t71",procRhythmicity23F k g h "t71" coeffs wrs ks arr gs us vs),+ ("t72",procRhythmicity23F k g h "t73" coeffs wrs ks arr gs us vs),+ ("t74",procRhythmicity23F k g h "t74" coeffs wrs ks arr gs us vs),+ ("u01",procRhythmicity23F k g h "u01" coeffs wrs ks arr gs us vs),+ ("u02",procRhythmicity23F k g h "u02" coeffs wrs ks arr gs us vs),+ ("u03",procRhythmicity23F k g h "u03" coeffs wrs ks arr gs us vs),+ ("u04",procRhythmicity23F k g h "u04" coeffs wrs ks arr gs us vs),+ ("u11",procRhythmicity23F k g h "u11" coeffs wrs ks arr gs us vs),+ ("u12",procRhythmicity23F k g h "u12" coeffs wrs ks arr gs us vs),+ ("u13",procRhythmicity23F k g h "u13" coeffs wrs ks arr gs us vs),+ ("u14",procRhythmicity23F k g h "u14" coeffs wrs ks arr gs us vs),+ ("u21",procRhythmicity23F k g h "u21" coeffs wrs ks arr gs us vs),+ ("u22",procRhythmicity23F k g h "u22" coeffs wrs ks arr gs us vs),+ ("u23",procRhythmicity23F k g h "u23" coeffs wrs ks arr gs us vs),+ ("u24",procRhythmicity23F k g h "u24" coeffs wrs ks arr gs us vs),+ ("u31",procRhythmicity23F k g h "u31" coeffs wrs ks arr gs us vs),+ ("u32",procRhythmicity23F k g h "u32" coeffs wrs ks arr gs us vs),+ ("u33",procRhythmicity23F k g h "u33" coeffs wrs ks arr gs us vs),+ ("u34",procRhythmicity23F k g h "u34" coeffs wrs ks arr gs us vs),+ ("u41",procRhythmicity23F k g h "u41" coeffs wrs ks arr gs us vs),+ ("u42",procRhythmicity23F k g h "u42" coeffs wrs ks arr gs us vs),+ ("u43",procRhythmicity23F k g h "u43" coeffs wrs ks arr gs us vs),+ ("u44",procRhythmicity23F k g h "u44" coeffs wrs ks arr gs us vs),+ ("u51",procRhythmicity23F k g h "u51" coeffs wrs ks arr gs us vs),+ ("u52",procRhythmicity23F k g h "u52" coeffs wrs ks arr gs us vs),+ ("u53",procRhythmicity23F k g h "u53" coeffs wrs ks arr gs us vs),+ ("u54",procRhythmicity23F k g h "u54" coeffs wrs ks arr gs us vs),+ ("u61",procRhythmicity23F k g h "u61" coeffs wrs ks arr gs us vs),+ ("u62",procRhythmicity23F k g h "u62" coeffs wrs ks arr gs us vs),+ ("u63",procRhythmicity23F k g h "u63" coeffs wrs ks arr gs us vs),+ ("u64",procRhythmicity23F k g h "u64" coeffs wrs ks arr gs us vs),+ ("u71",procRhythmicity23F k g h "u71" coeffs wrs ks arr gs us vs),+ ("u72",procRhythmicity23F k g h "u73" coeffs wrs ks arr gs us vs),+ ("u74",procRhythmicity23F k g h "u74" coeffs wrs ks arr gs us vs),+ ("v01",procRhythmicity23F k g h "v01" coeffs wrs ks arr gs us vs),+ ("v02",procRhythmicity23F k g h "v02" coeffs wrs ks arr gs us vs),+ ("v03",procRhythmicity23F k g h "v03" coeffs wrs ks arr gs us vs),+ ("v04",procRhythmicity23F k g h "v04" coeffs wrs ks arr gs us vs),+ ("v11",procRhythmicity23F k g h "v11" coeffs wrs ks arr gs us vs),+ ("v12",procRhythmicity23F k g h "v12" coeffs wrs ks arr gs us vs),+ ("v13",procRhythmicity23F k g h "v13" coeffs wrs ks arr gs us vs),+ ("v14",procRhythmicity23F k g h "v14" coeffs wrs ks arr gs us vs),+ ("v21",procRhythmicity23F k g h "v21" coeffs wrs ks arr gs us vs),+ ("v22",procRhythmicity23F k g h "v22" coeffs wrs ks arr gs us vs),+ ("v23",procRhythmicity23F k g h "v23" coeffs wrs ks arr gs us vs),+ ("v24",procRhythmicity23F k g h "v24" coeffs wrs ks arr gs us vs),+ ("v31",procRhythmicity23F k g h "v31" coeffs wrs ks arr gs us vs),+ ("v32",procRhythmicity23F k g h "v32" coeffs wrs ks arr gs us vs),+ ("v33",procRhythmicity23F k g h "v33" coeffs wrs ks arr gs us vs),+ ("v34",procRhythmicity23F k g h "v34" coeffs wrs ks arr gs us vs),+ ("v41",procRhythmicity23F k g h "v41" coeffs wrs ks arr gs us vs),+ ("v42",procRhythmicity23F k g h "v42" coeffs wrs ks arr gs us vs),+ ("v43",procRhythmicity23F k g h "v43" coeffs wrs ks arr gs us vs),+ ("v44",procRhythmicity23F k g h "v44" coeffs wrs ks arr gs us vs),+ ("v51",procRhythmicity23F k g h "v51" coeffs wrs ks arr gs us vs),+ ("v52",procRhythmicity23F k g h "v52" coeffs wrs ks arr gs us vs),+ ("v53",procRhythmicity23F k g h "v53" coeffs wrs ks arr gs us vs),+ ("v54",procRhythmicity23F k g h "v54" coeffs wrs ks arr gs us vs),+ ("v61",procRhythmicity23F k g h "v61" coeffs wrs ks arr gs us vs),+ ("v62",procRhythmicity23F k g h "v62" coeffs wrs ks arr gs us vs),+ ("v63",procRhythmicity23F k g h "v63" coeffs wrs ks arr gs us vs),+ ("v64",procRhythmicity23F k g h "v64" coeffs wrs ks arr gs us vs),+ ("v71",procRhythmicity23F k g h "v71" coeffs wrs ks arr gs us vs),+ ("v72",procRhythmicity23F k g h "v73" coeffs wrs ks arr gs us vs),+ ("v74",procRhythmicity23F k g h "v74" coeffs wrs ks arr gs us vs),+ ("w01",procRhythmicity23F k g h "w01" coeffs wrs ks arr gs us vs),+ ("w02",procRhythmicity23F k g h "w02" coeffs wrs ks arr gs us vs),+ ("w03",procRhythmicity23F k g h "w03" coeffs wrs ks arr gs us vs),+ ("w04",procRhythmicity23F k g h "w04" coeffs wrs ks arr gs us vs),+ ("w11",procRhythmicity23F k g h "w11" coeffs wrs ks arr gs us vs),+ ("w12",procRhythmicity23F k g h "w12" coeffs wrs ks arr gs us vs),+ ("w13",procRhythmicity23F k g h "w13" coeffs wrs ks arr gs us vs),+ ("w14",procRhythmicity23F k g h "w14" coeffs wrs ks arr gs us vs),+ ("w21",procRhythmicity23F k g h "w21" coeffs wrs ks arr gs us vs),+ ("w22",procRhythmicity23F k g h "w22" coeffs wrs ks arr gs us vs),+ ("w23",procRhythmicity23F k g h "w23" coeffs wrs ks arr gs us vs),+ ("w24",procRhythmicity23F k g h "w24" coeffs wrs ks arr gs us vs),+ ("w31",procRhythmicity23F k g h "w31" coeffs wrs ks arr gs us vs),+ ("w32",procRhythmicity23F k g h "w32" coeffs wrs ks arr gs us vs),+ ("w33",procRhythmicity23F k g h "w33" coeffs wrs ks arr gs us vs),+ ("w34",procRhythmicity23F k g h "w34" coeffs wrs ks arr gs us vs),+ ("x01",procRhythmicity23F k g h "x01" coeffs wrs ks arr gs us vs),+ ("x02",procRhythmicity23F k g h "x02" coeffs wrs ks arr gs us vs),+ ("x03",procRhythmicity23F k g h "x03" coeffs wrs ks arr gs us vs),+ ("x04",procRhythmicity23F k g h "x04" coeffs wrs ks arr gs us vs),+ ("x11",procRhythmicity23F k g h "x11" coeffs wrs ks arr gs us vs),+ ("x12",procRhythmicity23F k g h "x12" coeffs wrs ks arr gs us vs),+ ("x13",procRhythmicity23F k g h "x13" coeffs wrs ks arr gs us vs),+ ("x14",procRhythmicity23F k g h "x14" coeffs wrs ks arr gs us vs),+ ("x21",procRhythmicity23F k g h "x21" coeffs wrs ks arr gs us vs),+ ("x22",procRhythmicity23F k g h "x22" coeffs wrs ks arr gs us vs),+ ("x23",procRhythmicity23F k g h "x23" coeffs wrs ks arr gs us vs),+ ("x24",procRhythmicity23F k g h "x24" coeffs wrs ks arr gs us vs),+ ("x31",procRhythmicity23F k g h "x31" coeffs wrs ks arr gs us vs),+ ("x32",procRhythmicity23F k g h "x32" coeffs wrs ks arr gs us vs),+ ("x33",procRhythmicity23F k g h "x33" coeffs wrs ks arr gs us vs),+ ("x34",procRhythmicity23F k g h "x34" coeffs wrs ks arr gs us vs),+ ("y",procB2F wrs ks arr gs us vs g (xs !! 0) coeffs), ("y0",procDiverse2F wrs (' ':us `mappend` vs) g), ("y2",procB2F wrs ks arr gs us vs g (xs !! 1) coeffs), ("y3",procB2F wrs ks arr gs us vs g (xs !! 2) coeffs),@@ -134,7 +265,12 @@ -- \"0y\", \"0z\", \"y\", \"y0\", \"y2\", \"y3\", \"y4\", \"yy\", \"yy2\", \"yy3\", \"z\", \"z2\", \"z3\", \"z4\", -- \"zz\", \"zz2\", \"zz3\", \"zz4\" or some other one (that is the default one). Since the 0.5.0.0 version -- you can use also \"w\" and \"x\"-based lines of properties. Specifies the applied properties- -- to get the result. The \"z\"-line uses \'F\' functions. + -- to get the result. The \"z\"-line uses \'F\' functions.+ -- @ since 0.6.0.0 -- There is also the possibility to use \'line growing\' that is to use the 'prepereGrowTextMN' function+ -- with the 'Int' arguments from the first argument tuple. This allows to rearrange the given text and then+ -- to rewrite it.+ -- Besides there are new lines of the arguments for the 'String' argument that can begin with \"c\", \"s\", \"t\",+ -- \"u\", \"v\" letters. For more information, please, refer to the 'Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2.rhythmicity'. -> Maybe Int precChoice = getBFstL' (Just 4) [("02y",Just 0),("02z",Just 0),("03y",Just 0),("03z",Just 0),("04y",Just 0), ("04z",Just 0),("0y",Just 0),("0z",Just 0),("y",Just 0),("y0",Just 0),("y2",Just 0),("y3",Just 0), ("y4",Just 0),
README.md view
@@ -76,4 +76,15 @@ Since the 0.5.0.0 version you can use also "w" and "x" series (lines) of properties. They use more complex approach and are intended for 4 elements in the rhythmic groups. For more information, please, refer to the section 'WX argument' in the English instruction:-https://web.archive.org/web/20210720181838/https://oleksandrzhabenko.github.io/uk/Eng-Ukrainian_as_a_Phonetic_Language_Instructions-0.5.0.0.pdf+https://web.archive.org/web/20210728223308/https://oleksandrzhabenko.github.io/uk/Eng-Ukrainian_as_a_Phonetic_Language_Instructions-0.6.0.0.pdf++There are also some additional information there about the changes in the 0.6.0.0 version.++Since the 0.6.0.0 version there are made several significant changes.+Changed the command line arguments modifiers notation to the small letters,+removed the double ++ sign (changed to just single +) to simplify the command line arguments usage.+Also changed the way to sign the writing to file for the Phonetic.Languages.General.Simple module.+Added new lines of properties for the (hypothetic) polyrhythmicity handling. Among them+"c", "s", "t", "u", "v" lines are. Changed the dependencies+boundaries. Added the possibility to 'grow lines' to Phonetic.Languages.General.Lines and+Phonetic.Languages.General.GetTextualInfo modules.
phonetic-languages-simplified-generalized-examples-array.cabal view
@@ -3,7 +3,7 @@ -- http://haskell.org/cabal/users-guide/ name: phonetic-languages-simplified-generalized-examples-array-version: 0.5.0.1+version: 0.6.0.0 synopsis: Helps to create texts with the given phonetic properties (e. g. poetic). description: Is rewritten from the modules of the @phonetic-languages-simplified-examples-array@ package. Can be used not only for Ukrainian, but also for other languages. homepage: https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-examples-array@@ -21,6 +21,6 @@ exposed-modules: Phonetic.Languages.General.Lines, Phonetic.Languages.General.Parsing, Phonetic.Languages.General.Simple, Phonetic.Languages.General.GetTextualInfo, Phonetic.Languages.Simplified.Array.General.FuncRep2RelatedG2, Phonetic.Languages.General.Simple.Parsing, Phonetic.Languages.General.Lines.Parsing, Phonetic.Languages.General.GetInfo.Parsing, EspeakNG_IPA -- other-modules: other-extensions: BangPatterns, FlexibleContexts- build-depends: base >=4.8 && <4.15, phonetic-languages-simplified-generalized-examples-common >=0.2 && <1, subG >=0.4.2 && <1, phonetic-languages-simplified-generalized-properties-array >=0.3 && <1, phonetic-languages-simplified-base >=0.2 && <1, phonetic-languages-permutations-array >=0.1 && <1, phonetic-languages-filters-array >=0.1 && <1, phonetic-languages-phonetics-basics >=0.7 && <1, phonetic-languages-constraints-array >=0.1 && <1, parallel >=3.2.0.6 && <4, phonetic-languages-plus >=0.2 && <1, mmsyn2-array >=0.1.3 && <1, heaps >=0.3.6.1 && <1, mmsyn3 >=0.1.5 && <1, process >= 1.6.2 && <2+ build-depends: base >=4.8 && <4.15, phonetic-languages-simplified-generalized-examples-common >=0.2 && <1, subG >=0.4.2 && <1, phonetic-languages-simplified-generalized-properties-array >=0.4 && <1, phonetic-languages-simplified-base >=0.2 && <1, phonetic-languages-permutations-array >=0.1 && <1, phonetic-languages-filters-array >=0.1 && <1, phonetic-languages-phonetics-basics >=0.8.1 && <1, phonetic-languages-constraints-array >=0.1 && <1, parallel >=3.2.0.6 && <4, phonetic-languages-plus >=0.2 && <1, mmsyn2-array >=0.1.3 && <1, heaps >=0.3.6.1 && <1, mmsyn3 >=0.1.5 && <1, process >= 1.6.2 && <2 -- hs-source-dirs: default-language: Haskell2010