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

it clefts and let's, implemented for Germanic

Browse Source
This commit is contained in:
aarne
2006-05-31 14:33:10 +00:00
parent 0694e0e1bb
commit afa2261a1b
18 changed files with 135 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,7 +5,8 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
lin
RelCl cl = {
s = \\t,a,b,_ => "derart" ++ conjThat ++ cl.s ! t ! a ! b ! Sub
s = \\t,a,b,_ => "derart" ++ conjThat ++ cl.s ! t ! a ! b ! Sub ;
c = Nom
} ;
RelVP rp vp = {
@@ -13,16 +14,18 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
let
agr = case rp.a of {
RNoAg => agrP3 (numGenNum gn) ;
RAg a => a
RAg a => a ** {g = Neutr}
} ;
cl = mkClause (rp.s ! gn ! Nom) agr vp
in
cl.s ! t ! ant ! b ! Sub
cl.s ! 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
appPrep slash.c2 (rp.s ! gn) ++ slash.s ! t ! a ! p ! Sub ;
c = slash.c2.c
} ;
FunRP p np rp = {