diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-30 20:38:51 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-30 20:38:51 +0000 |
| commit | b49a021608d1e15a17ffd54195aa812dbed2948f (patch) | |
| tree | ada8fb5fad6f41d3df7b9e1fd8fe74089ed90407 /next-lib/src/catalan/DiffCat.gf | |
| parent | 12338243c5198288ba42276b4d76a783c263e7c1 (diff) | |
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
Diffstat (limited to 'next-lib/src/catalan/DiffCat.gf')
| -rw-r--r-- | next-lib/src/catalan/DiffCat.gf | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/next-lib/src/catalan/DiffCat.gf b/next-lib/src/catalan/DiffCat.gf index 1b41659f3..201124e37 100644 --- a/next-lib/src/catalan/DiffCat.gf +++ b/next-lib/src/catalan/DiffCat.gf @@ -86,22 +86,24 @@ oper -- <_,_,CPron {n = Sg ; p = P2},CPron {n = Sg ; p = P1}> => <"te" ++ "me", []> ; infForm _ _ _ _ = True ; - - mkImperative _ p vp = { --- politeness + + mkImperative b p vp = { s = \\pol,aag => let - agr = aag ** {p = p} ; - verb = case <aag.n, pol> of { - <Sg,Neg> => (vp.s ! VPFinite (VPres Conjunct) Simul).fin ! agr ; - _ => (vp.s ! VPImperat).fin ! agr - } ; + pe = case b of {True => P3 ; _ => p} ; + agr = aag ** {p = pe} ; + clpr = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ; +----e verb = case <aag.n, pol,pe> of { +----e <Sg,Neg,P2> => (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 ; } ; - + negation : Polarity => (Str * Str) = table { Pos => <[],[]> ; Neg => <"no",[]> |