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 = <>} ; mkA2V v p = mkA2 v p ** {lock_A2 = <>} ;
smartN : Str -> N = \s -> case last s of { smartN : Str -> N = \s -> case s of {
"ة" => mkFullN (sndf s) Fem NoHum ; _ + "ة" => mkFullN (sndf s) Fem NoHum ;
_ + "ة" + #vow => mkFullN (sndf s) Fem NoHum ;
_ => mkFullN (sndm s) Masc NoHum _ => mkFullN (sndm s) Masc NoHum
} ; } ;

6
src/arabic/ResAra.gf
View File

@@ -856,6 +856,8 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
\caSaA -> \caSaA ->
case caSaA of { case caSaA of {
lemma + ("ا"|"ى") => \\s,c => defArt s lemma + "ي" + dl ! s ! c ; lemma + ("ا"|"ى") => \\s,c => defArt s lemma + "ي" + dl ! s ! c ;
lemma + "ة" =>
\\s,c => defArt s (lemma + "ت") + dl ! s ! c ;
_ => \\s,c => defArt s caSaA + dl ! s ! c _ => \\s,c => defArt s caSaA + dl ! s ! c
}; };
@@ -953,12 +955,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
Const => Const =>
table { table {
Nom => "َا"; Nom => "َا";
_ => "َي" _ => "َيْ‎"
}; };
_ => _ =>
table { table {
Nom => "َانِ"; Nom => "َانِ";
_ => "َينِ" _ => "َيْ‎نِ"
} }
}; };