msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

PassVPSlash for Swedish

Browse Source
This commit is contained in:
inari
2013-10-03 13:13:46 +00:00
parent 357ddfb5d3
commit 4c277ee268
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/swedish/ExtraSwe.gf
View File

@@ -28,6 +28,11 @@ lin
} ; } ;
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} ; 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 ; RelSlashVS t p vs np = let vpform = VPFinite t.t t.a ;
cl = PredVP np (predV vs) ; cl = PredVP np (predV vs) ;