mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-02 07:03:39 -06:00
13 lines
525 B
Plaintext
13 lines
525 B
Plaintext
concrete AdverbMkd of Adverb = CatMkd ** open Prelude,ResMkd in {
|
|
lin AdAdv a a2 = {s = a.s ++ a2.s} ;
|
|
lin AdnCAdv c = {s = c.s} ;
|
|
lin ComparAdvAdj c a np = {s = c.s
|
|
++ a.s ! Indef ! np.a.g ++ np.s ! RSubj} ;
|
|
lin ComparAdvAdjS c a s = {s = c.s
|
|
++ a.s ! Indef ! GSg Masc ++ s.s} ;
|
|
lin PositAdAAdj a = {s = a.adverb} ;
|
|
lin PositAdvAdj a = {s = a.adverb} ;
|
|
lin PrepNP p np = {s = p.s ++ np.s ! RPrep} ;
|
|
lin SubjS s s2 = {s = s.s ++ s2.s} ;
|
|
}
|