enabled some gerunds and participles in Translate, implemented for Eng and Swe. Commented out which_N, a source of errors.

lib/src/translator/Dictionary.gf

@@ -64737,7 +64737,7 @@ fun whether_Subj : Subj ;
 fun whetstone_N : N ;
 fun whey_N : N ;
 fun which_IQuant : IQuant  ;
-fun which_N : N  ;
+--fun which_N : N  ; ---- what is this? creates spurious parses. AR 25/9/2014
 fun whichever_A : A ;
 fun whichever_Quant : Quant ;
 fun whichsoever_A : A ;

lib/src/translator/ExtensionsSwe.gf

@@ -47,16 +47,30 @@ lin
       isPre = True
       } ;
 
-  GerundN v = {
-    s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
-    g = Neutr ;
-    co = v.s ! VI (VPtPres Sg Indef Nom) ;
-  } ;
-  
+  GerundNP vp = {  -- infinitive: att dricka öl, att vara glad
+    s = \\_ => "att" ++ infVP vp {g = Utr ; n = Sg ; p = P3} ; 
+    a = {g = Neutr ; n = Sg ; p = P3}
+    } ;
+
+  GerundAdv vp = {
+    s = partVPPlusPost vp (PartPres Sg Indef (Nom|Gen)) {g = Utr ; n = Sg ; p = P3} Pos -- sovande(s) i sängen
+    } ;
+
   PresPartAP vp = {
-    s = \\_ => v.s ! VI (VPtPres Sg Indef Nom) ;
+    s = \\af => partVPPlus vp (PartPres Sg Indef Nom) (aformpos2agr af) Pos ;
     isPre = True
-  } ;
+    } ;
+
+  PastPartAP vp = {
+    s = \\af => partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ;
+    isPre = True
+    } ;
+
+  PastPartAgentAP vp np = {
+    s = \\af => "av" ++ np.s ! accusative ++ partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ; ---- agent and other advs before; 
+    isPre = True               ---- the right choice in attributive but not predicative position
+    } ;
+
 
 ----  PastPartAP vp
 

lib/src/translator/Translate.gf

@@ -26,7 +26,7 @@ abstract Translate =
   Extensions [
     CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
     DirectComplVS, DirectComplVQ, FocusObjS
-----    , PastPartAP, PastPartAgentAP, PresPartAP ---- not yet available for all languages
+    , PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv ---- not yet available for all languages
     ],
   Dictionary,
   Documentation

lib/src/translator/TranslateEng.gf

@@ -36,8 +36,7 @@ concrete TranslateEng of Translate =
   ChunkEng,
   ExtensionsEng [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
   DirectComplVS, DirectComplVQ, FocusObjS
-
-----    , PastPartAP, PastPartAgentAP, PresPartAP
+    , PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv
     ],
   DictionaryEng ** 
 open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {

lib/src/translator/TranslateSwe.gf

@@ -24,7 +24,9 @@ concrete TranslateSwe of Translate =
 
   ChunkSwe,
   ExtensionsSwe [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
-                 DirectComplVS, DirectComplVQ, FocusObjS],
+                 DirectComplVS, DirectComplVQ, FocusObjS
+    ,PastPartAP, PastPartAgentAP, PresPartAP, GerundNP, GerundAdv
+    ],
 
   DictionarySwe ** 
 open MorphoSwe, ResSwe, ParadigmsSwe, SyntaxSwe, CommonScand, (E = ExtraSwe), Prelude in {