(Ara) add nothing_NP + improve smart paradigm for nisbaA

This commit is contained in:
Inari Listenmaa
2019-01-10 14:25:10 +01:00
parent 04400471b8
commit 186c41bdbb
2 changed files with 5 additions and 1 deletions
+4 -1
View File
@@ -708,7 +708,10 @@ resource ParadigmsAra = open
} ;
nisbaA : Str -> Adj = \Haal ->
let Haaliyy = Haal + "ِيّ" in {
let Haaliyy = case Haal of {
x + "ِيّ" => Haal ; -- if the ending is already given, don't add it
_ => Haal + "ِيّ" -- intended usage: give only stem
} in {
s = table {
APosit g n d c => positAdj Haaliyy ! g ! n ! d ! c ;
AComp d c => "أَكْثَر" ++ indeclN Haaliyy ! d ! c