This commit is contained in:
janna
2006-05-17 09:05:26 +00:00
parent dc5952c05d
commit e4a2f40f36
2 changed files with 13 additions and 13 deletions

View File

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

View File

@@ -1,4 +1,4 @@
--# -path=.:../abstract:../common:../../prelude --# -path=.:../abstract:../common:../../prelude
concrete StructuralRus of Structural = CatRus ** concrete StructuralRus of Structural = CatRus **
open ResRus, MorphoRus, (P = ParadigmsRus), Prelude, NounRus, in { open ResRus, MorphoRus, (P = ParadigmsRus), Prelude, NounRus, in {
@@ -78,10 +78,10 @@ lin
somePl_Det = nekotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; somePl_Det = nekotorujDet ** {n = Pl; g = PNoGen; c= Nom} ;
something_NP = UsePron (pronChtoTo** {lock_Pron=<> }) ; something_NP = UsePron (pronChtoTo** {lock_Pron=<> }) ;
somewhere_Adv = ss "где-нибудь" ; somewhere_Adv = ss "где-нибудь" ;
--- these_NP n = { s =\\_ => [] ; n = Pl; p = P3; g= PGen Fem ; these_NP n = { s =\\_ => “”; n = Pl; p = P3; g= PGen Fem ;
--- anim = Animate ; pron = True} ; -- missing in Russian anim = Animate ; pron = True} ; -- missing in Russian
--- those_NP n = { s =\\_ => [] ; n = Pl; p = P3; g=PGen Fem ; those_NP n = { s =\\_ => “” ; n = Pl; p = P3; g=PGen Fem ;
--- anim = Animate ; pron = True} ; -- missing in Russian anim = Animate ; pron = True} ; -- missing in Russian
that_Quant = totDet ** {n = Sg; g = PNoGen; c= Nom} ; that_Quant = totDet ** {n = Sg; g = PNoGen; c= Nom} ;
that_NP = det2NounPhrase totDet ; -- inanimate form only that_NP = det2NounPhrase totDet ; -- inanimate form only
there_Adv = ss "там" ; there_Adv = ss "там" ;