GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-28 12:18:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Ger wide-coverage changes due to RGL changes

Browse Source
This commit is contained in:
scharolta_siencnik
2015-07-23 15:52:55 +00:00
parent ba14a8a7e5
commit 0d35bb1c03
1 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/src/translator/ExtensionsGer.gf
View File

@@ -72,24 +72,19 @@ lin
} ; } ;
g = cn.g g = cn.g
} ; } ;
{- ---- doesn't compile AR 22/5/2015
CompoundN noun cn = {
s = \\n,c => glue noun.co (cn.s ! n ! c) ;
co = glue noun.co (cn.co) ;
g = cn.g
} ;
-}
CompoundAP noun adj = { CompoundAP noun adj = {
s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ; s = \\af => glue (noun.s ! Sg ! Nom) (adj.s ! Posit ! af) ;
isPre = True isPre = True ;
c = <[],[]>;
ext = []
} ; } ;
GerundNP vp = { -- infinitive: Bier zu trinken GerundNP vp = { -- infinitive: Bier zu trinken
s = \\c => (prepC c).s ++ useInfVP False vp ; s = \\c => (prepC c).s ++ useInfVP False vp ;
a = Ag Neutr Sg P3 ; a = Ag Neutr Sg P3 ;
isPron = False isPron = False ;
rc, ext, adv = "";
} ; } ;
GerundAdv vp = { -- Bier trinkend GerundAdv vp = { -- Bier trinkend
@@ -109,20 +104,26 @@ lin
} ; } ;
PresPartAP vp = { PresPartAP vp = {
s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPresPart af ; s = \\af => vp.s.particle ++ (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPresPart af ;
isPre = True isPre = True ;
c = <[],[]>;
ext = []
} ; } ;
PastPartAP vp = { PastPartAP vp = {
s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPastPart af ; s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPastPart af ;
isPre = True isPre = True ;
c = <[],[]>;
ext = []
} ; } ;
PastPartAgentAP vp np = PastPartAgentAP vp np =
let agent = (SyntaxGer.mkAdv von_Prep (lin NP np)).s let agent = (SyntaxGer.mkAdv von_Prep (lin NP np)).s
in { in {
s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ agent ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPastPart af ; s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ vp.a2 ++ agent ++ vp.inf ++ vp.ext ++ vp.infExt ++ vp.s.s ! VPastPart af ;
isPre = True isPre = True ;
c = <[],[]>;
ext = []
} ; } ;
{- {-
@@ -149,8 +150,8 @@ lin
} }
} ; } ;
-} -}
CompS s = {s = \\_ => "dass" ++ s.s ! Main} ; -- S -> Comp CompS s = {s = \\_ => "dass" ++ s.s ! Main ; ext = ""} ; -- S -> Comp
CompVP ant p vp = {s = \\_ => useInfVP True vp} ; -- VP -> Comp CompVP ant p vp = {s = \\_ => useInfVP True vp; ext = ""} ; -- VP -> Comp
lin lin
that_RP = which_RP ; that_RP = which_RP ;