revised 200+ most frequent V2's in DictEngFin, leading to changes of patterns for most verbs.

lib/src/finnish/stemmed/ElimPredef.hs

@@ -2,7 +2,7 @@ import qualified Data.Set as S
 
 -- comment out words that are predefined in another lexicon
 -- runghc ElimPredef.hs <DictEngFin.gf
-removeFile = "KoeFin.gf"
+removeFile = "v2.txt"
 removeMsg = "MANUAL"
 
 -- also used for temporarily eliminating whatever from compilation

lib/src/finnish/stemmed/ParadigmsFin.gf

@@ -204,6 +204,7 @@ oper
 
   mkV2 : overload {
     mkV2 : Str -> V2 ;  -- predictable direct transitive
+    mkV2 : Str -> Case -> V2 ;  -- predictable with another case
     mkV2 : V -> V2 ;    -- direct transitive
     mkV2 : V -> Case -> V2 ; -- complement just case
     mkV2 : V -> Prep -> V2 ; -- complement pre/postposition
@@ -689,6 +690,7 @@ mkVS = overload {
 
   mkV2 = overload {
     mkV2 : Str -> V2 = \s -> dirV2 (mk1V s) ;
+    mkV2 : Str -> Case -> V2 = \s -> caseV2 (mk1V s) ;
     mkV2 : V -> V2 = dirV2 ;
     mkV2 : V -> Case -> V2 = caseV2 ;
     mkV2 : V -> Prep -> V2 = mk2V2 ;

lib/src/finnish/stemmed/StemFin.gf

@@ -327,9 +327,9 @@ oper
 
   defaultStemEnding : SNForm -> Str = \c -> case c of {
       0 => "" ;
-      1 => "" ;
-      2 => "a" ;
-      3 => "na" ;
+      1 => "i" ;
+      2 => "ia" ;
+      3 => "ina" ;
       4 => "ii" ;
       5 => "ie" ;
       6 => "ia" ;
@@ -338,11 +338,11 @@ oper
       9 => "ihi"
       } ; 
   bindIfS : SNForm -> Str = \c -> case c of {
-    0|1 => [] ;
+    0 => [] ;
     _ => BIND
     } ;
   bindColonIfS : SNForm -> Str = \c -> case c of {
-    0|1 => [] ;
+    0 => [] ;
     _ => BIND ++ ":" ++ BIND
     } ;
 

lib/src/finnish/stemmed/WNKotus.gf

@@ -63,7 +63,10 @@ oper
   mkWV2 = overload {
     mkWV2 : (_ : Str)             -> V2   = \s -> mkV2 s ;
     mkWV2 : (_ : VForms)          -> V2   = \vf -> mkV2 (lin VK {s = vf}) ;
+    mkWV2 : (_ : VForms) -> Case  -> V2   = \vf,c -> mkV2 (mkV (lin VK {s = vf})) c ;
     mkWV2 : (_ : V)               -> V2   = \v -> mkV2 v ;
+    mkWV2 : (_ : V) -> Case       -> V2   = \v,c -> mkV2 v c ;
+    mkWV2 : (_ : V) -> Str        -> V2   = \v,s -> mkV2 (mkV v s) ;
     mkWV2 : VForms       -> Str   -> V2   = \vf,s -> mkV2 (mkV (mkV (lin VK {s = vf})) s) ;
     } ;
 

lib/src/finnish/stemmed/log.txt

@@ -88,5 +88,13 @@ Fixed obvious errors in "date" (taateli -> päivämäärä) and "force" (polttam
 24 examples.
 
 
+30/3
+
+Version 9: Changed subcat's of 170 of 230 V2's (the ones with 3 occurrences or more). One hour's work. Changes in 1124 
+translations. 
+
+Also changed the default genitive of symbol (+n) to +in, to be uniform with the other cases. Works for words ending
+in a consonant: Inteln -> Intelin. But a proper morphological analysis with dynamic lex extension is what would
+really be needed.