fixes in DictionaryFin - mainly missing lin's up to BNC 2000

lib/src/finnish/ParadigmsFin.gf

@@ -172,6 +172,9 @@ oper
     mkA : AK -> A ;  -- adjective from DictFin (Kotus)
   } ;
 
+  invarA : Str -> A  -- invariant adjective, e.g. "kelpo"
+    = \s -> lin A {s = \\_,_ => s ; h = Back} ; ----- stemming adds bogus endings
+
 -- Two-place adjectives need a case for the second argument.
 
   mkA2 = overload {
@@ -272,14 +275,16 @@ mkVS = overload {
   } ;
 
   mkV2V = overload {
-    mkV2V : Str -> V2V 
+    mkV2V : Str -> V2V  -- reg verb, partitive + infIllat 
      = \s -> mkV2Vf (mkV s) (casePrep partitive) infIllat ; ----
-    mkV2V : V -> V2V 
+    mkV2V : V -> V2V    -- partitive + infillat
      = \v -> mkV2Vf v (casePrep partitive) infIllat ; ----
-    mkV2V : V -> Prep -> V2V  -- e.g. "käskeä" genitive
+    mkV2V : V -> Prep -> V2V  -- e.g. "käskeä" genitive + infFiilat
      = \v,p -> mkV2Vf v p infIllat ;
-    mkV2Vf  : V -> Prep -> InfForm -> V2V -- e.g. "kieltää" partitive infElatv 
+    mkV2V  : V -> Prep -> InfForm -> V2V -- e.g. "kieltää" partitive infElat 
      = \v,p,f -> mk2V2 v p ** {vi = infform2vvtype f ; lock_V2V = <>} ;
+    mkV2V  : V -> Case -> InfForm -> V2V 
+     = \v,c,f -> mk2V2 v (casePrep c) ** {vi = infform2vvtype f ; lock_V2V = <>} ;
     } ;
 
   mkV0  : V -> V0 ; --%

lib/src/translator/DictionarySwe.gf

@@ -21389,7 +21389,7 @@ lin field_2_N = mkN "fält" "fält" ;
 lin field_3_N = mkN "plan" "planer" ;
 lin field_4_N = mkN "kropp" ;
 lin field_N = mkN "plan" "planer" | mkN "slagfält" neutrum ; ---
-lin field_V = mkV "åker" ;
+lin field_V = mkV "planera" ;
 lin field_V2 = variants {} ;
 lin field_hospital_N = variants {} ;
 lin field_officer_N = variants {} ;
@@ -24408,8 +24408,8 @@ lin gnp_N = mkN "bruttonationalprodukt" "bruttonationalprodukter" ;
 lin gnu_N = mkN "gnu" "gnun" "gnuer" "gnuerna" ; -- comment=2
 lin go_A = mkA "dö" | mkA "gäll" ; -- SaldoWN -- comment=3
 lin go_N = mkN "tur" ; -- comment=12
-lin go_V = L.go_V ;
-lin go_V2 = mkV2 L.go_V ;
+lin go_V = L.go_V | mkV "åker" ;
+lin go_V2 = mkV2 L.go_V (mkPrep "till") | mkV2 (mkV "åker") (mkPrep "till") ;
 lin go_VA = mkVA I.bliva_V ;
 lin go_VS = mkVS L.go_V ;
 lin go_VV = mkVV L.go_V ;
@@ -26165,7 +26165,7 @@ lin he_man_N = variants {} ;
 lin head_A = variants{} ; --
 lin head_N = L.head_N ;
 lin head_V = mkV "falla" "föll" "fallit" ; -- comment=14
-lin head_V2 = mkV2 (mkV "åka"); -- status=guess, src=wikt
+lin head_V2 = mkV2 (mkV "åker") (mkPrep "till") ;
 lin head_for_V2 = variants {} ;
 lin head_hunter_N = variants {} ;
 lin head_off_V = mkV "falla" "föll" "fallit" ; -- comment=14
@@ -48534,7 +48534,7 @@ lin riddle_N = mkN "såll" neutrum; -- comment=2
 lin riddle_V2 = variants {} ;
 lin ride_N = mkN "ritt" "ritter" ; -- comment=2
 lin ride_V = mkV "rida" "red" "ridit" ;
-lin ride_V2 = mkV2 (mkV "åka"); -- status=guess, src=wikt
+lin ride_V2 = mkV2 (mkV "åker") ; 
 lin ride_off_V = mkV "rida" "red" "ridit" ;
 lin ride_on_V2 = variants {} ;
 lin ride_out_V2 = variants {} ;
@@ -51569,6 +51569,7 @@ lin shaking_N = variants {} ;
 lin shaky_A = mkA "skakig" ; -- comment=12
 lin shale_N = mkN "skiffer" ;
 lin shale_oil_N = variants {} ;
+lin shall_VV = auxVV (mkV "skola" ("skall" | "ska") "skola" "skulle" "skolat" "skolande" | mkV "böra" "borde" "bort");
 lin shallot_N = mkN "schalottenlök" ; -- status=guess
 lin shallow_A = mkA "grund" | mkA "ytlig" ; -- SaldoWN -- comment=3
 lin shallow_N = mkN "grund" "grunder" | mkN "grund" neutrum ; -- SaldoWN = mkN "grund" neutrum ; -- comment=2
@@ -52634,7 +52635,7 @@ lin sizzle_N = variants {} ;
 lin sizzle_V = variants {} ;
 lin skank_N = variants {} ;
 lin skate_N = (mkN "skena") | (mkN "skridsko" "skridskor"); -- status=guess status=guess
-lin skate_V = (mkV "skrinnar") | mkV (mkV "åka") "skridskor" ; -- status=guess, src=wikt status=guess, src=wikt
+lin skate_V = (mkV "skrinnar") | mkV (mkV "åker") "skridskor" ; -- status=guess, src=wikt status=guess, src=wikt
 lin skateboard_N = mkN "skateboard" "skateboarden" "skateboard" "skateboarden" | mkN "rullbräda" ; -- SaldoWN -- comment=2
 lin skateboarder_N = variants {} ;
 lin skateboarding_N = variants {} ;

lib/src/translator/todo/TopDictionarySwe.gf

@@ -38,11 +38,11 @@ lin say_VA = mkV "säga" "sade" "sagt" ;
 lin say_V2 = mkV2 "säga" "sade" "sagt" ;
 lin say_V = mkV "säga" "sade" "sagt" ;
 lin if_Subj = S.if_Subj;
+lin go_V = L.go_V | mkV "åker" ;
+lin go_V2 = mkV2 L.go_V (mkPrep "till") | mkV2 (mkV "åker") (mkPrep "till") ;
 lin go_VV = mkVV L.go_V ;
 lin go_VS = mkVS L.go_V ;
 lin go_VA = mkVA I.bliva_V ;
-lin go_V2 = mkV2 L.go_V ;
-lin go_V = L.go_V ;
 lin get_VV = mkVV I.få_V ;
 lin get_VS = mkVS I.få_V ;
 lin get_VA = mkVA I.få_V ;
@@ -2253,7 +2253,7 @@ lin sing_V = L.sing_V ;
 lin whereas_Subj = variants{} ; -- 
 lin own_V2 = mkV2 "äger" ; --
 lin own_V = mkV "äger" ; -- comment=4
-lin head_V2 = mkV2 (mkV "åka"); -- status=guess, src=wikt
+lin head_V2 = mkV2 (mkV "åker") (mkPrep "till") ;
 lin head_V = mkV "falla" "föll" "fallit" ; -- comment=14
 lin examination_N = mkN "prov" neutrum | mkN "tentamen" "tentamen" "tentamina" "tentamina" ; -- SaldoWN = mkN "prov" neutrum ; -- comment=13
 lin deliver_V2 = mkV2 "undsätta" "undsätter" "undsätt" "undsatte" "undsatt" "undsatt" | dirV2 (partV (mkV "riktar")"till") ; -- SaldoWN -- comment=2
@@ -2608,7 +2608,7 @@ lin illustrate_VS = variants{}; -- mkV "illustrerar" ; -- comment=4
 lin illustrate_V2 = variants{}; -- mkV "illustrerar" ; -- comment=4
 lin illustrate_V = mkV "illustrerar" ; -- comment=4
 lin pay_N = mkN "visa" ; -- comment=7
-lin ride_V2 = mkV2 (mkV "åka"); -- status=guess, src=wikt
+lin ride_V2 = mkV2 (mkV "åker"); -- status=guess, src=wikt
 lin ride_V = mkV "rida" "red" "ridit" ;
 lin foundation_N = mkN "stiftelse" "stiftelser" ; -- SaldoWN
 lin restaurant_N = L.restaurant_N ;