(Ara) add nothing_NP + improve smart paradigm for nisbaA

This commit is contained in:
Inari Listenmaa committed 2019-01-10 14:25:10 +01:00
1 parent 04400471b8
commit 186c41bdbb
2 files changed
+5 -1

No files matched your search

+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