GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Romance reflexives in lexicon; German infinitival phrase

Browse Source
This commit is contained in:
aarne
2006-02-08 10:52:58 +00:00
parent 39846cc94c
commit a70f2c286c
5 changed files with 19 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,15 +11,12 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
ComplVV v vp =
let
compl : Agr -> (Str * Str) = \a ->
let
vpi = vp.s ! a ! VPInfinit Simul
in
<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
vpi = infVP v.isAux vp
in
insertInf inf (insertObj obj (predVGen v.isAux v)) ;
insertExtrapos vpi.p3 (
insertInf vpi.p2 (
insertObj vpi.p1 (
predVGen v.isAux v))) ;
ComplVS v s =
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;