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

added generalized ComplVV to ParseFin

Browse Source
This commit is contained in:
aarne
2013-03-25 14:21:46 +00:00
parent 77a9530cf9
commit eb9685e911
3 changed files with 27 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/finnish/stemmed/ParseFin.gf
View File

@@ -24,6 +24,19 @@ open MorphoFin, ResFin, ParadigmsFin, SyntaxFin, StemFin, Prelude in {
flags literal=Symb ; coding = utf8 ;
lin
ComplVV v ant pol vp =
insertObj
(\\_,b,a => infVPGen pol.p v.sc b a vp v.vi)
(predSV {s = v.s ;
sc = case vp.sc of {
NPCase Nom => v.sc ; -- minun täytyy pestä auto
c => c -- minulla täytyy olla auto
} ;
h = v.h ; p = v.p
}
) ;
myself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P1) ;
yourselfSg_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P2) ;
himself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P3) ;