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

fixed SentAP and AdvAP for AdjPlace in ResChi

Browse Source
This commit is contained in:
1Regina
2021-12-17 14:50:20 +08:00
committed by Inari Listenmaa
parent b26e6e1c9f
commit 565cd8fa61
2 changed files with 60 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/chinese/AdjectiveChi.gf
+11 -3
View File
@@ -18,12 +18,20 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
ReflA2 a = complexAP (a.s ++ appPrep a.c2 reflPron) ;
SentAP ap sc = complexAP (ap.s ++ sc.s) ;
-- SentAP ap sc = complexAP (ap.s ++ sc.s) ;
SentAP ap sc = ap ** {
s = table { adjPlace => ap.s ! adjPlace ++ sc.s }
} ;
AdAP ada ap = {s = ada.s ++ ap.s ; monoSyl = False ; hasAdA = True} ;
UseA2 a = a ** {hasAdA = False} ;
AdvAP ap adv = complexAP (adv.s ++ ap.s) ; ----
-- AdvAP ap adv = complexAP (adv.s ++ ap.s) ;
AdvAP ap adv = ap ** {
s = table { adjPlace => adv.s ++ ap.s ! adjPlace }
};
}