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

solved the issue with it_Pron not having possessive suffix in Fin; fixed a number of warnings in Fin

Browse Source
This commit is contained in:
aarne
2013-12-11 08:06:01 +00:00
parent a0ab71424b
commit 8b22d10062
10 changed files with 53 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/finnish/IdiomFin.gf
View File

@@ -55,7 +55,14 @@ concrete IdiomFin of Idiom = CatFin **
let vps = (sverb2verbSep vp.s).s ! ImperP1Pl
in
{s = vps ++
vp.s2 ! True ! Pos ! Ag Pl P1 ++ vp.ext
vp.s2 ! True ! Pos ! Ag Pl P1 ++ vp.adv ! Pos ++ vp.ext
} ;
ImpP3 np vp =
let vps = (sverb2verbSep vp.s).s ! ImperP3 (verbAgr np.a).n
in
{s = np.s ! vp.s.sc ++ vps ++
vp.s2 ! True ! Pos ! np.a ++ vp.adv ! Pos ++ vp.ext
} ;
SelfAdvVP vp = insertAdv (\\_ => "itse") vp ;
@@ -67,6 +74,19 @@ concrete IdiomFin of Idiom = CatFin **
isNeg = np.isNeg
} ;
ExistNPAdv np adv =
mkClause (\_ -> adv.s) np.a (insertObj
(\\_,b,_ => np.s ! NPCase Nom) (predV vpVerbOlla)) ;
ExistIPAdv ip adv =
let
c = case ip.n of {Sg => Nom ; Pl => Part} ;
cl = mkClause (\_ -> ip.s ! NPCase c ++ adv.s) (agrP3 Sg) -- kuka täällä on ; keitä täällä on
(predV vpVerbOlla) ;
in {
s = \\t,a,p => cl.s ! t ! a ! p ! SDecl
} ;
oper
olla = vpVerbOlla ;