Major refactoring -> lexical aspect; word order in VP

This commit is contained in:
krasimir
2008-04-05 17:18:47 +00:00
parent da5200f02a
commit 2498fe7ee8
12 changed files with 362 additions and 319 deletions

View File

@@ -19,7 +19,7 @@ concrete StructuralBul of Structural = CatBul **
but_PConj = ss "íî" ;
by8agent_Prep = mkPrep "÷ðåç" Acc ;
by8means_Prep = mkPrep "÷ðåç" Acc ;
can8know_VV, can_VV = mkVV (mkV166 "ìîãà") ;
can8know_VV, can_VV = mkVV (stateV (mkV166 "ìîãà")) ;
during_Prep = mkPrep ["ïî âðåìå íà"] Acc ;
either7or_DConj = sd2 "èëè" "èëè" ** {n = Sg} ;
everybody_NP = mkNP "âñåêè" (GSg Masc) P3 ;
@@ -48,22 +48,23 @@ concrete StructuralBul of Structural = CatBul **
more_CAdv = {s=[]; sn="ïîâå÷å"} ;
most_Predet = {s = \\_ => "ïîâå÷åòî"} ;
much_Det = mkDeterminerSg "ìíîãî" "ìíîãî" "ìíîãî";
must_VV = mkVV {
s = table {
VPres _ _ => "òðÿáâà" ;
VAorist _ _ => "òðÿáâàøå" ;
VImperfect _ _ => "òðÿáâàëî" ;
VPerfect _ => "òðÿáâàëî" ;
VPluPerfect _ => "òðÿáâàëî" ;
VPassive _ => "òðÿáâàëî" ;
VPresPart _ => "òðÿáâàëî" ;
VImperative Sg => "òðÿáâàé" ;
VImperative Pl => "òðÿáâàéòå" ;
VGerund => "òðÿáâàéêè"
} ;
vtype=VNormal ;
lock_V=<>
} ;
must_VV =
mkVV {
s = \\_=>table {
VPres _ _ => "òðÿáâà" ;
VAorist _ _ => "òðÿáâàøå" ;
VImperfect _ _ => "òðÿáâàëî" ;
VPerfect aform => regAdjective "òðÿáâàë" ! aform ;
VPluPerfect aform => regAdjective "òðÿáâàë" ! aform ;
VPassive aform => regAdjective "òðÿáâàë" ! aform ;
VPresPart aform => regAdjective "òðÿáâàë" ! aform ;
VImperative Sg => "òðÿáâàé" ;
VImperative Pl => "òðÿáâàéòå" ;
VGerund => "òðÿáâàéêè"
} ;
vtype=VNormal ;
lock_V=<>
} ;
no_Phr = ss "íå" ;
on_Prep = mkPrep "íà" Acc ;
---- one_Quant = mkDeterminer Sg "one" ; -- DEPRECATED
@@ -77,7 +78,7 @@ concrete StructuralBul of Structural = CatBul **
she_Pron = mkPron "òÿ" "íåÿ" "è" "íåèí" "íåéíèÿ" "íåéíèÿò" "íåéíà" "íåéíàòà" "íåéíî" "íåéíîòî" "íåéíè" "íåéíèòå" (GSg Fem) P3 ;
so_AdA = ss "òîëêîâà" ;
somebody_NP = mkNP "íÿêîé" (GSg Masc) P3 ;
someSg_Det = mkDeterminerSg "íÿêîé" "íÿêîå" "íÿêîÿ" ;
someSg_Det = mkDeterminerSg "íÿêîé" "íÿêîÿ" "íÿêîå" ;
somePl_Det = mkDeterminerPl "íÿêîè" ;
something_NP = mkNP "íåùî" (GSg Neut) P3 ;
somewhere_Adv = ss "íÿêúäå" ;
@@ -97,7 +98,7 @@ concrete StructuralBul of Structural = CatBul **
to_Prep = mkPrep "äî" Acc ;
under_Prep = mkPrep "ïîä" Acc ;
very_AdA = ss "ìíîãî" ;
want_VV = mkVV (mkV186 "èñêàì") ;
want_VV = mkVV (stateV (mkV186 "èñêàì")) ;
we_Pron = mkPron "íèå" "íàñ" "íè" "íàø" "íàøèÿ" "íàøèÿò" "íàøà" "íàøàòà" "íàøå" "íàøåòî" "íàøè" "íàøèòå" GPl P1 ;
whatPl_IP = mkIP "êàêâè" "êàêâè" GPl ;
whatSg_IP = mkIP "êàêúâ" "êàêúâ" (GSg Masc) ;