forked from GitHub/gf-rgl
some more functions added to Slv by guessing and using Morgan Nilsson's grammar book
This commit is contained in:
@@ -7,6 +7,8 @@ lin
|
||||
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
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user