mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 11:19:32 -06:00
20 lines
674 B
Plaintext
20 lines
674 B
Plaintext
concrete AdverbChi of Adverb = CatChi **
|
|
open ResChi, Prelude in {
|
|
|
|
lin
|
|
PositAdvAdj a = {s = a.s ; advType = ATManner} ;
|
|
|
|
PrepNP prep np = ss (appPrep prep np.s) ** {advType = ATPlace} ; --- should depend on prep, np ? or treat in ExtraChi ?
|
|
|
|
ComparAdvAdj cadv a np = ss (a.s ++ cadv.s ++ cadv.p ++ np.s) ** {advType = ATManner} ;
|
|
|
|
ComparAdvAdjS cadv a s = ss (a.s ++ cadv.s ++ cadv.p ++ s.s) ** {advType = ATManner} ;
|
|
|
|
AdAdv adv ad = ss (ad.s ++ adv.s) ** {advType = ad.advType} ;
|
|
|
|
SubjS subj s = ss (subj.prePart ++ s.s ++ subj.sufPart) ** {advType = ATManner} ;
|
|
|
|
AdnCAdv cadv = ss (cadv.s ++ conjThat) ** {advType = ATManner} ; -----
|
|
|
|
}
|