know_VQ in resource

lib/src/abstract/Lexicon.gf

@@ -158,6 +158,7 @@ fun
   king_N : N ;
   knee_N : N ;
   know_V2 : V2 ;
+  know_VQ : VQ ;
   know_VS : VS ;
   lake_N : N ;
   lamp_N : N ;

lib/src/bulgarian/LexiconBul.gf

@@ -113,6 +113,7 @@ lin
               vtype  = VNormal ;
               lock_V = <>
             } ;
+  know_VQ = mkVQ (actionV (mkV188 "çíàì") (mkV162 "çíàÿ")) ;
   know_VS = mkVS (actionV (mkV188 "çíàì") (mkV162 "çíàÿ")) ;
   lake_N = mkN054 "åçåðî" ;
   lamp_N = mkN041 "ëàìïà" ;

lib/src/catalan/LexiconCat.gf

@@ -108,6 +108,7 @@ lin
    iron_N = regMN "ferro" ;
    king_N = regMN "rei" ;
    know_V2 = dirV2 saberV ;
+   know_VQ = mkVQ saberV;
    know_VS = mkVS saberV;
    lake_N = regMN "llac" ;
    lamp_N = regFN "làmpada" ;

lib/src/danish/LexiconDan.gf

@@ -104,6 +104,7 @@ lin
   john_PN = mkPN "John" utrum ;
   king_N = mk2N "konge" "kongen" ;
   know_V2 = dirV2 (mkV "kende" "kendte") ;
+  know_VQ = mkVQ vide_V ;
   know_VS = mkVS vide_V ;
   lake_N = mk2N "sø" "søen" ;
   lamp_N = mk2N "lampe" "lampen" ;

lib/src/dutch/LexiconDut.gf

@@ -39,6 +39,7 @@ lin
   go_V = zijnV gaan_V ;
   hope_VS = mkVS (mkV "hopen") ;
   house_N = mkN "huis" neuter ;
+  know_VQ = mkVQ weten_V ;
   know_VS = mkVS weten_V ;
   married_A2 = mkA2 (mkA "getrouwd") (mkPrep "met") ;
   mother_N2 = mkN2 (mkN "moeder") ;

lib/src/english/LexiconEng.gf

@@ -101,6 +101,7 @@ lin
   iron_N = regN "iron" ;
   king_N = mkN masculine (regN "king") ;
   know_V2 = dirV2 (irregV "know" "knew" "known") ;
+  know_VQ = mkVQ (irregV "know" "knew" "known") ;
   know_VS = mkVS (irregV "know" "knew" "known") ;
   lake_N = regN "lake" ;
   lamp_N = regN "lamp" ;

lib/src/finnish/LexiconFin.gf

@@ -105,6 +105,7 @@ lin
   iron_N = mkN "rauta" ;
   king_N = mkN "kuningas" ;
   know_VS = mkVS (mkV "tietää" "tiesi") ;
+  know_VQ = mkVQ (mkV "tietää" "tiesi") ;
   know_V2 = mkV2 (mkV "tuntea" "tunsi") ;
   lake_N = mkN "järvi" "järviä" ;
   lamp_N = mkN "lamppu" ;

lib/src/french/LexiconFre.gf

@@ -103,6 +103,7 @@ lin
   iron_N = regGenN "fer" masculine ;
   king_N = regGenN "roi" masculine ;
   know_V2 = connaître_V2 ; 
+  know_VQ = mkVQ (lin V savoir_V2) ;
   know_VS = mkVS (lin V savoir_V2) ;
   lake_N = regGenN "lac" masculine ;
   lamp_N = regGenN "lampe" feminine ;

lib/src/german/LexiconGer.gf

@@ -108,6 +108,7 @@ lin
   jump_V = seinV (irregV "springen" "springt" "sprang" "spränge" "gesprungen") ;
   king_N = mkN "König" ;
   know_V2 = dirV2 (irregV "kennen" "kennt" "kannte" "kännte" "gekannt") ; ---- infl
+  know_VQ = mkVQ wissen_V ;
   know_VS = mkVS wissen_V ;
   lake_N = reg2N "See" "Seen" masculine ; --- infl
   lamp_N = mkN "Lampe";

lib/src/italian/LexiconIta.gf

