GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 03:09:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

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

10
lib/resource-0.6/russian/SyntaxRus.gf
View File

@@ -152,11 +152,11 @@ 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
} ;