kfm/to-hen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

LARYNGEALS ARE NO RESONANTS – cuny

Browse Source
This commit is contained in:
Kierán Meinhardt
2020-07-14 11:44:05 +02:00
parent 5bed7d4f93
commit 267f61f340
3 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
pie.cabal
View File

@@ -27,7 +27,9 @@ source-repository head
library library
exposed-modules: exposed-modules:
Lib Lib,
Phonology,
Util
other-modules: other-modules:
Paths_pie Paths_pie
hs-source-dirs: hs-source-dirs:

2
src/Lib.hs
View File

@@ -53,7 +53,7 @@ syllabify = replaceSublist [True, True] [True, False] -- replace VV by VC
. foldr isSonant [] . foldr isSonant []
where where
hasToBeSyllabic p = features p == Vowel hasToBeSyllabic p = features p == Vowel
canBeSyllabic p = features p `elem` [Vowel, Resonant, Laryngeal] canBeSyllabic p = features p `elem` [Vowel, Resonant]
isSonant current xs = case xs of isSonant current xs = case xs of
[] -> [canBeSyllabic current] -- make last phoneme in word syllabic [] -> [canBeSyllabic current] -- make last phoneme in word syllabic
previousIsSonant : _ -> if previousIsSonant previousIsSonant : _ -> if previousIsSonant

8
src/Phonology.hs
View File

@@ -97,9 +97,9 @@ showSyllabic phoneme syllabic = case (phoneme, syllabic) of
(M , True ) -> "ṃ" (M , True ) -> "ṃ"
(R , True ) -> "ṛ" (R , True ) -> "ṛ"
(L , True ) -> "ḷ" (L , True ) -> "ḷ"
(H1, True ) -> "ə₁" -- (H1, True ) -> "ə₁"
(H2, True ) -> "ə₂" -- (H2, True ) -> "ə₂"
(H3, True ) -> "ə₃" -- (H3, True ) -> "ə₃"
(H , True ) -> "ə" -- (H , True ) -> "ə"
_ -> show phoneme _ -> show phoneme