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

making LangRus compile

Browse Source
This commit is contained in:
aarne
2006-05-20 09:59:09 +00:00
parent b134d947c7
commit 3c8b2606a3
4 changed files with 432 additions and 412 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/resource-1.0/russian/NounRus.gf
View File

@@ -1,4 +1,4 @@
# -path=.:../abstract:../common:../../prelude
--# -path=.:../abstract:../common:../../prelude
concrete NounRus of Noun = CatRus ** open ResRus, Prelude, MorphoRus in {
@@ -62,6 +62,7 @@ concrete NounRus of Noun = CatRus ** open ResRus, Prelude, MorphoRus in {
-- so just leave a decimal representation, without case-suffixes:
NumInt i = {s = table { _ => table {_ => i.s } } } ;
{-
OrdInt n = case n of {
0|2|6 => (uy_oj_EndDecl n.s) ;
3 => (ti_j_EndDecl n.s) ;
@@ -69,7 +70,7 @@ concrete NounRus of Noun = CatRus ** open ResRus, Prelude, MorphoRus in {
OrdNumeral numeral =
{s = \\ af => (uy_j_EndDecl (numeral.s ! caseAF af ! genAF af)).s!af} ;
-}
NumNumeral n = n ;