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

(Ara) misc small additions/tweaks

Browse Source 
AdvAP: reuse implementation of AdAP
BaseNP, ConsNP, ConjNP: don't make NP by default heavy.
This commit is contained in:
Inari Listenmaa
2019-01-05 21:32:27 +02:00
parent b2ea7a5497
commit 98b5cf9ab9
2 changed files with 9 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/arabic/AdjectiveAra.gf
View File

@@ -3,7 +3,6 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
flags coding = utf8 ;
lin
PositA a = {
s = \\h,g,n,d,c => case h of {
Hum => a.s ! APosit g n d c;
@@ -33,6 +32,9 @@ concrete AdjectiveAra of Adjective = CatAra ** open ResAra, Prelude in {
s = \\sp,g,n,st,c => ap.s ! sp ! g ! n ! st ! c ++ ada.s
} ;
AdvAP,
SentAP = \ap,ss -> AdAP ss ap ;
UseA2 = PositA ;
UseComparA a = {

18
src/arabic/ConjunctionAra.gf
View File

@@ -19,21 +19,15 @@ lin
ConsS = consrTable Order comma ;
ConjS = conjunctDistrTable Order ;
BaseNP x y = twoTable Case x y ** {
a = conjAgr x.a y.a ;
empty = [] ;
isHeavy = True ;
BaseNP x y = emptyNP ** twoTable Case x y ** {
a = conjAgr x.a y.a
} ;
ConsNP xs x = consrTable Case comma xs x ** {
a = conjAgr xs.a x.a ;
empty = [] ;
isHeavy = True ;
ConsNP xs x = emptyNP ** consrTable Case comma xs x ** {
a = conjAgr xs.a x.a
} ;
ConjNP conj ss = conjunctDistrTable Case conj ss ** {
ConjNP conj ss = emptyNP ** conjunctDistrTable Case conj ss ** {
a = let gn = pgn2gn ss.a.pgn in
{pgn = Per3 gn.g (conjNumber conj.n gn.n) ; isPron = False} ;
empty = [] ;
isHeavy = True ;
{pgn = Per3 gn.g (conjNumber conj.n gn.n) ; isPron = False}
} ;
BaseAP = twoTable5 Species Gender Number State Case ;