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

plural accusative case in Finnish

Browse Source
This commit is contained in:
aarne
2006-06-22 11:32:58 +00:00
parent 7efc60a809
commit 1823dca475
8 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/resource-1.0/finnish/ResFin.gf
View File

@@ -56,9 +56,10 @@ param
NPForm = NPCase Case | NPAcc ;
oper
npform2case : NPForm -> Case = \f -> case f of {
NPCase c => c ;
NPAcc => Gen -- appCompl does the job
npform2case : Number -> NPForm -> Case = \n,f -> case <f,n> of {
<NPCase c,_> => c ;
<NPAcc,Sg> => Gen ;-- appCompl does the job
<NPAcc,Pl> => Nom
} ;
n2nform : NForm -> NForm = \nf -> case nf of {