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

romance ImpPlP1 corrected

Browse Source
This commit is contained in:
aarne
2006-06-21 07:51:44 +00:00
parent e326e16db8
commit 0e312b48e0
8 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
resource-1.0/italian/DiffIta.gf
View File

@@ -101,12 +101,13 @@ instance DiffIta of DiffRomance = open CommonRomance, PhonoIta, BeschIta, Prelud
in
<pdat ++ pacc, []> ;
mkImperative vp = {
mkImperative p vp = {
s = \\pol,aag =>
let
agr = aag ** {p = P2} ;
verb = case <aag.n, pol> of {
<Sg,Neg> => (vp.s ! VPInfinit Simul).inf ! aag ;
agr = aag ** {p = p} ;
verb = case <aag.n, pol,p> of {
<_,_, P1> => (vp.s ! VPFinite (VPres Indic) Simul).fin ! agr ;
<Sg,Neg,P2> => (vp.s ! VPInfinit Simul).inf ! aag ;
_ => (vp.s ! VPImperat).fin ! agr
} ;
neg = vp.neg ! pol ;