GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-14 13:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

German conjunctive

Browse Source
This commit is contained in:
aarne
2007-03-20 15:30:02 +00:00
parent 0eac3f6b58
commit 6f2bf05b0f
12 changed files with 140 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-1.0/german/RelativeGer.gf
View File

@@ -5,12 +5,12 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
lin
RelCl cl = {
s = \\t,a,b,_ => "derart" ++ conjThat ++ cl.s ! t ! a ! b ! Sub ;
s = \\m,t,a,b,_ => "derart" ++ conjThat ++ cl.s ! m ! t ! a ! b ! Sub ;
c = Nom
} ;
RelVP rp vp = {
s = \\t,ant,b,gn =>
s = \\m,t,ant,b,gn =>
let
agr = case rp.a of {
RNoAg => agrP3 (numGenNum gn) ;
@@ -18,13 +18,13 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
} ;
cl = mkClause (rp.s ! gn ! Nom) agr vp
in
cl.s ! t ! ant ! b ! Sub ;
cl.s ! m ! t ! ant ! b ! Sub ;
c = Nom
} ;
RelSlash rp slash = {
s = \\t,a,p,gn =>
appPrep slash.c2 (rp.s ! gn) ++ slash.s ! t ! a ! p ! Sub ;
s = \\m,t,a,p,gn =>
appPrep slash.c2 (rp.s ! gn) ++ slash.s ! m ! t ! a ! p ! Sub ;
c = slash.c2.c
} ;