diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-12-03 16:23:54 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-12-03 16:23:54 +0000 |
| commit | 2440854310c96fff410fb4d90dc7759cec785b3d (patch) | |
| tree | 2b7c2116f834b21a593bba3677afbc6c759360f1 /next-lib/src/finnish/ResFin.gf | |
| parent | 2f7fd8a59763e313a0d40cc807ce5da4d3366917 (diff) | |
accusative for Finnish numeral determiners
Diffstat (limited to 'next-lib/src/finnish/ResFin.gf')
| -rw-r--r-- | next-lib/src/finnish/ResFin.gf | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/next-lib/src/finnish/ResFin.gf b/next-lib/src/finnish/ResFin.gf index e26c96b26..e81238000 100644 --- a/next-lib/src/finnish/ResFin.gf +++ b/next-lib/src/finnish/ResFin.gf @@ -129,12 +129,11 @@ param appCompl : Bool -> Polarity -> Compl -> NP -> Str = \isFin,b,co,np -> let - c = case <isFin, b, co.c, np.isPron,np.a.n> of { - <_, Neg, NPAcc,_,_> => NPCase Part ; -- en näe taloa/sinua - <_, Pos, NPAcc,True,_> => NPAcc ; -- näen/täytyy sinut - <True, Pos, NPAcc,False,Sg> => NPCase Gen ; -- näen talon - <False,Pos, NPAcc,_,_> => NPCase Nom ; -- täytyy talo/sinut; näen talot - <_,_,coc,_,_> => coc + c = case <isFin, b, co.c, np.isPron> of { + <_, Neg, NPAcc,_> => NPCase Part ; -- en näe taloa/sinua + <_, Pos, NPAcc,True> => NPAcc ; -- näen/täytyy sinut + <False,Pos, NPAcc,False> => NPCase Nom ; -- täytyy nähdä talo + <_,_,coc,_> => coc } ; nps = np.s ! c in |