{-# OPTIONS_HADDOCK show-extensions #-}
{-# LANGUAGE BangPatterns #-}
-- |
-- Module : Melodics.Ukrainian.Common
-- Copyright : (c) OleksandrZhabenko 2021-2022
-- License : MIT
-- Maintainer : olexandr543@yahoo.com
--
-- Functions provide functionality of a musical instrument synthesizer or for Ukrainian speech synthesis
-- especially for poets, translators and writers. Is rewritten from the module Melodics.ByteString.Ukrainian.Arr
-- for optimization purposes. Contains the common for two modules definitions.
-- Phonetic material is taken from the :
--
-- Solomija Buk, Ján Mačutek, Andrij Rovenchak. Some properties of
-- the Ukrainian writing system. [Electronic resource] https://arxiv.org/ftp/arxiv/papers/0802/0802.4198.pdf
module Melodics.Ukrainian.Common where
import CaseBi.Arr
import GHC.Arr (Array(..))
{-
-- Inspired by: https://mail.haskell.org/pipermail/beginners/2011-October/008649.html
-}
data Triple = Z | O | T
deriving (Eq,Ord,Show)
isUkrainianL :: Char -> Bool
isUkrainianL y | (y >= '\1070' && y <= '\1097') = True
| otherwise = getBFstLSorted' False (map (\x -> (x, True)) "'-\700\1028\1030\1031\1068\1100\1102\1103\1108\1110\1111\1168\1169\8217") y
isUkrainianLTup :: Array Int (Char, Bool) -> Char -> Bool
isUkrainianLTup !tup15 y
| (y >= '\1070' && y <= '\1097') = True
| otherwise = getBFst' (False, tup15) y
isConsNotJ :: Char -> Bool
isConsNotJ = getBFstLSorted' False (zip "\1073\1074\1075\1076\1078\1079\1082\1083\1084\1085\1087\1088\1089\1090\1092\1093\1094\1095\1096\1097\1169" (repeat True))
isConsNotJTup :: Array Int (Char,Bool) -> Char -> Bool
isConsNotJTup !tup16 = getBFst' (False, tup16)