From 025ce90634ea3ae436371e593a6cf53378904a4d Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 8 Dec 2014 13:21:28 +0000 Subject: [PATCH] ExtAdvVP added to some languages where it was missing --- lib/src/bulgarian/VerbBul.gf | 2 ++ lib/src/dutch/VerbDut.gf | 2 ++ lib/src/german/VerbGer.gf | 2 ++ lib/src/romance/VerbRomance.gf | 2 ++ 4 files changed, 8 insertions(+) diff --git a/lib/src/bulgarian/VerbBul.gf b/lib/src/bulgarian/VerbBul.gf index 678d50787..79164e374 100644 --- a/lib/src/bulgarian/VerbBul.gf +++ b/lib/src/bulgarian/VerbBul.gf @@ -79,6 +79,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in { UseCopula = predV verbBe ; AdvVP vp adv = insertObj (\\_ => adv.s) Pos vp ; + ExtAdvVP vp adv = insertObj (\\_ => embedInCommas adv.s) Pos vp ; + AdvVPSlash vp adv = insertSlashObj1 (\\_ => adv.s) Pos vp ; AdVVP adv vp = { diff --git a/lib/src/dutch/VerbDut.gf b/lib/src/dutch/VerbDut.gf index bafa93532..799a0a407 100644 --- a/lib/src/dutch/VerbDut.gf +++ b/lib/src/dutch/VerbDut.gf @@ -76,6 +76,8 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in { CompAdv a = {s = \\_ => a.s} ; AdvVP vp adv = insertAdv adv.s vp ; + ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ; + AdVVP adv vp = insertAdV adv.s vp ; ReflVP vp = insertObj (\\a => appPrep vp.c2.p1 (\\_ => reflPron ! a)) vp ; diff --git a/lib/src/german/VerbGer.gf b/lib/src/german/VerbGer.gf index 269d7a674..87243c00f 100644 --- a/lib/src/german/VerbGer.gf +++ b/lib/src/german/VerbGer.gf @@ -79,6 +79,8 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in { } ; AdvVP vp adv = insertAdv adv.s vp ; + ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ; + AdVVP adv vp = insertAdv adv.s vp ; -- not AdV 27/5/2012: nicht immer AdvVPSlash vp adv = insertAdv adv.s vp ** {c2 = vp.c2} ; diff --git a/lib/src/romance/VerbRomance.gf b/lib/src/romance/VerbRomance.gf index 5784ed4ae..29b9e8a6f 100644 --- a/lib/src/romance/VerbRomance.gf +++ b/lib/src/romance/VerbRomance.gf @@ -100,6 +100,8 @@ incomplete concrete VerbRomance of Verb = CompAdv a = {s = \\_ => a.s} ; AdvVP vp adv = insertAdv adv.s vp ; + ExtAdvVP vp adv = insertAdv (embedInCommas adv.s) vp ; + AdVVP adv vp = insertAdV adv.s vp ; PassV2 v = insertComplement