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

German double infinitives, place of adverbials

Browse Source
This commit is contained in:
aarne
2006-01-22 21:12:07 +00:00
parent 29a4ef3172
commit 3f2a7db309
3 changed files with 43 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/german/VerbGer.gf
View File

@@ -11,13 +11,15 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
ComplVV v vp =
let
compl : Agr => Str = \\a =>
compl : Agr -> (Str * Str) = \a ->
let
vpi = vp.s ! a ! VPInfinit Simul
in
vp.n2 ! a ++ vp.a2 ++ vpi.fin ++ infPart v.isAux ++ vpi.inf
<vp.n2 ! a ++ vp.a2, infPart v.isAux ++ vpi.inf> ;
obj : Agr => Str = \\a => (compl a).p1 ;
inf : Str = (compl (agrP3 Sg)).p2 ; --- agr makes no diff here
in
insertObj compl (predVGen v.isAux v) ;
insertInf inf (insertObj obj (predVGen v.isAux v)) ;
ComplVS v s =
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;