msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Dut no_geV and fixprefixV

Browse Source
This commit is contained in:
aarne
2012-06-05 15:35:11 +00:00
parent 529fdea499
commit 97fcdd5fa2
1 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
lib/src/dutch/ParadigmsDut.gf
View File

@@ -126,6 +126,15 @@ oper
mkV : Str -> V -> V -- add movable suffix, e.g. af + stappen
} ;
-- To remove the past participle prefix "ge", e.g. for the verbs
-- prefixed by "be-, ver-".
no_geV : V -> V ; -- no participle "ge", e.g. "vertrekken"
-- To add a fixed prefix such as "be-, ver-"; this implies $no_geV$.
fixprefixV : Str -> V -> V ; -- add prefix such as "be"; implies no_ge
zijnV : V -> V ; -- force zijn as auxiliary (default hebben)
reflV : V -> V ; -- reflexive verb e.g. zich afvragen
@@ -230,6 +239,22 @@ oper
zijnV v = lin V (v2vvAux v VZijn) ;
reflV v = lin V {s = v.s ; aux = v.aux ; prefix = v.prefix ; vtype = VRefl} ;
no_geV v = let vs = v.s in {
s = table {
VPerf => Predef.drop 2 (vs ! VPerf) ;
p => vs ! p
} ;
prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
} ;
fixprefixV s v = let vs = v.s in {
s = table {
VPerf => s + Predef.drop 2 (vs ! VPerf) ;
p => s + vs ! p
} ;
prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
} ;
zijn_V : V = lin V ResDut.zijn_V ;
hebben_V : V = lin V ResDut.hebben_V ;