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

German extraposition

Browse Source
This commit is contained in:
aarne
2006-01-05 14:22:53 +00:00
parent 252d24642f
commit 1be6eb5399
5 changed files with 77 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,8 +9,11 @@ concrete VerbGer of Verb = CatGer ** open ResGer in {
ComplV3 v np np2 =
insertObj (\\_ => appPrep v.c2 np.s ++ appPrep v.c3 np2.s) (predV v) ;
-- ComplVV v vp = insertObj (\\a => v.c2 ++ infVP vp a) (predV v) ;
-- ComplVS v s = insertObj (\\_ => conjThat ++ s.s) (predV v) ;
ComplVV v vp =
insertObj (\\a => v.part ++ (vp.s ! a ! VPInfinit Simul).inf) (predV v) ;
ComplVS v s =
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;
-- ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ;
--
-- ComplVA v ap = insertObj (ap.s) (predV v) ;