msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Pes) Add possibility to use vowel diacritic (kasre) in mkEzafa

Browse Source 
It's still not using kasre, but if you want to use it, just change one 
line.
This commit is contained in:
Inari Listenmaa
2019-02-09 15:28:20 +01:00
parent b0ea6680fb
commit 5fa83b90e4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/persian/MorphoPes.gf
View File

@@ -54,8 +54,9 @@ oper
------------------------ ------------------------
oper oper
mkEzafa : Str -> Str ; mkEzafa : Str -> Str = \str ->
mkEzafa str = let kasre = "ِ" in --let kasre = "ِ" in -- TODO: Eventually use this
let kasre = "" in
case str of { case str of {
st + "اه" => str + kasre ; st + "اه" => str + kasre ;
st + "وه" => str + kasre ; st + "وه" => str + kasre ;