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

Paradigm for German fixed prefix verbs

Browse Source
This commit is contained in:
aarne
2009-12-17 09:14:06 +00:00
parent c9a89c50a2
commit 371aa3848c
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/src/german/ParadigmsGer.gf
View File

@@ -193,7 +193,7 @@ mkV : overload {
mkV : (geben, gibt, gib, gab, gäbe, gegeben : Str) -> V ;
-- To add a movable suffix e.g. "auf(fassen)".
-- To add a movable prefix e.g. "auf(fassen)".
mkV : Str -> V -> V
};
@@ -204,6 +204,10 @@ mkV : overload {
no_geV : V -> V ;
-- To add a fixed prefix such as "be-, ver-"; this implies $no_geV$.
fixprefixV : Str -> V -> V ;
-- To change the auxiliary from "haben" (default) to "sein" and
-- vice-versa.
@@ -430,6 +434,14 @@ mkV2 : overload {
prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
} ;
fixprefixV s v = let vs = v.s in {
s = table {
p@(VPastPart _) => s + Predef.drop 2 (vs ! p) ;
p => s + vs ! p
} ;
prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux ; vtype = v.vtype
} ;
haben_V = MorphoGer.haben_V ** {lock_V = <>} ;
sein_V = MorphoGer.sein_V ** {lock_V = <>} ;
werden_V = MorphoGer.werden_V ** {lock_V = <>} ;