1
0
forked from GitHub/gf-rgl

Fixed ear; fixed ComplSlash complement

This commit is contained in:
Roman Suzi
2020-08-01 10:25:11 +03:00
parent 49d97eeef9
commit a6fc60e2d3
4 changed files with 6 additions and 3 deletions

View File

@@ -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 "кушать" "кушаю");

View File

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

View File

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

View File

@@ -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: бы &+ ло больно у нас