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

Dutch additions enabling YAQL

Browse Source
This commit is contained in:
aarne
2012-12-02 09:25:53 +00:00
parent 596cd4d473
commit 33ba636798
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/dutch/VerbDut.gf
View File

@@ -64,6 +64,9 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
predVv v)))) ** {c2 = v.c2} ; predVv v)))) ** {c2 = v.c2} ;
UseComp comp = insertObj comp.s (predV zijn_V) ; -- agr not used UseComp comp = insertObj comp.s (predV zijn_V) ; -- agr not used
UseCopula = predV zijn_V ;
CompCN cn = {s = \\a => cn.s ! Strong ! NF a.n Nom} ; CompCN cn = {s = \\a => cn.s ! Strong ! NF a.n Nom} ;
CompAP ap = {s = \\_ => ap.s ! APred} ; CompAP ap = {s = \\_ => ap.s ! APred} ;
CompNP np = {s = \\_ => np.s ! NPNom} ; CompNP np = {s = \\_ => np.s ! NPNom} ;
@@ -76,9 +79,12 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
PassV2 v = insertInf (v.s ! VPerf) (predV worden_V) ; PassV2 v = insertInf (v.s ! VPerf) (predV worden_V) ;
VPSlashPrep vp prep = vp ** {c2 = prep.s} ;
---- workaround for a subtyping bug ---- workaround for a subtyping bug
oper oper
v2v : VVerb -> VVerb = \v -> v2v : VVerb -> VVerb = \v ->
{s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = v.vtype} ; {s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = v.vtype} ;
predVv : VVerb -> ResDut.VP = \v -> predV (v2v v) ; predVv : VVerb -> ResDut.VP = \v -> predV (v2v v) ;
} }