make use of CommonX.CAdv

This commit is contained in:
Krasimir Angelov
2018-07-10 13:59:01 +02:00
parent 5d734f9a6c
commit 43950360a6
5 changed files with 11 additions and 12 deletions
+4 -4
View File
@@ -1,6 +1,6 @@
--# -coding=cp1251
concrete StructuralBul of Structural = CatBul **
open MorphoBul, ParadigmsBul, Prelude in {
open MorphoBul, ParadigmsBul, Prelude, (X = ConstructX) in {
flags coding=cp1251 ;
@@ -48,9 +48,9 @@ concrete StructuralBul of Structural = CatBul **
"âúâ" / strs {"â" ; "ô" ; "Â" ; "Ô"}
}) ;
it_Pron = mkPron "òî" "íåãîâ" "íåãîâèÿ" "íåãîâèÿò" "íåãîâà" "íåãîâàòà" "íåãîâî" "íåãîâîòî" "íåãîâè" "íåãîâèòå" (GSg Neut) PronP3 ;
less_CAdv = {s="íå"; sn="ïî-ìàëêî"} ;
less_CAdv = X.mkCAdv "ïî-ìàëêî" "îò" ;
many_Det = mkDeterminerPl "ìíîãî" ;
more_CAdv = {s=[]; sn="ïîâå÷å"} ;
more_CAdv = X.mkCAdv "ïîâå÷å" "îò" ;
most_Predet = {s = \\_ => "ïîâå÷åòî"} ;
much_Det = mkDeterminerSg "ìíîãî" "ìíîãî" "ìíîãî";
must_VV =
@@ -122,7 +122,7 @@ concrete StructuralBul of Structural = CatBul **
youPl_Pron = mkPron "âèå" "âàø" "âàøèÿ" "âàøèÿò" "âàøà" "âàøàòà" "âàøå" "âàøåòî" "âàøè" "âàøèòå" GPl PronP2 ;
youPol_Pron = mkPron "âèå" "âàø" "âàøèÿ" "âàøèÿò" "âàøà" "âàøàòà" "âàøå" "âàøåòî" "âàøè" "âàøèòå" GPl PronP2 ;
as_CAdv = mkCAdv "" "êîëêîòî" ;
as_CAdv = X.mkCAdv [] "êîëêîòî" ;
have_V2 = dirV2 (stateV (mkV186 "èìàì")) ;