mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-12 16:40:11 -06:00
24 lines
558 B
Plaintext
24 lines
558 B
Plaintext
concrete SentenceSlv of Sentence = CatSlv ** open Prelude, ResSlv in {
|
|
|
|
lin
|
|
PredVP np vp = mkClause (np.s ! Nom) np.a np.isPron vp ;
|
|
|
|
ImpVP vp = {
|
|
s = \\p,g,n => vp.s ! p ! VImper2 n ++ vp.s2 ! {g=g; n=n; p=P2} ;
|
|
} ;
|
|
|
|
SlashVP np vp = mkClause (np.s ! Nom) np.a np.isPron vp ** {c2 = vp.c2} ;
|
|
|
|
UseCl t p cl = {
|
|
s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
|
|
} ;
|
|
UseQCl t p cl = {
|
|
s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
|
|
} ;
|
|
|
|
ExtAdvS a s = {s = a.s ++ bindComma ++ s.s} ;
|
|
AdvS a s = {s = a.s ++ s.s} ;
|
|
|
|
}
|
|
|