1
0
forked from GitHub/gf-rgl

PassVPSlash for Swedish

This commit is contained in:
inari
2013-10-03 13:13:46 +00:00
parent 84b7ae63f9
commit 3c4a09a30c

View File

@@ -28,6 +28,11 @@ lin
} ;
lin
--TODO: fix this; just wrote something that it compiles and doesn't give [PassVPSlash] when parsing text
PassVPSlash vps =
insertObj (\\a => vps.c2.s ++ vps.n3 ! a) vps ;
RelVS s rvs = {s = \\o => s.s ! o ++ "," ++ rvs.s ! agrP3 Neutr Sg ! RPrep True} ;
RelSlashVS t p vs np = let vpform = VPFinite t.t t.a ;
cl = PredVP np (predV vs) ;