mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-09-22 02:06:03 -06:00
11 lines
432 B
Plaintext
11 lines
432 B
Plaintext
concrete AdverbHye of Adverb = CatHye ** open Prelude,ResHye in {
|
|
lin PrepNP p np = {s = case p.isPre of {
|
|
False => np.s ! p.c ++ p.s;
|
|
True => p.s ++ np.s ! p.c
|
|
}} ;
|
|
lin PositAdvAdj a = {s = a.s ! Instr ! Sg} ;
|
|
lin PositAdAAdj a = {s = a.s ! Instr ! Sg} ;
|
|
lin AdAdv ada adv = {s = ada.s ++ adv.s} ;
|
|
lin SubjS subj s = {s = subj.s ++ s.s} ;
|
|
}
|