From b49a021608d1e15a17ffd54195aa812dbed2948f Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 30 Oct 2008 20:38:51 +0000 Subject: refactored romance VP. Now it is possible to parse with Spanish and Catalan; for the rest, some Slash rules still pose a problem. Some clitic and agreement things unfinished. All this in next-lib only; resource 1.4 untouched --- next-lib/src/spanish/DiffSpa.gf | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'next-lib/src/spanish/DiffSpa.gf') diff --git a/next-lib/src/spanish/DiffSpa.gf b/next-lib/src/spanish/DiffSpa.gf index 668aa79c0..b1ea05af6 100644 --- a/next-lib/src/spanish/DiffSpa.gf +++ b/next-lib/src/spanish/DiffSpa.gf @@ -95,12 +95,13 @@ instance DiffSpa of DiffRomance = open CommonRomance, PhonoSpa, BeschSpa, Prelud let pe = case b of {True => P3 ; _ => p} ; agr = aag ** {p = pe} ; - verb = case of { - => (vp.s ! VPFinite (VPres Conjunct) Simul).fin ! agr ; - _ => (vp.s ! VPImperat).fin ! agr - } ; + clpr = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ; +----e verb = case of { +----e => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ; +----e _ => (vp.s ! VPImperat).fin ! agr +----e } ; + verb = (vp.s ! VPImperat).fin ! agr ; ----e neg = vp.neg ! pol ; - clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ; compl = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! pol in neg.p1 ++ verb ++ bindIf clpr.p3 ++ clpr.p1 ++ compl ; -- cgit v1.2.3