diff --git a/src/finnish/IdiomFin.gf b/src/finnish/IdiomFin.gf index 030c342b..a5a5ae3a 100644 --- a/src/finnish/IdiomFin.gf +++ b/src/finnish/IdiomFin.gf @@ -61,8 +61,10 @@ concrete IdiomFin of Idiom = CatFin ** ImpP3 np vp = let vps = (sverb2verbSep vp.s).s ! ImperP3 (verbAgr np.a).n in - {s = np.s ! subjcase2npform vp.s.sc ++ vps ++ - vp.s2 ! True ! Pos ! np.a ++ vp.adv ! Pos ++ vp.ext + {s = vps ++ + np.s ! subjcase2npform vp.s.sc ++ + vp.s2 ! True ! Pos ! np.a ++ + vp.adv ! Pos ++ vp.ext } ; SelfAdvVP vp = insertAdv (\\_ => "itse") vp ; diff --git a/src/french/DiffFre.gf b/src/french/DiffFre.gf index d65ede46..878e495a 100644 --- a/src/french/DiffFre.gf +++ b/src/french/DiffFre.gf @@ -330,8 +330,8 @@ instance DiffFre of DiffRomance - [ <_, _, True> => neg.p1 ++ clit ++ fin ++ bindHyphen ++ subj ++ neg.p2 ++ inf ++ compl ++ ext ; - -- est loin la ville - _ => neg.p1 ++ clit ++ fin ++ neg.p2 ++ inf ++ compl ++ subj ++ ext + -- est Paris loin + _ => neg.p1 ++ clit ++ fin ++ neg.p2 ++ subj ++ inf ++ compl ++ ext } ; bindHyphensT : Str = bindHyphen ++ "t" ++ bindHyphen ; diff --git a/src/italian/IdiomIta.gf b/src/italian/IdiomIta.gf index 6ee24d57..2ddd6b8f 100644 --- a/src/italian/IdiomIta.gf +++ b/src/italian/IdiomIta.gf @@ -55,5 +55,10 @@ concrete IdiomIta of Idiom = CatIta ** mkImperative False P1 vp ! RPos ! Masc ! Pl --- fem } ; + ImpP3 np vp = { + s = (mkClause (np.s ! Nom).comp np.hasClit False np.a vp).s + ! DInv ! RPres ! Simul ! RPos ! Conjunct + } ; + } diff --git a/src/swedish/IdiomSwe.gf b/src/swedish/IdiomSwe.gf index fffb4728..2b867b15 100644 --- a/src/swedish/IdiomSwe.gf +++ b/src/swedish/IdiomSwe.gf @@ -54,6 +54,8 @@ concrete IdiomSwe of Idiom = CatSwe ** insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ; ImpPl1 vp = {s = ["låt oss"] ++ infVP vp {g = Utr ; n = Pl ; p = P1}} ; + + ImpP3 np vp = {s = "låt" ++ np.s ! accusative ++ infVP vp {g = np.a.g ; n = np.a.n ; p = np.a.p}} ; SelfAdvVP vp = insertObj (\\a => sjalv a.g a.n) vp ; SelfAdVVP vp = insertAdVAgr (\\a => sjalv a.g a.n) vp ;