MMSyn7s

Maintainer : [e-mail]

A program and a library that show a sorted list of the Ukrainian sounds representations that can be used by mmsyn7 series of programs.

Used in the program

main7s :: IO ()

Function takes the first command line argument and (may be) a Ukrainian text being written without quotes as the next command line arguments and prints the sorted list of the Ukrainian sounds representations that can be used further in mmsyn7 series of programs.

Depending on the first command line argument the program behaves as follows:

"-h" -- prints help and exits;

"-v" -- prints version number and exits;

"1" -- prints the list of String being unique (without silence) and then the rest of the text with whitespaces and some phonetical conversions;

"-1" -- prints the rest of the text after the first duplicated sound representation (except silent ones) including it with whitespaces and some phonetical conversions;

"0" -- prints the list of String for the whole text.

All other variants of the beginning for the command line arguments are the same as "0" (the arguments are treated as a Ukrainian text and processed as a whole one object).

Library functions

For the text as a whole object

show7s :: String -> [String]

Function takes Ukrainian text being a String and returns a sorted list of the Ukrainian sounds representations that can be used further in mmsyn7 series of programs.

show7s2 :: String -> String

Function takes Ukrainian text being a String and returns a String that shows a sorted list of the Ukrainian sounds representations that can be used further in mmsyn7 series of programs.

For the text being treated as partial one

show7s' :: [String] -> ([String], [String])

Function show7s' is auxiliary to the show7s3 and is used internally in the latter one.

show7s'' :: [String] -> ([String], [String])

The same as show7s', but the first list in the tuple is filtered from the silent representations and is sorted not in the order of appearance in the text, but in the ascending order.

show7s''' :: [String] -> ([String], String)

The same as show7s'', but the second element in the resulting tuple is again the Ukrainian text with whitespaces (whitespaces are substituted instead of punctiuation symbols, too) and some phonetical conversions.

show7s3 :: String -> ([String], [String])

Function show7s3 takes Ukrainian text being a String and returns a tuple, the first element of which is a list of Strings that correspond to the Ukrainian sounds representations that (except pauses) are unique and are not repeated starting from the beginning of the given text, and the second one is a remainder list of Strings starting from the first duplicated non-silent Ukrainian sound representation.

show7s4 :: String -> ([String], [String])

Function show7s4 takes Ukrainian text being a String and returns a tuple, the first element of which is a list of Strings that correspond to the Ukrainian sounds representations that (except pauses) are unique and are not repeated starting from the beginning of the given text (this list is filtered from the representations for the silence and then sorted in the ascending order), and the second one is a remainder list of Strings starting from the first duplicated non-silent Ukrainian sound representation.

show7s5 :: String -> ([String], String)

Function show7s4 takes Ukrainian text being a String and returns a tuple, the first element of which is a list of Strings that correspond to the Ukrainian sounds representations that (except pauses) are unique and are not repeated starting from the beginning of the given text (this list is filtered from the representations for the silence and then sorted in the ascending order), and the second one is a String obtained from the remainder list of Strings starting from the first duplicated non-silent Ukrainian sound representation with whitespaces (whitespaces are substituted instead of punctiuation symbols, too) and some phonetical conversions.

Inner predicate (auxiliary)

eqSnds :: String -> String -> Bool

Function eqSnds compares two non-silent Strings representations for Ukrainian sounds by equality. If one of them is a representation for silence (e. g. pause), then the predicate is False.

Inner backward conversion function

listToString :: [String] -> String

Function listToString converts the list of Strings being the sequential Ukrainian sounds representations into the Ukrainian text with whitespaces (whitespaces are substituted instead of punctiuation symbols, too) and some phonetical conversions.