VPI chunks linearized ; nouns with ión in Spanish and zione in Italian marked as feminine

lib/src/chunk/ChunkBul.gf

@@ -8,6 +8,7 @@ concrete ChunkBul of Chunk = CatBul, ExtensionsBul [VPS,VPI] **
     SyntaxBul, (E = ExtensionsBul), Prelude, 
     ResBul, MorphoFunsBul, (P = ParadigmsBul) in {
 
+lin VPI_Chunk vpi = {s = vpi.s ! {gn = GSg allGender ; p = P3}} ;
 
 lin CN_Pl_Chunk, CN_Pl_Gen_Chunk = \cn -> {s = cn.s ! (NF Pl allSpecies | NFPlCount)} ;
 lin CN_Sg_Chunk, CN_Sg_Gen_Chunk = \cn -> {s = cn.s ! (NF Sg allSpecies | NFSgDefNom)} ;

lib/src/chunk/ChunkChi.gf

@@ -24,6 +24,8 @@ lin
   NP_Acc_Chunk np = np ;
   NP_Gen_Chunk np = ss (np.s ++ de_s) ;
 
+  VPI_Chunk vpi = vpi ;
+
   copula_inf_Chunk = ss copula_s ;
 
   refl_SgP1_Chunk = ss reflPron ;

lib/src/chunk/ChunkEng.gf

@@ -8,6 +8,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! R.NPAcc) ;
   NP_Gen_Chunk np = ss (np.s ! R.NCase R.Gen) | ss (np.s ! R.NPNomPoss) ;
 
+  VPI_Chunk vpi = {s = vpi.s ! (R.VVInf | R.VVPresPart) ! R.AgP3Sg R.Masc} ; ----
+
 oper
   emptyNP = mkNP (P.mkPN []) ;
 

lib/src/chunk/ChunkFin.gf

@@ -11,6 +11,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! NPAcc) ;
   NP_Gen_Chunk np = ss (np.s ! NPCase Gen) ;
 
+  VPI_Chunk vpi = {s = vpi.s ! (VVIllat | VVInf)} ;
+
 lin
   copula_inf_Chunk = ss "olla" ;
 

lib/src/chunk/ChunkFre.gf

@@ -12,6 +12,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! Acc).ton ;
   NP_Gen_Chunk np = ss (np.s ! genitive).comp ;
 
+  VPI_Chunk vpi = vpi ;
+
 oper
   emptyNP = mkNP (P.mkPN []) ;
 

lib/src/chunk/ChunkGer.gf

@@ -11,6 +11,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! NPC Acc) ;
   NP_Gen_Chunk np = ss (np.s ! NPC Gen) ;
 
+  VPI_Chunk vpi = {s = vpi.s ! (True | False)} ;
+
 lin
   copula_inf_Chunk = ss "sein" ;
 

lib/src/chunk/ChunkHin.gf

@@ -17,6 +17,8 @@ lin
   NP_Acc_Chunk np = mkUtt np ;
   NP_Gen_Chunk np = mkUtt (mkAdv possess_Prep np) ;
 
+----  VPI_Chunk vpi = vpi ;
+
   copula_inf_Chunk = pss " है " ;
 
   refl_SgP1_Chunk,

lib/src/chunk/ChunkIta.gf

@@ -12,6 +12,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! Acc).ton ;
   NP_Gen_Chunk np = ss (np.s ! genitive).comp ;
 
+  VPI_Chunk vpi = vpi ;
+
 oper
   emptyNP = mkNP (P.mkPN []) ;
 

lib/src/chunk/ChunkSpa.gf

@@ -12,6 +12,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! Acc).ton ;
   NP_Gen_Chunk np = ss (np.s ! genitive).comp ;
 
+  VPI_Chunk vpi = vpi ;
+
 oper
   emptyNP = mkNP (P.mkPN []) ;
 

lib/src/chunk/ChunkSwe.gf

@@ -8,6 +8,8 @@ lin
   NP_Acc_Chunk np = ss (np.s ! C.NPAcc) ;
   NP_Gen_Chunk np = ss (np.s ! C.NPPoss (C.GSg C.Utr) C.Nom) ;
 
+  VPI_Chunk vpi = {s = optStr "att" ++ vpi.s ! R.VPIInf ! R.agrP3 (C.Utr | C.Neutr) C.Sg} ;
+
 oper
   emptyNP = mkNP (P.mkPN []) ;
 

lib/src/spanish/MorphoSpa.gf

@@ -49,6 +49,7 @@ oper
       _ + ("o" | "e" | "é" | "á") => mkNoun (nomVino mec) Masc ;  --bebé, papá; how about other accented vocal endings? champú champúes
       _ + "a" => mkNoun (nomVino mec) Fem ;
       _ + "z" => mkNounIrreg mec (init mec + "ces") Fem ;
