GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-01 14:18:55 -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

4
lib/resource-1.0/finnish/VerbFin.gf
View File

@@ -30,12 +30,12 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
ComplVA v ap =
insertObj
(\\_,b,agr =>
ap.s ! False ! AN (NCase agr.n (npform2case v.c2.c))) --- v.cs.s ignored
ap.s ! False ! AN (NCase agr.n (npform2case agr.n v.c2.c))) --- v.cs.s ignored
(predV v) ;
ComplV2A v np ap =
insertObj
(\\fin,b,_ => appCompl fin b v.c2 np ++
ap.s ! False ! AN (NCase np.a.n (npform2case v.c3.c))) --agr to obj
ap.s ! False ! AN (NCase np.a.n (npform2case np.a.n v.c3.c))) --agr to obj
(predV v) ;
UseComp comp =