GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

attempt to edit complexAP for table selection

Browse Source
This commit is contained in:
1Regina
2021-12-17 15:28:42 +08:00
committed by Inari Listenmaa
parent 565cd8fa61
commit 1b02447b44
1 changed files with 29 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/chinese/AdjectiveChi.gf
View File

@@ -5,18 +5,36 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
PositA a = a ** {hasAdA = False} ; PositA a = a ** {hasAdA = False} ;
--ComparA a np = complexAP (a.s ++ than_s ++ np.s) ; --ComparA a np = complexAP (a.s ++ than_s ++ np.s) ;
ComparA a np = complexAP (than_s ++ np.s ++ a.s) ; -- ComparA a np = complexAP (than_s ++ np.s ++ a.s) ;
ComparA a np = a ** {
s = table { adjPlace => than_s ++ np.s ++ a.s!adjPlace}
};
UseComparA a = complexAP (geng_s ++ a.s) ; --UseComparA a = complexAP (geng_s ++ a.s) ;
UseComparA a = geng ** {
s = table { adjPlace => geng.s!adjPlace ++ a.s}
};
AdjOrd ord = complexAP ord.s ; -- AdjOrd ord = complexAP ord.s ;
AdjOrd ord = ord ** {
s = table {adjPlace => ord.s!adjPlace}
};
-- CAdvAP ad ap np = complexAP (ap.s ++ ad.s ++ ad.p ++ np.s) ; -- CAdvAP ad ap np = complexAP (ap.s ++ ad.s ++ ad.p ++ np.s) ;
CAdvAP ad ap np = complexAP (ad.s++ np.s++ad.p++ap.s ) ; --modified by ChenPeng 11.24 -- CAdvAP ad ap np = complexAP (ad.s++ np.s++ad.p++ap.s ) ; --modified by ChenPeng 11.24
CAdvAP ad ap np = ap ** {
s = table {adjPlace => ad.s ++ np.s ++ ad.p ++ ap.s!adjPlace}
};
ComplA2 a np = complexAP (appPrep a.c2 np.s ++ a.s) ; -- ComplA2 a np = complexAP (appPrep a.c2 np.s ++ a.s) ;
ComplA2 a np = a ** {
s= table { adjPlace => appPrep a.c2 np.s ++ a.s!adjPlace}
};
ReflA2 a = complexAP (a.s ++ appPrep a.c2 reflPron) ; -- ReflA2 a = complexAP (a.s ++ appPrep a.c2 reflPron) ;
ReflA2 a = a ** {
s = table {adjPlace => a.s!adjPlace ++ appPrep a.c2 reflPron}
};
-- SentAP ap sc = complexAP (ap.s ++ sc.s) ; -- SentAP ap sc = complexAP (ap.s ++ sc.s) ;
@@ -25,9 +43,12 @@ concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
s = table { adjPlace => ap.s ! adjPlace ++ sc.s } s = table { adjPlace => ap.s ! adjPlace ++ sc.s }
} ; } ;
AdAP ada ap = {s = ada.s ++ ap.s ; monoSyl = False ; hasAdA = True} ; -- AdAP ada ap = {s = ada.s ++ ap.s ; monoSyl = False ; hasAdA = True} ;
AdAP ada ap = ap ** {
s = table { adjPlace => ada.s ++ ap.s ! adjPlace ; monoSyl = False; hasAdA = True}
};
UseA2 a = a ** {hasAdA = False} ; 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 ** { AdvAP ap adv = ap ** {