GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32: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

17
lib/resource/german/VerbGer.gf
View File

@@ -22,8 +22,23 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;
ComplVQ v q =
insertExtrapos (q.s ! QIndir) (predV v) ;
ComplVA v ap = insertObj (\\ _ => ap.s ! APred) (predV v) ;
ComplV2S v np s =
insertExtrapos (conjThat ++ s.s ! Sub)
(insertObj (\\_ => appPrep v.c2 np.s) (predV v)) ;
ComplV2Q v np q =
insertExtrapos (q.s ! QIndir)
(insertObj (\\_ => appPrep v.c2 np.s) (predV v)) ;
ComplV2V v np vp =
let
vpi = infVP False vp
in
insertExtrapos vpi.p3 (
insertInf vpi.p2 (
insertObj vpi.p1 (
(insertObj (\\_ => appPrep v.c2 np.s) (predV v))))) ;
ComplV2A v np ap =
insertObj (\\_ => appPrep v.c2 np.s ++ ap.s ! APred) (predV v) ;