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

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-01-02 13:16:46 +00:00
parent 464136d9ee
commit 37ec7d8deb
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
resource-0.6/russian/SyntaxRus.gf
View File

@@ -152,10 +152,10 @@ oper
npGenDet : Number -> Numeral -> NounPhrase -> CommNounPhrase -> NounPhrase =
\n,dva, masha,mashina ->
{s = \\c => case masha.pron of
{ True => masha.s ! (mkPronForm Nom No (Poss (gNum mashina.g n))) ++
dva.s ! Nom ! mashina.g ++ mashina.s ! n ! (extCase c) ;
False => masha.s ! (mkPronForm Gen No (Poss (gNum mashina.g n))) ++
dva.s ! Nom ! mashina.g ++ mashina.s ! n ! (extCase c)
{ True => masha.s ! (mkPronForm (extCase c) No (Poss (gNum mashina.g n))) ++
dva.s ! (extCase c) ! mashina.g ++ mashina.s ! n ! (extCase c) ;
False => dva.s ! (extCase c) ! mashina.g ++ mashina.s ! n ! (extCase c) ++
masha.s ! (mkPronForm Gen No (Poss (gNum mashina.g n)))
} ;
n = n ; p = P3 ; g = mashina.g ; anim = mashina.anim ; pron = False
} ;