know_VQ in resource

This commit is contained in:
aarne
2010-08-27 15:14:29 +00:00
parent d329d3b9d8
commit 6bc21c1d7a
17 changed files with 19 additions and 4 deletions

View File

@@ -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") ;

View File

@@ -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