GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Pes) Fix orthography and add a vowel diacritic in mkEzafa and mkEnclic

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-07 19:34:21 +01:00
parent 04c5f433ec
commit 61838b818e
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/persian/MorphoPes.gf
View File

@@ -55,23 +55,24 @@ oper
oper oper
mkEzafa : Str -> Str ; mkEzafa : Str -> Str ;
mkEzafa str = case str of { mkEzafa str = let kasre = "ِ" in
st + "اه" => str ; case str of {
st + "وه" => str ; st + "اه" => str + kasre ;
st + "وه" => str + kasre ;
st + "ه" => st + "ۀ" ; -- str ++ "ی" ; st + "ه" => st + "ۀ" ; -- str ++ "ی" ;
st + "او" => str ; st + "او" => str + kasre ;
st + "وو" => str ; st + "وو" => str + kasre ;
st + "و" => str + "ی" ; st + "و" => str + "ی" ;
st + "ا" => str + "ی" ; st + "ا" => str + "ی" ;
_ => str _ => str + kasre
}; };
mkEnclic : Str -> Str ; mkEnclic : Str -> Str ;
mkEnclic str = case str of { mkEnclic str = case str of {
st + "ا" => str ++ "یی" ; st + ("ا"|"و") => zwnj str "یی" ; -- ی after a long vowel to help pronunciation
st + "و" => str ++ "یی" ; st + "اه" => str + "ی" ; -- here ه is a consonant, so single ی
st + "ی" => str ++ "یی" ; -- TODO st + ("ی"|"ه") => zwnj str "ای" ; -- after ی or ه as a vowel, add an alif to help pronunciation
st + "ه" => str ++ "یی" ; _ => str + "ی" -- any other case: just a single ی
_ => str + "ی"
} ; } ;
Noun = {s : Ezafa => Number => Str ; animacy : Animacy ; definitness : Bool } ; Noun = {s : Ezafa => Number => Str ; animacy : Animacy ; definitness : Bool } ;