1
0
forked from GitHub/gf-rgl

*** empty log message ***

This commit is contained in:
janna
2004-01-02 13:16:46 +00:00
parent 464136d9ee
commit 37ec7d8deb

View File

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