forked from GitHub/gf-rgl
Fixed ear; fixed ComplSlash complement
This commit is contained in:
@@ -87,7 +87,7 @@ lin
|
||||
dry_A = mkA "сухой" "" "3b/c'";
|
||||
dull_A = mkA "скучный" ;
|
||||
dust_N = mkN "пыль" ;
|
||||
ear_N = mkN "ухо" ;
|
||||
ear_N = (mkNplus (mkN "ухо" neuter inanimate "3e")) ** {pnom="уши";pgen="ушей";pdat="ушам";pacc="уши";pins="ушами";pprep="ушах"} ;
|
||||
earth_N = mkN "земля" feminine inanimate "2*d" ;
|
||||
easy_A2V = mkA2 (mkA "лёгкий" "легче" "3*a/b") for_Prep ;
|
||||
eat_V2 = mkV2 (mkV imperfective "кушать" "кушаю");
|
||||
|
||||
@@ -60,7 +60,7 @@ lin
|
||||
in_Prep = mkPrep "в" Loc ;
|
||||
on_Prep = mkPrep "на" Loc ;
|
||||
part_Prep = {s="" ; c=Ptv ; hasPrep=False } ;
|
||||
possess_Prep = {s="" ; c=Gen ; hasPrep=False} ;
|
||||
possess_Prep = {s="у" ; c=Gen ; hasPrep=False} ;
|
||||
through_Prep = mkPrep "через" Acc ;
|
||||
to_Prep = mkPrep "к" Dat ;
|
||||
under_Prep = mkPrep "под" Ins ;
|
||||
|
||||
@@ -111,7 +111,7 @@ lin
|
||||
|
||||
-- : VPSlash -> NP -> VP ; -- love it
|
||||
ComplSlash vps np = vps ** {
|
||||
compl=\\a => vps.compl ! np.a ++ (applyPrep vps.c np) -- hasPrep? order? compl agr lost?
|
||||
compl=\\a => vps.compl ! a ++ (applyPrep vps.c np)
|
||||
} ;
|
||||
|
||||
-- : VV -> VPSlash -> VPSlash ; -- want to buy
|
||||
|
||||
@@ -728,3 +728,6 @@ AllRus: надеяться , что не его имя Иван
|
||||
AllRusAbs: ComplVS hope_VS (UseCl (TTAnt TPres AAnter) PPos (have_name_Cl (UsePron he_Pron) (UsePN john_PN)))
|
||||
AllRus: надеяться , что его имя Иван
|
||||
|
||||
AllRusAbs: UseCl (TTAnt TPast ASimul) PPos (ImpersCl (ComplSlash (VPSlashPrep ill_VP possess_Prep) (UsePron we_Pron)))
|
||||
AllRus: бы &+ ло больно у нас
|
||||
|
||||
|
||||
Reference in New Issue
Block a user