diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-05 10:22:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-05 10:22:09 +0000 |
| commit | f7aed275d3bdac5ae1e48daeb801ed30b4df96bb (patch) | |
| tree | 68836ee2a4ac97ab550c70a3923ed4d7d36eec97 /next-lib/src/italian/DiffIta.gf | |
| parent | a629d30958083b4de74d38be3eff8725edc92c10 (diff) | |
distinguished know_VS and know_V2 in Lexicon; patched Italian imperatives (not quite finished yet)
Diffstat (limited to 'next-lib/src/italian/DiffIta.gf')
| -rw-r--r-- | next-lib/src/italian/DiffIta.gf | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/next-lib/src/italian/DiffIta.gf b/next-lib/src/italian/DiffIta.gf index a54520fa9..d6ab22238 100644 --- a/next-lib/src/italian/DiffIta.gf +++ b/next-lib/src/italian/DiffIta.gf @@ -112,12 +112,11 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud let 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 + clpr = <vp.clit1 ++ vp.clit2,[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ; + verb = case <aag.n, pol,pe> of { + <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ; + _ => (vp.s ! VPImperat).fin ! agr + } ; neg = vp.neg ! pol ; compl = neg.p2 ++ clpr.p2 ++ vp.comp ! agr ++ vp.ext ! pol in |