GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-23 18:21:11 -06:00
Code Issues Packages Projects Releases Wiki Activity

Many additions; more numerals; tests;

Browse Source
This commit is contained in:
Roman Suzi
2020-08-26 18:10:35 +03:00
parent 0e363f02dd
commit f7f784aeb1
16 changed files with 481 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/russian/NumeralRus.gf
View File

@@ -139,24 +139,24 @@ lin n9 = {
size = Num5
} ;
oper n59 : Str -> DetTable =
\n -> \\g, a, c =>
oper n59 : Str -> DetTable
= \n -> \\g, a, c =>
case <c, g> of {
<(Nom|VocRus|Acc), _> => n + "ь" ;
<(Gen|Ptv|Dat|Pre|Loc), _> => n + "и" ;
<Ins, _> => n + "ью"
} ;
oper n2030 : Str -> DetTable =
\n -> \\g, a, c =>
oper n2030 : Str -> DetTable
= \n -> \\g, a, c =>
case <c, g> of {
<(Nom|VocRus|Acc), _> => n + "дцать" ;
<(Gen|Ptv|Dat|Pre|Loc), _> => n + "дцати" ;
<Ins, _> => n + "дцатью"
} ;
oper n5070 : Str -> DetTable =
\n -> \\g, a, c =>
oper n5070 : Str -> DetTable
= \n -> \\g, a, c =>
case <c, g> of {
<(Nom|VocRus|Acc), _> => n + "ьдесят" ;
<(Gen|Ptv|Dat|Pre|Loc), _> => n + "идесяти" ;