GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Exist with Adv in Swe

Browse Source
This commit is contained in:
aarne
2012-12-07 13:35:03 +00:00
parent fe2fb1c51b
commit 40d9c5bfdf
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/src/swedish/IdiomSwe.gf
View File

@@ -33,6 +33,22 @@ concrete IdiomSwe of Idiom = CatSwe **
} }
} ; } ;
ExistNPAdv np adv =
mkClause "det" (agrP3 neutr Sg) (insertObj
(\\_ => np.s ! accusative ++ adv.s) (predV (depV finna_V))) ;
ExistIPAdv ip adv = {
s = \\t,a,p =>
let
cls =
(mkClause "det" (agrP3 neutr Sg) (insertAdv adv.s (predV (depV finna_V)))).s ! t ! a ! p ;
who = ip.s ! accusative
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
ProgrVP vp = ProgrVP vp =
insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ; insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;