1
0
forked from GitHub/gf-core

add know_VS in LexiconBul.gf

This commit is contained in:
krasimir
2010-08-25 10:04:47 +00:00
parent b20821dfc3
commit 89f58454c4
4 changed files with 15 additions and 2 deletions

View File

@@ -13211,7 +13211,7 @@ lin aba_N = mkN041 "
zna_ch_itelen_A = mkA079 "çíà÷èòåëåí" ;
zna_ch_itelnost_N = mkN049 "çíà÷èòåëíîñò" ;
zna_ch_ka_N = mkN041 "çíà÷êà" ;
znam_V = actionV (mkV186 "çíàì") (mkV162 "çíàÿ") ;
znam_V = actionV (mkV188 "çíàì") (mkV162 "çíàÿ") ;
znoen_A = mkA085 "çíîåí" ;
znoj_N = mkN028 "çíîé" ;
zob_N = mkN001 "çîá" ;

View File

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

View File

@@ -53,6 +53,7 @@ oper
VPres Pl P2 => chete + "òå";
VPres Pl P3 => case cheta of {
vika + "ì" => case chete of {
zn + "àå" => zn + "àÿò";
dad + "å" => dad + "àò";
vika => vika + "ò"
};
@@ -182,4 +183,4 @@ oper
adv = dobro ;
lock_A = <>
} ;
}
}

View File

@@ -1506,6 +1506,17 @@ oper
(v0+"˙í")
(v0+"˙ů")
(v0+"˙é") ;
mkV188 : Str -> VTable ;
mkV188 base = let v0 = tk 2 base
in mkVerb (v0+"ŕě")
(v0+"ŕĺ")
(v0+"ŕő")
(v0+"ŕő")
(v0+"ŕë")
(v0+"ŕë")
(v0+"ŕí")
(v0+"ŕů")
(v0+"ŕé") ;
adjAdv : A -> Str -> A =
\a,adv -> {s = a.s; adv = adv; lock_A=<>} ;