+      _ + "ión" => mkNounIrreg mec (tk 2 mec + "ones") Fem ;
       _ + "án" => mkNounIrreg mec (tk 2 mec + "anes") Masc ;
       _ + "én" => mkNounIrreg mec (tk 2 mec + "enes") Masc ;
       _ + "ín" => mkNounIrreg mec (tk 2 mec + "ines") Masc ;

lib/src/translator/DictionaryFin.gf

@@ -26131,15 +26131,15 @@ lin invariance_N = mkWN (k40 "muuttumattomuus") ; --UNCHK
 lin invariant_A = mkWA (k17 "vakaa") ; --UNCHK
 lin invariant_N = mkWN (k5A "invariantti") ; --UNCHK
 lin invasion_N = mkWN (k3 "invaasio") ; --UNCHK
-lin invasive_A = mkWA "leviävä" ; --UNCHK
+lin invasive_A = mkA "sisääntunkeva" ;
 lin invective_N = mkWN (k40 "katkeruus") ; --UNCHK
 lin inveigh_V = mkWV (k61A "sättiä") ; --UNCHK
 lin inveigle_V2 = mkWV2 (k67A "viekoitella") ; --UNCHK
-lin invent_V = mkWV (k73A "kekata") ; --UNCHK
-lin invent_V2 = mkWV2 (k73A "kekata") ; --UNCHK
-lin invention_N = mkWN (compoundN "keksi" (k38 "minen")) ; --UNCHK
-lin inventive_A = mkWA (k38 "mielikuvituksellinen") ; --UNCHK
-lin inventiveness_N = mkWN (k40 "lahjakkuus") ; --UNCHK
+lin invent_V = mkV "keksiä" ;
+lin invent_V2 = mkV2 "keksiä" ;
+lin invention_N = mkN "keksintö" ; 
+lin inventive_A = mkA "kekseliäs" ;
+lin inventiveness_N = mkN "kekseliäisyys" ;
 lin inventor_N = mkWN (k12 "keksijä") ;
 lin inventory_N = mkWN (k3 "inventaario") ; --f74
 lin inverse_A = mkWA (k38 "käänteinen") ; --UNCHK
@@ -51804,12 +51804,12 @@ lin transitional_A = mkWA "siirtymä-" ; --UNCHK
 lin transitive_A = mkWA "transitiivi-" ; --UNCHK
 lin transitivity_N = mkWN "transitiivisuus" ; --UNCHK
 lin transitory_A = mkWA (k38 "katoavainen") ; --UNCHK
-lin translatable_A = mkWA "muunnettava" ; --UNCHK
-lin translate_V = mkWV (k53A "muuttaa") ; --UNCHK
-lin translate_V2 = mkWV2 (k53A "muuttaa") ; --UNCHK
-lin translation_N = mkWN (k10 "siirtymä") ; --UNCHK
-lin translational_A = mkWA "kääntyvä" ; --UNCHK
-lin translator_N = mkWN (compoundN "muunnos" (k10 "ohjelma")) ; --UNCHK
+lin translatable_A = mkA "käännettävä" ;
+lin translate_V = mkV "kääntää" ;
+lin translate_V2 = mkV2 "kääntää" ;
+lin translation_N = mkN "käännös" ;
+lin translational_A = mkA "käännöksellinen" ;
+lin translator_N = mkN "kääntäjä" ;
 lin transliterate_V2 = mkWV2 (k62 "translitteroida") ; --UNCHK
 lin transliteration_N = mkWN (k5A "translitterointi") ; --UNCHK
 lin translocation_N = mkWN (k1A "siirto") ; --UNCHK

lib/src/translator/DictionarySpa.gf

@@ -12473,7 +12473,7 @@ lin mostly_Adv = mkAdv "principalmente" ; -- status=guess
 lin mote_N = mkN "mota" ; -- status=guess
 lin motet_N = mkN "motete" ; -- status=guess
 lin moth_N = mkN "polilla" ; -- status=guess
-lin mother_N = mkN "madre" ; -- status=guess
+lin mother_N = mkN "madre" feminine ;
 lin mother_N2 = L.mother_N2  ; -- comment=CHECKED
 lin motherhood_N = mkN "maternidad" ; -- status=guess
 lin motherland_N = mkN "patria" ; -- status=guess

lib/src/translator/Translate.gf

@@ -29,8 +29,8 @@ abstract Translate =
               ** {
 flags
   startcat=Phr;
+---  heuristic_search_factor=0.60; ---- what should we choose here?
 ---- robustness by Chunk now
-----  heuristic_search_factor=0.60;
 ----  meta_prob=1.0e-5;
 ----  meta_token_prob=1.1965149246222233e-9;
 

lib/src/translator/translate.probs

@@ -65107,6 +65107,3 @@ SFullstop		0.9
 SQuestmark		0.06
 SExclmark		0.01
 SUnmarked		0.03
-
-
-