GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

implemented V2? in finnish, german, romance

Browse Source
This commit is contained in:
aarne
2008-04-16 15:20:12 +00:00
parent c781185e51
commit 8583ae40a5
3 changed files with 38 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource/finnish/VerbFin.gf
View File

@@ -26,12 +26,22 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
ComplVS v s = insertExtrapos ("että" ++ s.s) (predV v) ;
ComplVQ v q = insertExtrapos ( q.s) (predV v) ;
ComplVA v ap =
insertObj
(\\_,b,agr =>
ap.s ! False ! AN (NCase agr.n (npform2case agr.n v.c2.c))) --- v.cs.s ignored
(predV v) ;
ComplV2S v np s =
insertExtrapos ("että" ++ s.s)
(insertObj (\\fin,b,_ => appCompl fin b v.c2 np) (predV v)) ;
ComplV2Q v np q =
insertExtrapos (q.s)
(insertObj (\\fin,b,_ => appCompl fin b v.c2 np) (predV v)) ;
ComplV2V v np vp =
insertObj (\\_,b,a => infVP v.sc b a vp) ---- different infinitives
(insertObj (\\fin,b,_ => appCompl fin b v.c2 np) (predV v)) ;
ComplV2A v np ap =
insertObj
(\\fin,b,_ => appCompl fin b v.c2 np ++