phladiprelio-general-datatype (empty) → 0.1.0.0
raw patch · 5 files changed
+121/−0 lines, 5 filesdep +base
Dependencies added: base
Files
- CHANGELOG.md +6/−0
- LICENSE +20/−0
- Phladiprelio/General/Datatype.hs +40/−0
- README.md +30/−0
- phladiprelio-general-datatype.cabal +25/−0
+ CHANGELOG.md view
@@ -0,0 +1,6 @@+# Revision history for phladiprelio-general-datatype++## 0.1.0.0 -- 2023-09-22++* First version. Released on an unsuspecting world.+
+ LICENSE view
@@ -0,0 +1,20 @@+Copyright (c) 2023 Oleksandr Zhabenko++Permission is hereby granted, free of charge, to any person obtaining+a copy of this software and associated documentation files (the+"Software"), to deal in the Software without restriction, including+without limitation the rights to use, copy, modify, merge, publish,+distribute, sublicense, and/or sell copies of the Software, and to+permit persons to whom the Software is furnished to do so, subject to+the following conditions:++The above copyright notice and this permission notice shall be included+in all copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ Phladiprelio/General/Datatype.hs view
@@ -0,0 +1,40 @@+{-# OPTIONS_GHC -funbox-strict-fields #-}+{-# LANGUAGE NoImplicitPrelude, BangPatterns #-}++module Phladiprelio.General.Datatype where++import GHC.Base+import GHC.List+import Data.Char (isDigit)+import Text.Read+import GHC.Num ((*))++data Phladiprelio t a b = Phl {+ inputData :: t a,+ convF :: t a -> t b+}++data BasicUkr = U1 {-# UNPACK #-} !Char | U2 !Double deriving (Eq, Ord)++readBasicUkr0 + :: Double+ -> (String -> [a])+ -> ([a] -> [Double])+ -> String + -> [Double]+readBasicUkr0 temp fConvA fConvD xs@(_:_) = dc `mappend` ((readU2 ws * d) : readBasicUkr0 d fConvA fConvD qs)+ where (ts, us) = break (== '_') xs+ dc + | null ts = [temp]+ | otherwise = fConvD . fConvA $ ts+ d = last dc+ vs = dropWhile (== '_') us+ (ws, qs) = span isDigit vs+readBasicUkr0 _ _ _ _ = []++readBasicUkr = readBasicUkr0 1.0+{-# INLINE readBasicUkr #-}++readU2 :: String -> Double+readU2 xs@(y:ys) = read (y:'.':ys)::Double+
+ README.md view
@@ -0,0 +1,30 @@+The draft scientific papers on prosody and the software that are based on the question of why some+lines are easy to pronounce and read while others are not. They are in two languages by the +following links:++[Ukranian text](https://www.academia.edu/105067723/%D0%A7%D0%BE%D0%BC%D1%83_%D0%B4%D0%B5%D1%8F%D0%BA%D1%96_%D1%80%D1%8F%D0%B4%D0%BA%D0%B8_%D0%BB%D0%B5%D0%B3%D0%BA%D0%BE_%D0%B2%D0%B8%D0%BC%D0%BE%D0%B2%D0%BB%D1%8F%D1%82%D0%B8_%D0%B0_%D1%96%D0%BD%D1%88%D1%96_%D0%BD%D1%96_%D0%B0%D0%B1%D0%BE_%D0%BF%D1%80%D0%BE%D1%81%D0%BE%D0%B4%D0%B8%D1%87%D0%BD%D0%B0_%D0%BD%D0%B5%D1%81%D0%BF%D1%80%D0%BE%D0%B3%D0%BD%D0%BE%D0%B7%D0%BE%D0%B2%D0%B0%D0%BD%D1%96%D1%81%D1%82%D1%8C_%D1%8F%D0%BA_%D1%85%D0%B0%D1%80%D0%B0%D0%BA%D1%82%D0%B5%D1%80%D0%B8%D1%81%D1%82%D0%B8%D0%BA%D0%B0_%D1%82%D0%B5%D0%BA%D1%81%D1%82%D1%83)++[English text](https://www.academia.edu/105067761/Why_some_lines_are_easy_to_pronounce_and_others_are_not_or_prosodic_unpredictability_as_a_characteristic_of_text)++The documentation for the old PhLADiPreLiO implementation is available at the following links.+[Новий текст теорії](https://oleksandr-zhabenko.github.io/uk/rhythmicity/phladiprelioUkr.7.pdf)++[New implementation](https://oleksandr-zhabenko.github.io/uk/rhythmicity/phladiprelioEng.7.pdf)++ Devotion+ ========++P.S.: the author would like to devote this project to support the [Foundation+Gastrostars](https://gastrostars.nl).++On the 2023/09/22 there is Nathalie Kok, the mother of the foundation founder [Emma Kok](https://emmakok.nl) and the member of the foundation board, so the first version is also dedicated to Nathalie Kok.++If you would like to share some financial support, please, contact the mentioned foundation+using the URL:++[Contact Foundation GASTROSTARS](https://gastrostars.nl/hou-mij-op-de-hoogte)++or ++[Donation Page](https://gastrostars.nl/doneren)+
+ phladiprelio-general-datatype.cabal view
@@ -0,0 +1,25 @@+cabal-version: 1.24+name: phladiprelio-general-datatype+version: 0.1.0.0+synopsis: Extended functionality of PhLADiPreLiO+description: Can be used not only for language, but also for simpler music and lyrics composing.+homepage:+ https://hackage.haskell.org/package/phladiprelio-general-datatype++license: MIT+license-file: LICENSE+author: Oleksandr Zhabenko+maintainer: oleksandr.zhabenko@yahoo.com+copyright: Oleksandr Zhabenko+category: Sound, Language, Math+build-type: Simple+extra-doc-files: CHANGELOG.md, README.md+-- extra-source-files:++library+ exposed-modules: Phladiprelio.General.Datatype+ -- other-modules:+ -- other-extensions:+ build-depends: base >=4.13 && <5+ hs-source-dirs: .+ default-language: Haskell2010