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

added ExtendGer functions needed in Wikimini

Browse Source
This commit is contained in:
aarneranta
2023-02-09 09:35:05 +01:00
parent e49c64bac9
commit 7b3b49400a
2 changed files with 803 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

934
doc/tour/tourSwe.html
View File

File diff suppressed because it is too large Load Diff

24
src/german/ExtendGer.gf
View File

@@ -7,7 +7,7 @@ concrete ExtendGer of Extend =
VPS, ListVPS, VPI, ListVPI,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
CardCNCard
CardCNCard, PassVPSlash, PassAgentVPSlash, CompoundN
]
with
(Grammar = GrammarGer) **
@@ -150,4 +150,26 @@ lin FullName gn sn = {
g = sex2gender gn.g ;
n = Sg
} ;
lin PassVPSlash vp =
insertObj (\\_ => (PastPartAP vp).s ! APred) (predV werdenPass) **
{ c1 = subjPrep vp.c2 } ;
-- this also gives "mit dir wird gerechnet" ;
-- the alternative linearisation ("es wird mit dir gerechnet") is not implemented
lin PassAgentVPSlash vp np = ---- "von" here, "durch" in StructuralGer
insertObj (\\_ => (PastPartAgentAP (lin VPSlash vp) (lin NP np)).s ! APred) (predV werdenPass) ;
lin CompoundN a x =
let s = a.co in
lin N {
s = \\n,c => s ++ Predef.BIND ++ x.uncap.s ! n ! c ;
co = s ++ Predef.BIND ++ x.uncap.co ;
uncap = {
s = \\n,c => a.uncap.co ++ Predef.BIND ++ x.uncap.s ! n ! c ;
co = a.uncap.co ++ Predef.BIND ++ x.uncap.co ;
} ;
g = x.g
} ;
}