removed spurious substantival possessives created from empty strings in NounFin in the presence of ProDrop

lib/src/finnish/ExtraFin.gf

@@ -254,6 +254,7 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
 ---- TODO maybe squeeze s2 between the fin and inf (but this is subtle)
 ----   sinua olen rakastanut minä -> sinua olen minä rakastanus
 -- advantage though: works for all V2 verbs, need not be transitive
+---- TODO: agr should be to the agent
 
   PassAgentVPSlash vp np = {
       s = {s = vp.s.s ; h = vp.s.h ; p = vp.s.p ; sc = npform2subjcase vp.c2.c} ; 

lib/src/finnish/NounFin.gf

@@ -116,7 +116,8 @@ concrete NounFin of Noun = CatFin ** open ResFin, MorphoFin, StemFin, Prelude in
       } ;
 
     PossPron p = {
-      s1,sp = \\_,_ => p.poss ;
+      s1 = \\_,_ => p.poss ;           -- [] in det position with proDrop
+      sp = \\_,_ => p.s ! NPCase Gen ; -- to prevent [] with proDrop
       s2 = case p.hasPoss of {
              True => table {Front => BIND ++ possSuffixFront p.a ; 
                             Back  => BIND ++ possSuffix p.a } ;

lib/src/translator/ExtensionsFin.gf

@@ -124,4 +124,14 @@ lin
 
 --in Verb,   SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash
 
+  DirectComplVS t np vs utt = 
+    mkS (lin Adv (optCommaSS utt)) (mkS t positivePol (mkCl np (lin V vs))) ;
+
+  DirectComplVQ t np vs q = 
+    mkS (lin Adv (optCommaSS (mkUtt q))) (mkS t positivePol (mkCl np (lin V vs))) ;
+
+  FocusObjS np sslash = 
+    mkS (lin Adv (optCommaSS (ss (appCompl True Pos sslash.c2 np)))) <lin S sslash : S> ; ---- Pos could be Neg: häntä minä en tunne
+
+
 }

lib/src/translator/TranslateFin.gf

@@ -26,7 +26,8 @@ concrete TranslateFin of Translate =
   DocumentationFin,
 
   ChunkFin,
-  ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+                 DirectComplVS, DirectComplVQ, FocusObjS],
 
   DictionaryFin **