@@ -103,6 +103,7 @@ lin
   john_PN = mkPN "Giovanni" masculine ;
   king_N = regN "ré" ;
   know_V2 = dirV2 (verboV (conoscere_37 "conoscere")) ;
+  know_VQ = mkVQ (verboV (sapere_78 "sapere")) ;
   know_VS = mkVS (verboV (sapere_78 "sapere")) ;
   lake_N = regN "lago" ;
   lamp_N = regN "lampada" ;

lib/src/norwegian/LexiconNor.gf

@@ -102,6 +102,7 @@ lin
   john_PN = mkPN "John" masculine ;
   king_N = regGenN "konge" masculine ;
   know_V2 = dirV2 (mkV "kjenne" "kjente") ;
+  know_VQ = mkVQ IrregNor.vite_V ;
   know_VS = mkVS IrregNor.vite_V ;
   lake_N = regGenN "vann" neutrum ;
   lamp_N = regGenN "lampe" feminine ;

lib/src/polish/LexiconPol.gf

@@ -273,6 +273,7 @@ lin
     wonder_VQ = mkItVerb (mkReflVerb (mkV "zastanawiać" conj98 "zastanowić" conj77a));
     fear_VS = mkReflVerb (mkMonoVerb "bać" conjbac Imperfective);
     hope_VS = mkItVerb (mkComplicatedVerb (mkMonoVerb "mieć" conj100 Imperfective) "nadzieję");
+    know_VQ = mkMonoVerb "wiedzieć" conj103 Imperfective;
     know_VS = mkMonoVerb "wiedzieć" conj103 Imperfective;
     say_VS = mkV "mówić" conj72  "powiedzieć" conj103; 
     become_VA =  (mkReflVerb (mkV "stawać" conj57 "stać" conj3)) ** {c={c=Nom;s="";adv=False}};

lib/src/romance/QuestionRomance.gf

@@ -39,7 +39,7 @@ incomplete concrete QuestionRomance of Question =
             let 
               ord = case q of {
                 QDir   => DInv ;
-                QIndir => DDir
+                QIndir => DInv 
               } ;
               cls = cl.s ! ord ! t ! a ! p ! Indic ;
               why = iadv.s

lib/src/romanian/LexiconRon.gf

@@ -102,8 +102,9 @@ important_A = mkA "important" ;
 industry_N = mkN "industrie" ;
 iron_N = mkN "fier" masculine ;
 king_N = mkAnim (mkN "rege" masculine) ;
-know_V2 = dirV2 (v_besch122 "şti") ;
-know_VS = mkVS (v_besch109 "cunoaşte") ;
+know_V2 = dirV2 (v_besch109 "cunoaşte") ;
+know_VQ = mkVQ (v_besch122 "şti") ;
+know_VS = mkVS (v_besch122 "şti") ;
 lake_N = mkNR "lac" ;
 lamp_N = mkN "lampă" "lămpi" ;
 learn_V2 = dirV2(v_besch45 "învăţa") ;

lib/src/romanian/QuestionRon.gf

@@ -41,7 +41,7 @@ concrete QuestionRon of Question =
             let 
               ord = case q of {
                 QDir   => DInv ;
-                QIndir => DDir
+                QIndir => DInv --- DDir
               } ;
               cls = cl.s ! ord ! t ! a ! p ! Indic ;
               why = iadv.s

lib/src/spanish/LexiconSpa.gf

@@ -101,6 +101,7 @@ lin
    iron_N = regN "fierro" ;
    king_N = regN "rey" ;
    know_V2 = mkV2 (verboV (conocer_25 "conocer")) ;
+   know_VQ = mkVQ (verboV (saber_71 "saber")) ;
    know_VS = mkVS (verboV (saber_71 "saber")) ;
    lake_N = regN "lago" ;
    lamp_N = regN "lámpara" ;

lib/src/swedish/LexiconSwe.gf

@@ -102,6 +102,7 @@ lin
   iron_N = regGenN "järn" neutrum ;
   king_N = (regGenN "kung" utrum) ;
   know_V2 = mkV2 (mkV "känner") ;
+  know_VQ = mkVQ (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ;
   know_VS = mkVS (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ;
   lake_N = mkN "sjö" "sjön" "sjöar" "sjöarna" ;
   lamp_N = regGenN "lampa" utrum;