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

VPSlashPrep in Fin and Romance; the word order in VPSlash not yet fixed.

Browse Source
This commit is contained in:
aarne
2012-09-23 09:35:04 +00:00
parent c8ac4a9551
commit d41dc9961a
3 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/finnish/IdiomFin.gf
View File

@@ -18,7 +18,7 @@ concrete IdiomFin of Idiom = CatFin **
let let
cas : NPForm = NPCase Nom ; ---- also partitive in Extra cas : NPForm = NPCase Nom ; ---- also partitive in Extra
vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ; vp = insertObj (\\_,b,_ => "olemassa") (predV olla) ;
cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 Sg) vp cl = mkClause (subjForm (ip ** {isPron = False ; a = agrP3 ip.n}) cas) (agrP3 ip.n) vp
in { in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ; } ;

1
lib/src/finnish/VerbFin.gf
View File

@@ -114,6 +114,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
CompNP np = {s = \\_ => np.s ! NPCase Nom} ; CompNP np = {s = \\_ => np.s ! NPCase Nom} ;
CompAdv a = {s = \\_ => a.s} ; CompAdv a = {s = \\_ => a.s} ;
VPSlashPrep vp prep = vp ** {c2 = prep} ;
} }

3
lib/src/romance/VerbRomance.gf
View File

@@ -87,6 +87,9 @@ incomplete concrete VerbRomance of Verb =
PassV2 v = insertComplement PassV2 v = insertComplement
(\\a => let agr = complAgr a in v.s ! VPart agr.g agr.n) (predV auxPassive) ; (\\a => let agr = complAgr a in v.s ! VPart agr.g agr.n) (predV auxPassive) ;
VPSlashPrep vp prep = vp ** {
c2 = {s = prep.s ; c = prep.c ; isDir = False}
} ;
} }
{---b {---b