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

PassAgentVPSlash in Ger

Browse Source
This commit is contained in:
aarne
2013-12-06 09:05:52 +00:00
parent 61b07c5b08
commit be58b6f224
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/german/ExtraGer.gf
View File

@@ -1,6 +1,6 @@
--# -coding=latin1
concrete ExtraGer of ExtraGerAbs = CatGer **
open ResGer, Coordination, Prelude, IrregGer in {
open ResGer, Coordination, Prelude, IrregGer, (P = ParadigmsGer) in {
lincat
VPI = {s : Bool => Str} ;
@@ -58,7 +58,9 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
} ;
PassVPSlash vps =
insertInf (vps.s.s ! VPastPart APred) (predV werdenPass);
insertInf (vps.s.s ! VPastPart APred) (predV werdenPass) ;
PassAgentVPSlash vps np = ---- "von" here, "durch" in StructuralGer
insertAdv (appPrep P.von_Prep np.s) (insertInf (vps.s.s ! VPastPart APred) (predV werdenPass)) ;
lincat
VPS = {s : Order => Agr => Str} ;