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

(Ara) Fix dual for nouns ending in ة

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-02 14:59:49 +02:00
parent a324377661
commit 9624952703
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/arabic/ParadigmsAra.gf
View File

@@ -559,8 +559,9 @@ resource ParadigmsAra = open
mkA2V v p = mkA2 v p ** {lock_A2 = <>} ;
smartN : Str -> N = \s -> case last s of {
"ة" => mkFullN (sndf s) Fem NoHum ;
smartN : Str -> N = \s -> case s of {
_ + "ة" => mkFullN (sndf s) Fem NoHum ;
_ + "ة" + #vow => mkFullN (sndf s) Fem NoHum ;
_ => mkFullN (sndm s) Masc NoHum
} ;

8
src/arabic/ResAra.gf
View File

@@ -856,7 +856,9 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
\caSaA ->
case caSaA of {
lemma + ("ا"|"ى") => \\s,c => defArt s lemma + "ي" + dl ! s ! c ;
_ => \\s,c => defArt s caSaA + dl ! s ! c
lemma + "ة" =>
\\s,c => defArt s (lemma + "ت") + dl ! s ! c ;
_ => \\s,c => defArt s caSaA + dl ! s ! c
};
-- takes a singular word and gives the corresponding sound
@@ -953,12 +955,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
Const =>
table {
Nom => "َا";
_ => "َي"
_ => "َيْ‎"
};
_ =>
table {
Nom => "َانِ";
_ => "َينِ"
_ => "َيْ‎نِ"
}
};