forked from GitHub/gf-core
28 lines
691 B
Plaintext
28 lines
691 B
Plaintext
concrete AdjectiveChi of Adjective = CatChi ** open ResChi, Prelude in {
|
|
|
|
lin
|
|
|
|
PositA a = a ;
|
|
|
|
--ComparA a np = complexAP (a.s ++ than_s ++ np.s) ;
|
|
ComparA a np = complexAP (than_s ++ np.s ++ a.s) ;
|
|
|
|
UseComparA a = complexAP (geng_s ++ a.s) ;
|
|
|
|
AdjOrd ord = complexAP ord.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
|
|
|
|
ComplA2 a np = complexAP (a.s ++ appPrep a.c2 np.s) ;
|
|
|
|
ReflA2 a = complexAP (a.s ++ appPrep a.c2 reflPron) ;
|
|
|
|
SentAP ap sc = complexAP (ap.s ++ sc.s) ;
|
|
|
|
AdAP ada ap = complexAP (ada.s ++ ap.s) ;
|
|
|
|
UseA2 a = a ;
|
|
|
|
}
|