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

(Ara) add nothing_NP + improve smart paradigm for nisbaA

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

5
src/arabic/ParadigmsAra.gf
View File

@@ -708,7 +708,10 @@ resource ParadigmsAra = open
} ; } ;
nisbaA : Str -> Adj = \Haal -> 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 { s = table {
APosit g n d c => positAdj Haaliyy ! g ! n ! d ! c ; APosit g n d c => positAdj Haaliyy ! g ! n ! d ! c ;
AComp d c => "أَكْثَر" ++ indeclN Haaliyy ! d ! c AComp d c => "أَكْثَر" ++ indeclN Haaliyy ! d ! c

1
src/arabic/StructuralAra.gf
View File

@@ -61,6 +61,7 @@ concrete StructuralAra of Structural = CatAra **
-- ["هَد تْ"] ; ["هَثِنغ تْ"] ; "مُستنءت" ; ["هَدنءت تْ"]] ; ---- -- ["هَد تْ"] ; ["هَثِنغ تْ"] ; "مُستنءت" ; ["هَدنءت تْ"]] ; ----
-- isAux = True -- isAux = True
-- } ; -- } ;
nothing_NP = regNP "لَا شَيْء" Sg Def ;
no_Utt = {s = \\_ => "لا"} ; no_Utt = {s = \\_ => "لا"} ;
on_Prep = mkPrep "عَلَى" ; on_Prep = mkPrep "عَلَى" ;
only_Predet = mkPredet "فَقَط" False; only_Predet = mkPredet "فَقَط" False;