msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fix ComparAdvAdj

Browse Source
This commit is contained in:
Roman Suzi
2020-08-09 17:50:29 +03:00
parent 13ee63e25d
commit 84361d473d
3 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/russian/AdverbRus.gf
View File

@@ -12,7 +12,7 @@ lin
-- : CAdv -> A -> NP -> Adv ; -- more warmly than John - более тепло чем Иван -- : CAdv -> A -> NP -> Adv ; -- more warmly than John - более тепло чем Иван
ComparAdvAdj cadv a np = { ComparAdvAdj cadv a np = {
s = cadv.s ++ a.sn ++ comma ++ cadv.p ++ np.s ! Nom s = cadv.s ++ a.sn ++ embedInCommas (cadv.p ++ np.s ! Nom)
} ; } ;
-- : CAdv -> A -> S -> Adv ; -- more warmly than he runs - более тепло чем он бежал -- : CAdv -> A -> S -> Adv ; -- more warmly than he runs - более тепло чем он бежал
ComparAdvAdjS cadv a s = { ComparAdvAdjS cadv a s = {

20
src/russian/test_result.treebank
View File

@@ -3555,6 +3555,26 @@ AllRus: нет у вас воды
AllRusAbs: UseCl (TTAnt TPres ASimul) PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron)) (MassNP (UseN water_N)))) AllRusAbs: UseCl (TTAnt TPres ASimul) PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron)) (MassNP (UseN water_N))))
AllRus: нет у вас воды AllRus: нет у вас воды
AllRusAbs: ComparAdvAdj less_CAdv narrow_A everything_NP
AllRus: менее узко , чем всё
AllRusAbs: UseCl (TTAnt TCond AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существовал бы
AllRusAbs: UseCl (TTAnt TCond ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существовал бы
AllRusAbs: UseCl (TTAnt TFut AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , будет существовать
AllRusAbs: UseCl (TTAnt TFut ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , будет существовать
AllRusAbs: UseCl (TTAnt TPast AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существовал
AllRusAbs: UseCl (TTAnt TPast ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существовал
AllRusAbs: UseCl (TTAnt TPres AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существует
AllRusAbs: UseCl (TTAnt TPres ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
AllRus: дом менее узко , чем всё , существует
AllRusAbs: UseCl (TTAnt TCond AAnter) PNeg (AdvIsNP everywhere_Adv (MassNP (UseN sky_N))) AllRusAbs: UseCl (TTAnt TCond AAnter) PNeg (AdvIsNP everywhere_Adv (MassNP (UseN sky_N)))
AllRus: небо не везде бы &+ ло бы AllRus: небо не везде бы &+ ло бы
AllRusAbs: UseCl (TTAnt TCond AAnter) PPos (AdvIsNP everywhere_Adv (MassNP (UseN sky_N))) AllRusAbs: UseCl (TTAnt TCond AAnter) PPos (AdvIsNP everywhere_Adv (MassNP (UseN sky_N)))

3
src/russian/test_rus_grammar.gfs
View File

@@ -152,8 +152,11 @@ gt OrdNumeral (num (pot3 (pot1as2 pot110))) | l -treebank
gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank
gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank
gt ComparAdvAdj less_CAdv narrow_A everything_NP | l -treebank
-- from extend -- from extend
gt UseCl ? PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP) ) | l -treebank
gt UseCl (TTAnt ? AAnter) ? (AdvIsNP everywhere_Adv (MassNP (UseN sky_N))) | l -treebank gt UseCl (TTAnt ? AAnter) ? (AdvIsNP everywhere_Adv (MassNP (UseN sky_N))) | l -treebank
gt UseCl (TTAnt ? AAnter) PPos (AdvIsNPAP everywhere_Adv (MassNP (UseN sky_N)) (PositA blue_A)) | l -treebank gt UseCl (TTAnt ? AAnter) PPos (AdvIsNPAP everywhere_Adv (MassNP (UseN sky_N)) (PositA blue_A)) | l -treebank
gt UseCl ? PPos (ExistsNP (MassNP (UseN number_N))) | l -treebank gt UseCl ? PPos (ExistsNP (MassNP (UseN number_N))) | l -treebank