some more functions added to Slv by guessing and using Morgan Nilsson's grammar book

This commit is contained in:
aarne
2016-10-04 16:17:07 +00:00
parent d2d349c93d
commit 1d62281dea
7 changed files with 33 additions and 8 deletions
+2
View File
@@ -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
} ;