Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

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 ;

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 ;

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
+      } ;
+
 }
 

src/swedish/IdiomSwe.gf

@@ -55,6 +55,8 @@ concrete IdiomSwe of Idiom = CatSwe **
 
     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 ;
     SelfNP np = {